commit a0961a9a8bdb0d1dc42f9a30d25950cbc8856bb1 Author: chi Date: Fri May 3 21:10:44 2019 +0900 QR코드에 색상 지정 가능 diff --git a/.vs/Epole/v14/.suo b/.vs/Epole/v14/.suo new file mode 100644 index 0000000..bd20081 Binary files /dev/null and b/.vs/Epole/v14/.suo differ diff --git a/Epole/AboutBox1.Designer.vb b/Epole/AboutBox1.Designer.vb new file mode 100644 index 0000000..07f8cb1 --- /dev/null +++ b/Epole/AboutBox1.Designer.vb @@ -0,0 +1,179 @@ + _ +Partial Class AboutBox1 + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 TextBoxDescription As System.Windows.Forms.TextBox + Friend WithEvents OKButton As System.Windows.Forms.Button + Friend WithEvents LabelCopyright As System.Windows.Forms.Label + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutBox1)) + 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.TextBoxDescription = New System.Windows.Forms.TextBox + Me.OKButton = New System.Windows.Forms.Button + Me.TableLayoutPanel.SuspendLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit() + 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.TextBoxDescription, 1, 4) + Me.TableLayoutPanel.Controls.Add(Me.OKButton, 1, 5) + Me.TableLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel.Location = New System.Drawing.Point(10, 8) + Me.TableLayoutPanel.Name = "TableLayoutPanel" + Me.TableLayoutPanel.RowCount = 6 + 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, 10.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 10.0!)) + Me.TableLayoutPanel.Size = New System.Drawing.Size(463, 239) + 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, 6) + Me.LogoPictureBox.Size = New System.Drawing.Size(146, 233) + 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(159, 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(301, 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(159, 23) + 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(301, 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(159, 46) + 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(301, 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(159, 69) + 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(301, 16) + Me.LabelCompanyName.TabIndex = 0 + Me.LabelCompanyName.Text = "회사 이름" + Me.LabelCompanyName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'TextBoxDescription + ' + Me.TextBoxDescription.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBoxDescription.Location = New System.Drawing.Point(159, 95) + Me.TextBoxDescription.Margin = New System.Windows.Forms.Padding(7, 3, 3, 3) + Me.TextBoxDescription.Multiline = True + Me.TextBoxDescription.Name = "TextBoxDescription" + Me.TextBoxDescription.ReadOnly = True + Me.TextBoxDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.TextBoxDescription.Size = New System.Drawing.Size(301, 113) + Me.TextBoxDescription.TabIndex = 0 + Me.TextBoxDescription.TabStop = False + Me.TextBoxDescription.Text = "설명:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(런타임에 레이블의 텍스트는 응용 프로그램의 어셈블리 정보로 바뀝니다." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "응용 프로그램의 어셈블리 정보를 사용자 지정하려면 프로젝트 " & _ + "디자이너의 [응용 프로그램] 창을 사용하십시오.)" + ' + 'OKButton + ' + Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.OKButton.Location = New System.Drawing.Point(373, 215) + Me.OKButton.Name = "OKButton" + Me.OKButton.Size = New System.Drawing.Size(87, 21) + Me.OKButton.TabIndex = 0 + Me.OKButton.Text = "확인(&O)" + ' + 'AboutBox1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.OKButton + Me.ClientSize = New System.Drawing.Size(483, 255) + Me.Controls.Add(Me.TableLayoutPanel) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "AboutBox1" + Me.Padding = New System.Windows.Forms.Padding(10, 8, 10, 8) + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "AboutBox1" + Me.TableLayoutPanel.ResumeLayout(False) + Me.TableLayoutPanel.PerformLayout() + CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Epole/AboutBox1.resx b/Epole/AboutBox1.resx new file mode 100644 index 0000000..ff18f39 --- /dev/null +++ b/Epole/AboutBox1.resx @@ -0,0 +1,609 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAHgAAAEGCAIAAAAhWcaAAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAcOdJREFUeF7tvQdY + lVe6Pc7z/O69czOJihE4vdF7Oxx6FwXFrtixd+yIKIKNImClSxdQsSv23luMMcaYXkwyiTF1MtW5Mzr/ + /9rfe9h+nAOIGZNoZs7zPjyIR4R11ll7vWXvbSGvkCsqFYoqhbJGqapTqRvU6q1qzXaNbrdOt09ne8jW + 9pit3Uk7uzN29ufs7c8LgU9O29uftLc7Zmd32M5uv53dPjvb3ba2O2xtt9nabrW1bbC1rbfV5mnVo9UK + b0VWVtZrr7325z//+a9//evf/va3//u///v73//+j3/848GDBw8fPvyn8Pj/fu0PCwZ0hUJZqVRVqVTV + KnWNWrNJo6nTaDdrdY063XadbpfOdq+t3UE7uyN2QBb4MpQRpwSsjwtfx982mWG9yda21labq1WPUiu8 + FLm5uW+99daf/vSnv/zlL/fv3/93g9sCKIPRBLS6Ws2ArtFoa7XaOq2uXqdr0NluEUi63dZ2ly2Yy/h7 + yM7uqB2DmEcz1nZ77Gx3ini9yVZXo9NV6zTZGtUwldxVXlxc/Nlnn/0bws2AfoRydTPKtVrdJh2LOh1E + gEnBZluGeGMz4nsFxEFkSAdARwBrvAAkI7vMsK7S6Sp1mqUa1QCV3Fa+ZcuWP/zhD/9WcFsAZWWVkc7g + sqaW0fkRynW2tjw44iA4tJg4zhEHyghAzyUbTyC9Jl4D6wqdrlynnq9WxiiTkpJOnjzJ4f7Va7eFskKp + qlSpq9TQDU21IBqbjEA/gtgEbhPEsQbuFlSlSUCZgi+PeBPg3cCxLtfpNup0xTr1ZLXCX7Fq1ar3339f + DDfWSZOl8texTFooS5XKcoY1Q7lGi9DV6lhs0rUOtDnBSVLA8Z220Ggj4gAd0EOyyYqYYF2m05XqtJla + 1RCV3EHe2Nj4+9//HnBzZ/LrsyUWyrVK1QaVukStLlNrKjTaKq22mmENDrYIMakfS3BICiEOYeHLI16P + umYNAa9LdboSgdpz1cpI5eLFi2/cuAG4//jHP7ZlS55ralsoc5XKPKUqT6Veq9YUaLQlWm2ZlolpJXML + 8GcdQhxiYq7gsB+QFAANi82tSH1LrIt1uiIdHLdqBPMkDQ0N33333Q8//EBwi4X7eXfcFspspSpHpV6l + VuepNas1CO06rW4D4xoTUyCORQxLWU3HOG4CN0QD0gETggDWfHmstWXflniN/6hQpy3QqueplVHKJUuW + 3L59+/vvv+dKYu64n0dqWygzlaoslTpHDaw1uRpNnkabr9WuEQKIFwhvcBHiHeK4GG6Sb8BNwVNHLI9i + rAt02g1aTY5GlaCSO8r37Nnz7bfftqokzym1LVQrVOpMtTpLjZwCv6d2lRa5HMOaw02IFwrsAwc7TnBz + uMFowppbERHWIDX+I+1arXqGWhGkWL169RdffAElIU+C9P25prYA9Eq1JlPDIkujzdGyILjzBLhXNxN8 + rRZYmEjKYwhuot3EbgqOdXWzhkCsNxix1izRKOOVMrns8uXL33zzjTm1n7s6iQVQ5kBrs7TGyBbBbU7w + 9QLcIHizgj8Z3JTvkIZw20d6zbEWtAtFErmLfPv27V999dXzTm0G9CM6c6DpE4K7LYJDT4qeRE9M2A2U + QWrCmmwfXjZgjYURvMa7h7CGjAQqNmzYcO/ePTG1YUier7zGQjlFqU5nWD+iswnc+GP7cLeU78ezG0k5 + FU+AMoU51usfYa1ZpFH2YEb7nXfe+frrr7kh4SXA50JGLIKDg2WOMkWYQjlEqZ6pbg9usZ6YyDdnd0fE + RExtKg3ioznWWBjJ/KzRYvFQDVTJVLILFy6A2jAk8NomK+Qz7kYs6uvrCwsLU1JShg8fHhgYqPBRqOJV + 6klq7dJmvTYheDvsJu1Geg24scTBepvkO22llECZgtIZriEirI2S7STfv3//l19++dzJiMWOHTt27dq1 + W3jAva5Zs2batGk9evRQeCpUvVQo/WhXtIa4OdzN7GPOhKx3R4wgWUBSEgQ+MdFrE6wnsR4CEkg4P6yQ + JCOUsj/jkm1x4MCBgwcPHjp06PDhw/gED1CmqakJNJ85cyZD3FeBIrJ6lpmqcCUxt95rTX13h6hNiD8W + 65ms7FdaWvr5559DRsiNoBplLtnPVAJpgaLwqVOnTgsPfHLixInjx48fPXqUcAfo4PiECRPkWrkyQqke + YyYp7Qg3KQmoLZRNHpPEc+EmrKmsShqCpLHZhBityDy1IkSxdu1aNGval+xnB2uLK8Lj6tWr+Ijs4OLF + i+fPnz979ixwx2vAQYeZRRWiX79+jOBDVJoFIpdi4gLFWeWPoDaJCT62i7VmoQYvfHZ29qeffiqWbHEC + +UwtjxZvvPHGrVu38PHmzZuvv/462tXXr19/5ZVXgDtAxyoP0MF0IH7s2DHQfP369WPGjJG7yVV9Vahw + tkhw2nLcYmqb16dMCrBEbQqOdQmrOrXg9WqtJk2jjFauWLHik08+uXv3LpwfTyC5y352sLZAg+OD5se7 + 77779ttvo1cN6IE7CsSvvvoqQAfTgfi5c+dAc2gLEK+qqsKaKXeSM4syR4AbvO6IanND0k69uy2skcjw + JRefAOt0DbpiS5cuvXPnDl8eeYmVL4/PwkSDxe+aH9A7vA3xE3/88cdA/r333uOgg+mg+bVr10Bzjjg4 + jtV/1qxZDO4+Ks08zSOs26I2GZLmylR7KyRoTnDjE+I1/hV4LcYaRZh8rSaDpTMZGRn4yWl55FZEnD3+ + 4lhbwCThTQdbik/wU0LvQA2AT6B/9NFHAJ2Y/uabb3LEieNQFej45s2b0WmVu8tVg1Saxc1lKROseS2Q + y0ir5q/VPo7AfbacAutinRZJI+c1xzpGuWzZMlAEPzm3ItQ6eEZ4bQFdQ5YFh4SP+BxuCaADeg46mA4R + JJoT4hAWQhxL6KVLl7B4QlJqamomTZqk8FNgOokpidhom5SlKI1EXgM38ljJJuiFWZxHWHNzLQDNeA0N + iVZmZmaCGWKsYfueEawt8LLzB5JaCJwJ6MR0orkYcUg5llDoOCSFCH7mzJmioqKhQ4eiUaKerm4Pa+5G + WpXstnhNfRmhic4q18RrjjXWxghlXl4esOa2jyz2s4C1Bf0QeKCsjs9h++GQAD1+Pg46VA/lBaI5IU6q + goVULCkgOOnJypUrmXAPUKGszErblNGYFbhZ+4ZqrY912URqPrOAdwOKfNxcc6xTNIpgRUFBwYcffvis + YW2B0hc9MHWIR6ugg+lEc0Kcc5x0HJKCuhoafTAqpCfwhUjrp0+fjkYJK5u0jTUWtxbLY/utdzHWlMhw + sSbznq+F41QYFJWVle1gTZ7vZ85lLGg5pgd+AjxaBZ1oLkYcUg6Cw8ASwfGLQcFJTzjcMN1yO7mqvwoa + 2havnwDr5peBKTv0HZMh3IQ0k5phPV2NQs22bdtMsBavjT8/1hYmL6wYdM50Mc2BOFcVLJ5EcHgVWCso + OPTEBG5UUWABlSGCarehIU+MNcSaEnQYPm5CONYYF56gRof3yJEjHGsqifyCWJsCLcbdnOYccUi5mOD4 + NUjBTeAmMYH7RsEETSn1cLVRrM0bkrB9YovdloaISc0NH18YmwWEjWYPV6N+DR17RrBuD2gOequI0+LJ + CU4KTnoihhvaDS+IDBPVEuTuyl5K5rU50OLmb0ewFr0AxsFJmBB0GmlhFJEa/4Wqn2ru3LlYrrnnw09I + eSM11Hlr5mfQ6w4BbY446bgJwcml4Jfh7CbtxlKJZAdVFLjA1NRUGAN1kkBtatOIseZro4kPERs+c6xh + QvjCyLHO1WpWaJTdldhvYI41rz39bFg/GdCEuJjg3KuAI6QnBDeJCbSblkoygrROorwp95Srx6oZ0G1h + Df01adBwrMWqQmJtsjDSi4fvDKwXaFC8hgnBi42cC281rChUeyKsaYfHz5Cg/xigxQQXGxUy4xxuiAng + xi8GZwIjiN8T6ySUBDkO+mfMjSSoHgEt5jVKIuSvxXNobZCaZYxUCeFZjIjUbGPHVLXcWY7+Bv53qj1R + nQ8OivdlfgYT8i8BbUJwricEN5kTciaU6cCWwHQTtdFVGDduHGqteIMbBUQ0G2XMZYQc3ThlaZIudkSs + BVIzrLEwymTQLsIaLzzWEvCA+jJUDPmpsX4KQLcFN18quXBDSZCwgdooDYLayGtmz56t7KlkCaSJWFOO + DvEVak8Ma/O8vH2xpm9IGekqLRbh9PR0LBUQMbze+Enw8osN308t1k8NaA43iQlfKgE3CTcpiQm14f8w + sIHaiCbVDGvUnqgTxqeH28Ha3FmTgDSTGt9fEaCoqKjAC4x3FaRMXOT7GUzIUwZaDLe5koBBUBK8bTm1 + 8V4Gy9AlUYYq1cnqVoYrgTX0ty1SN9dAjGUQ7qzJ7bUktXqKGrsLUEZH+srNNRk+k4Xxp3B7PwnQYmfC + 4SYlwRIEapNqwwOQIcFvjl2IzPbNF7DmY5UAC4YPCyMXa94NaM2EGJ01lZyoDMJJLdRbVINVSFPh67FO + iE3Iz7Aw/lRAmwg3KQlfJLlqkyGhFRLZIytCAWsALRphNU4MVwnjOOLOS1tYk9uj1JwEpFmpNcs1ynAl + /CVWY25C+MJIhcyfSKx/WqBbVRKu2mIZQfIGq8uwBq+hIWJSk1hzARF3FM2xFvcHuICQUgukxtQk3B4G + V9C+wJpssjBysX7q5b2fA2ixknBqk4xQagMZobwGLMvPz1eGKTHY2KIPSxkjOWtOahMZEZdBqD/A00UR + qdGOwLgEOstInWhhpMq1iVg/dbf3MwHdKrUptSEZQV4Dow2swTJMazAfgsoqLzfD7VGXAAICQPnsB3Vv + ebvLpI6K2h7Vm/iqKJBas0yDtXfdunVInSg7x2rxU2cxPyvQRG1e8oYgimUEvyolNVgeMUGgjFWyYWKO + NXd75ED4/FirWHMBQb1JvCpSCyJHSBft5RjIgr8UZzHkrH8KAfm5gW5LRiiHxLrEl8fk5GSU38SkNpat + K4RVkU9H0liTGa+NDoQ3B/iqKADNBKSvav78+SgrUhbDnbXY7T1FAfkFgDaREXIj3PmRy8avDa5NnToV + ZyK0IHVzumgkNQ2gisXaJF2ErKMGIl4Vm0nNUhhfRXV1NVJzctZYJ6jk9FO4vV8MaBMZETs/ctnAGq1e + 1J7QLjFiDbywKsKB0KoIfPmwb2tYPypYk602IzX2yIwaNQrNAThreB4qOeGV/ikE5JcE2lyyqRSF35Nj + DR8m95KzqTO+9ZF2ctCqSIdbcF63KiCw1eJVEVavWT2wGR22GrkSBARu7ycVkF8Y6I5gjTk/RajCaEI4 + qclWQzdoc4YJ1lxA+KoozhXJU0Ops7UsL9eyvBxuz0RA+EDIU0lhfnmg+fIoTtZNeI0RJGw7ZKQG0Hx3 + KSc133EkXhhNbDVWRW71xKTO1sLeoLAlFhAsyLy2J24O/Cs1kGcCaHMrAtsnxhrqiSkRSCptnDbu3uCk + Fu/uasuBUGeAWz0xqWepMe6DQRQTB0IpzNMqWD8rQLePNXwIhoZx/IF6tpoBTUuiUK1mSk1bFhGQkfZJ + TQUQShSb1QOTgpiGnTNnDuYI4UCo3kSrIupffEKBOl4/mtTPENDmWPO1kfx1XV0dy86RxaBfjiWRJ+UQ + aNr83LZYG+dATEhNk5hZWswcY7QeJz1hGJzqTVQDQXmAbPW/3oV5toBuC2swC1iDZZiDRqmTAY2MnLcF + IBcm2565gIhXRRRAypqHm8xJ3V81Y8YMNH3aXxV/NKmfOaDN10bwGhkE8gjk6CgDMWedpDYCLZSqmXpA + NOg8LdEJhyY1kBakJk8tUg9NMiM1Rusx7sNttfmq+KNzxWcRaBOsKW+kHB2ZG4bq4Pbwfjdu/OdLIp0K + Aqzp3ATzVZGmfkFqc6UWNq0i4wepkSXRqsgLe5Qr8mr1jyP1Mwq0ed5IWMMJIGlEm1U9VM2Abt45alwS + xWeviLEWWz1KyilR5D5PAJoptbN869atGPShwp55rvij++XPLtBirKkeQjVVLFDwBkAEb3YGtLBzgJWZ + gKxwUpnx7JVWHQiRWuypYT+EzIW2l2HvE6bIsIcB0/XiXFFcAPlx9uOZBtoEa6qpAmssjEgXsUfo0dZz + Kn0Q0Di/CdQ2ERATUlP5lDqKpNQC0Dh2AAdN7t2719zq8QLIjyP1sw40x5paM+KFEbU9lJUZoyHTGElA + oQPeQzjtkGHND8oycSDmpBYBDawxrpeWlgbbTlaPF0D+RVI/B0CbYM3FGrNOaOaClbSfzug96FhJfthe + W0qNf0LVD+7zmtUDWxR69eqFPayweib5y79C6ucDaMKaiiFcrFGOAPXUiWo6cYjJNNJCqAed30mHSDYf + Zt3C6hGpUdJD5cRsSQSp8fqhdfl0Sf08AU09MGqAoRKCLAaeFweBI1c0To6RTNPxy3Q4Kp3WaZa/ME+9 + sWXy0izTTKmHq0eMGPF0Sf3cAN2WWKOTiy7MI6AFmTaejwqsOalblqqNw77k88zUAz14JC/YOUmkNrcf + P8JTP09Ai7GmLAaiifUKxSbNSo1xEoGApsOWERCQtkiN+TEkL7x22nJJVPVmPg+khv3gnponiuLqRwfL + TM8Z0FysxQICPVUNVRmBFnJxdgQtUD4gCEg7pIa4i5dEsXpMZZO+OF6APDVPFKmpSD2BJ/J5zyXQfFoV + bg/pIt7aeKfDC7MVj9IWrId0RD6wbovUfEmkLJEKp83egy2JAew0Sey+pkSRmoomJb2OJy/PH9AmAkIp + DJQabQFju5aAxgHWdEg7bnkgUptVP4xLIi99tAQaZcKxY8eiy0XVD9SzqFOO2hbVqan50sEy03MJtLmA + oLYJ+6FbJ1z9QMaDgKZbHojU5j0BkBqtW54lUjrefCoaNuGinYjOC/a4w97QqA3q1Hx+jJovHST1cww0 + FxBKYZinnqw2FqbJ4dHtGsB6v0BqvAbmpMaSiNIHVw8R0CxLDGEnJuAsGJCa6tS8+WKSvDx2SXxegTYn + NU4OwSQqWxK5lQbQuJIHd5jgE5Aa1Q/hCDJx8kIbjYxbnalCLZJp1AhHjhyJyTGcJGCekT/Rkvh8A22y + KuLAEHWK2hToEwKvodSofpgnL7QkckPd0uSxwqlWjqMBzX2euMvVEfV4joE2XxXR9EOblc5gZ9IBdT7O + rkKyA9aHhNth2loSST0oc2mpHkjHoR5YEuHz+JJI06dPpB7PN9DAmuflWJrw+6PRBa9mLHcQ0Lhq6rRw + rRc8NS2JraoHZS5UNRWdEgrvgZ3V2L8vXhJpIhJdiI53Xp57oGkOmBebwD6U34x3ZkCaATSu9TorXOt1 + UFgSzbtcpB48czGR6Zksc8F+UCyJ1LqlzotJlvhY9XjugRaviiA1eIchc7vtwu07HGjcWHfWnik1lsRW + 1QPeA8W8ttTDR4GDR5AlovTBs8RWDXU73uNXArSY1Ci8YXrxEdBn7O0vCAFSw+e1pR4o5lHV1EymcRgu + jmnF4YqUJaJHLjbUXD3az1x+DUCbkBrH16JIzZJvXJgG6Thj73DBwemCEyP14Wb1MNlZDvWoEA6LbE2m + cT5Anz590GfghppPM9GIHtWY2lcPdtTPY832s/8EsVLj3Y0yBTMeSFUA9Fl7xwuOrhddATfz1G2ph4nJ + E7lpjKzLdaw7/q+ox68EaCI19RXBL2QZcGlMlE8woEFnj0sewBrsbk89uMlruR5SgSknJ4fUgyZsnlQ9 + LKAszz5hO/ITEqmpfIq1C/sEyETj7lZA7H3Z2+uSFyM1qYfY5IlO5WxTpvuo0Asm9TD3Hnw+rx31YED/ + OtSDPDX5PJQmMA7JLm6FiRaA9rns43fFz+2im1E9Wq17VIpkumXaoh7POrbYfiBWDxTzzDOXtsBk5979 + aoCmBi5NJfTu3RtdQWgF/AZ0AygHXg0E3GxJRDrelskT5+KitEWTopGpZTgWijIXTK2js4MtkZS5UCuA + V01bff9ZUEW1I+/NZ/854iURxTygQyuh5yXPgKsBoa+EAmvoNUvHTUweVw+xTLe8RQLXTGAHNdQD1Suo + h3krgKqmbSmERTt/9+wja/4TclKDfcieoRtAFgId9EpQ5KuREdciADrUgw00mck0OzUIbprSFrP1EIM1 + 8+bNw1n81Aowr5q2b/IY0L8y9aAlEe9rtALsjzCB9r3sCzp3v9495noMqM28x147Vp42O6eJuWkUPVpL + W9QJatygApnmVVO00DBxap4itirFFk/Uj3kuOM6XxEGDBjmUOUCgDVcM4HKv6736vNYHnzDvgRSxVZmG + m6at+mb5IcbPIiMjMZbHTR56LiYyzTu25kBZPFE/5rkAmqsHpnvtF9mTboDO/W70G/T6oNjrsYCemTzI + tLjhwmWa1kOU8VoaD5yLiPUQ1+Nyk0cDY+KObTsyzc6Pbn+5fC7AFf+Q3FADFN1wHfwGdAP4AuVhbwwb + cGMA1IPJdFtuup310JNdj/bjZNqigzWR5wtuUg8YA3WQGrBCLnq/1jvhZkLirURgjT9CptnA2GPXw5bG + A94cZkYs0zTvQTIt7gOYy7QFr4ngJ/uVGWq8kWUKWcCegOhXo6Ebo26Nmnh74tg3x0Ks4flYH0C4Cc20 + D4D1EGU8Mh4tgUb7Bt2yffv2cZnuuJu2oHP2fmVLIpdpNEcMxQYgO+TmkPG3x894e8a0t6cNfn0wM3no + A2A9NDu3EE0AZjyorSUqLbHhx1HqgQMH4kYxctM0LWZe9Gg1NbGgJuOvb0kk9Vi+fLlvmi/oPPLWyKlv + T53/7nzEmDfHMJk+0sZ6iCYAjAc5PBOgp6nDw8NxexsaLtxN84aLGEnztMXix83dPPuSTcU8HILqOdYT + dB735rjZ78xe/P7itA/SQOqoV6NQb2J98XaMh5nDw71RHh4eO3fuhEzzdi2GPXBYED9/oq20xeLHzd08 + F0AjEUPr2rmnM+g8+a3JKe+lrPhwReZHmcnvJsNQIztn+WGrQFNby8zhoXGD5i/OUmkrbeHroXkOaIH6 + k/gokI4Pkz3jWJPJQ9FH56kbe3PszLdngsu5H+euubMm44MMOBCsh60bD9yNQQ7PHGgUpj3ZrXMm6yH2 + ueCoMT5oSgueibOwaHWY7NdRZiKZxrWjiScSwWJwecMnG0o+Lcm9kzvh9gSWtsB4mDg8Slt4xaNlzkK7 + LnCwFtZD3F1AUzXUBOBlPLLL5uuhBT+M7F/ZCfNssptkesCAAYnbE9M/SAeXK35XUfNFTfGnxbPenoW8 + nCXiJg6PgMaQGC8tmVjpaCUG1LEeivNDPtFLJ0/QfgATslpwdyJeNH8dAkImD2cJjigdkfNxTulnpZvv + bt5xb0ftF7Vp76chbWGJeKsOD1a6DaDJSmPEVJwfiic9uIUzBZoWTeoUkKf+ERs0nllGA2i80xOyE9Z/ + sh747r63++DXB3fe2wnckZSjBdOmlW4rZ0lQDRs2jIwHdVswJ9YR42HBT9h7usdTPCPQg1bFxcX9F/Qv + /135ti+3HfnmyKnvTh36+lDBJwUDXx/IHB5KS+3kLGbJIQYZMHqAsUduPGikhtpa3FaYF58t6IhO8alv + vyZSA2iUlnpP6l33Rd3+r/ef+f7MlR+u4GP159XIyFnFo1Wga4RB3taycMybde/eHUDDePC2VkcK0+zO + 2Z/ieIpnhNGQadTpo4dGQy5OfHsCKFOA3ZNuT0L/heUsZgetY2iaDdO0CnSSGlfWo30jLkzTTub2HZ4F + +mA/6aFNvyziABqN1JBeIZCLS7+/xIEGu2E80OVixdLWgGYzj8jCzaRDM1fj6+uLM0O4w6MhsVYbtWIr + baFWe+L1EW96/jWtivhVYQn8Qv1INHhAqVPfS8X0AUsOza8OQPOwLaAXatzd3QlocaP2saUlCw+PaShx + 4WUxObSJyqfPWlUPwD32YdIEQCrh4eshRhmfg93LP1yOkRo2nd4q0OizUF2ppY/G1c2Ojo4AulUrLR6a + NslZLEJDG5ydE3CzksnB1T/RWahiFPDWwTKC2R+MtWEyEZfG4rYQvOpIMbDgBAUFeXl5OTk5abValUol + Fx74BH/EF/FXeEJ0dHT//v3xT3ByP2wc2h+4ABflHlgp/M5YCfHA/+Lo4nj595fFAayRjmPMg2XhrV2G + wTZbtAa0dqlWp9NhgW21hsedG+9p8d8XQG8ODCywt++OFJ724opPfXtax0bi+8ADwRLh+kwcJpyQkACY + PF1dekaEJg7qN3/S2JwFczZmLd1euOZYbdmVnQ23D+++c+bQvSun/vDahftvvvL3t68/fPc1BD7BH/FF + /BWecLup8Up92bGi3O2ZizYmT8ueNHJeQp/RMWE9/bw9He2QfOM/wsTty91eztucV3+x/uRnJy99d4nF + 95fWfrzWcMnAGM1PEhPtBGgT6BVatVoNoNvKWUyKpS2ABtZ6/XKNxhdFRWoZmJ98z++U6uDihlYk3iLg + Fw5Qg8O3t9X1CA+dOnLoqpS5W9blnm+sAUx/f/vVf75341+N25f/+drph5cPPTyz6+HxLQ8PVD/cVfxw + y+q/VS3/KHf2uZQxDeP7zQ12HRfmGeGuUysl0QOixy4Yu3Tj0pSmFMNpg26HcP4EwuQKLmw+bJXRmVqF + QgGgzYulIChtA2g1OQSjtwix2dt7nlLpAIFv9eT7jpywhxcT41Lg7OTJk+10uj4x0Qsmj6/IXn52S80X + F4//q4C285K88+o/b57/57XjDy80PTyx7eGhmoe7GdYPalY+KE97UJR8d9HQ+6vG3c8c9fGCfsfGRxX3 + N8wKc4l2U1hKftMpplO3kd1kC2XqIjVd6cw20NXYsl2eZO8yhRApNRQMWmeeHIq3IPKqtJjRjaGhWwlu + d/dJuL8K8078mpLHnnyPpQnucOPGjRi2dHN2GtGvDzi7v6Lo49OHfkJkzUF/9/o/b1365/WTDy8dZNQ+ + Uvdwb9nDbese1OU8qFx6d9nY+2unCliPvL90yF+X9P9ravwf50e/MtajMl47N1AS7dTZ2uZ/OkV2shpj + Jc+QYzstfLQmT6PJ1mhXNmNNiKMkLQBNySGfeQQ7Wy3/PwI6LGxbaOgjrF1cRmJFavXke/E1JVgq8X9g + Zw7+174x0cvnzNhXtuGTs0d+VnBN4H772j/fuNCM9U6GdVP5w52FDzfn381Nul86//76GffzJt7PHn1/ + 2dC/pg/8Y0rPe3MC7k73uTvZ4+5E1ytDHUp6KKforQy2L/6X5f/r2rurZIJEtYTdmcZiJQsG+komHZBE + eGLKwmljS1tAcyttAaBFWG8NCqp0chqIY375yfe0klIRFQTHd0fL3dnRYeyQASUrllzbs+WXBJewBsSg + 8+vngPI/rx59ePGAUa8P1jxs2vhgR8GX61PuV6ff35hyv2D2/TVTGLVXjvhzev97yeF3Z/nfnSZgPcHl + s/HOd8Y5fzjGqTFeszDQJsahc9du/9MlvIvNKBvVIhUuy2GIL9VgMcSBjwCaZ+HYVGtS7jBvaAHo7SKs + GbUDA4sdHeNxfxWKUnSaIbBGOxLLmqOD/bghgyqyl715aPeDd5gT+MlRxoLJeHrKiOC5vQ/P7Hx4ctvD + 41tZHNv88FjDw6P1jL+Iw5seHqp9yPCtfLhv48PdJQ93Fv2jce29DSn3Ny2/X7n4flny/cLZTEZyx/95 + 5fCv0nrcBdazg+5O19+d7AleM6zHOr+f6PTuaKe3RzruidcuDpT0sO/ctev/WEZZSsZJ4KPhL3EcLdZD + 5Cx87oDKHe3UlSzQ1TXDutHff529fQ+cyY4+Am5Tl0gkA2N7rF6cDOP1lzeu/O02/Nar/2i2XE8B69fP + sXUMqAGdxjUPajPZIlac/GDdrAerpz3InfQge/yDzDEPViY+WDGKxfKRwiejH2QmPsga+yBnPHtO3pQH + a2awf7JhzoPCeeyflyx8ULbo7yWp97ImM4hL5t8vmnu/YNb99dPvr57855zEr5b1+XIxsI5kWCcZ7k71 + vjvR7fPxLuD1B4lO74x0vD3C8dZwh9eHOWyJU8/xsw7SvfRfL/0/GxubVatWYZcuHB4lh5Tu8XIHHTJh + UsCziIw80CrWnp5ZNjYGO41m1thR2zbkf37+2FdXTn3/6tk/vn7xr7eu/t+/gDWzYiBdQ+6DkpQHuZMf + LBv+j0X9/zG35z9mRf/fjIg/Twv/w9Sw76aEfjMl9N7k0HuTQu5ODPliYsjnE0N+N4EFPsEfEV9OCsHf + fj059Nspob+fGoZ/9Zfp4X+bEf6PpIh/zI5m33BBPL7z/YUDvkqKub8s4f6K4fezRt/PSbyfMwbx56wR + 95bFf5kW+2VqzN3kiLtzgu/O9GdYT3b/YoLLJ2OcPxptxPqN4Q43hjm8OtThWoJDYaR8tH03H6UNiqV4 + i/PyPx/wwLufz6WLW7QW0dHHBaz3EK9DQrb6+dW6u5e5u5W4u2ZoVSGrU+e9c3QPXASw/vrq6d9fP/en + m5c41iQg7WsIY+uOAsavrLECpjGAA7gAI+D16YTgO+OCPxwb9P6YoHfHBL09JuitxKDbiUFvJgbeGh34 + xujAm60Fvo6/xXMQeDL+FQL//IOxQR+NC7ozPhjfFt8cr8SX4wI+SnD9YVrgX2YE/TUp9K9zov6a3OOv + C3v/MbXXlwsj7i6IZIyeH353bijjNbBmku15d7zrZ2MZ1u+PciJeA2sAfXWQ/dV4h+P9PFYG2/d2lEdF + RaWkpGDdovI/OTzKWXhDi9ZDAH1KwPpgSMhOvb7W2bnIy7Pc3686NLAeYfDJstOE56fMfffY3jtnDn9x + gWH9w/Xzj8Ea6B/f8qB62YOcCQzZmVF/mhZOsAICYEqAAiAxlK+PCvzXg78q9DLgNbs5zPdqP+e3x/i9 + P87w0XjDpxP8704K+Hpy4LdTDXcnu4K/jMXQaEgHBT5nvGZY/26My51EZ2ANvTZiPdj+Wl/HW8N8bg71 + vjHUpyTKOdFTbS+zWbBgAcrTUA/M4dFR6lgPxecuAegzERHH/P33uLtv0vtsCjTUhQVtbo6GsKAGg0+O + gy4qe97M947t++Ts4bsXj3/zyhnCGtkwaQjx+sHZPUxes8fjPfv3GRF4O+NdL0YWvzln6L+OaQe/w9XB + Xmf7Ol0f6Yu4MUp/c7T+zUT9W2P83hrj/dpoh1ujHd8e7fTBGCfoMhQD6+HdSe4M5Umedye43x3n+sVY + hvWHo5iMvDnC8fUhDq8PcH5rmM+bDGuf14f5vjbUpz7WbbrezlsjR8kIrXGUWZAf0q05/C4Gi8DAwz7e + uwIMe8NDDkSG7osI2RkWtMUE6wB9vqNtbEbS5PePNwHrLy+dEGP9t73lf1s/+/8WD/z7zEiAC+kEuHgL + vyOIAAe3g7g89addGuBxtp/LtRG+FK+OZAHQr470ODPM7nyC3aWh9leH2V8f4XBzpONb0IpEp4/HOkM3 + Ph/rApQRxOuPRjm9CxlJcLw90PW9Eb5vD/d9c7gv3i43hgJr3+vD9DviPecGOBhsldBuLI+8Kkc3b1kE + +h+MDDvePfJEdMSxqPDDUWFNESG7woO3toR7c6ChwMm+X/KExNebthHWXzes+T5r0g/zev1haigDdxzA + DWTgjvnlwRW/Whf6uZ0f4MaB5p9cHO5+Yqjt8cG2Jwfbnhpse3aI3QUB9GvDHa4Pd7g1wuGtkY4QDeAL + lBEfj2ZYvzfU6f0E9zujfD8YqX93pP72cP2t4b6vD9O/Nkz/6jC/a8P8dvX1nhvo5G+nwnla8HwQazgQ + UNuie+RpIU51jzwZHXE8KvxIVNj+yNA94cGNJlgHB1S4Og6b3Dv67OyEj6f3+HRc0PtjA95K9H9zlP/N + UQE3mcIG3GARiHjqxPzR3/BcH5eLg9zNgT4/zO34ENvjg5pjsO0JAfEzg+3ODbG7ONj+aoI9nAa8HRQD + ugHQWSQ43Rnm8Vmi/s5o/Yej/ID1OyP1b47Q3xzud2O4H8N6uOHqcMP2Pt4zAxy9dMqioiIkIpARDjRh + fQpYR0ccjQqDjADr7QLWgpIE1ofpq8K8N7qrh8g7davu7nIhQX8xwe/SUL/Lw/yuDDdcG+F/bUTA9ZEB + r7F4hrA+3dvp0hBPc6DPDXNtATRHfJDtiUG2pwbanh5od26g3UXYjCH28BtAHOvh7UGOd4Z5fp6o/12i + 36eJho9H+30w2u/dUX5vjTTcGmm4McLw6nDDK8MNV4YZLg83bOrlNUHv6KBWwHSLgebUhowcjQo/JEj2 + rvCA+jDfyjCv0lDPkhDPkmCPEnfteIWldkWQ7dGBvqeG6M8m6C8wuPEfAGt/c6yJ4zyEV4IFnvnqCBav + jAi4Otz/ynD/S8NYXEAMNSDODzWcSzCcFQX+iMDX6Ql4Jp5/Wfi3+A54pfHd8G2bfwb29joRa39lqPcr + I3wRYrjPDnNuHeiBtscGsDg+wPbEAIb4GTHi/ezfHep5Z5T+k9F+nyUaPk30u5No+CjR8P5o/3dGCW/u + kf7XRxiusR/JQL9LQYzHYE87AH1GkA76KJaRY1FB+yL9tkb4bAr1qgz2LAv2KA3yKKHwsp+rsfJJ8lId + 7O9zYpD+zBD9+aFgt+HqMIY1Ufv6yMDXRgWKMcXXAQf99wDrTILhZILf8SF+RwbrDw7UHxBi/0BfcTQN + 8DUJkyfQv8I/PzxIf2ww+26nEvzw2uBlYC/bUP3BHraXhvlcHu5zZbjPVSEI9FNDnY4NFklHM6OPEdD9 + jQG4OeJnB9qd722LMXashO+N9IV03Bnt90mi4ZMx/h+P8f9wTMC7iQG3Rwe8McofvzVwwMt/USANfk0C + umVEnO4efLi7f1O0365I/Y5wny2h3ptCvKqCPTcGepQFepQKUeLnvMJe2n2oo7QqxvXYIP1pUHuo38Wh + hsuAm+kUo9iV4QGgG8F6OsEgxhR4EYL7mmNvf989QuzuQNAz8U8Q/DvQN6RXgtDf18ezMdr26GCv40O8 + TiV4nR3qfX6Y96XhDPcTCfZHB+mODtQdG2RLQXptArQYcRD8ZKzulUGeNxK83xjq89YIwO334Wi/jxP9 + 74wJuDM24KOxge8nBr6TGHBrdMANhnUAYY1fvyXQgDjoSHf//dGGpig/0HlvpN/ucP3OMN/GUJ/6EO/a + IM+KoJZwu6iHyzsrVgTZQUZODvYF3KcHI/zw8cRgRtVDg3z3D9A3Cb88wUqAEpq7+vns7OezQxTb+/pQ + bDML/lf4RPxP8B0Q+Fb0PekFIPS3xbrWR9vu7u+B2Nvfs2mg56FBXscGe51M8GoaZLt/gPbgAN3hgboj + A0WID7Q9KmI0B5p90tf2RKzdlcFerwz2ejWBJSxvDPd9a4Tfe6P8Pkj0/3hswMdjAz8ei+wU7ivwzdHM + HUDKgDWo1qzRphADZURThH5fhH5PuO/OcN8doT6bQ7zrgr2qRXAzgnvazdFY6Se4KerjPPb1897d3xsW + h/3a+Jz98vgE4btLgJUAMuLYx2fbUwzh5eEvAEFf191xU4zD9n4eO/qz2CkgjtjZ362+r3prvHpHH83u + vpqm/tr9/bWHBgiID9Ad7Y+wpWgBdB/bk3EOlwd5AeurQ7yvDfG+PtTnJhzeCL+3RxreT4R6MKA/HheE + 7Pc9lkaw+gFUFFgLQJNQGPYJLGYRgdAzoCk43AK1G0DtR3B7AusyP9dce3lf65deXmjQ1ffyaIj33NLb + a0u819Z4ry19vBv7eLOP8T6NfVg8TXDb+W7CG6Ii3La2p9OWvu6NiH4eiG0C6Jv7OlX1VlXHqWriVLW9 + VJt7q7fFM8T39dPu76c91E93uJ/uKIUY8Xjb070cGdAMa++rg71fSfB5dajvjeH6N0YYbo80vDM64P0x + gR+ODUS95UPYX6HSgGQYWFt0D2jqziCGSrAgiHkwlJsjXL83XL87jFG7McS7PtirNtCzOtCzMsCjwt+j + HOGmS1J2805wlOVHOFfGelTHeW6K86zv5dXQ22tzb+8t8d5b441w/zxY40Ut8FfUxrnUx7s39HHf3Mcd + iG8VQK+Nt98YpyrvqaqIVVXGtkS8t2Z3vGZvH+3+PtpDfXVHxHD3sj0T79wC6CE+ryT4voqEZbjfTebw + /N8ajSUx8H0mIEZeA2sUXiyi/HZH+u1BRABlPUULrJuB3h/hh2gC3GH6XaG+24N9tgZ51wcCbq+aAM+q + ACDuWal3XWMnH2j9knSqp7qip0dVrEdtnGddnFcDg5thjfjZqN0Q51EcrAbK4iDEK3rrSmKVpT2UZT1V + G3saEa8C4rHK6p6qTbEqFKB39NKg8N/UR3uwr5HgR2J1Z/u6XhrkJaiHN9TjlSE+1xJ8rw1laeFrIwyv + jzDAcsB4vJ0Y+O6YQDAacENDgLVFhH5HhN8uCLEQLbAO1+9DPGI0UPbbH6ZH7Av13RPiszPEZ3uQ95ZA + r4YAz00BnoDbGB72CzU2oTEaq1R/O1C7JhbU9mqV2j+pktTGuJSF60yApj+WxGqKeiqLY5ToEyI44hU9 + lZU9lFVC1PRQNcSqG+PUu3tr9sYzgh/soT3Xz+3iQE8AfXmw95UhPlcFoF8dqr8+zO/6cMONkf6vj2R5 + MlzH7dGBAtysVImwCPPdGg4Pp98Zod/NsRZUgqFsDL8mgBumx0egfCDUGE0hvnuCfXYGM7i3BnptDvSq + D/CsE0Df5O9R7ayZLO/qPtBemhniWB3raU5tKMmWeJ+iHp5ZkW4pwc5TDU4jve37udt2d9YGOah9bNWu + GqW9SqFRyJXoActkCHyCP+KL+Cs8AU/Dk/FP8A/xz/FN8K2Ke3huFbS7MtKhIsreHOi6eLeiWFVhjLKw + O4uimEeIl4HjMcryGGVFjLIK0UNZ3UNVF6vaGqfeGafZG6U53c/9/ADPi4OMWF9NYNIBRhPQr43wvzHC + H2YDWL8xKoDqtKAzSkAWWNlgJ8J8t8NaAOtweAyGsjEYefV7Q31ZCJ83her3A+gwv4MIAXEGd4jvLgHu + RoHgQLyBws+t0EE5QtpFN9xZnhfuDGqvjnRbGOQ8Ue/Yz10X4qB2Vivd3NwwtRQXF4epogkTJmC4a9Gi + Reif4dh3jIhgkAG3NdXW1mK4Bw8063CZREVFBcbLMQeblZWFTjE2lWCSBGM6ON4nJCQEQ4guamWooyZC + 2XW0p2phiMOa7s5iuKt7OxX2VHKgCW4ECM6iu6K0u6Ksu3JjdwZ3ZTPctd1V26J0R/q4n+zncXaA54WB + XpeI1ABaqChxoOGgXx/JsIbl4GVxC/jiYK8aeIkwn21Y6ML1uwSs94QZ8d1DKIcIEcqwRnCsD4X5IQjx + fSG+u5sJDsSh4FsY7t5bPZ3z1LJBnX4rU3aztLG2wuZTnKQxZcoU9Noxh4Zte8Bu06ZNABFQopOPB4oD + eGB8Aj1QemCu0PyBVjQe5l8vKytLTk62llpjLsk/yt9aauWlk8a5qibodRlhjht62LYKNIM7WlkUrQDW + xdGK0uiWcEcq6yNtd/Vy3R/vdrSvx6kBnucY1j5XEnxfGaoH1gD6+gh/RmoBaPAahTBgTc0gC+R48GfB + XlXwyKE+W0HtUN+dob67ocIUAmGNQLeB9eEwPwQhTgTfHeC9w89rm49no6dHo5fXDl/fXe7u2BYy0tra + cfDgwdg5XF5eXllZCYjBVkCMBj5HFsABPkyoYBoID/RAMVGIB7rO9MAQeKsP/gQ8GTX4oO5B2XXZiKza + rDk5c0bNHtUzoad3sLdS8aLB/qXBHl3nB9gUNNPZyOtoZWGUAlEkBOAuaYa7PFxZH2W/Pc5lZ5zbnt5u + B/t4HO/veWag9wWGtf6VYax0x4AeyYBmWAtAE9YIAhqBrLoiyKsmyHtzsM82LHShvruAlxCE9SO4m3kN + GSENORxuOIII8zsSpD9s8Dng49Xk49Ok1x8wGA4GBh4KDj4cFMQiOPiIr+9GB4cJEok7pkBxcAmIDBYT + f4EvwAWsBCWmJtCLQ/cTDww7oN+MB7ry9ECf3+TB/4qeiRNKE6YkrN62enXj6vyt+Xlb8jDnmNuQu6p+ + lTZVaznY8sXgF//X/n/tlS/EOHWe6meVHykXGM1QZhHJgrA2sjtEWd/dsTHWBdnmjl6uu3q77+vjfqS/ + 56mB3ucG+14e6ncVWDNSY0lkQKNiLC7tWgS4FwV4FAe4l/gjPMoCPKuDvBqCvbdCc6EDbWHdTG2Gdajf + wUDfg/6+h319juj1JwMCzgQHnw0LOxcaegYREnIqJOQEIjiYfUSEhp7099/s7DxHqQyOiYnBiVBQD0BM + nAW+BCtacJgDwjwUHpjExXQvGvt4oFeEB05UNHnQ1+k5eHJAQEDK2pSCvQUb9mxYv3v9+l3r1+1ct2bH + mrl1c+W5ckmqRDJXIpkt6Ta8W+fozi+4vaCW/2+0Y+epvlZrIh4B/QhuIB6oqI9x3tzTZUus67Y4YO0G + rPfEexzs53V8oM/Zwb6oGF8dxsrFUA/Ga6E0j89hBFETt/B3LzK4Ffm7FxuMUSo44k2Q1zawfkTtIN99 + Bu+9Pl77fAG0/zEB34thYZfDw68IcTks7FJY2IWwsPNhYfgrFoQ+PgkPPxsScsTLK8vWdqC1tRoXcdBh + Z+ApkCVYASUO18fMFbZ042AuDAVipyq6RPTA7hv+4F/EE/A0rJ++Qb5lh8sQpYdKSw6WIIoPFBc1FQ2u + GSzLlcnSZNIFUul8IeZKGeIju3WO6PyC4wsOshf6OFkm+9sQysYIV5SFaOp6ONf3IKzdtsW5be/tvive + Y08fz6a+3kcH+qC8g3IxKtGokV4f6Q9DcqG/+7GedqfjXS4O8LIwuBUi/NyKEAaAzuAuMbiXwxTDP8BI + AG6YCjG1g333+Hvv8fXa4+mxG/oQGHg0JORkSMhpAUSgeQEQh4dfjcCWSRavCMFwR0REXGyOSxERiMuR + kVcDAupcXeep1eFEcLqkCngRmhi4QjMfQ8B4YHwCG0YwGoiBFZMHvogH/hbPgW8ZMnFI7dna2jO1Nadr + qk9VV52qqjpZVXG8Irg6WJGvwCSjfLFctkgmS5XJUmTSZAHu6RKbCTYvx7/8kv6lTl3/21/z0ljPl/PD + 5cC6IESxMcy2NsZ5U4xLfU+XhljXrXFu23q574j32NXHc29fLxR5Dg30OTlYDyU52c/tWC+nY3EOZ/u6 + XRoE8xeAANAFfiyANYtmrAF3qb8H8r06MbWDfHb7ee/29twNCYb+BgWBxccRpAmCSgBusJVhDXwjcdZc + 5GtRUTeEj4jrCHwxCsc4iCI6+rXu3W9ERV01GDa6uExXqYJg1LCaQb6BGuBD8w3DbRicwJgr9gPjgSFu + PNDe5w/6CvaS4IE9A+lF6Y2vNG69unXrla1brmxpuNSAQfTKc5VOtU7KtUrFSoViqUKRoZCnM8Tli+Sy + ZJl0hlQySYK5L8kYifVwa8sIyxecX3CQvzDQpWu6r6Qiwr6mu/OmHi51PRjQDbFuDOveHjvjPXf19YKS + NPZw2hxl1xipa4p1Pt7X68Jgv8sJ/leH+r8y1J8B7aAc4ue2QQhzuB9R29+rUe+5zdNju17fFBCA9Q0Q + UzCgCWuIrxBMGSAXwDoy8hUgGx39enT0G9HRt7p35/FGTMzNmBh8fBQ9etzq0ePNnj3f7t79emBgjavr + JK02DCegJSUlwTVj8hrDbRiNxQNzKjibCw8MzGOLiskDgq4P1gPfPW/s2X1z966bu3a9vmvnjZ3br29f + eGqhpl6jWqdSrlIqs5TKTKVyhVKxXCB4qlw2UyabIZNOkkonSCXjjYi/3Pvll9xfkr/4P0Oc5ZlB9sg2 + gXV9TwY0qL2pu2NNlH1lmLY6TFsf5bCtp+vueJ/9/XyPDdCfHuR3fojhUoL/FQFri67/+4KtLM7HeVVr + cDPh9nUr9XKrcHOt8fHZHhDQFBTEXERw8FEhGNAhIZzRIPXJsLBTYWGnBRU+D3GAMhDW3bu/GRPzVo8e + 7/To8S5Fz54U7wiBT96LjX0/Lg7xQVzcRzEx1xAhIZt9fJY6Og5XqXzi4+MhLPCFkG90PDFRiLEgPDBn + j0Es+ogH7ihLnJV48L2DB947sP/d/Sze2b/vrX37bu8bcGyAuk6tKlSpVqtU+SpVnkq1SqXKUSlXKhVp + Cvk8uXymXDZNJpsik00WEJ8olY6X2vSwQVaFoSQ7SbcBDrIMP/XGMF1psLo4ULUxVFsd6VAf49rYy3t7 + L+8d8T674n329PHZ18f3cH+/kwP9zg02XEzwB7UtskIde9vaqK2DPexTm7E2stvHtdDDpdDZqdDDo0Kv + rzMYtgUE7AoMBNYQDYZ1SMgxAWWiM2f0qfDw00KcCQ8/Fxl5ISrqcnT0NYgD+AvCEqCxsR8CTUSvXh8L + cUeIT4T4tFevz3r2vN2z51txce/Exb3Xq9cHsbE3w8N3+Ptne3iMt7MLk0rlMHDQYqSOWD8hLJgPwgOT + K0gR8xryjn187NidY/h49KOjiMMfHD70/iG/w36aTRp1iVpdoFavV6vXqRniq1XKHKViiUKxQKGYq1DM + UgBu+Qy5fJpcOllqPd66i08X7MRCwvniiy927dpN1unFvrY2KwNsa7u71vVwb4j1aIj13BrnxbDu7bPT + iLXv3r76g/38Tgz0OwushxgsCqLc1ka6DHOSyyxdXLRTCGtf1w0ezuudnda7u5f6+FRiGk+ITQbDloCA + 7YGBe4OCDgQHHwoJAdbHQ0MRDOWwMKKzEeiICMxAnYmMJKwvRUdfhSb06PE6EIyNfTcu7kMB2c969/5d + 796f9+59Nz7+bp8+iC/79LmHIPR79/60T59P+/b9tH//3w0c+LuEhM+HD/985MgvBg++FB/fGB29KjBw + mqdnvJ2dl8FgwOBhv379fJFl3d5z6INDhz86fPTjowxuxCfH8m7laQ9pAbSmTKMp1qgL1aoClXK9Ur5a + LsuS2SyysZ5n3W1mt65Tu3aZ1OWlcS+9mPjib0f99sVRL/2v4rfe3kG9eg0bMWLGtGnpY8bMjYzs4yyT + jHbXFkRAQzw2x3lujvPa2strW28fYL0DcPfx3dOXYb2/n/7YAD/IiEVJd/eCaIb1FE+1TSeZvWKIh/M6 + F6d17u5F3t4b9XpwuVKvr0Y0w13v778tMHBXUFCTgPWR0NBjYWEnhADEFKcJZQI6KgpxPirqYnT05ZiY + V3r0eK1nzzdiY9+GRADN3r0/EyC+17fv1337ftuv37f9+387YAA+fjFgwN1Bg74cPPjLhIR7w4bdGzHi + q9Gjvxo79qvx47+aNOnr6dO/njXrm/nzv0lN/SYt7d6CBTdnzTrq7z98bPKk/e8danrv4L539u99u2n3 + 7T273ty189bOHod6vFT10ourX3wx58UXM1m8tPKlTis7dVrWqfOiLp3ndu48y9JyxstdZ3R7eaa1VZKN + dZJUMlNuPUzWtatVUlLGjBnLkpKWz5qVOXdu9vz5uZMmLYyO7mvQKJJ8HepiGdBbegFrb2C9Ld5nR7wv + sN4twN3UV3+kv59FRU/30hiG9bpI11Hu6t/813/Z2HR3cVnp61uOaAaaYe3nV2Mw1BoM4HWdv39DYOD2 + oKA9ISEHQkOPhIUdCw8/ER5+MiLiVEQEUD4dGQmIz1IIQJ+Ljj4fHX0hOvpS9+5XevS4BrhjY9+Ii3sb + shAffyc+/nMBawbxoEHfJSR8N3ToV8OGfTVyJMD9OjHx63Hjvpk48dvJk7+dPv3bpKRvZ8/+Ljn5u0WL + vsvI+G7Fiu9Xrfr9mjW/z8//TKG2Kz1cffLzCyd/d/7k5+dPfXH+1N3zp4XwPWNQb9epqnSqcp2qjIWy + RKss1irWaxTZGvlStTxNJV+okqWoZAtUsvlKhHSe0jpGGhoaB3DnzMmZNy9nwYLVCxeuWbRo3ZIlRcuW + laJgEx7eO9ZRsyzYZUsvbwTDOt4XwbHeHufT2N3XArV5YJ0b4TrEQ2cvl0Dg+vbtK5MZnJzm+PpWUIDU + fn4II9b+/pv8/esCAoD11uDgXSEhTWFhh8LDjwJrAB0ZSSifiYoCxGKUAfT57t0vCHEpJuZKM7tvxsW9 + 1avX+7173+nT5/O+fb/q3/87YD106DejRn2TmPjd+PHfTZr0/ZQp3yclfT937g/JyT+kpv6QlvbDsmV/ + yMr6Q17eH9et+2Nx8Z8qKv48Z87WfqMTTt+9ePrLi2fuXTx779K5ry6dw8d7l1a+k6M5bqve0gw0sN4o + YF2sVa7XKrI0iuVqebpavlgtX6SWp6o54t28JQkJUxYsyEtJWZ2aum7x4oL09OJly8oyMytzcjbl5TWs + WbN1/PhkB7k80cu+LMZja2/vRghIvO/mWJ+6aJ9NkT61Ed51EV4WKBPPD3QKs1fBe6LkiCsDsAUIe7O6 + ddPY2g7z9t4gkNqItcFQbTDU+PvXAmsBaMTmoCBsN8J4NYasj0REYAL4ZFTU6agoBnR0NIhMwVDmQMfE + XBSCwd2jx9WePV/t2fNGXNybvXq927v3R/Hxn/Xt+yUEZMiQ70aM+H7MmN9PmvT7qVN/mD37D8nJf1i0 + 6A/p6X9YseKPq1b9ce3aPxUV/bm8/M81NX/ZuvWvcXFTM6vzzn11+dzXl89/c+WCEOfx+deX+10bpNlv + q26wVdfYqiuFqNAhGKnXEtAaxZLmSDMiLpui6iaXgM6LFm1ISyvMyACLy1asqMrJqc3P37x27bYNG3YV + Fu4tKWnKzq4eMmRiuJ0m2c+lJsq7KpxFZbhXVZhnTTjCw2KUt529Uo6dWLiAYN26dfBGeXl52DqABT02 + NlapjHB1XejnVyEwutJgqALW/v41AQG1SOcCA+uDggD0luDgrRivDgvbFx5+MAJTTlEnoqIwdn0mOpqw + BpEpiM6PohlxaDcQf6Vnz+uxsa8T4vHxH/Xp8zsQfMAAsPv7xEQGd1LSD/PmMaxB5+xsBnRJyZ8rK/9S + X/+X7OxzIT2iD394kqH8tRFlwnr/l4fczntpdtmq6wSgq4RgWNuqSnTKfK0yS6NcoVFkCJEuhAC6tJ8y + IiJ+yZJCsHjp0tLlyyuys2tyc+vXrGksKNhVXNwEy1NRcTQr68j06QcHDTro45Np9ZJ0gK0uP8CtItSj + MswY1QAah0+jxF5SUoKkABuyUWsH4nig8oCvjx8/3sbG3t5+lK9vgcEAoCv9/QF0dUBATWDgpsDAuqAg + hrUANAJ7jXaGhzdFRByKjDwWFXUyOvp09+5nu3c/J0SbcAP6lhxniDdz/B1wvE8fcPweJCUhgRF88uQf + Zs78YcECRm3AvW7dn0pL/zxwYPqcnNSz9y6fbcloAD3r9jzNcTt1o6261lZdLYSANRPrQp1yFYDWKldo + lUspHiFuY5CPGjVLYHF5ZiaIvCk/v2Ht2u1r1uxJT98/bdqhhIQjcXHQzCPQz6CgnXh/Ayi1ephBqpjv + 4VgR6l4Z5l4Rxj5aoFuBB7IAGFI8UDLHo1R4AH080OyAZ1KrI9zdU/z9qwICgDKLwMBaYB0cXBccXB8c + DKyxJRQbQ4E19tMR3Aejoo4JOwrM4TalthnNoSqXoSrNNIeO3xbR/B7RHKBPmcIkZfLk11y8DXWXdp36 + 4vLpu5dPf3n5DEf86yshlyM0TbbqzWZAY0lcr1PmCkAv1yqXiWKpVj5dba2QYd1LTy9PTq6aPr1m9Oja + gQMb4uK2R0TshgsIDt4bHIxPYMDgC7YAZSiq8KYvd3CYpewiGemgA8oUFih04UFtDtTg6SPKxPwjfRE7 + 5aVSWweHoXp9PvJjRFBQrRAM65CQ+pCQhpCQLeB1M9bbw8N3RkTsw6aNyEgmJgLiZ5qp3R7QHHQRzR+B + 3sz0t3v3ZnalT58vIC8eHtmJ82Ye+eTy0U8uH/v08rHPLh//3eUTn18++fnllW+tVhy1l222lVXp5BU6 + eTkLBT6WaeWFWtkqrSxLK1uulWVopOksJEs0Nmka68Uayx4KR8f+4eFFwcElKMLo9RRMQiGewBRLFMlm + UJAx8BUoKv4Wb31395UyWVxPtTrH4MKAJkCpjYTqO/WNxA0O9DhQLMYDDRH09NRqfze3aYGBlUFBNcHB + QJkHgxuHUmBbuUDtrbR9MSxsB3YiRUbuj4o6gs0yLeFuRbXNdbxV3Js1HavoaxERRzT27sUH6w99fOHQ + xxcPs7hkjDuXIk73e7lR93K59uUi7csF2pcLtd0KWLy8Vts1R2uZobFM01imaCwXaLokq0WhesFBYms7 + 1dMz29MzR4g8b+/Vvr4b/PxK/PzKBfEE0IB4e3DwjuDgncJHRCOoHRCAbAMmbaNGM8pPIk/xdLQAxOjR + oTuHBgd1N9DXQOmduhhUfcdHPPBH1IuxYKIXZWfX09s7NTi4VohNISFAmYJRW8DaqCTNcBPBm0DwqKij + 0dE/huBtraXOzvOHzZh06KNzhz46b4yPzx8SouB2jeKAc9catWWx2nKD2nK92nIdiy5rVV1yVZ2XKTun + KTsvVHaeT6Hg8VKC7De/sXJ1XeLmlu7uvtTDY4WXV463d76Pz3o/vzKDoSIgYFNQUCPwhXSEhu4NDd0H + LyB8Ar+7A38lsBtpR6WDwwxbS4kFhxjdIzSNgCaqX2hVoOKOB4rCqLijmk6ld3wFVTT8LfbVKhS2Tk6D + 9PqVBHdICOBuC3EId6MI8d0C4ocEBWcL5pNKihhx/J5qO7eCphoBaNOIO5NguU1luVFpWaC03KC0XK+0 + XMeiy2pFlyxF5zR551R55wXyzvNN47cBErm8t6vr4magMz09V/n4rNHrCyHBgm5sDgnZLvja/UgjhEzi + oOBxD4SF7YUHE6iNbKMK7wAXl/kW0ARiMTiLvgaaGgAU5XZsJEehHWctUZUdH1Eaxh9Rhkc9Hi8AKL9w + 4UKVyg379A2G3GZ2c9BNCE56wuGGpIDjTFJEiD+xiANxR8c5I2dNaRXl6nd2aA66WW5SWZYIQDejbLlW + 2SVX0WWZAPTCVlDuNFn2G5mVnd1UV9c0N7cMd/flHh5ZXl6gM3SjFCSFr8VRYSEh2HS8PzwcECOBOCrE + EQFosBu8xmZvSHmZXr/e1zfPAj06CAK6R+ApaAuIgS9gxXZ91NdRREdlHYVgPPAJvoKvA3eATohDweHB + 1WovV9fRBkNecDCEm+KJEN8lUhWu4/CFrbtvzmjQyt7dp/RIQ6tADzyX2HWH2rJCaVloRudsReclAp1T + WgH6xZ5SK6tQV9dFkA7ohrv7CtBZEOgCyC7WOqyBorzhCLwsIBbiYHg4BASqjVSuKjAQT4agF+j1ay1A + TGgFNAH6gI4RWkGAEvjiyEGU1ansiwf2KeJzlNhRbifEUZkEwUF8/EOsojNmzFCrvV1cRvv5rRLB/XjE + xaqClTMiYq+I5iZSbrp42tlNmbhoTqsob3p3l+6Qh2WdyrK0NTovb5POkJH/dbTWaEY268YyDw/SjbV6 + fZGgzkgdIIa7YGHJxQr47qXdxyigC34X2gITDJGBYwHQaywgF2jQEZGBHSBGCwMQA1wU0XFuBNV56YGt + iii0A3HADY5zuMFuiAlmMwS43Z2d4QJXtITbSPOWUt7WysmEpSXoWD/FTGfpD97FvmHhdZd2t0nnnW3Q + OUfROV3eeVHrdH5poMzS0pfo7OYGOkM3sr288oRlEKgxv4G8AdmZkKBBplGBoMUfNMfXG/BuhiULDMRL + UubvXwygDYb1FlBkwAQpQEcOVAWCBDFgxSG92GqLkzqwWQ4PfIJNitjoDPTxBHCc2I0+HsQErxNeLXw3 + rK6Y0cKpQU5O/by9F7YGtxh0cyk3sSvkESHokBe4ctJ0hrtKNWT+6qWtolzxdiNT51bpnKfosqKZzsmt + 6MYLPjYKRX+Bzmnu7rAcAHolLIePT75ev87PD4thCRAEjhAHwd1SDkG/CP4IYakKCsLfliOasS60wHsf + igywwFAoAxpCwBEQA1bsjsNmROxppgd2JeKPhDjgxgHgeDL+CTp4eB/gdYLsQHwg3NB6eBiUqHAHoJ1d + FI7WCwhY3zbiTF5EjgU/tynTW66iDHcXl+QeQwbsf+/UwY/O8jj00VkhzsWdGdJ1h6pLeWvq3D6dR0h/ + 06UbDBl8Av4LF5cUV9dUN7fFHh7pXl7LvL1z9PrVYCgEQcAaq2J1UFC16FfD5ywErPG3DO6AgI0BAaUW + ICMUAHJBB6CAyKAt7ffEnnHaXosHPqEHhxtPQ9+IxARSA00nJcGbg4QbioQFFlUq9Jwg3zhdz8cnrV24 + 25SXZm9utOf4PRVah5zNGw5+dMY8Vr9RotjvaFmr6FIq77JB3mWdMTqvkXfOlXdeIe+UJuuUKuuULOs0 + n0LaaZ4xfhtoJZFEODpOc3Sc4eQ0E1M+gNvNbaGHxxJPz+Xe3lnwD35+a/39gXWxgHU5yAtYBXy5EeBY + G6kNrNlB3VAA6AAgoyN9QGQ6w5GfDEa3yeNBl7rir/AEHGWHJ4P7eG24kuBtgTcHpgPICEK4CW4k8dAT + TN7a2oa7uY3388vuAOKtuheWE2m1w8fMn3bwo9OtRtiJWMut8i7lsi6Fsi7rZV3WybqsZdF5taxzlqzT + EmmnRdJOCx6By1F+aYzkN9Zd8c0dHKYAaycnYD3bxWWum9sCD4/Fnp5LvbzQD1mFlc1g2CAAvVEAmlAW + A42f3JTaFkAZlIQOkFzQxmWCGMjy+0TooEo6NZ+wBt9JSaDjXEloneTCbQI3TCQqghhKQrJjbx/j7j7F + zKJwUrT5iZtbSmBMdP2VXQc/PG0eC64ttdqntqyRdymWddkgRlnaeZW083Jpp8WSTgslneZLOs0zjRdC + ullbB9nbT3RwmERYOzsnCUCnuLszoMFovR6MXtesHgDanM7in9xIbb0+2wIo05lrXC7MUeZnihHWYmq3 + qiQk3CZwU3qJhAhuErk+2gu46xiI29lFg+M44bAjHMdvaC3TZJSvahVlfNHjSIDlZlmXMlmXgpZ0zpN2 + zpR2SpN0SpV0WtAKyi+Ns/mN1FKtHmxvP8HeHkBPBaOdnWdhhMrdHdIBjV7h40MaDToXQXYFOqPmY6Ib + j4DGL4VfDasUfk0LLsomckEUbvUKTBO4QW2uJHjBuAsUww0xIe3GUglngjwethJVFOSlQByHi0JVtNpA + 6LiX1zx//7VtgY739ai5k9tCediF8V13yy2rBNEQ0zlfoPOydukc2s3KKtDODihPcHCYLEgH6DwHuuHu + vkigc6avby4EWqAz6Qan8yPdwA+PXwG/CH4d/FKYrscRNaj1s7uyxKIslot2Tsc0wZouiYaS4FuRC2wV + bloq4UzICCJLgnyD4Mj+UcZCtwHniGJkQKm0h5S7uIzw9p7v77+Ggw5yhfWKbUs0NtwqVx9wtqyXdSlt + Sec1ss650s4rm1Fulc5jTOg8RaDzTIHOKVgJvbyWC3TOhyM2GDidjUDjh8SPih8YPzZ++J49e6LMiRlw + XnNG5c4Ca5r4oJSO317NVVusJO3AzXMcZJ4wlPDdWC1JT4jgUHAqEMKJo3WJoyHhDhUKtVYbAEvu6DhM + Y++YXb+2LTqHnOhhuU3WpcJsDQSds6WdMiSdFkk6pbQiGhDrF4KgzsEiOkM3QOfZrq7JAp0zBDqv8vMz + LoN+fvleXgvd3CY6OfXFj4cfEuOZeF/C0aJVIq48I4mj4qjxhk6Tpa+DJ73iaa3CTcJtwm6YbloqYQTJ + d1PNhAhO/gQKLkYcpS5UxtFUmzNnjqur64wVM5rea2p6/8D+9w/t/+DIgQ+OHfjg+IEPTx788NSEy0ld + 9yosq2VdSgTRgNkwOg0pozNfA5NbAfrFkda/sbLUaoc2qzOWwelEZ1oG3d3nubhMdXFJtLcfoNNFqVRe + crk6NDQUG0Rw9wg6UKjU85o+IUvg0o4QKu6zy31/NMriRbKtdZLDDdMNb0NGEL6br5ac4FzBxYhDVcBx + ZPajZo06/eVpxMkvTh7/3fGjnxw9fOfwwY8O7v9gf8HNQu1+206bLDuVWHZa/3Kntd06r7XqvMYa0SnX + ulOmTaclNp1SbTql2LR0Gvgji//VW1pZGTQatOt6q9U9VCqsXSFyuUEm85JKHW1sVOiZ6vV6cBazGJi4 + hCaAtuJNIXzfDd9uQ+Dy3QtgDLsXnI5na3Xp6zi1O8huyuApzaESFREc7hsKjtwSkgLEOcehKth6FTs4 + dvur289+dfbsPRZn7p15FF+e6XGph6xJZlNnY7XRqltxt5cLXrZcb2m5zrJzfudO2Z1eynjpxdQXf7vg + t7+d+9vfzm4Zc377Qv8X/vul/8b533Z2dnjT+Pj44NRpzDNiqYApgnxhGgAHLeJdhc41+qi074bvCKFq + vnjTDd+3QPtCaLQey74FifK/jnL77ObOhHw3pTmAG3qC0gohjmTHHHHonV+IX/H+4nNfnUMwrHkIoE+5 + OUV5QqnYoZBvksur5PIKubxcLt8ol5XKZEUy2RqZNEsqXSGVLpVK01lI0iWPIk3SzdANO++wRQyYTp8+ + HasxZAo7uoAvzqCCI8LwBVZpnNiDFjY6q4AY/CVNIM6KkaXmFAeXdoTQvgWLp4tyO3CTM4ER5AUTXqIi + xLmkcMTxU9o72WdWZZ7/5vz5r1mc+/ocCwF0xLr317mecVXuUSoaFIoahaJS8QjoEplsvUyaI2VALzei + TFjzsB5kDU2AzkKaADEK6xgLhhvDvjwcZA+UUT8AyhAKEBkvOUFM221Qx8eDOEttP9AWyOLBN4XQdhDa + tMCAfiJ9eKInmyyVPKuk1RKGh0pUIDgUnEsKIQ7tBgTJ+ckXvr3A4psLDG4KAfQjXx4JuRSiOqhSNiqV + tUpltRJAKyoUinKFvEwuL5SzMdFsmQzN6GUyWYZpSGdJu7l1g+xiCylYDIhxSCC2GWCvGBp1sD18RymI + jCWOeqoELpDF4sF3MdHmJdCWGn6wUgQub1EhjbB4IuB+3JM53CZZJSc4LZgkKRzxJUuWTEubdvG7iyy+ + ZWFEXAAdMfDVgZrjGvVOtapepapRKauUykqlskKp2KhQlCgU6xTyHLkcB1wvl8uXymVLZcZoRhzj5bRl + BkKBB9py+B9xoQOWBIgyJzKGA+hEf0AMfEFbUgMsHli0+RYm8V4bWCkYKr4XBBs+8B79OYBuS0/EZROS + FI442ISpfUw3G+8++O6SEfFm0JNuJ9metdXs0ai3qNW1anWNWlWlUlWqVBUqZZlSWaBU5CkUOQrsVZEv + k7NY2iKk46RWaivIBSgMOYb/hSLDqGEWDpt5se5hlghagc4RenXUsyZ8wVkiLFZs2sKEeg7WcCAL2tIu + G6w0BC5tAcEKhPfozwo0Id4qwXmhCojjl0yYlLDvzX2Xv7+MwA0TxqALJ767lPNhjvt5d+1+raZRgz0p + BLS6igWAVhWrVGtVylylMtu4RUWxTCEObA2SBEhQvIVKAF+wGBDjPEC8urhgBNYCE0XQCjpcHhBDc0Fe + 4EtqQLCKNy/xziqqzXxnDcCFs4KdxQoEVfwFgG6V4Dy9xG/Yf3R/mLlH16YIcHPQ6z6vC7gSoDuk0+7Q + ahuECf4ajaaahbpCrS5Tqzeo2eaUHJUqU4W9QCyWtwhpfynmNwEuljvgCxYDYtIKWAuky5BjugqLGta4 + BAr4AlwsGyAssRWulGAlziIXI2SxqgNZAhfOCnYWaz5U8ZcE2hxxqGGf4X02X9x85fdXECa31OCPuFis + +7Xutidsdbt02q04mlyr3aTV1rDQVGk05RpNkUa9Wq3OVauyVaoVrYRiskLiIIFiQIhhKiAU5N7wNoJB + puO3YdGolQqIIbggL/BFMRLgcimgrUq0QwmwIhfjyGKlAbhYdagLiDUfqvhMAE2Ig0fxQ+Prz9cTyiZB + oA+4McDutJ3tXltdo07XoNPV6XSbdLpaHcO6Qqsp0ajXqtX5avUqtTpLrV5pGrgcQRYiwxWbwBcPCAXq + ahjqhFYQkfmtvRAKYjHaRsCXdJakgGNKe5MIVjGyWGkIXOr/UaPqWQEaKRa4XH+h3uRSKzHco2+Ntjtn + Z7vfVre9BcrsVrwqrbZMi0sINas1mlx2rYcms0WoMxnoiv4KXFWP0WQ8CGJoBYgMg8zvgqSZABq7gETQ + QABJAYeVeta8bd0qsrwLiDUfj2cCaPyqAxIHMMUQXdBm8vmUt6bggmm7A3bsYjzcyEv3eQvXAelwNz3u + PS7U4qJYdnlKjinKBLpqokpmJ4NBhhYTxERkcm90WS8UGXaCrleCZwCLwV+SWoBLOkBsFROWOGuCLK8g + Ue79ywONX3vo5KHY1toOynPemeNy0cXukIAyruOlO6Y5yhU6dhFQG9fx0qVAmgUaub8cw8eAGMPgdKoN + Fl66XoyjDMcGl0aXWEF/6apv4Esle6onizGlzjVxltqqdBMaL2w8uoflx+UgT+Vf4RfAijRmzpimt5ra + QRk31LM7vHHjMS4QM0e5UqfDxfQ4dIWutso2vRiPgFbEKrAxBxBTyYJmaOmiTaQhMHDIlfkFmjQQAKGg + 244JYg5o+7C2lWn/YozG8oJMYUbGjOOfHG8H5UXvLzJFGaJBXMa9VlU6div9OiYarV5MTyirhqpkMhkd + z0SFITqHhW7ZBMpI8OiOXs5loEytaroTQVxJpjzgSWtEvwzQWNCd3Z1T16a2AzH+Cih7XvK0OyLisjnK + uIWXRMPsVnpCWT1ZLXeWwyzzCjKhzC8kFOuy+Nq7p3tv5i8ANFxqUFRQbl1u+ygbFQMo427HRkGXmxdA + I5fLhCt425fmeRqFQYE6Bj8iC4pBKCOxRlUIlSCYZX69MQwcv3KaFjfxXSr/imD+rEDjDYi1qO/IvhVH + K9pHGavfI8VoiTLuHmSKsVGnK3jcApihUUYrUWvmKNPqRzfkofyG2gX8MooVqFGIL+ymCyc6crNgx6H/ + +YBGZoU678SUiftu7Wsf5alvTWUeQ7z6cTMHlAUzxy7fJS6bXQvL7x5U9WG30vN9UKjD0fV4VIcjaTa5 + QZruqnm6okEvxs8ENOoG+iB9RnEGsrv2UU68lYhbpJmT4x7jR6GsHqqWqWTIrcXSDJtBtx+jPI/EBEWi + Vi8UfLqi8TMBDclDsot8ZOPhje1DfPK7kwNfH4hL0Y1ZCTm5tlBu9Z7S5ns01WPUckfjAgigycyJpRnV + ZKR/dMcuakPI/R57RWbHVaLVZ/60jMbbE+5iTuYcHErSPsoNdxtirsfYn7G32y/KSpo9BtNlsWK0a5nV + U9UKDwVKoOIF0ESa4ZpNbo1GyeInEg0jozeWrPgpIjc7efDAnlF9I3Lqs059caL9WHY73eu0h3y/RLZF + Iq21kVbYSMttpGU20lIWkmJrSYG1ZJ21ZJW1zUorm+VWNkutbJZY2aS1ElYTXu7q2jkmJjhxVP8xo/uP + HTNw/NhBkyYMmTxx6PSpw2cljZ47e1zK/ImLFk7NWDJjxdLZOZnz81ctWJOfumFtWuGG9OKCjJLCpaVF + y8qKlz9dWH4SRqN04Kn3nJc977FEBs1hMHARut1RO7s9drbbzOoYlJXw1a9dLmtg5oIU6JtwLvMFEBkg + STNcM6SZbpunSVq6Q+xpXczdlsJYiF+38tKVFBVlmc2RVbkRkY2oKkfkVFXkVFesQtRU5hqjKq+WRf6m + 6vz0tKTY2LD+iX037F53+u5J0/jy5GlRHPr8QN8r8aoTCvkumbxBKq+Vyiul8gqpvFwq38hCViqRFUlk + 6yWyPIk0SyJdKZEul0gzJNJ0iYwi41FIZ9lY+XfrFdd97pwp8+ZOnT9vekpyUurCWUvS5i7NWJC5YlFu + TvraNSuLCnPLy9bWVhdu2bxxx7aqvbvrDjRtPXJox/Fju0+e2HvmVNPZMwfPnz148fzhi+ePXLpw9NLF + o5cvHrt86fiVyyeuIq6cfOXKqWtXT1975fSrr5x59drZ66+ee+3V869dP3/jtQuvv3bx9RuXbt649Mbr + l9+4eeXWzau33rj65q1X3rx17akxGnVbdCti+sdk1WShkdq+IuNvSz4twcl3rYgyrxbxDJtnJW07Oc0i + jTJKidFCbuawAPI8m3ITLICYZeWuGQUNFD9NpPlppSfmvH4KjF6dt3jk8L4efm4zV8zYcWNbK0Tm1G6m + 8+QbE51POcqbpPJGqWyTVFbdTGTO5RKJrFAiWyeR5tpIs2yMXE5nXKYQM1o6z8YqpFt0dNjc2ZPnzgad + pyXPn7FwQVLaojnpS5JXLFuYk52Wn7e8YENWaXF+VcX6+k0ljVvKd++s3ben/tCBxqOHd5zgdD594NzZ + gxfOHXq2GI3KAIqc3v7eM5fP3HZt22NZjCds+3Jbvxv97C/YM6eM3NpMlJnBAJdR+URNjqpFdBG66Ap0 + 8eeaxRpld2ViYiIKRtwyk5nDUsEzQLIZdDW0uKDBy0YdnFf+0SbvRzI6JzN5xLA+Tu4O4+aPqTi+sT0W + i5R61s0kjzNuigMy+TaprE4iq5bIKqSycqlMUGQWZVJZsURWIJGtlkizBS6vsJEus+FENmG0dC7jclRk + 8OxZk+bMngJ1ZtK8YMaiVEjzvGUZKVmZi/Nyl65fu7K4MLdi45oaSHND2XYmzZv279t8+OC2Y0d2gs6n + Tuw9fbrp7On9UOfz5w49E4xGCQb9Y/9Q/9krZ2+9vLUjLMZzYJNBZIcLDkisje5iS8t8hJc9YTCoit9u + 5ZPV8lOYLmMqmbgsTkyomkGTAlQCFduMnzo3aT1h6aDrKFyfMWPaqKjIwKDuAbOzZjZcrjt990RzmLmL + ln5j/GtjmSLvFxTZSGSJrFwi2yiRgcIIGAyIMgzGOoksFwYDomwjXW4jXQouUzxSZ+PnM2ysDC/HxITP + njmJ6Dx/7rQFydMXpsyENC+DzViZuio7fe3qFQUbsjeW5ldXbmioK27cUrFrB5Pmg/u3HD28/diRHSeP + MzrDbJw53XTuzIFfktFwnWjLOzg5oOGUvzn/1O9OdZDFeNqqj1cxa3GupSKLE2uU8MWivL5ZlNvulbAS + 80w1/DLmP8UegyYQicuoGVEDED88SqCUZ9MWP7HNoCpoxzc5/GiBZkWlthi9LGMmkqugAO/AKP9p6ZPL + jpacuntCHO0zuviDwthLPdTHlfI9UvlWWAuJrAqK3ExkxmUWUu6UTUWZc9mU0ZKx1t3cu8bHx8xMmgg6 + CzZjyoL501JTZi5eNDsjff6K5bAZS1bnL92wDjYjr7JiXd2mIrjmndur9uzadKBpi+A0th8/ugt0Pn1y + 7+mT+6DOZ8/s/1kZjbIhjASELzg6eOqiqUX7is7dO9dxCuOZu+/tHnVrFOuMHLeza2ouXFDfWtS6NhIZ + Hb/S5soysr68NhslxnbJGFbHwEyiCZfhMUy4TOV8cBmFZrLMtF1V3J36ebj8qNaRnTkPdYD43pGeHk4B + EX5j5yXmbVl14L0mY4GiJZE5qc0Zvf3TxpHXhkOOma/YLpU1SGQ1ElmliMgCixmRS2ykxTbSDRLpmpbu + 4pEot8Jom35WL6sthyb0nZk0YdbMiZDmuXMmJ8+btjBlBuPyknkrl6dkZy7Oz1u6fl1mSdGqCiED3Fxf + ur2xctfO2qa9kGYkgdtgnI8f3XnqxB7EmVP7WDb4MzAaG+G8A7wTJiakFaRtOrvpsfXiVtm976t9E29P + 1F/R258SipwoJcMgi31Fc773qKla1ly8f5xTZgYjQ4MqPurLaP2J6xiU+5FfpoFPGpUz4bJ5p/Xn5LKR + 0ShKNL2zt73qWruMLv+wbNDVAc4nHeUHpPIdEsbi2pYsbpZjI5GLQGQb6RobidgmZ5jwt8UfJdNtrIJe + Dgk2TJ44UuDyhDmzJs1jXJ66cMGMxang8twVy4jLGetgmYtyysvW1FRtaGAZYAWkudk1MzrDaZw4xtUZ + fuPnYvQT6a/4yWvurMEkHOvsQYtRRG6XxS0UmbpQHSAy9bDRXeV9P9qog9YfmlLULqHcD2OfdPBIq1zm + lbmnuDPqSR2IxWOLxSZmY+cn26e+Ntn/nJ/imEy2RyLbKpHV2chqbJgWkzWmaJZjRmTIMYi83ka6GkS2 + lmRaS1bYSJDvtUtk2GdriLLWckD/2KTp45JmjDNyee7k5PnTUMpYnDqLcXlpSnZWM5cLczaWrq6pQjWj + eOuWjTsaK3fvYtJ86MCWwwfhNIx0BqOhzoLfeCYZnXcnb/Drg70ve9ufZr6YJXjbhdEhOApujUVabJRj + dEaocEEDGLAW7dYujBNcyPpilZh64aJMNz3x7TqoL2NsATU5dLJpyIgfPCI+EuNZ4LJRox/L6Px3cofg + 4uDT7vKjUkbhRom0zgZ9EFmljazcRrZRiDJESxaTryiwka61kebZMBavBJGtJcusJRnWkiU2CCnCmPi1 + +MRmlFU3z67RkcFTpyQmTR9r5PLsifPAZaPHmJWRPo/pctai/NwMoZSRXV4GLq+rqy3aygrNlbt31jTt + qT/QtBl0PnKIjDMzG/DOQjb4bDD67PdnV99ZDTscdDWIVdqOiVTYnMItWfxIjuErULXAVByfC2hjmIhX + 45i7GKiSO8gxKM6dsliUMfhCBoPa2Kgv8zO36DQoyv3Mp7medILrSSX4sc9vodElHxRNuzEl+kKE00kH + +ZFm/tbbSGtspFXNrbyNQjePUViI0uZPwOhSQY4LBTnO53JsLVluLVkKFoujFUbbjLPq5vdycLDfmMQh + 06clzpg2ZibT5fFzZk+aP2fKgmTkfklLFs9emj5v5YqFq7IXr85D7reiuHBV+cbV1UyXwWVY5gpwed+e + uv376g8yOsNpNB47wsoaJ46hUMf8xi/D6NLPSue+Mxf+IeBqABtAPmHH9HefkNHBC7fKX1C4LRaj9lbc + XEemTA+l5DYmPFsQebAKE3I4DoiILN4GTFkfPwiRzpokg4EJI5oVpzO3zI93eer7gh/L3DZ7hvIjEtle + iQwWGB1oIm+liLzN/CUWG0NoTjMu45MSa6MWrxO02GgqmlmcbkJk/sdHjLZJtOqm7xoY4DtqxMBpU0eD + y9DlmUnj5syaICR+U1MWTF+cOnNJ2pzlS5MzVy5clZO2Jn9ZwXoh99uYX1Np5PK2reW7djDL3LQXbcDN + B/dvPnKwUcgDt5E6/8KMboW5VJEwD2FYlgfrg5CjQLEC1pi0uMMspoIy8j25vZxu2jMnMp2bio4fnDLt + QaODEDErjh42JvKpiEGDzOZnbv2km4KflNoWUnC2VdqaUZimLIQyhbW00Fq63lq6hs1aMEeBgBCTo2iT + xSJ2p9lYD+z2sotlWKj/2MQhjMhTRwuiPHY2RHkWMxgL5k9NXTgjbREzGCuXL8jOhMFIX7dmeeGGzNJi + tEuYX26oK9raAF1GAxBcRqGZChponWxFHGV0hjob/cYvzehWyWuuwtQBIQrDTnAh5o6i7baeSbsPyZ4y + XIlzGrCZ0sRa8Hs6OZFRvuDnpvKDECHKHTnZ7ElJ95M+36KF+BKLibnNwQaFiqwlhcKs0GprSY6VJFMI + mGKyEx2hsGA5bCZZdQvv2lXSJS42YsrkkVOnjAKXZ0CUZ4ydNWPc7JkT5s2ZlDx/SmrK9EWpM9MhysuS + s1YszGWinCEYDCR+uVUVa2pr0C4hj1G+i1WZqwUuQ5oZnck4M+/8jDLaXIJpsqKc5XVsGJmrMA3LdsBO + PPIV8wQ5dpJjjx/2nXE5Fp/HDmtBh4XTSdbiA4DF56a2L8rPlC6L3yIWLfhbYmMkL8265VvbrLKyybRi + E28rrCTLrSTLrCQZVpJ0K0maVUtf3Ja7sLaZYWXV8+Wutl1CQvxGjOg3ZRKIPHLalFHTp41OEpwyRHnu + nInJ8yYvTJ62aGFSetrs5UvhlBesyl6Un7dk3ZplgijnlDODgcSvYHN9UeOWsh3b4DGQ/lVDmpv2om+C + JLDh4P4GoazBvPOzx2gSX05eWAjoL/XueGmC7PDj8joTLcYknKqfSu4mx5k52N1HLBZfTs0PGUGyh8E4 + nNDAt7fTSdacyFS+MDk39amcBvWT6nILRkvWW0tgHvKsbXIE5grkZRObNLSZYWWTbhzaZCwWR4tMrwWj + rSd06xbVtaumS1Cgb8KQ3pMnDp8yacTUySOng8hTE2dMF9zFrPHzQOT5UxYumLYoFUSetSxjbubylJys + 1PzctLVrlhasX1lSlFVemltZsXpTNfp+BVvq0cZmXN65vRK6TNK8fy+SwDpwWVBnJtDPKKONzCXzwMUX + 5H1cOtfq6JB6khpzQ3JbOQ4gRe+8VRajjoyeiPjuBn6xAG2/ph3u/GhaMZFpS6W4e/3MirLJe8WC0ZYz + t5m8rY4et8Nom9lWVv1e7urVxdnZLjoyaPSIAZMmDuNEhiLPgCJPHzN75tg5syfMmztxAYicMj0NRF4y + e1mGoMhZC/Ny0tatXrph/fLiwqyykpxKiHLV2k01MMuFWxtKtm0t29EILqOUYbQZjM776g7sgzrDbDz7 + jP5RzOV0xni9qjcTYlzzhGOfOIXpwDJ+wwsdqEUsplsF0BOh00YwRkRHNdA5AuSRyVrw2gUnMlokz075 + 4on03aJV8j6W0dZTunXr1bWrR5cuXTqFhvgNGdxr4rihk8YPnTRh+ORJw6dOHgFrMX3qqBnTR89KGjtn + 1rh5syfOnzt54YKpixZOX7I4KWMJsxZZK5JXZXNFXl5UkFlWgvJFXnXlmtrqdQ0Q5Ybixs3EZUxlVOze + waR5725yzahpYH7uOWJ0G1OarUowjAR2OylDlHItO0cWRxGJUzuiMN0DBSGGL+b3FPF7dOhmddTeMKcs + lmNULWiTOz9HQHwk+/NLZM76DjHaesLLjL9eXSxtOvv6uMX2CBs9sv+EcQkTxidMHJ/A5HjSMLB4+lTG + 4qQZibOSxsyeNW7u7Anz505KSZ6cmjJtySLBIGfMXbl8fnZmSm72otV5S9avzShYj3wPRM6p2Liqqnx1 + bdXa+k0bttQXbt1cBC5vbyQul4PLu3dW7mV0Rq0Z8StitCZVox6rVvVSKXwU6N3ROch0Jif0lySYHyVL + Z0YShfnJcHRyGebsUT5GK4S0GIU3MhWovWHfPckx+Qq0RegogVb3uT+RID6DT27BaOukblbDunaLtoT4 + Wko6u7rahwTr+/aJHjdm0PixgyeMGzxh/JCJExImN1N42hTGYgjxzOlgsaDFcyYkz5uYkjxl0cJpaakz + BHc8e+XyeVkrkemlrs5dvHZ1+vq1S4s2rCgpyiwvBZFzqytW11avrasVRFng8rYt0OXSHY1l4PIu0Hln + 5R7mNKqeb0bDNqgTmPllzFXLHnsOMj+Wk/OX8jqoMHrSRGE6HI4OL+O3QaEVQic/mbCYLiHhN2SYHNjw + DHLzx/1IFg52Gh9v14hwQ98+UYkj+48TNuYZyQv+jgd/h0KCp0waNm3K8GmCl0gChWckwhRjz968OeMF + CjNHsThVcBTpM5cvnQMWZzMWL1ydu2hNfpogx8tLCleWFWdtLMUeL1iLfIHI6xs2wSkXbG2AWS4Gl7c3 + Mi7v2FYGLu/aAacB4/yrYDTqZ3RrJD9hml8fyU/rFZ+DTMee0smcdLghnRxJKswpzIUYvhiVCjpci6wx + v0pH7I75nPLzkuk9Ka8tJowfPHH8EOwtncTEd+iUiYy8UyeDvIL+TgN/Rwn8HTNn1th5c8Ylz5uwYB55 + ialpqdPSF88AhSHEK5bNzVo5PydrQW7OwvzcxWtWp61fk1G4fllxIeR45cYSzF3AV+TVVEKR19TVMFHe + XLdhM0S5obBxC7jM6Exc3rkNTmPjr43RyNmgth0/B5mOPcXEJvEXNTY6fw9NPK7CmK+gAw35hVt0vhY5 + Cn6Vzq+exS2qd9OnjpgxDTFyJk53T0Iilzhn1pi5s8fOI/1ldYlJCxeAv1PSFk1bsnh6+pKkZemzViyd + k8m8xLycrORVoPCq1DV5oPCSDesyCjcsLSpYXlIMFqP2BjnGNlu2r7a2ajWIXF+7rn7TenB5S4Ogy8xj + FG/bWrKdhVGdf52Mhtt9onOQUSNGUQKHPNH5kSTBZCT4EXzioyLFQvxrdRQd0WuL+XNhG8YvmD8hJXli + 6oJJixZOXrywmbxpM5amz1q+dNaKZbMzl8/NBn8zwd+UvFXMS6xlKpy2YW16wXr44mXFBStKicVljMVV + bL84FDlvUzWqyWvqa9fCXWyuY1zeXL9B4HJhI9I/Uud/B0Y/6TnI4qN66QhJOj+S38knVuF/Zwqb1qOX + LpmxLCNpecbMFUtnrVyGLA7iK5AX4pu9IDc7JT934eq81LX5i9atXiyo8BLsOSzasLSkcHlpEXzxyo2l + WRVliBx29kF5bjVOPYAiV+fX1cBdMC4jiMtb6hGoyZE6/5sx+knPQRbrr9hF8A7ev5WX6Ig6G+ejcVRM + Xk5y3qoFOIhlde7CNXnwD6kCeaG/TIKJv0UFy0qLQOEVZezEGpzpgQM9wGLhHA/j8R3GUzuMXK41crlh + E4oYsMz/9oymW3s7fg6yybGn4gNPO/7y/hs+02I9o21awboliML16UUbMoqEc4WEYCzG6UJMiEvoWJqs + io1ZghYbz6FhR9GITqBhHqMGfnlN3X8YbXICzZOeg/yLj84/p+8Gi+KCpQiisEBeFtgg3ny+Eh2uxHxF + R85U+g+j2zxTqa3jpX+tVbRf6g1hwSksYvGPPyXsP4z+yU8J+6WY8rz8vz/yTKW2zr37D6P/w+hfmPr/ + YfTPdbrBL/xC/9v89/9h9H8Y/esi+38Y/R9G/7oY/f8DPTxUq2GibSkAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Epole/AboutBox1.vb b/Epole/AboutBox1.vb new file mode 100644 index 0000000..bd81a11 --- /dev/null +++ b/Epole/AboutBox1.vb @@ -0,0 +1,29 @@ +Public NotInheritable Class AboutBox1 + + Private Sub AboutBox1_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 + Me.TextBoxDescription.Text = My.Application.Info.Description + End Sub + + Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click + Me.Close() + End Sub + + Private Sub TextBoxDescription_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxDescription.TextChanged + + End Sub +End Class diff --git a/Epole/ApplicationEvents.vb b/Epole/ApplicationEvents.vb new file mode 100644 index 0000000..e69de29 diff --git a/Epole/Common.vb b/Epole/Common.vb new file mode 100644 index 0000000..9348acb --- /dev/null +++ b/Epole/Common.vb @@ -0,0 +1,851 @@ +Imports System.IO +Imports MyControlOLEDBv2 + +Module Common + + + Structure S_Arrow + Dim Direction As Short + Dim RectX As Short + Dim RectY As Short + Dim RectW As Short + Dim RectH As Short + Dim TriWidth As Short + Dim TriHeight As Short + Dim PenColor As Drawing.Color + Dim PenWidth As Single + 'Dim FillColor As Drawing.Color + Dim Field As String + End Structure + + Structure S_Line + Dim X As Short + Dim Y As Short + Dim X2 As Short + Dim Y2 As Short + Dim PenColor As Drawing.Color + Dim PenWidth As Single + Dim Field As String + End Structure + + Structure S_Box + Dim X As Short + Dim Y As Short + Dim Width As Short + Dim Height As Short + Dim PenColor As Drawing.Color + Dim PenWidth As Single + Dim Field As String + End Structure + + Structure S_QRCode + Dim X As Single + Dim Y As Single + Dim Width As Single + Dim Height As Single + Dim Field As String + End Structure + + Structure S_QRCode1 + Dim X As Single + Dim Y As Single + Dim Width As Single + Dim Height As Single + Dim Field As String + End Structure + + Structure S_Circle + Dim X As Single + Dim Y As Single + Dim Width As Single + Dim Height As Single + Dim PenColor As Drawing.Color + Dim PenWidth As Single + 'Dim Radius As Single '//־ġ + Dim Field As String + End Structure + + Structure S_Image + Dim X As Single + Dim Y As Single + Dim Width As Single + Dim Height As Single + Dim FileName As String + Dim Field As String + End Structure + + Enum ESorted + No = 1 + YES = 2 + NULL = 0 + CANT = 3 + End Enum + Structure Cfont + Dim FontName As String + Dim FontSize As Int16 + End Structure + + Structure Str_Alllabels '̺ Ѵ. + Dim ctl As MyControlOLEDBv2.MyLabel + Dim desc As String + End Structure + + Structure SStyle + Dim Desc As String + Dim File As String + Dim LoadOK As Boolean + End Structure + + Public StyleList() As SStyle + Public PDS() As PatternDS + + Public Draw_Line As New List(Of S_Line) + Public Draw_Box As New List(Of S_Box) + Public Draw_Circle As New List(Of S_Circle) + Public Draw_Image As New List(Of S_Image) + Public Draw_QRcode As New List(Of S_QRCode) + Public Draw_QRcode1 As New List(Of S_QRCode1) + Public Draw_Arrow As New List(Of S_Arrow) '//ȭǥ 170711 + + + Public DataBaseFile As String = My.Application.Info.DirectoryPath & "\database\database.mdb" + 'Public ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFile + 'Public Arin As New CommonClassv2.ARINCLASS + 'Public ArinPath As New CommonClassv2.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 IsPro As Boolean = False + + Public ViewFont As Cfont '// + Public MenuFont As Cfont '//޴ + Public FormFont As Cfont '// + + 'Public CEpole As CEpole.C_Epole '//ֿ DLL߰޴. + + 'Public Sub AddLog(ByVal msgtext As String, Optional ByVal ClearData As Boolean = False) '//αâ ϴ. + ' If ClearData Then Frm_Log.RichTextBox1.Clear() + ' Frm_Log.RichTextBox1.AppendText(msgtext & vbCrLf) + 'End Sub + 'Public Sub Showlog() + ' Frm_Log.MdiParent = Main + ' Frm_Log.Show() + 'End Sub + + Public Sub Work_Form(ByVal T As String) + Form_Work.Show() + Form_Work.Msg(T) + End Sub + Public Sub NWork_Form(ByVal T As String, ByVal maxcount As Integer) + Form_Work.Show() + Form_Work.Msg(T) + Form_Work.ProgressBar1.Value = 0 + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = maxcount + End Sub + + 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 Windows.Forms.ToolStripStatusLabel) + Src.Text = " " & MSG & Space(1) + Src.ForeColor = FCOLOR + ' My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep) + End Sub + + Public Function NVL(ByVal Indata As Object, Optional ByVal nullVal As Object = "") As Object + + Try + 'If Indata = "" Then Return nullVal + If Indata Is DBNull.Value Then Return nullVal + Catch ex As Exception + Return nullVal + End Try + If Indata Is vbNullString Then Return nullVal + If Indata.ToString.Trim = "" Then Return nullVal + Return Indata + End Function + + Public Function PATTERN_ENC(ByVal SRCSTR As String, Optional IncludeH As Boolean = False) As String + Dim MSG As New System.Text.StringBuilder + For Each A As Char In SRCSTR.ToCharArray '//繮 ڹȣ ǺѴ. + + If IncludeH Then + If A = ";" Then '//ڶ + MSG.Append(";") + ElseIf A = "H" Then + MSG.Append("Z") + ElseIf A = "-" Then + MSG.Append("-") + ElseIf Char.IsNumber(A) Then + MSG.Append("1") + ElseIf Asc(A) < 0 Then + MSG.Append("H") + Else + MSG.Append("0") + End If + Else + If A = ";" Then '//ڶ + MSG.Append(";") + ElseIf A = "-" Then + MSG.Append("-") + ElseIf Char.IsNumber(A) Then + MSG.Append("1") + ElseIf Asc(A) < 0 Then + MSG.Append("H") + Else + MSG.Append("0") + End If + End If + + + Next + Return MSG.ToString + End Function + + Public Sub ReNum(ByVal Srcspread As MyControlOLEDBv2.MyFpoint, 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 Admin 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 Function TextEnc(ByVal SrcText As String) As String + If SrcText = "" Then Return "" + + Dim Ec As New System.Text.UnicodeEncoding + Dim Msg1 As New System.Text.StringBuilder + For Each bi As Byte In Ec.GetBytes(SrcText) + Msg1.Append(bi.ToString & ",") + Next + Msg1.Remove(Msg1.Length - 1, 1) + Return Msg1.ToString + End Function + Public Function TextDec(ByVal srctext As String) As String + Dim Ec As New System.Text.UnicodeEncoding + Dim Z(srctext.Split(",").GetUpperBound(0)) As Byte + Dim i As Int16 = 0 + For Each aa As String In srctext.ToString.Split(",") + Z(i) = CType(aa, Byte) + i += 1 + Next + Return Ec.GetString(Z) + End Function + + + + 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 Sub GetAllsection(ByVal FILENAME As String, ByVal CurIdx As Short) + + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = 0 + f.ProgressBar1.Style = ProgressBarStyle.Marquee + f.Label1.Text = "Ÿ(" + CurIdx.ToString() + ") ҷ ֽϴ" + vbCrLf + FILENAME + f.TopMost = True + f.Show() + Application.DoEvents() + + + '//dz ̺ ٷ ֵ ۾ + + 'Dim wat As New System.Diagnostics.Stopwatch + 'Dim FS As New System.IO.FileStream(FILENAME, IO.FileMode.Open) + 'Dim SR As New IO.StreamReader(FS, System.Text.Encoding.Default) + + Dim buffers() As String = System.IO.File.ReadAllLines(FILENAME, System.Text.Encoding.Default) + + Dim Findkey As String = "" + ' Dim Line As String + Dim KeyPos As Integer = -1 + Dim Seppos As Integer = -1 + Dim dr As DataRow + + 'WLog2(Auto_Log, "getallSection : 系 ̺ ȱ.()", "\(̺)α.txt") + + 'StyleList(CurIdx).PATTERNTABLE = New DataTable + 'StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + 'StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + + '//ʱⰪ + 'StyleList(CurIdx).Backimg = "" + 'StyleList(CurIdx).CanvasX = 292 + 'StyleList(CurIdx).CanvasY = 520 + 'StyleList(CurIdx).Desc = "⺻ɸ" + 'StyleList(CurIdx).dummmyx = 0 + 'StyleList(CurIdx).dummmyy = 50 + 'StyleList(CurIdx).Dummy = False + 'StyleList(CurIdx).Dummytype = 1 + 'StyleList(CurIdx).File = FILENAME + 'StyleList(CurIdx).IsXml = False + ' MsgBox(FILENAME) + + 'StyleList(CurIdx).Filter = "" + 'StyleList(CurIdx).LandScape = False + 'StyleList(CurIdx).MarginX = 50 + 'StyleList(CurIdx).MarginY = 50 + 'StyleList(CurIdx).picstyle = 1 + 'StyleList(CurIdx).PrintFontOffset = 0 + 'StyleList(CurIdx).ScaleX = 1.5 + 'StyleList(CurIdx).ScaleY = 1.5 + 'StyleList(CurIdx).Viewimage = False + + '//XMl̺ ȭ(ͻ) + + If Common.PDS(CurIdx) Is Nothing Then Common.PDS(CurIdx) = New PatternDS() + + Common.PDS(CurIdx).TStyle.Rows.Clear() + Common.PDS(CurIdx).TPattern.Rows.Clear() + + '//set default value + Dim Drow As PatternDS.TStyleRow = Common.PDS(CurIdx).TStyle.NewTStyleRow + Drow.BACKIMG = String.Empty + Drow.CANVASX = 292 + Drow.CANVASY = 520 + Drow.DESC = "⺻" + Drow.DUMMMYX = 0 + Drow.DUMMMYY = 50 + Drow.DUMMY = "false" + Drow.DUMMYTYPE = "1" + Drow.FILE = FILENAME + Drow.ISXML = False + Drow.DUMMYCNT = 0 + Drow.LANDSCAPE = "false" + Drow.MARGINX = 50 + Drow.MARGINY = 50 + Drow.FILTER = String.Empty + Drow.PICSTYLE = "1" + Drow.PRINTFONTOFFSET = "0" + Drow.SCALEX = "1.5" + Drow.SCALEY = "1.5" + Drow.VIEWIMAGE = "false" + Drow.PRINTBG = "false" + Drow.BAKX = "0" + Drow.BAKY = "0" + Drow.BAKW = "0" + Drow.BAKH = "0" + Drow.VIEWIMAGE = "false" + + 'wat.Restart() + 'Console.WriteLine("File Read Ready") + + + '// о &Ű = Ѵ. + Try + For Each Line As String In buffers + If String.IsNullOrEmpty(Line) Then Continue For '// + If Line.StartsWith("#") Then Continue For '//ּ + + + If Findkey = "" Then '// õ Ű ٸ + If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString + Else '//õ Ű ִٸ ̺ ߰ش. + If Line.IndexOf("[") = -1 Then '//״ Ű ߰Ѵ. + Seppos = Line.IndexOf("=") + + Select Case Line.Substring(0, Seppos).ToUpper + Case "DESC" + If Findkey.ToUpper = "STYLE" Then + Drow.DESC = Line.Substring(Seppos + 1).ToUpper + Else + 'dr = StyleList(CurIdx).PATTERNTABLE.NewRow + Dim stitle As String = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + Dim svalue As String = Line.Substring(Seppos + 1).ToUpper + ' StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + + Dim Nrow As PatternDS.TPatternRow = Common.PDS(CurIdx).TPattern.NewTPatternRow + Nrow.NAME = stitle ' PRow("") + Nrow.Val = svalue ' PRow("") + Common.PDS(CurIdx).TPattern.AddTPatternRow(Nrow) + + End If + Case "FILE" : Drow.FILE = FILENAME ''StyleList(CurIdx).File = Line.Substring(Seppos + 1).ToUpper + Case "BACKIMG" : Drow.BACKIMG = Line.Substring(Seppos + 1).ToUpper + Case "CANVASX" : Drow.CANVASX = Line.Substring(Seppos + 1).ToUpper + Case "CANVASY" : Drow.CANVASY = Line.Substring(Seppos + 1).ToUpper + Case "DUMMY" : Drow.DUMMY = Line.Substring(Seppos + 1).ToUpper + Case "DUMMYCNT" : Drow.DUMMYCNT = Line.Substring(Seppos + 1).ToUpper + Case "DUMMYTYPE" : Drow.DUMMYTYPE = Line.Substring(Seppos + 1).ToUpper + Case "DUMMMYX" : Drow.DUMMMYX = Line.Substring(Seppos + 1).ToUpper + Case "DUMMMYY" : Drow.DUMMMYY = Line.Substring(Seppos + 1).ToUpper + Case "LANDSCAPE" : Drow.LANDSCAPE = Line.Substring(Seppos + 1).ToUpper + Case "MARGINX" : Drow.MARGINX = Line.Substring(Seppos + 1).ToUpper + Case "MARGINY" : Drow.MARGINY = Line.Substring(Seppos + 1).ToUpper + Case "PICSTYLE" : Drow.PICSTYLE = Line.Substring(Seppos + 1).ToUpper + Case "PRINTFONTOFFSET" : Drow.PRINTFONTOFFSET = Line.Substring(Seppos + 1).ToUpper + Case "PRINTBG" : Drow.PRINTBG = Line.Substring(Seppos + 1).ToUpper + Case "SCALEX" : Drow.SCALEX = Line.Substring(Seppos + 1).ToUpper + Case "SCALEY" : Drow.SCALEY = Line.Substring(Seppos + 1).ToUpper + Case "BAKX" : Drow.BAKX = Line.Substring(Seppos + 1).ToUpper + Case "BAKY" : Drow.BAKY = Line.Substring(Seppos + 1).ToUpper + Case "BAKW" : Drow.BAKW = Line.Substring(Seppos + 1).ToUpper + Case "BAKH" : Drow.BAKH = Line.Substring(Seppos + 1).ToUpper + Case "VIEWIMAGE" : Drow.VIEWIMAGE = Line.Substring(Seppos + 1).ToUpper + Case "FILTER" : Drow.FILTER = Line.Substring(Seppos + 1).ToUpper + Case Else + 'dr = StyleList(CurIdx).PATTERNTABLE.NewRow + Dim stitle As String = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + Dim svalue As String = Line.Substring(Seppos + 1).ToUpper + 'StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + + Dim Nrow As PatternDS.TPatternRow = Common.PDS(CurIdx).TPattern.NewTPatternRow + Nrow.NAME = stitle ' PRow("") + Nrow.Val = svalue ' PRow("") + Common.PDS(CurIdx).TPattern.AddTPatternRow(Nrow) + + + End Select + Else + Findkey = Line.Trim("[").ToString.Trim("]").ToString + End If + End If + + Next + + Catch ex As Exception + f.Close() + MsgBox("Load Error " + vbCrLf + ex.Message, MsgBoxStyle.Critical, "Error") + End Try + + ' MsgBox(tyleList(CurIdx).Filter) + + 'Console.WriteLine("File Read : " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Restart() + + 'SR.Close() + 'FS.Close() + Dim CFile As New System.IO.FileInfo(FILENAME.ToLower.Replace("ini", "cfg")) + If CFile.Exists = False Then '//θ + AddLog(Admin, " Config ʽϴ. մϴ.", "\Alllog.txt") + Dim CfgIni As New MyINI2(CFile.FullName) + CfgIni.Write("printer", "MARGINX", Drow.MARGINX) + CfgIni.Write("printer", "MARGINY", Drow.MARGINY) + CfgIni.Write("printer", "PRINTFONTOFFSET", Drow.PRINTFONTOFFSET) + CfgIni.Write("printer", "SCALEX", Drow.SCALEX) + CfgIni.Write("printer", "SCALEY", Drow.SCALEY) + CfgIni.Write("printer", "PRINTBG", Drow.PRINTBG) + Else '// ҷ´ + AddLog(Admin, " Config ϹǷ ش ̿մϴ(" & CFile.FullName & ")", "\Alllog.txt") + Dim CfgIni As New MyINI2(CFile.FullName) + Drow.MARGINX = CfgIni.Read("printer", "MARGINX", 50) + Drow.MARGINY = CfgIni.Read("printer", "MARGINY", 50) + Drow.PRINTFONTOFFSET = CfgIni.Read("printer", "PRINTFONTOFFSET", 0) + Drow.SCALEX = CfgIni.Read("printer", "SCALEX", 1.5) + Drow.SCALEY = CfgIni.Read("printer", "SCALEY", 1.5) + Drow.PRINTBG = CfgIni.Read("printer", "PRINTBG", True) + End If + + ' Console.WriteLine("File Read 2: " + wat.ElapsedMilliseconds.ToString() + "ms") + ' wat.Restart() + + '//߰Ѵ. + CFile = New System.IO.FileInfo(FILENAME.ToLower.Replace("ini", "filter")) + If CFile.Exists = True Then '// ҷѴ. + Dim CfgIni As New MyINI2(CFile.FullName) + Drow.FILTER = CfgIni.Read("STYLE", "FILTER") + End If + + ' Console.WriteLine("File Read 3: " + wat.ElapsedMilliseconds.ToString() + "ms") + ' wat.Restart() + + '//XML̺ ȭ + 'Dim Drow As PatternDS.TStyleRow = Common.PDS(CurIdx).TStyle.NewTStyleRow + 'Drow.DESC = StyleList(CurIdx).Desc + 'Drow.BACKIMG = StyleList(CurIdx).Backimg + 'Drow.CANVASX = StyleList(CurIdx).CanvasX + 'Drow.CANVASY = StyleList(CurIdx).CanvasY + 'Drow.DUMMY = StyleList(CurIdx).Dummy + 'Drow.DUMMYCNT = StyleList(CurIdx).DummyCnt + 'Drow.DUMMYTYPE = StyleList(CurIdx).Dummytype + 'Drow.DUMMMYX = StyleList(CurIdx).dummmyx + 'Drow.DUMMMYY = StyleList(CurIdx).dummmyy + 'Drow.LANDSCAPE = StyleList(CurIdx).LandScape + 'Drow.MARGINX = StyleList(CurIdx).MarginX + 'Drow.MARGINY = StyleList(CurIdx).MarginY + 'Drow.PICSTYLE = StyleList(CurIdx).picstyle + 'Drow.PRINTFONTOFFSET = StyleList(CurIdx).PrintFontOffset + 'Drow.PRINTBG = StyleList(CurIdx).Printbg + 'Drow.SCALEX = StyleList(CurIdx).ScaleX + 'Drow.SCALEY = StyleList(CurIdx).ScaleY + 'Drow.BAKX = StyleList(CurIdx).bakx + 'Drow.BAKY = StyleList(CurIdx).baky + 'Drow.BAKW = StyleList(CurIdx).bakw + 'Drow.BAKH = StyleList(CurIdx).bakh + 'Drow.VIEWIMAGE = StyleList(CurIdx).Viewimage + 'Drow.FILE = StyleList(CurIdx).File + 'Drow.FILTER = StyleList(CurIdx).Filter + Common.PDS(CurIdx).TStyle.AddTStyleRow(Drow) '//⺻Ÿ ߰ + + + ' Console.WriteLine("File Read 4: " + wat.ElapsedMilliseconds.ToString() + "ms") + ' wat.Restart() + + '// ߰ϱ + 'For i As Integer = 1 To StyleList(CurIdx).PATTERNTABLE.Rows.Count + ' Dim PRow As DataRow = StyleList(CurIdx).PATTERNTABLE.Rows(i - 1) + ' Dim Nrow As PatternDS.TPatternRow = Common.PDS(CurIdx).TPattern.NewTPatternRow + ' Nrow.NAME = PRow("") + ' Nrow.Val = PRow("") + ' Common.PDS(CurIdx).TPattern.AddTPatternRow(Nrow) + 'Next + Common.PDS(CurIdx).TPattern.AcceptChanges() + + ' Console.WriteLine("File Read 5: " + wat.ElapsedMilliseconds.ToString() + "ms") + ' wat.Stop() + + f.Close() + f.Dispose() + Application.DoEvents() + + End Sub + + + Public Sub GetAllsection_INI_Backup(ByVal FILENAME As String, ByVal CurIdx As Short) + + 'Dim wat As New System.Diagnostics.Stopwatch + 'Dim FS As New System.IO.FileStream(FILENAME, IO.FileMode.Open) + 'Dim SR As New IO.StreamReader(FS, System.Text.Encoding.Default) + 'Dim Findkey As String = "" + 'Dim Line As String + 'Dim KeyPos As Integer = -1 + 'Dim Seppos As Integer = -1 + 'Dim dr As DataRow + + ''WLog2(Auto_Log, "getallSection : 系 ̺ ȱ.()", "\(̺)α.txt") + + 'StyleList(CurIdx).PATTERNTABLE = New DataTable + 'StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + 'StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + + ''//ʱⰪ + 'StyleList(CurIdx).Backimg = "" + 'StyleList(CurIdx).CanvasX = 292 + 'StyleList(CurIdx).CanvasY = 520 + 'StyleList(CurIdx).Desc = "⺻ɸ" + 'StyleList(CurIdx).dummmyx = 0 + 'StyleList(CurIdx).dummmyy = 50 + 'StyleList(CurIdx).Dummy = False + 'StyleList(CurIdx).Dummytype = 1 + 'StyleList(CurIdx).File = FILENAME + 'StyleList(CurIdx).IsXml = False + '' MsgBox(FILENAME) + + 'StyleList(CurIdx).Filter = "" + 'StyleList(CurIdx).LandScape = False + 'StyleList(CurIdx).MarginX = 50 + 'StyleList(CurIdx).MarginY = 50 + 'StyleList(CurIdx).picstyle = 1 + 'StyleList(CurIdx).PrintFontOffset = 0 + 'StyleList(CurIdx).ScaleX = 1.5 + 'StyleList(CurIdx).ScaleY = 1.5 + 'StyleList(CurIdx).Viewimage = False + + ''//XMl̺ ȭ(ͻ) + + 'Common.PDS(CurIdx).TStyle.Rows.Clear() + 'Common.PDS(CurIdx).TPattern.Rows.Clear() + + 'wat.Restart() + 'Console.WriteLine("File Read Ready") + + + ''// о &Ű = Ѵ. + 'While SR.Peek > -1 + ' Line = SR.ReadLine.ToUpper + + ' If Line <> "" Then + + ' If Findkey = "" Then '// õ Ű ٸ + ' If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString + ' Else '//õ Ű ִٸ ̺ ߰ش. + ' If Line.IndexOf("[") = -1 Then '//״ Ű ߰Ѵ. + ' Seppos = Line.IndexOf("=") + + ' Select Case Line.Substring(0, Seppos).ToUpper + ' Case "DESC" + ' If Findkey.ToUpper = "STYLE" Then + ' StyleList(CurIdx).Desc = Line.Substring(Seppos + 1).ToUpper + ' Else + ' dr = StyleList(CurIdx).PATTERNTABLE.NewRow + ' dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + ' dr(1) = Line.Substring(Seppos + 1).ToUpper + ' StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + ' End If + ' Case "FILE" 'StyleList(CurIdx).File = Line.Substring(Seppos + 1).ToUpper + ' Case "BACKIMG" : StyleList(CurIdx).Backimg = Line.Substring(Seppos + 1).ToUpper + ' Case "CANVASX" : StyleList(CurIdx).CanvasX = Line.Substring(Seppos + 1).ToUpper + ' Case "CANVASY" : StyleList(CurIdx).CanvasY = Line.Substring(Seppos + 1).ToUpper + ' Case "DUMMY" : StyleList(CurIdx).Dummy = Line.Substring(Seppos + 1).ToUpper + ' Case "DUMMYCNT" : StyleList(CurIdx).DummyCnt = Line.Substring(Seppos + 1).ToUpper + ' Case "DUMMYTYPE" : StyleList(CurIdx).Dummytype = Line.Substring(Seppos + 1).ToUpper + ' Case "DUMMMYX" : StyleList(CurIdx).dummmyx = Line.Substring(Seppos + 1).ToUpper + ' Case "DUMMMYY" : StyleList(CurIdx).dummmyy = Line.Substring(Seppos + 1).ToUpper + ' Case "LANDSCAPE" : StyleList(CurIdx).LandScape = Line.Substring(Seppos + 1).ToUpper + ' Case "MARGINX" : StyleList(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper + ' Case "MARGINY" : StyleList(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper + ' Case "PICSTYLE" : StyleList(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper + ' Case "PRINTFONTOFFSET" : StyleList(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper + ' Case "PRINTBG" : StyleList(CurIdx).Printbg = Line.Substring(Seppos + 1).ToUpper + ' Case "SCALEX" : StyleList(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper + ' Case "SCALEY" : StyleList(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper + ' Case "BAKX" : StyleList(CurIdx).bakx = Line.Substring(Seppos + 1).ToUpper + ' Case "BAKY" : StyleList(CurIdx).baky = Line.Substring(Seppos + 1).ToUpper + ' Case "BAKW" : StyleList(CurIdx).bakw = Line.Substring(Seppos + 1).ToUpper + ' Case "BAKH" : StyleList(CurIdx).bakh = Line.Substring(Seppos + 1).ToUpper + ' Case "VIEWIMAGE" : StyleList(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper + ' Case "FILTER" : StyleList(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper + ' Case Else + ' dr = StyleList(CurIdx).PATTERNTABLE.NewRow + ' dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + ' dr(1) = Line.Substring(Seppos + 1).ToUpper + ' StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + ' End Select + + + + ' Else + ' Findkey = Line.Trim("[").ToString.Trim("]").ToString + ' End If + ' End If + ' End If + 'End While + '' MsgBox(tyleList(CurIdx).Filter) + + 'Console.WriteLine("File Read : " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Restart() + + 'SR.Close() + 'FS.Close() + 'Dim CFile As New System.IO.FileInfo(FILENAME.ToLower.Replace("ini", "cfg")) + 'If CFile.Exists = False Then '//θ + ' AddLog(Admin, " Config ʽϴ. մϴ.", "\Alllog.txt") + ' Dim CfgIni As New MyINI2(CFile.FullName) + ' CfgIni.Write("printer", "MARGINX", StyleList(CurIdx).MarginX) + ' CfgIni.Write("printer", "MARGINY", StyleList(CurIdx).MarginY) + ' CfgIni.Write("printer", "PRINTFONTOFFSET", StyleList(CurIdx).PrintFontOffset) + ' CfgIni.Write("printer", "SCALEX", StyleList(CurIdx).ScaleX) + ' CfgIni.Write("printer", "SCALEY", StyleList(CurIdx).ScaleY) + ' CfgIni.Write("printer", "PRINTBG", StyleList(CurIdx).Printbg) + 'Else '// ҷ´ + ' AddLog(Admin, " Config ϹǷ ش ̿մϴ(" & CFile.FullName & ")", "\Alllog.txt") + ' Dim CfgIni As New MyINI2(CFile.FullName) + ' StyleList(CurIdx).MarginX = CfgIni.Read("printer", "MARGINX", 50) + ' StyleList(CurIdx).MarginY = CfgIni.Read("printer", "MARGINY", 50) + ' StyleList(CurIdx).PrintFontOffset = CfgIni.Read("printer", "PRINTFONTOFFSET", 0) + ' StyleList(CurIdx).ScaleX = CfgIni.Read("printer", "SCALEX", 1.5) + ' StyleList(CurIdx).ScaleY = CfgIni.Read("printer", "SCALEY", 1.5) + ' StyleList(CurIdx).Printbg = CfgIni.Read("printer", "PRINTBG", True) + 'End If + + 'Console.WriteLine("File Read 2: " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Restart() + + ''//߰Ѵ. + 'CFile = New System.IO.FileInfo(FILENAME.ToLower.Replace("ini", "filter")) + 'If CFile.Exists = True Then '// ҷѴ. + ' Dim CfgIni As New MyINI2(CFile.FullName) + ' StyleList(CurIdx).Filter = CfgIni.Read("STYLE", "FILTER") + 'End If + + 'Console.WriteLine("File Read 3: " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Restart() + + ''//XML̺ ȭ + 'Dim Drow As PatternDS.TStyleRow = Common.PDS(CurIdx).TStyle.NewTStyleRow + 'Drow.DESC = StyleList(CurIdx).Desc + 'Drow.BACKIMG = StyleList(CurIdx).Backimg + 'Drow.CANVASX = StyleList(CurIdx).CanvasX + 'Drow.CANVASY = StyleList(CurIdx).CanvasY + 'Drow.DUMMY = StyleList(CurIdx).Dummy + 'Drow.DUMMYCNT = StyleList(CurIdx).DummyCnt + 'Drow.DUMMYTYPE = StyleList(CurIdx).Dummytype + 'Drow.DUMMMYX = StyleList(CurIdx).dummmyx + 'Drow.DUMMMYY = StyleList(CurIdx).dummmyy + 'Drow.LANDSCAPE = StyleList(CurIdx).LandScape + 'Drow.MARGINX = StyleList(CurIdx).MarginX + 'Drow.MARGINY = StyleList(CurIdx).MarginY + 'Drow.PICSTYLE = StyleList(CurIdx).picstyle + 'Drow.PRINTFONTOFFSET = StyleList(CurIdx).PrintFontOffset + 'Drow.PRINTBG = StyleList(CurIdx).Printbg + 'Drow.SCALEX = StyleList(CurIdx).ScaleX + 'Drow.SCALEY = StyleList(CurIdx).ScaleY + 'Drow.BAKX = StyleList(CurIdx).bakx + 'Drow.BAKY = StyleList(CurIdx).baky + 'Drow.BAKW = StyleList(CurIdx).bakw + 'Drow.BAKH = StyleList(CurIdx).bakh + 'Drow.VIEWIMAGE = StyleList(CurIdx).Viewimage + 'Drow.FILE = StyleList(CurIdx).File + 'Drow.FILTER = StyleList(CurIdx).Filter + 'Common.PDS(CurIdx).TStyle.AddTStyleRow(Drow) '//⺻Ÿ ߰ + + 'Console.WriteLine("File Read 4: " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Restart() + + ''// ߰ϱ + 'For i As Integer = 1 To StyleList(CurIdx).PATTERNTABLE.Rows.Count + ' Dim PRow As DataRow = StyleList(CurIdx).PATTERNTABLE.Rows(i - 1) + ' Dim Nrow As PatternDS.TPatternRow = Common.PDS(CurIdx).TPattern.NewTPatternRow + ' Nrow.NAME = PRow("") + ' Nrow.Val = PRow("") + ' Common.PDS(CurIdx).TPattern.AddTPatternRow(Nrow) + 'Next + 'Common.PDS(CurIdx).TPattern.AcceptChanges() + + 'Console.WriteLine("File Read 5: " + wat.ElapsedMilliseconds.ToString() + "ms") + 'wat.Stop() + + End Sub + + Public Function GetSpread(ByRef dv As DataView, ByVal row As Integer, ByVal col As Integer) As String + Try + If row >= dv.Count Then Return String.Empty + Return dv(row)(col).ToString.Trim + 'Return Me.CustFP1_Sheet1.Cells(row, col).Value.ToString + Catch ex As Exception + Return "" + End Try + End Function + Public Function GetSpread1(ByRef dv As DataView, ByVal col As Integer) As String 'QR QR + Try + Return dv(col).ToString.Trim + 'Return Me.CustFP1_Sheet1.Cells(row, col).Value.ToString + Catch ex As Exception + Return "" + End Try + End Function + Public Function GetSpread(ByRef dv As DataView, ByVal row As Integer, ByVal colname As String) As String + Try + If row >= dv.Count Then Return String.Empty + Return dv(row)(colname).ToString.Trim + 'Return Me.CustFP1_Sheet1.Cells(row, col).Value.ToString + Catch ex As Exception + Return "" + End Try + End Function + + Public Sub WLog(ByVal msg As String, ByVal fname As String) + '//α׸ մϴ. + Dim FD As String = My.Application.Info.DirectoryPath & "\LOG" + If Not Directory.Exists(FD) Then Directory.CreateDirectory(FD) + Dim FS As FileStream = New FileStream(FD & fname, FileMode.Append) + Dim SW As StreamWriter = New StreamWriter(FS, System.Text.Encoding.Default) + SW.WriteLine(Now.TimeOfDay.ToString & ":" & msg) + SW.Flush() + SW.Close() + FS.Close() + End Sub + Public Sub WLog2(ByVal enable As Boolean, ByVal msg As String, ByVal fname As String) + '//α׸ մϴ. + If Not enable Then Return + Dim FD As String = My.Application.Info.DirectoryPath & "\LOG" + If Not Directory.Exists(FD) Then Directory.CreateDirectory(FD) + Dim FS As FileStream = New FileStream(FD & fname, FileMode.Append) + Dim SW As StreamWriter = New StreamWriter(FS, System.Text.Encoding.Default) + SW.WriteLine(Now.TimeOfDay.ToString & ":" & msg) + SW.Flush() + SW.Close() + FS.Close() + End Sub + Public Sub Log(ByVal msg As String) + '//α׸ մϴ. + Dim FD As String = My.Application.Info.DirectoryPath & "\LOG" + If Not Directory.Exists(FD) Then Directory.CreateDirectory(FD) + Dim FS As FileStream = New FileStream(FD & "\log.txt", FileMode.Append) + Dim SW As StreamWriter = New StreamWriter(FS, System.Text.Encoding.Default) + SW.WriteLine(Now.TimeOfDay.ToString & ":" & msg) + SW.Flush() + SW.Close() + FS.Close() + End Sub + +End Module +Class XML + Public Shared Sub SavePatterN(ByVal index As Short, ByVal name As String, ByVal val As String) + '// õϴµ Ͱ ٸ ߰ ϰѴ. + Dim Dr() As DataRow = Common.PDS(index).TPattern.Select("='" & name & "'") + If Dr.GetUpperBound(0) < 1 Then + Dim NDR As PatternDS.TPatternRow = Common.PDS(index).TPattern.NewTPatternRow + NDR.NAME = name + NDR.Val = val + Else + Dr(0)("") = val + End If + End Sub + Public Shared Sub SaveChkBox(ByVal index As Short, ByVal name As String, ByVal val As Boolean) + '// õϴµ Ͱ ٸ ߰ ϰѴ. + Dim Dr() As DataRow = Common.PDS(index).TCheckBox.Select("name='" & name & "'") + If Dr.GetUpperBound(0) < 1 Then + Dim NDR As PatternDS.TCheckBoxRow = Common.PDS(index).TCheckBox.NewTCheckBoxRow + NDR.Name = name + NDR.Val = val + Else + Dr(0)("val") = val + End If + End Sub + +End Class \ No newline at end of file diff --git a/Epole/ETCLOGIN.Designer.vb b/Epole/ETCLOGIN.Designer.vb new file mode 100644 index 0000000..3fd0886 --- /dev/null +++ b/Epole/ETCLOGIN.Designer.vb @@ -0,0 +1,80 @@ + _ +Partial Class ETCLOGIN + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 PasswordTextBox As System.Windows.Forms.TextBox + Friend WithEvents OK As System.Windows.Forms.Button + Friend WithEvents Cancel As System.Windows.Forms.Button + + 'Windows Form 디자이너에 필요합니다. + Private components As System.ComponentModel.IContainer + + '참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다. + '수정하려면 Windows Form 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.PasswordTextBox = New System.Windows.Forms.TextBox + Me.OK = New System.Windows.Forms.Button + Me.Cancel = New System.Windows.Forms.Button + Me.SuspendLayout() + ' + 'PasswordTextBox + ' + Me.PasswordTextBox.Location = New System.Drawing.Point(21, 12) + Me.PasswordTextBox.Name = "PasswordTextBox" + Me.PasswordTextBox.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42) + Me.PasswordTextBox.Size = New System.Drawing.Size(220, 21) + Me.PasswordTextBox.TabIndex = 3 + ' + 'OK + ' + Me.OK.Location = New System.Drawing.Point(21, 39) + Me.OK.Name = "OK" + Me.OK.Size = New System.Drawing.Size(94, 23) + Me.OK.TabIndex = 4 + Me.OK.Text = "확인(&O)" + ' + 'Cancel + ' + Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Cancel.Location = New System.Drawing.Point(147, 39) + Me.Cancel.Name = "Cancel" + Me.Cancel.Size = New System.Drawing.Size(94, 23) + Me.Cancel.TabIndex = 5 + Me.Cancel.Text = "취소(&C)" + ' + 'ETCLOGIN + ' + Me.AcceptButton = Me.OK + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.CancelButton = Me.Cancel + Me.ClientSize = New System.Drawing.Size(258, 78) + Me.Controls.Add(Me.Cancel) + Me.Controls.Add(Me.OK) + Me.Controls.Add(Me.PasswordTextBox) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "ETCLOGIN" + Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "암호입력" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + +End Class diff --git a/Epole/ETCLOGIN.resx b/Epole/ETCLOGIN.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/ETCLOGIN.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/ETCLOGIN.vb b/Epole/ETCLOGIN.vb new file mode 100644 index 0000000..d6a9c0b --- /dev/null +++ b/Epole/ETCLOGIN.vb @@ -0,0 +1,51 @@ +Public Class ETCLOGIN + + ' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다 + ' (자세한 내용은 http://go.microsoft.com/fwlink/?LinkId=35339 참조). + ' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다. + ' My.User.CurrentPrincipal = CustomPrincipal + ' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다. + ' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의 + ' ID 정보를 반환합니다. + Public PASS As String + + Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click + If Me.PasswordTextBox.Text = "gorhkd" & Format(Now, "yyyyMMdd") Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + Else + MsgBox("암호가 일치하지 않습니다", MsgBoxStyle.Critical, "확인") + Me.PasswordTextBox.Focus() + Me.PasswordTextBox.SelectAll() + End If + End Sub + + Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Close() + End Sub + + Private Sub PasswordTextBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PasswordTextBox.KeyDown + If e.KeyCode = Keys.Enter Then + + ' MsgBox("gorhkd" & Format(Now, "yyyyMMdd")) + If Me.PasswordTextBox.Text = "gorhkd" & Format(Now, "yyyyMMdd") Then + + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Close() + Else + MsgBox("암호가 일치하지 않습니다", MsgBoxStyle.Critical, "확인") + Me.PasswordTextBox.Focus() + Me.PasswordTextBox.SelectAll() + End If + End If + End Sub + + Private Sub PasswordTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordTextBox.TextChanged + + End Sub + + Private Sub ETCLOGIN_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + End Sub +End Class diff --git a/Epole/Form_Work.Designer.vb b/Epole/Form_Work.Designer.vb new file mode 100644 index 0000000..8ecfe6e --- /dev/null +++ b/Epole/Form_Work.Designer.vb @@ -0,0 +1,66 @@ + _ +Partial Class Form_Work + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 diff --git a/Epole/Form_Work.resx b/Epole/Form_Work.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/Form_Work.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/Form_Work.vb b/Epole/Form_Work.vb new file mode 100644 index 0000000..5b1484c --- /dev/null +++ b/Epole/Form_Work.vb @@ -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 \ No newline at end of file diff --git a/Epole/Frm_Main.Designer.vb b/Epole/Frm_Main.Designer.vb new file mode 100644 index 0000000..264665a --- /dev/null +++ b/Epole/Frm_Main.Designer.vb @@ -0,0 +1,970 @@ + _ +Partial Class Frm_Main + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Main)) + 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 ButtonCellType2 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_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.IreaDataSet1 = New EpoleNet.ireaDataSet() + 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.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.BT1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.BT11 = New System.Windows.Forms.ToolStripMenuItem() + Me.BT12 = New System.Windows.Forms.ToolStripMenuItem() + Me.BT2 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt5 = New System.Windows.Forms.ToolStripButton() + Me.bt6 = New System.Windows.Forms.ToolStripButton() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_savecolsize = 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.mbt_writeauth = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.mb_exit = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_others = New System.Windows.Forms.ToolStripMenuItem() + Me.mbt_oldttonew = New System.Windows.Forms.ToolStripMenuItem() + Me.mbt_xlssync = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_help = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_aa = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_howto = New System.Windows.Forms.ToolStripMenuItem() + Me.view1 = New NewFp() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TA_Main = New EpoleNet.ireaDataSetTableAdapters.MainTableTableAdapter() + Me.TA_JUNJU = New EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter() + Me.TA_ETC = New EpoleNet.ireaDataSetTableAdapters.EtcTableTableAdapter() + Me.TA_JIJUNG = New EpoleNet.ireaDataSetTableAdapters.jjungtableTableAdapter() + Me.TA_Cable2 = New EpoleNet.ireaDataSetTableAdapters.Detail_Cable2TableAdapter() + Me.TA_CableLabel = New EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter() + Me.TA_Cable = New EpoleNet.ireaDataSetTableAdapters.Detail_CableTableAdapter() + Me.TA_Deung = New EpoleNet.ireaDataSetTableAdapters.Detail_DeungTableAdapter() + Me.TA_Karo = New EpoleNet.ireaDataSetTableAdapters.Detail_karoTableAdapter() + Me.TA_Kiki = New EpoleNet.ireaDataSetTableAdapters.Detail_kikiTableAdapter() + Me.StatusStrip1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + 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.EpoleNet.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_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 580) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1277, 22) + Me.StatusStrip1.TabIndex = 15 + Me.StatusStrip1.Text = "StatusStrip1" + ' + '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(32, 32) + 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, 541) + 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(1277, 39) + Me.bn.TabIndex = 17 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "maintable" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Filter = "" + Me.bs.Sort = "날짜 DESC,id asc" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(29, 36) + Me.ToolStripLabel1.Text = "/{0}" + Me.ToolStripLabel1.ToolTipText = "전체 항목 수" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(36, 36) + Me.ToolStripButton2.Text = "처음으로 이동" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(36, 36) + Me.ToolStripButton3.Text = "이전으로 이동" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + '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, 39) + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(36, 36) + Me.ToolStripButton4.Text = "다음으로 이동" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(36, 36) + Me.ToolStripButton5.Text = "마지막으로 이동" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(95, 36) + Me.ToolStripButton6.Text = "줄삭제(&D)" + Me.ToolStripButton6.ToolTipText = "현재 선퇙된 줄을 삭제합니다.(이것은 SHIFT+DELETE)와 같습니다" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton7.Text = "변경내용저장(&S)" + Me.ToolStripButton7.ToolTipText = "변경된 내용을 데이터베이스에 저장합니다" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.Size = New System.Drawing.Size(132, 36) + Me.ToolStripButton8.Text = "변경내용취소(&C)" + Me.ToolStripButton8.ToolTipText = "변경된 내용을 모두 취소합니다" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 39) + ' + '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.EpoleNet.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(140, 36) + Me.bt_close.Text = "프로그램종료(&X)" + Me.bt_close.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(40, 40) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_find, Me.ToolStripSeparator8, Me.BT1, Me.BT2, Me.bt5, Me.bt6}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 24) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1277, 47) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(114, 44) + Me.bt_find.Text = "목록갱신(&F)" + Me.bt_find.ToolTipText = "데이터베이스의 내용을 다시 조회합니다" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 47) + ' + 'BT1 + ' + Me.BT1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BT11, Me.BT12}) + Me.BT1.Image = Global.EpoleNet.My.Resources.Resources.splay_32 + Me.BT1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.BT1.Name = "BT1" + Me.BT1.Size = New System.Drawing.Size(134, 44) + Me.BT1.Text = "가공번호찰(&1)" + Me.BT1.ToolTipText = "새로운 가공번호찰을 제작합니다" + ' + 'BT11 + ' + Me.BT11.Name = "BT11" + Me.BT11.Size = New System.Drawing.Size(170, 22) + Me.BT11.Text = "일반번호찰" + ' + 'BT12 + ' + Me.BT12.Name = "BT12" + Me.BT12.Size = New System.Drawing.Size(170, 22) + Me.BT12.Text = "자동화기기 번호찰" + ' + 'BT2 + ' + Me.BT2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6, Me.ToolStripMenuItem5, Me.ToolStripMenuItem4}) + Me.BT2.Image = Global.EpoleNet.My.Resources.Resources.splay_32 + Me.BT2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.BT2.Name = "BT2" + Me.BT2.Size = New System.Drawing.Size(134, 44) + Me.BT2.Text = "지중번호찰(&2)" + Me.BT2.ToolTipText = "새로운 가공번호찰을 제작합니다" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(266, 22) + Me.ToolStripMenuItem3.Text = "일반번호찰" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(266, 22) + Me.ToolStripMenuItem6.Text = "지상기기 선로표시찰" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(266, 22) + Me.ToolStripMenuItem5.Text = "케이블 표시라벨" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(266, 22) + Me.ToolStripMenuItem4.Text = "맨홀용 선로표시찰 및 케이블 계통도" + ' + 'bt5 + ' + Me.bt5.Image = Global.EpoleNet.My.Resources.Resources.splay_32 + Me.bt5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt5.Name = "bt5" + Me.bt5.Size = New System.Drawing.Size(189, 44) + Me.bt5.Text = "중요및 고압수용번호찰(&3)" + Me.bt5.ToolTipText = "새로운 중요수용번호찰을 제작합니다" + ' + 'bt6 + ' + Me.bt6.Image = Global.EpoleNet.My.Resources.Resources.splay_32 + Me.bt6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt6.Name = "bt6" + Me.bt6.Size = New System.Drawing.Size(137, 44) + Me.bt6.Text = "정액등번호찰(&4)" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_savecolsize}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(159, 26) + ' + 'bt_savecolsize + ' + Me.bt_savecolsize.Name = "bt_savecolsize" + Me.bt_savecolsize.Size = New System.Drawing.Size(158, 22) + Me.bt_savecolsize.Text = "현재뷰상태저장" + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_programs, Me.bt_others, Me.bt_help}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(1277, 24) + Me.MenuStrip1.TabIndex = 20 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'bt_programs + ' + Me.bt_programs.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mbt_config, Me.mbt_writeauth, Me.ToolStripMenuItem1, Me.mb_exit}) + Me.bt_programs.Name = "bt_programs" + Me.bt_programs.Size = New System.Drawing.Size(43, 20) + Me.bt_programs.Text = "메뉴" + ' + 'mbt_config + ' + Me.mbt_config.Name = "mbt_config" + Me.mbt_config.Size = New System.Drawing.Size(150, 22) + Me.mbt_config.Text = "환경설정" + ' + 'mbt_writeauth + ' + Me.mbt_writeauth.Name = "mbt_writeauth" + Me.mbt_writeauth.Size = New System.Drawing.Size(150, 22) + Me.mbt_writeauth.Text = "인증번호 변경" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(147, 6) + ' + 'mb_exit + ' + Me.mb_exit.Name = "mb_exit" + Me.mb_exit.Size = New System.Drawing.Size(150, 22) + Me.mb_exit.Text = "종료" + ' + 'bt_others + ' + Me.bt_others.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mbt_oldttonew, Me.mbt_xlssync}) + Me.bt_others.Name = "bt_others" + Me.bt_others.Size = New System.Drawing.Size(91, 20) + Me.bt_others.Text = "기타프로그램" + Me.bt_others.Visible = False + ' + 'mbt_oldttonew + ' + Me.mbt_oldttonew.Name = "mbt_oldttonew" + Me.mbt_oldttonew.Size = New System.Drawing.Size(239, 22) + Me.mbt_oldttonew.Text = "구전산화번호 -> 신전산화번호" + ' + 'mbt_xlssync + ' + Me.mbt_xlssync.Name = "mbt_xlssync" + Me.mbt_xlssync.Size = New System.Drawing.Size(239, 22) + Me.mbt_xlssync.Text = "엑셀파일 동기화" + ' + 'bt_help + ' + Me.bt_help.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.bt_help.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_aa, Me.ToolStripMenuItem2, Me.bt_howto}) + Me.bt_help.Name = "bt_help" + Me.bt_help.Size = New System.Drawing.Size(55, 20) + Me.bt_help.Text = "도움말" + ' + 'bt_aa + ' + Me.bt_aa.Name = "bt_aa" + Me.bt_aa.Size = New System.Drawing.Size(146, 22) + Me.bt_aa.Text = "프로그램정보" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(143, 6) + ' + 'bt_howto + ' + Me.bt_howto.Enabled = False + Me.bt_howto.Name = "bt_howto" + Me.bt_howto.Size = New System.Drawing.Size(146, 22) + Me.bt_howto.Text = "사용설명서" + ' + '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.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.75!, 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(1, 73) + 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(1277, 464) + Me.view1.TabIndex = 18 + Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.SetActiveViewport(0, -1, -1) + ' + '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 + view1_Sheet1.ColumnCount = 16 + Me.view1_Sheet1.ActiveColumnIndex = -1 + 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.Cells.Get(0, 10).Value = "종류" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 11).Value = "시공자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).Value = "홈페이지" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 13).Value = "관리" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "관리1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 15).Value = "관리2" + 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! + ButtonCellType2.ButtonColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer)) + ButtonCellType2.ButtonColor2 = System.Drawing.SystemColors.ButtonFace + ButtonCellType2.Picture = CType(resources.GetObject("ButtonCellType2.Picture"), System.Drawing.Image) + Me.view1_Sheet1.Columns.Get(3).CellType = ButtonCellType2 + 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 = 39.0! + Me.view1_Sheet1.Columns.Get(4).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(4).CellType = DateTimeCellType1 + 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 = 55.0! + Me.view1_Sheet1.Columns.Get(5).AllowAutoSort = True + 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 = 79.0! + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(6).DataField = "비고" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(6).Label = "작업내용" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 63.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.ReadOnly = True + NumberCellType1.Separator = "," + NumberCellType1.ShowSeparator = True + Me.view1_Sheet1.Columns.Get(7).CellType = NumberCellType1 + 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 = 50.0! + CurrencyCellType1.Separator = "," + CurrencyCellType1.ShowCurrencySymbol = False + CurrencyCellType1.ShowSeparator = True + Me.view1_Sheet1.Columns.Get(8).CellType = CurrencyCellType1 + Me.view1_Sheet1.Columns.Get(8).DataField = "단가" + 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 = 40.0! + CurrencyCellType2.Separator = "," + CurrencyCellType2.ShowCurrencySymbol = False + CurrencyCellType2.ShowSeparator = True + Me.view1_Sheet1.Columns.Get(9).CellType = CurrencyCellType2 + Me.view1_Sheet1.Columns.Get(9).DataField = "금액" + Me.view1_Sheet1.Columns.Get(9).Formula = "RC[-2]*RC[-1]" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right + 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! + ComboBoxCellType1.ButtonAlign = FarPoint.Win.ButtonAlign.Right + ComboBoxCellType1.EditorValue = FarPoint.Win.Spread.CellType.EditorValue.ItemData + ComboBoxCellType1.ItemData = New String() {"0", "9", "1", "2", "3", "4", "6", "7", "8"} + ComboBoxCellType1.Items = New String() {"가공(일반)", "중요수용", "지중(일반)", "정액등", "가로등", "가공(기기)", "지중(맨홀표시찰및계통도)", "지중(케이블표시라벨)", "지중(기기표시찰)"} + Me.view1_Sheet1.Columns.Get(10).CellType = ComboBoxCellType1 + Me.view1_Sheet1.Columns.Get(10).DataField = "번호찰구분" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(10).Label = "종류" + Me.view1_Sheet1.Columns.Get(10).Locked = True + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 39.0! + Me.view1_Sheet1.Columns.Get(11).DataField = "시공자" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(11).Label = "시공자" + Me.view1_Sheet1.Columns.Get(11).Locked = True + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 63.0! + Me.view1_Sheet1.Columns.Get(12).DataField = "홈페이지" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(12).Label = "홈페이지" + Me.view1_Sheet1.Columns.Get(12).Locked = True + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 63.0! + Me.view1_Sheet1.Columns.Get(13).DataField = "관리" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(13).Label = "관리" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 63.0! + Me.view1_Sheet1.Columns.Get(14).DataField = "관리1" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(14).Label = "관리1" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 63.0! + Me.view1_Sheet1.Columns.Get(15).DataField = "관리2" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(15).Label = "관리2" + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 61.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 + ' + 'TA_Main + ' + Me.TA_Main.ClearBeforeFill = True + ' + 'TA_JUNJU + ' + Me.TA_JUNJU.ClearBeforeFill = True + ' + 'TA_ETC + ' + Me.TA_ETC.ClearBeforeFill = True + ' + 'TA_JIJUNG + ' + Me.TA_JIJUNG.ClearBeforeFill = True + ' + 'TA_Cable2 + ' + Me.TA_Cable2.ClearBeforeFill = True + ' + 'TA_CableLabel + ' + Me.TA_CableLabel.ClearBeforeFill = True + ' + 'TA_Cable + ' + Me.TA_Cable.ClearBeforeFill = True + ' + 'TA_Deung + ' + Me.TA_Deung.ClearBeforeFill = True + ' + 'TA_Karo + ' + Me.TA_Karo.ClearBeforeFill = True + ' + 'TA_Kiki + ' + Me.TA_Kiki.ClearBeforeFill = True + ' + 'Frm_Main + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(1277, 602) + Me.Controls.Add(Me.ToolStrip1) + 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 = "Frm_Main" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "제작목록" + 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.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + 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 IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents TA_Main As EpoleNet.ireaDataSetTableAdapters.MainTableTableAdapter + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents TA_JUNJU As EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + 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 TA_ETC As EpoleNet.ireaDataSetTableAdapters.etctableTableAdapter + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents TA_JIJUNG As EpoleNet.ireaDataSetTableAdapters.jjungtableTableAdapter + 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 ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt5 As System.Windows.Forms.ToolStripButton + 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 mbt_config As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents mb_exit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_others As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mbt_oldttonew As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mbt_xlssync As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents mbt_writeauth As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt6 As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_help As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_aa As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_howto As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BT1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents BT11 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BT12 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BT2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TA_Cable2 As EpoleNet.ireaDataSetTableAdapters.Detail_Cable2TableAdapter + Friend WithEvents TA_CableLabel As EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter + Friend WithEvents TA_Cable As EpoleNet.ireaDataSetTableAdapters.Detail_CableTableAdapter + Friend WithEvents TA_Deung As EpoleNet.ireaDataSetTableAdapters.Detail_DeungTableAdapter + Friend WithEvents TA_Karo As EpoleNet.ireaDataSetTableAdapters.Detail_karoTableAdapter + Friend WithEvents TA_Kiki As EpoleNet.ireaDataSetTableAdapters.Detail_kikiTableAdapter +End Class diff --git a/Epole/Frm_Main.resx b/Epole/Frm_Main.resx new file mode 100644 index 0000000..172df8b --- /dev/null +++ b/Epole/Frm_Main.resx @@ -0,0 +1,294 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAADyklEQVRYR72WSUsjQRTHxatbFBfEKCIK + atQxqIGADR48eBHUcUFQFA0i4oKIiiBIwAGhD3MUjbvR25gP4L7virvGfd8+RM17Bd10p6uTKJlp+NFV + r96r/z9Jve54EUK+DFzeLS0txq6uLmtPTw9BcIwxXGPVqMEMOgMF6urquLa2tqnJyUny9PREWVtbI+3t + 7X9g3YdVpwYzqAaK19bWcvBJbRMTE1R4enqaguPu7m5M0rJq1WAGWaB4TU0N19zcbLNarTJxwYDZbMZE + HateDWbQERQ3mUxcU1OTbXx8XBSfmZkRwRicA0z+wdpDDWZQCopXVVVx9fX1VPz5+ZnMzs4qwHhnZ6dn + DaB4RUUFB4fONjY2RkXm5uaY4FpHR4fnDKB4WVkZB7+7KL6wsECZn5+nCHPk5eWFtLa2uqShocFaXV0t + tquqeGlpKQeJttHRUbr54uIiZWlpSRw7xjBPyuvrq4gQW15eJnCexHZlipeUlHCVlZVUHIuxyBOgUbw3 + NjaiEG1XhXhhYSFXXl5Oxd/e3sjKyoqM1dVVBY7rankIrsGZQjHarjLxvLw8Dr5628jICHl/f6dPt/X1 + ddldAOcCjnnSuBQhDucKBelhFcVzc3O54uJiUXxzc5OysbGhepfCylED2lphwKegoGBqeHiYfHx8kK2t + LbK9vf0t3KmFn1hhQAtfPfn8/CS7u7tO2dnZYca/Amo5GtAVFRWR/f39/wJqKQxkZmbuDQ0NkYODg29x + eHjIjLPIz89XGNBGRkaaDQaDfXBwkBwdHTnl+PiYGXcXOPAKAz5Aenh4OJ+WlkZNnJycMDk9PXU6dwXm + 5+TkKAx4AxrAEBYWxqemptoHBgbI2dmZjPPzc9lYOneFNDc7O1tuwNFEaGgon5ycTE1cXFx4nKysLKUB + RxMhISF8YmKi3WKxkMvLS4+B+yUlJe2BhvxRzDIRHBzMx8fHUxNXV1fk+vpahDU3Go0uwf3gw5lhf+XL + SEBqIigoiI+Li7P39/eTm5sbJre3t/SekZGBxRbgtwq/ABOgB9ivYwG4RBOBgYF8TEwMNXF3d6eKXq/H + wp/ADxV0gBbArlP/QyKASQA1odFo+OjoaHtfXx+5v79nkpKSgkX0cLkLMyhFaiIgIICPioqiJh4eHmQ8 + Pj4SnU7neQOI1IS/vz8PT01qAkWlJCQk/BsDiNSEn58fHxERYe/t7RXFcazVasX2chdmUA2pCV9fXx4e + 3fbY2FiC4BiMie3lLsygMyQm0gFsKWwtRXu5CzPoCrjQBLYSthS2lqK93IN4/QUjgLsVXMNmNAAAAABJ + RU5ErkJggg== + + + + 560, 17 + + + 546, 65 + + + 691, 56 + + + 783, 17 + + + 660, 17 + + + 144, 56 + + + 253, 56 + + + 413, 56 + + + 17, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABcElEQVQ4T52RP2sCQRTE/TD5aoIBG1Pk + IHhNrGxiEwuFSCSmzNnf2eaEmIiiF3KBaPBsbLTQ4gTDZOft+i8WEh/8bnYeOwPHJgAkqtV7HOPc+RZ4 + f5dNwbFheGBUzWkFpVcclMinUrnjAqufFXz/WeHvwf264G+JFJTLJRrEcYwoGimijY5GI8TLpQTOrtw9 + mJWCYvGWBovFYstc63yHl1Zrg8nogkLhhgbT6Qye58L1PKWeVteV81qns5ncNRldkM/naTCZTBC8B0I/ + UErod868wzEZXZDLXdMgGo/N/yvlWbzZidfKMRldYNtZGgwGQ9QdB46i7jzBqfOslDtz/hryDQA7a1N0 + gWVd0iAMQ/hNPl1z7xmb3Mnex8dnKHcty6LogsxFhga9oC/w/4V+gJ5CVPYKdeZkMpLRBel0mgadbhe1 + 2sOWR1KTvaYjcExGF6RSKRq8tdtoNBoHcL8Lx2R0QTKZpPnXmMy24BQAJH4B0qBEm6dSDJUAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABh0lEQVQ4T6WSTUsCURSG76If52pmMRJY + CwPBIQJt48eiaaVtVAI3Co0wezcxWeoiRZzIkPykhWAItbJd0aLanM45d0YlIcgOvLz3uXOeC4LCsiwb + AxvGpgdg0yFXmKbJUC7P/xSaErqiWCwwVKuv0OvBWq5alTU+yG2xUygWQeTzeYZG4x1GI+CMxzJ1Ry7X + sMd4T018/rjNDrkim8kwdLsfMJkAXN9VFu0tU6+y90AmmwWRTqUYZjOA1r1cavVkV59CUMNQE9O59hyC + y4tddsgVhmEw3Ayl5LwkuNvYlEZ9H++SfN+eJ6CJbPt87JAr4rEYA0mDtxxn6HanmeTlTjPBfOsyhMPs + xOMxEJFIhGH6ZXEGzglMPy3oY/Ny9JB7yVEZHHJFOKwzkNx30rz00DmVy/TzjCOAY8NlPHvB0XUdRDC4 + x+DJkMsu+tfgkCt2AgEGlkr4r/wZ82yFvTM2TgBdofk1hk1G0/wgVEW1MaBguFVsVcEsmb7Je/ebokhW + FFvgQ/8IiG/vQQ/RNOn8sQAAAABJRU5ErkJggg== + + + + + AAEAAAD/////AQAAAAAAAAAEAQAAACZTeXN0ZW0uR2xvYmFsaXphdGlvbi5HcmVnb3JpYW5DYWxlbmRh + cgYAAAAGbV90eXBlEW1fY3VycmVudEVyYVZhbHVlD3R3b0RpZ2l0WWVhck1heBpDYWxlbmRhcittX2N1 + cnJlbnRFcmFWYWx1ZRVDYWxlbmRhcittX2lzUmVhZE9ubHkYQ2FsZW5kYXIrdHdvRGlnaXRZZWFyTWF4 + AwAAAAAAK1N5c3RlbS5HbG9iYWxpemF0aW9uLkdyZWdvcmlhbkNhbGVuZGFyVHlwZXMICAgBCAT+//// + K1N5c3RlbS5HbG9iYWxpemF0aW9uLkdyZWdvcmlhbkNhbGVuZGFyVHlwZXMBAAAAB3ZhbHVlX18ACAEA + AAD///////////////8A/////ws= + + + + 17, 17 + + + 147, 17 + + + 286, 17 + + + 436, 17 + + + 757, 56 + + + 17, 95 + + + 149, 95 + + + 252, 95 + + + 361, 95 + + + 458, 95 + + + 131 + + + + 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== + + + \ No newline at end of file diff --git a/Epole/Frm_Main.vb b/Epole/Frm_Main.vb new file mode 100644 index 0000000..820c73a --- /dev/null +++ b/Epole/Frm_Main.vb @@ -0,0 +1,700 @@ +Public Class Frm_Main + 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.KeyCode = Keys.F12 AndAlso e.Control Then + If ETCLOGIN.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.bt_others.Visible = True + IsPro = True + Else + IsPro = False + End If + End If + End Sub + + Private Sub MakeList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.view1.ASetting_Load(False) + 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.IreaDataSet1.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.IreaDataSet1.MainTable) + Me.TA_JUNJU.Update(Me.IreaDataSet1.jjutable) + Me.TA_ETC.Update(Me.IreaDataSet1.EtcTable) + Me.TA_JIJUNG.Update(Me.IreaDataSet1.jjungtable) + Me.TA_Cable2.Update(Me.IreaDataSet1.Detail_Cable2) + Me.TA_CableLabel.Update(Me.IreaDataSet1.Detail_CableLabel) + Me.TA_Cable.Update(Me.IreaDataSet1.Detail_Cable) + Me.TA_Deung.Update(Me.IreaDataSet1.Detail_Deung) + Me.TA_Karo.Update(Me.IreaDataSet1.Detail_karo) + Me.TA_Kiki.Update(Me.IreaDataSet1.Detail_kiki) + Me.IreaDataSet1.AcceptChanges() + NOTICE(Cnt & " Ͱ Ǿϴ", Color.Green, Me.lb_msg) + Catch ex As Exception + MsgBox("ͺ̽ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.bs.CancelEdit() + Me.IreaDataSet1.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.IreaDataSet1.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.IreaDataSet1.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 DRv As DataRowView = bs.Current + If DRv("id") <= 6 Then + MsgBox("õʹ ϴ", MsgBoxStyle.Information, "Ȯ") + Return + End If + + 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 + + CHk_Modify(False) + 'Me.bs.RemoveCurrent() '// Ѵ. + 'ּ̺ δ. + + Dim Cmd As New OleDbCommand("delete from ְ where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + Dim DelCnt As Integer = 0 + Select Case V_Type + Case 0 + 'Me.Text = "(Ϲ) " + Cmd = New OleDbCommand("delete from ּ where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + 'Me.TA_JUNJU.Fill(Me.IreaDataSet1.jjutable, DelIDX) + 'Me.PRB1.Minimum = 0 + 'If Me.IreaDataSet1.jjutable.Rows.Count > 0 Then + ' Me.PRB1.Maximum = Me.IreaDataSet1.jjutable.Rows.Count - 1 + ' Me.PRB1.Value = 0 + ' For Each Z As DataRow In Me.IreaDataSet1.jjutable.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) + Case 1 + 'Me.Text = "(Ϲ) " + Cmd = New OleDbCommand("delete from ߼ where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + Case 9 + 'Me.Text = "߿ " + Cmd = New OleDbCommand("delete from Ÿ where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + Case 2 + 'Me.Text = "׵ " + Cmd = New OleDbCommand("delete from Detail_Deung where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + + Case 4 + 'Me.Text = "() " + Cmd = New OleDbCommand("delete from ⼼ where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + Case 6 + 'Me.Text = "(Ȧǥװ뵵) " + Cmd = New OleDbCommand("delete from Detail_cable where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + + Case 7 + 'Me.Text = "(̺ǥö) " + Cmd = New OleDbCommand("delete from Detail_CableLabel where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + + + Case 8 + 'Me.Text = "(ǥ) " + + Cmd = New OleDbCommand("delete from Detail_Cable2 where id=" & DelIDX, Me.TA_JUNJU.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + + Case Else + 'Me.Text = "ȣ (" & & ")" + End Select + Display_Data() + End Sub + + Private Sub CustFP1_ButtonClicked(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles view1.ButtonClicked + Dim Active As Boolean = False + With Me.view1 + + If e.Column = .ColIndex2("׸") Then '//׸޴̴ + '//ȣ ׸ Ѵ. + If IsPro = False Then + MsgBox(" ̻ ϴ", MsgBoxStyle.Critical, "Ȯ") + Else + If .Cells("ȣ").Value = 0 Then '//ȣ 0 Ϲ 9 Ÿȣ + Dim A As New PicList(Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 0).Value) + A.MdiParent = Me.ParentForm + A.Show() + Else '// + NOTICE("׸ []ȣ մϴ", Color.Red, Me.lb_msg) + 'MsgBox(" ʴ Դϴ", MsgBoxStyle.Information, "Ȯ") + End If + End If + End If + End With + End Sub + + Private Sub view_detail() + CHk_Modify() '//濩θ f. Ѵ. 'qrڵ --Ϲݸ + + Dim Rowindex As Short = Me.view1.ActiveSheet.ActiveRow.Index + Dim ID, NAME, BIGO, DAN, V_DATE, si, hom, kwan, kwan1, kwan2 As String + Dim V_Type As Int16 = 0 + + + '//͸ ´. + 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 + + If Dr("ð") Is DBNull.Value Then + si = "" + Else + si = Dr("ð") '.Cells(Rowindex, 4).Value + End If + + If Dr("Ȩ") Is DBNull.Value Then + hom = "" + Else + hom = Dr("Ȩ") '.Cells(Rowindex, 4).Value + End If + + If Dr("") Is DBNull.Value Then + kwan = "" + Else + kwan = Dr("") '.Cells(Rowindex, 4).Value + End If + + If Dr("1") Is DBNull.Value Then + kwan1 = "" + Else + kwan1 = Dr("1") '.Cells(Rowindex, 4).Value + End If + + If Dr("2") Is DBNull.Value Then + kwan2 = "" + Else + kwan2 = Dr("2") '.Cells(Rowindex, 4).Value + End If + + + V_Type = (Me.view1.ActiveSheet.Cells(Rowindex, 10).Value) '//ȣ 0 Ϲ 9 Ÿȣ + 'MsgBox(V_Type) + + If V_Type = 0 Then '//Ϲݰȣ̴. + ' Dim A As New AddEpole(ID, V_DATE, NAME, BIGO, DAN, si, hom, kwan, kwan1, kwan2) + Dim A As New AddEpole(ID, V_DATE, NAME, BIGO, DAN, si, hom, kwan, kwan1, kwan2) + A.Show() + ElseIf V_Type = 9 Then '//Ÿȣ(μ ߿ǥ + Dim A As New AddEpoleETC(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 1 Then '//߹ȣ(μ ߿ǥ + Dim A As New AddEpoleJJ(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 2 Then '//׵ + Dim A As New AddEpoleDung(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 4 Then '// + Dim A As New AddEpolekiki(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 6 Then '//(̺) + Dim A As New AddEpoleCable(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 8 Then '//(̺) + Dim A As New AddEpoleCable2(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + ElseIf V_Type = 7 Then '//(̺ǥö) + Dim A As New AddEpoleCableLabel(ID, V_DATE, NAME, BIGO, DAN) + A.Show() + End If + 'If A.ShowDialog = Windows.Forms.DialogResult.OK Then Me.bt_find.PerformClick() + 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.IreaDataSet1.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.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Color.Red, Me.lb_msg) + Return + Else + Me.IreaDataSet1.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 + Delete_itm(True) + 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.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Color.Red, Me.lb_msg) + Return + Else + Me.IreaDataSet1.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 view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellClick + + End Sub + + Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() '//濩θ f. Ѵ. + Display_Data() + End Sub + + Private Sub ToolStripButton9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt5.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleETC(MaxId + 1) + f.MdiParent = Me.ParentForm + Select Case PoleEtcState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() ' If f.ShowDialog = Windows.Forms.DialogResult.OK Then Me.bt_find.PerformClick() + End Sub + + 'Private Function GetPAss2() As Boolean + ' If Admin Then Return True + ' Dim A As DialogResult = LoginForm2.ShowDialog + ' Dim TExt As String = LoginForm2.PasswordTextBox.Text + ' If A = Windows.Forms.DialogResult.OK Then + ' If TExt = "haegwang" Then + ' Return True + ' Else + ' Return False + ' End If + ' Else + ' Return False + ' End If + + 'End Function + + Private Sub bt_jongak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleDung(MaxId + 1) + 'f.MdiParent = Me.ParentForm + 'Select Case PoleEtcState.ToUpper 'picstate ini Ͽ ǵǾմ + ' Case "MAX" + ' f.WindowState = FormWindowState.Maximized + ' Case "MIN" + ' f.WindowState = FormWindowState.Minimized + ' Case Else + ' f.WindowState = FormWindowState.Normal + 'End Select + f.Show() ' If f.ShowDialog = Windows.Forms.DialogResult.OK Then Me.bt_find.PerformClick() + + 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_etcprog1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + 'XLSOldtonew.Show() + End Sub + + Private Sub bt_etcprog2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + XLSSync.Show() + End Sub + + Private Sub mbt_configStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_config.Click + Config.ShowDialog() + End Sub + + Private Sub mbt_oldttonew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_oldttonew.Click + ' If IsPro Then XLSOldtonew.Show() + End Sub + + Private Sub mbt_xlssync_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_xlssync.Click + If IsPro Then XLSSync.Show() + End Sub + + Private Sub mbt_writeauth_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_writeauth.Click + Dim auth As New MyAuth + + 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 + End Sub + + Private Sub bt_etc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt6.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleDung(MaxId + 1) + 'f.MdiParent = Me.ParentForm + 'Select Case PoleEtcState.ToUpper 'picstate ini Ͽ ǵǾմ + ' Case "MAX" + ' f.WindowState = FormWindowState.Maximized + ' Case "MIN" + ' f.WindowState = FormWindowState.Minimized + ' Case Else + ' f.WindowState = FormWindowState.Normal + 'End Select + f.Show() ' If f.ShowDialog = Windows.Forms.DialogResult.OK Then Me.bt_find.PerformClick() + End Sub + + Private Sub bt_aa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_aa.Click + AboutBox1.ShowDialog() + End Sub + + Private Sub BT11MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT11.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpole(MaxId + 1) + f.MdiParent = Me.ParentForm + Select Case PoleState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() 'Dialog() + ' If f.ShowDialog = Windows.Forms.DialogResult.OK Then Me.bt_find.PerformClick() + End Sub + + Private Sub BT12olStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT12.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpolekiki(MaxId + 1) + f.MdiParent = Me.ParentForm + Select Case PoleEtcState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() + End Sub + + Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleCable(MaxId + 1) + f.MdiParent = Me.ParentForm + + Select Case PoleState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() 'Dialog() + End Sub + + Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleCableLabel(MaxId + 1) + f.MdiParent = Me.ParentForm + + Select Case PoleState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() 'Dialog() + End Sub + + Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleJJ(MaxId + 1) + f.MdiParent = Me.ParentForm + + Select Case PoleState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() 'Dialog() + End Sub + + Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click + Dim A() As DataRow = Me.IreaDataSet1.MainTable.Select(vbNullString, "ID desc") + Dim MaxId As Integer + Try + MaxId = A(0)(0).ToString + Catch ex As Exception + MaxId = 0 + End Try + Dim f As New AddEpoleCable2(MaxId + 1) + f.MdiParent = Me.ParentForm + + Select Case PoleState.ToUpper 'picstate ini Ͽ ǵǾմ + Case "MAX" + f.WindowState = FormWindowState.Maximized + Case "MIN" + f.WindowState = FormWindowState.Minimized + Case Else + f.WindowState = FormWindowState.Normal + End Select + f.Show() 'Dialog() + End Sub +End Class \ No newline at end of file diff --git a/Epole/Log.Designer.vb b/Epole/Log.Designer.vb new file mode 100644 index 0000000..977e212 --- /dev/null +++ b/Epole/Log.Designer.vb @@ -0,0 +1,49 @@ + _ +Partial Class Log + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 diff --git a/Epole/Log.resx b/Epole/Log.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/Log.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/Log.vb b/Epole/Log.vb new file mode 100644 index 0000000..fef157d --- /dev/null +++ b/Epole/Log.vb @@ -0,0 +1,3 @@ +Public Class Log + +End Class \ No newline at end of file diff --git a/Epole/MsgForm.Designer.vb b/Epole/MsgForm.Designer.vb new file mode 100644 index 0000000..d551e4a --- /dev/null +++ b/Epole/MsgForm.Designer.vb @@ -0,0 +1,81 @@ + _ +Partial Class MsgForm + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 diff --git a/Epole/MsgForm.resx b/Epole/MsgForm.resx new file mode 100644 index 0000000..d9984cc --- /dev/null +++ b/Epole/MsgForm.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Epole/MsgForm.vb b/Epole/MsgForm.vb new file mode 100644 index 0000000..080a976 --- /dev/null +++ b/Epole/MsgForm.vb @@ -0,0 +1,17 @@ +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() <> Windows.Forms.DialogResult.OK Then + MsgBox("ҵǾϴ", MsgBoxStyle.Critical, "") + Else + Me.RichTextBox1.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText) + MsgBox("Ϸ", MsgBoxStyle.Information, "Ȯ") + End If + End Sub +End Class \ No newline at end of file diff --git a/Epole/My Project/Application.Designer.vb b/Epole/My Project/Application.Designer.vb new file mode 100644 index 0000000..d85f44a --- /dev/null +++ b/Epole/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18408 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + '참고: 자동으로 생성되므로 직접 이 파일을 수정하지 마십시오. 변경할 사항이 있거나 + ' 파일에서 빌드 오류가 발생하는 경우 프로젝트 디자이너로 + ' 이동([프로젝트 속성]으로 이동하거나 솔루션 탐색기에서 My Project 노드를 + ' 두 번 클릭)한 다음 [응용 프로그램] 탭에서 변경하십시오. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = false + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.EpoleNet.SplashScreen + End Sub + End Class +End Namespace diff --git a/Epole/My Project/Application.myapp b/Epole/My Project/Application.myapp new file mode 100644 index 0000000..397c114 --- /dev/null +++ b/Epole/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + SplashScreen + false + 1 + true + 0 + false + \ No newline at end of file diff --git a/Epole/My Project/AssemblyInfo.vb b/Epole/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..5dd152c --- /dev/null +++ b/Epole/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/Epole/My Project/Resources.Designer.vb b/Epole/My Project/Resources.Designer.vb new file mode 100644 index 0000000..0bd7946 --- /dev/null +++ b/Epole/My Project/Resources.Designer.vb @@ -0,0 +1,553 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.34014 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + '이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder + '클래스에서 자동으로 생성되었습니다. + '멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을 + '다시 실행하거나 VS 프로젝트를 다시 빌드하십시오. + ''' + ''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + ''' + _ + 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("EpoleNet.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + ''' 속성을 재정의합니다. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' (아이콘)과(와) 유사한 System.Drawing.Icon 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 diff --git a/Epole/My Project/Resources.resx b/Epole/My Project/Resources.resx new file mode 100644 index 0000000..e4eed5e --- /dev/null +++ b/Epole/My Project/Resources.resx @@ -0,0 +1,268 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\up_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\start.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stop_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\open_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\forwd_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\new_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\apps_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\up_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\opts_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\print_321.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Picasa .ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\edit_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\srch_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\skipb_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\redo_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\play_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\back_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\down_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\remov_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\confg_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\print_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\prtpv_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about_161.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\image_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ref_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cancl_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\down_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\smicn_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\back_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\back_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\excel.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\forwd_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cancl_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ref_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\smicn_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\prefs_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\down_24.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\skipf_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\lgicn_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\new_321.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\go_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\splay_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\calc_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\about_16.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\opts_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Epole/My Project/Settings.Designer.vb b/Epole/My Project/Settings.Designer.vb new file mode 100644 index 0000000..d6abb6a --- /dev/null +++ b/Epole/My Project/Settings.Designer.vb @@ -0,0 +1,84 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal 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 + + _ + Public ReadOnly Property ireaConnectionString() As String + Get + Return CType(Me("ireaConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.EpoleNet.My.MySettings + Get + Return Global.EpoleNet.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Epole/My Project/Settings.settings b/Epole/My Project/Settings.settings new file mode 100644 index 0000000..e60b407 --- /dev/null +++ b/Epole/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\irea.mdb</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\DataBase\irea.mdb + + + \ No newline at end of file diff --git a/Epole/My Project/app.manifest b/Epole/My Project/app.manifest new file mode 100644 index 0000000..5a90f2d --- /dev/null +++ b/Epole/My Project/app.manifest @@ -0,0 +1,11 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/Epole/My Project/licenses.licx b/Epole/My Project/licenses.licx new file mode 100644 index 0000000..f37a07d --- /dev/null +++ b/Epole/My Project/licenses.licx @@ -0,0 +1 @@ +FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457 diff --git a/Epole/MyAuth.vb b/Epole/MyAuth.vb new file mode 100644 index 0000000..89720bd --- /dev/null +++ b/Epole/MyAuth.vb @@ -0,0 +1,72 @@ +Imports MyControlOLEDBv2 + +Public Class MyAuth '//각종인증방법을 이용한다. + Public Function GetDateAuth(ByVal 만기일자 As Date) As Boolean '//날짜인증시 사용가능한지 + '//사용가능한 날짜인지 확인하고 만약 날짜정보가 없으면은 날짜를 setdataeauth 를 실행합니다 + '//인터넷에 연결되어있을시 현재 시간정보를 인터넷에서 받아온ㄷ + '//콘솔의 현재날짜가 설치된 날짜보다 더 뒤일경우 사용중지 + '//레지 파일의 기록날짜가 서로다를경우 사용중지 + '//레지,파일의 기록날짜가 동일하고 콘솔의 현재날짜가 기한을 넘지않았을경우에만 true 한다. + Dim isAvailable As Boolean = My.Computer.Network.IsAvailable '//인터넷사용여부 + Dim CurrentDate As Date + + If isAvailable Then '//인터넷에서 날짜정보를 가져온다 기록된 날짜와 오늘의 날짜를 확인한다. + Dim Itime As Date + Try + CurrentDate = Itime + Catch ex As Exception '//에러발생시 콘솔날짜로 세팅한다. + CurrentDate = Now + End Try + Else + MsgBox("인터넷사용불가") + CurrentDate = Now + End If + + If 만기일자 > CurrentDate Then Return False + Return True + End Function + + Public Sub SetAuth(ByVal Newkey As String, ByVal Fn As String) + ' Dim auth As New ARINCLASS + Dim Arinini As New MyINI2(Fn) + Arinini.Write("main", "install", Newkey) + Arinini.Write("main", "installkey", Newkey.GetHashCode) + + Dim A As New System.Text.StringBuilder + A.AppendLine("인증정보가 파일에 기록되었습니다") + A.AppendLine("만기일 : " & Date.FromFileTimeUtc(Newkey)) + MsgBox(A.ToString, MsgBoxStyle.Information, "기록완료") + End Sub + + + ''' + ''' 미지원 함수 + ''' + ''' + ''' + Public Function SetDateAuth() As Boolean '//레지와 파일에 해당 인증정보를 기록합니다 + Return True + End Function + + ''' + ''' 미지원함수 + ''' + ''' + ''' + Public Function GetCurrentDate() As Date '//오늘날짜를 가져옵니다 + Return Now + End Function + + Public Function GetDateNumber(ByVal 시작일 As Date) As Long + Return 시작일.ToFileTimeUtc + End Function + + Public Function GetDateNumberEnc(ByVal 시작일 As Date) As String + Return 시작일.ToFileTimeUtc.ToString.GetHashCode '//날짜로 들어가면 날짜의 해쉬코드를 넘겨준다. + End Function + + Public Function GetDateNumberEnc(ByVal 시작일 As Long) As String + Return 시작일.ToString.GetHashCode + End Function + +End Class \ No newline at end of file diff --git a/Epole/MyINI.vb b/Epole/MyINI.vb new file mode 100644 index 0000000..e9ca3e4 --- /dev/null +++ b/Epole/MyINI.vb @@ -0,0 +1,287 @@ +Imports System.IO + +Public Class tinyIni + Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer + Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpDownFileName As String) As Integer + 'Private Aname As String + Public FileName As String = vbNullString + Private FileNameBuf As String + Private m_sPath As String + Private m_sKey As String + Private m_sSection As String + Private m_sDefault As String + Private m_lLastReturnCode As Integer + + Public Sub New(ByVal File As String) + FileName = File + FileNameBuf = File + Me.Create() + + 'MsgBox("New 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + + ' If Not System.IO.File.Exists(File) Then System.IO.File.Create(File) + End Sub + Public Sub Create() + If Exist() = True Then Return + Dim A As New IO.FileInfo(FileName) + A.Directory.Create() + Dim FS As IO.FileStream = A.Create() + Dim SW As New IO.StreamWriter(FS, System.Text.Encoding.Default) + SW.WriteLine("//Myini 로부터 자동생성된 파일입니다") + SW.WriteLine("//생성일자 : " & Now.ToString) + SW.Flush() + SW.Close() + FS.Close() + SW = Nothing + FS = Nothing + FileName = FileNameBuf + End Sub + Public Function Exist() As Boolean + Return System.IO.File.Exists(FileName) + End Function + + Public Function Read(ByVal appkey As String, ByVal subkey As String, Optional ByVal DefaultValue As String = vbNullString) As String '//변수초기화 + 'MsgBox("Read 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + + Dim tempstr As Integer 'ini파일에서 읽어온 값을 임시저장하는 변수 + Dim strtemp As String = New String(Chr(0), 2000) 'ini파일의 임시 변수 + Dim Tempbuf As String + + If Not Exist() Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "APP=" & appkey & vbCrLf & "subkey=" & subkey & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Critical, "Error") + Return vbNullString + End If + Try + tempstr = GetPrivateProfileString(appkey, subkey, "", strtemp, Len(strtemp), FileName) + Tempbuf = strtemp.Substring(0, tempstr) + Tempbuf = Tempbuf.Trim(Chr(0)) + + FileName = FileNameBuf + + If Tempbuf.Trim = vbNullString AndAlso DefaultValue <> vbNullString Then + Return DefaultValue + Else + Return Tempbuf + End If + Catch ex As Exception + FileName = FileNameBuf + Return vbNullString + End Try + + End Function + Public Function ReadFile(ByVal appkey As String, ByVal subkey As String, ByVal filename2 As String, Optional ByVal DefaultValue As String = vbNullString) As String '//변수초기화 + 'MsgBox("ReadFile 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + Dim tempstr As Integer 'ini파일에서 읽어온 값을 임시저장하는 변수 + Dim strtemp As String = New String(Chr(0), 2000) 'ini파일의 임시 변수 + Dim Tempbuf As String + + If Not System.IO.File.Exists(filename2) Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Critical, "Error") + Return vbNullString + End If + + Try + tempstr = GetPrivateProfileString(appkey, subkey, "", strtemp, Len(strtemp), filename2) + Tempbuf = strtemp.Substring(0, tempstr) + If Tempbuf.Trim = vbNullString AndAlso DefaultValue <> vbNullString Then + Return DefaultValue + Else + Return Tempbuf + End If + Catch ex As Exception + Return vbNullString + End Try + FileName = FileNameBuf + End Function + + Public Function Write(ByVal appkey As String, ByVal subkey As String, ByVal WriteVal As Object) As Integer + Dim RetVal As Integer + 'MsgBox("Write1 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + If Not Exist() Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "파일을 생성합니다." & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Information, "확인") + Me.Create() + End If + ' FileName = Aname + RetVal = (WritePrivateProfileString(appkey, subkey, WriteVal, FileName)) + FileName = FileNameBuf + Return RetVal + + End Function + Public Sub Write(ByVal appkey As String, ByVal subkey As String, ByVal WriteVal As Object, ByVal fileName2 As String) + 'MsgBox("Write2 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + If Not System.IO.File.Exists(fileName2) Then + MsgBox("[D] 환경파일이 존재하지 않습니다" & vbCrLf & "파일을 생성합니다." & vbCrLf & "파일명=" & fileName2, MsgBoxStyle.Information, "확인") + System.IO.File.Create(fileName2) + End If + WritePrivateProfileString(appkey, subkey, WriteVal, fileName2) + FileName = FileNameBuf + End Sub + + + + Public Sub EnumerateCurrentSection(ByRef sKey() As String, ByRef iCount As Integer) + Dim sSection As String + Dim iPos As Integer + Dim iNextPos As Integer + Dim sCur As String + + iCount = 0 + Erase sKey + sSection = INISection + If (Len(sSection) > 0) Then + iPos = 1 + iNextPos = InStr(iPos, sSection, Chr(0)) + Do While iNextPos <> 0 + sCur = Mid(sSection, iPos, iNextPos - iPos) + If (sCur <> Chr(0)) Then + iCount = iCount + 1 + 'UPGRADE_WARNING: sKey 배열의 하한이 1에서 0(으)로 변경되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"' + ReDim Preserve sKey(iCount) + sKey(iCount) = Mid(sSection, iPos, iNextPos - iPos) + iPos = iNextPos + 1 + iNextPos = InStr(iPos, sSection, Chr(0)) + End If + Loop + End If + End Sub + + + Public Sub GetAllsection(ByVal key As String, ByRef Section As ArrayList, ByRef Value As ArrayList) + Dim FS As New System.IO.FileStream(FileName, FileMode.Open) + Dim SR As New StreamReader(FS, System.Text.Encoding.Default) + Dim Findkey As String = "[" & key & "]" + Dim Line As String + Dim KeyPos As Integer = -1 + Dim Seppos As Integer = -1 + While SR.Peek > -1 + Line = SR.ReadLine + If KeyPos = -1 Then '//키를 못찻았으면 + If Line.ToUpper.IndexOf(Findkey.ToUpper) > -1 Then KeyPos = Line.ToUpper.IndexOf(Findkey.ToUpper) + Else '//찾앗으면 + If Line.IndexOf("[") = -1 Then '//그다음 키가 오기전까지 모두 추가한다. + Seppos = Line.IndexOf("=") + Section.Add(Line.Substring(0, Seppos)) + Value.Add(Line.Substring(Seppos + 1)) + Else + Exit While + End If + End If + End While + + SR.Close() + FS.Close() + + + End Sub + + Public Sub EnumerateAllSections(ByRef sSections() As String, ByRef iCount As Integer) + Dim sIniFile As String + Dim iPos As Integer + Dim iNextPos As Integer + Dim sCur As String + + iCount = 0 + Erase sSections + sIniFile = Sections + If (Len(sIniFile) > 0) Then + iPos = 1 + iNextPos = InStr(iPos, sIniFile, Chr(0)) + Do While iNextPos <> 0 + If (iNextPos <> iPos) Then + sCur = Mid(sIniFile, iPos, iNextPos - iPos) + iCount = iCount + 1 + 'UPGRADE_WARNING: sSections 배열의 하한이 1에서 0(으)로 변경되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"' + ReDim Preserve sSections(iCount) + sSections(iCount) = sCur + End If + iPos = iNextPos + 1 + iNextPos = InStr(iPos, sIniFile, Chr(0)) + Loop + End If + + End Sub + + Property INISection() As String + Get + Dim sBuf As String + Dim iSize As String + Dim iRetCode As Short + + sBuf = Space(8192) + iSize = CStr(Len(sBuf)) + iRetCode = GetPrivateProfileString(m_sSection, 0, m_sDefault, sBuf, CInt(iSize), m_sPath) + If (CDbl(iSize) > 0) Then + INISection = Left(sBuf, iRetCode) + Else + INISection = "" + End If + + End Get + Set(ByVal Value As String) + m_lLastReturnCode = WritePrivateProfileString(m_sSection, 0, Value, m_sPath) + End Set + End Property + ReadOnly Property Sections() As String + Get + Dim sBuf As String + Dim iSize As String + Dim iRetCode As Short + + sBuf = Space(8192) + iSize = CStr(Len(sBuf)) + iRetCode = GetPrivateProfileString(0, 0, m_sDefault, sBuf, CInt(iSize), m_sPath) + If (CDbl(iSize) > 0) Then + Sections = Left(sBuf, iRetCode) + Else + Sections = "" + End If + + End Get + End Property + + ReadOnly Property LastReturnCode() As Integer + Get + LastReturnCode = m_lLastReturnCode + End Get + End Property + ReadOnly Property Success() As Boolean + Get + Success = (m_lLastReturnCode <> 0) + End Get + End Property + 'UPGRADE_NOTE: Default이(가) Default_Renamed(으)로 업그레이드되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Property Default_Renamed() As String + Get + Default_Renamed = m_sDefault + End Get + Set(ByVal Value As String) + m_sDefault = Value + End Set + End Property + Property Path() As String + Get + Path = m_sPath + End Get + Set(ByVal Value As String) + m_sPath = Value + End Set + End Property + Property Key() As String + Get + Key = m_sKey + End Get + Set(ByVal Value As String) + m_sKey = Value + End Set + End Property + Property Section() As String + Get + Section = m_sSection + End Get + Set(ByVal Value As String) + m_sSection = Value + End Set + End Property + + +End Class \ No newline at end of file diff --git a/Epole/MyPath.vb b/Epole/MyPath.vb new file mode 100644 index 0000000..2dcbc9f --- /dev/null +++ b/Epole/MyPath.vb @@ -0,0 +1,35 @@ +Public Class MyPath + Public Shared Function Current() As String + Return My.Application.Info.DirectoryPath + End Function + Public Shared Function Windows() As String + Dim SYSTEMD As String = (System.Environment.GetFolderPath(Environment.SpecialFolder.System)) + Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(SYSTEMD) + Return DI.Parent.FullName + End Function + Public Shared Function System32() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.System).ToString + End Function + Public Shared Function Desktop() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + End Function + Public Shared Function DesktopPath() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + End Function + Public Shared Function Mycomputer() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer) + End Function + Public Shared Function Mydocument() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + End Function + Public Shared Function Programfiles() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) + End Function + Public Shared Function StartMenu() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu) + End Function + Public Shared Function StartUp() As String + Return System.Environment.GetFolderPath(Environment.SpecialFolder.Startup) + End Function + +End Class \ No newline at end of file diff --git a/Epole/NewFp.Designer.vb b/Epole/NewFp.Designer.vb new file mode 100644 index 0000000..1be86ba --- /dev/null +++ b/Epole/NewFp.Designer.vb @@ -0,0 +1,36 @@ + _ +Partial Class NewFp + Inherits FarPoint.Win.Spread.FpSpread + + 'UserControl1은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'NewFp + ' + Me.ActiveSheetIndex = -1 + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Epole/NewFp.resx b/Epole/NewFp.resx new file mode 100644 index 0000000..52a9ad3 --- /dev/null +++ b/Epole/NewFp.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/Epole/NewFp.vb b/Epole/NewFp.vb new file mode 100644 index 0000000..9f37988 --- /dev/null +++ b/Epole/NewFp.vb @@ -0,0 +1,1430 @@ +Public Class NewFp + Private V_enterToTab As Boolean = False + Private V_DeleteKey As Boolean = False + Private V_CurrentDel As Boolean = False + Private V_FIRSTINDEX As Integer = 0 + Private V_NextRowindex As Integer = -1 + Private A_Ubound As New ArrayList + Private V_SpaceEdit As Boolean = True + Private V_sameRHeight As Boolean = True + Private v_Checkbox_ColIndex As Int16 = -1 + Private v_ACellposLabel As ToolStripStatusLabel = Nothing + Private v_ACellImeLabel As ToolStripStatusLabel = Nothing + Private v_AMessageLabel As ToolStripStatusLabel = Nothing + Private v_AEditStatusLabel As ToolStripStatusLabel = Nothing + + Public ٰ() As String + Public ѱʵ() As String + Public ʵ As String + Public ⺻Ÿε As Short + + Private v_AAutoAddrowInLast As ToolStripButton = Nothing + 'Private V_AButtonAdd As ToolStripButton = Nothing '//߰ư + 'Private v_AButtonInsert As ToolStripButton = Nothing '//Թư + + Public Event Arin_DataChanged(ByVal sender As Object, ByVal Status As String) '//̻ + Public Event Arin_AddRow(ByVal sender As Object, ByVal Status As String) '//̻ + Public Event Arin_InsertRow(ByVal sender As Object, ByVal Status As String) '//̻ + Public Event Arin_AddLog(ByVal sender As Object, ByVal msg As String) + Public Event Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) '//Ű尡 Լ( keydown ߿ Ͼ) + Public Event Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) + + ' _ + ' Public Property AButtonAdd() As ToolStripButton + ' Get + ' Return Me.V_AButtonAdd + ' End Get + ' Set(ByVal value As ToolStripButton) + ' Me.V_AButtonAdd = value + ' End Set + 'End Property + + _ + Public Property AAutoAddrowInLast() As ToolStripButton + Get + Return Me.v_AAutoAddrowInLast + End Get + Set(ByVal value As ToolStripButton) + Me.v_AAutoAddrowInLast = value + End Set + End Property + + Private Sub Disp_Msg(ByVal msgstr As String) + If Not v_AMessageLabel Is Nothing Then + v_AMessageLabel.Text = "[޼] : " & msgstr & Space(1) & Now.ToString + v_AMessageLabel.ForeColor = Color.Green + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) + + End If + + End Sub + _ + Public Property AEditStatusLabel() As ToolStripStatusLabel + Get + Return Me.v_AEditStatusLabel + End Get + Set(ByVal value As ToolStripStatusLabel) + Me.v_AEditStatusLabel = value + End Set + End Property + _ + Public Property AMessageLabel() As ToolStripStatusLabel + Get + Return Me.v_AMessageLabel + End Get + Set(ByVal value As ToolStripStatusLabel) + Me.v_AMessageLabel = value + End Set + End Property + _ + Public Property ACellposLabel() As ToolStripStatusLabel + Get + Return Me.v_ACellposLabel + End Get + Set(ByVal value As ToolStripStatusLabel) + Me.v_ACellposLabel = value + End Set + End Property + + _ + Public Property ACellImeLabel() As ToolStripStatusLabel + Get + Return Me.v_ACellImeLabel + End Get + Set(ByVal value As ToolStripStatusLabel) + Me.v_ACellImeLabel = value + End Set + End Property + + _ + Public Property ACheckBox_ColIndex() As Int16 + Get + Return v_Checkbox_ColIndex + End Get + Set(ByVal value As Int16) + v_Checkbox_ColIndex = value + End Set + End Property + + _ + Public Property ASameRowheight() As Boolean + Get + Return V_sameRHeight + End Get + Set(ByVal value As Boolean) + V_sameRHeight = value + End Set + End Property + + + + _ + Public Property AEditFromSpace() As Boolean + Get + Return V_SpaceEdit + End Get + Set(ByVal value As Boolean) + V_SpaceEdit = value + End Set + End Property + + Public Sub ArinSearch() + Dim Frow, Fcol As Integer + Me.Search(Me.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ.", "˻ڸ Էϼ"), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + + ''' + ''' ߺ˻ƾ ϴ Լ + ''' + ''' + ''' + ''' + ''' + ''' + Private Function DupCheckBool(ByVal num1 As Integer, ByVal num2 As Integer, ByVal Source As ArrayList) As Boolean + If Source Is Nothing Then Return False + If Source.IndexOf(num1) >= 0 Then Return True + If Source.IndexOf(num2) >= 0 Then Return True + Return False + End Function + + + + ''' + ''' ߺ ͸ ˻մϴ. startindex = ٹȣ,endindex = ٹȣ, source ˻ ȣ, target ˻ ȣ + ''' ˻Ϸ ü ߺ մϴ. + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Function ADupCheck(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal CheckValue As Boolean = True, Optional ByVal As Short = -1, Optional ByVal As String = "", Optional ByVal PBar As ProgressBar = Nothing) As ArrayList + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim DupList As New ArrayList + Dim fcnt As Integer = 0 + + If Not PBar Is Nothing Then + PBar.Value = StartIndex + PBar.Minimum = StartIndex + PBar.Maximum = EndIndex + End If + For A As Integer = StartIndex To EndIndex + 'MsgBox(StartIndex & "/" & EndIndex) + + = "" + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + + If .ToString <> "" Then + For B As Integer = StartIndex To EndIndex + If A <> B AndAlso Not DupCheckBool(A, B, DupList) Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(B, T).Value + Next + 'MsgBox( & "/" & ) + + If .ToString = .ToString Then + 'MsgBox() + If DupList Is Nothing Then DupList = New ArrayList + DupList.Add(A) + DupList.Add(B) + + fcnt += 1 + If CheckColnum > -1 Then + Me.ActiveSheet.Cells(A, CheckColnum).Value = CheckValue + Me.ActiveSheet.Cells(B, CheckColnum).Value = CheckValue + End If + + If > -1 Then + Me.ActiveSheet.Cells(A, ).Value &= "[" & A + 1 & "/" & B + 1 & "]" & '//ϵÿ + Me.ActiveSheet.Cells(B, ).Value &= "[" & A + 1 & "/" & B + 1 & "]" & '//ϵÿ + End If + + End If + End If + Next + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return DupList + + 'NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Function + + Public Function ADupCheck2(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing) As Integer + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + If Not PBar Is Nothing Then + PBar.Value = StartIndex + PBar.Minimum = StartIndex + PBar.Maximum = EndIndex + End If + + For A As Integer = StartIndex To EndIndex + = "" + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + If .Trim.ToString <> "" Then + For B As Integer = StartIndex To EndIndex + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(B, T).Value + Next + If .Trim.ToString = .Trim.ToString Then + fcnt += 1 + If CheckColnum > -1 Then + Me.ActiveSheet.Cells(A, CheckColnum).Value = True + Me.ActiveSheet.Cells(B, CheckColnum).Value = True + End If + End If + End If + Next + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + 'NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Function + + + ''' + ''' ߺ˻ + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Function AdupCheckSR(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + Dim Can As Boolean = False + If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If + + For A As Integer = StartIndex To EndIndex + = "" : = "" + Can = False + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(A, T).Value + Next + + If .Trim.ToString <> "" Then + If TrueDirection = True Then + If .Trim.ToString = .Trim.ToString Then Can = True + Else + If .Trim.ToString <> .Trim.ToString Then Can = True + End If + If Can Then + fcnt += 1 + If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True + End If + + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + + End Function + + ''' + ''' ߺ˻ + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Function ADupCheckSr_inBlank(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + Dim Can As Boolean = False + If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If + + For A As Integer = StartIndex To EndIndex + = "" : = "" + Can = False + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Text + Next + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(A, T).Text + Next + + If TrueDirection = True Then + If .Trim.ToString = .Trim.ToString Then Can = True + Else + If .Trim.ToString <> .Trim.ToString Then Can = True + End If + + If Can Then + fcnt += 1 + If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True + End If + + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + + End Function + + ''' + ''' ġ ο ߰մϴ(ٿ ) + ''' + ''' + Public Sub AInsertNewRow() + If Not Me.Focused Then Me.Focus() + Me.ActiveSheet.Rows.Add(Me.ActiveSheet.ActiveRowIndex, 1) + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.AFirstColumn_Index) + End Sub + + ''' + ''' ο ߰մϴ(ٿ ) + ''' + ''' + Public Sub AAddNewRow() + If Not Me.Focused Then Me.Focus() + 'Me.ActiveSheet.RowCount += 1 + Me.ActiveSheet.Rows.Add(Me.ActiveSheet.RowCount, 1) + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, Me.AFirstColumn_Index) + SendKeys.Send("{UP}") + SendKeys.Send("{DOWN}") + End Sub + + ''' + ''' ο ߰մϴ.(ٿȵ) + ''' + ''' + Public Sub AAddNewRowU() + If Not Me.Focused Then Me.Focus() + Dim Idx As Integer + Me.ActiveSheet.AddUnboundRows(Me.ActiveSheet.RowCount, 1) + Idx = Me.ActiveSheet.RowCount - 1 + Me.ActiveSheet.Rows(Idx).Tag = "UNBOUND" + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, AFirstColumn_Index) + SendKeys.Send("{ENTER}") + End Sub + + _ + Public Property ANextRow_ColIndex() As Integer + Get + Return V_NextRowindex + End Get + Set(ByVal value As Integer) + V_NextRowindex = value + End Set + End Property + _ + Public Property AFirstColumn_Index() As Integer + Get + Return V_FIRSTINDEX + + End Get + Set(ByVal value As Integer) + V_FIRSTINDEX = value + End Set + End Property + + _ +Public Property ADeleteCell() As Boolean + Get + Return V_CurrentDel + + End Get + Set(ByVal value As Boolean) + V_CurrentDel = value + End Set + End Property + + _ + Public Property ADeleteRow() As Boolean + Get + Return V_DeleteKey + + End Get + Set(ByVal value As Boolean) + V_DeleteKey = value + End Set + End Property + + + ''' + ''' Ŀ ̵ ( ִ ʺ 0ΰ͵鿡ؼ + ''' + ''' + Public Sub ANext_Cell() + '//Ŀ ̵Ѵ. ʺ 0̰ų tabstop false ̸ ̵Ѵ. + Dim index As Integer = 0 +Start: + index += 1 + If Me.ActiveColumnindex + index >= Me.ActiveSheet.Columns.Count Then + RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] ȣ ̹Ƿ (翭ȣ/üīƮ:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) + If Me.ActiveRowindex = Me.ActiveSheet.RowCount - 1 Then '//ٿɷ ߰ + If Not Me.v_AAutoAddrowInLast Is Nothing Then v_AAutoAddrowInLast.PerformClick() + RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] ȣ ̹Ƿ ߰ؾ߰ڴ.(翭ȣ/üīƮ:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) + Else + RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] ȣ ̹Ƿ ٷΰҰ찰(翭ȣ/üīƮ:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) + Me.ANEXT_ROW() + End If + Return '//̶ ׳ + End If + + If Me.ActiveSheet.Columns(Me.ActiveColumnindex + index).Width = 0 Or Me.ActiveSheet.Columns(Me.ActiveColumnindex + index).TabStop = False Then + GoTo Start + End If + SendKeys.Send(vbTab) + 'Me.ActiveSheet.SetActiveCell(Me.ActiveRowindex, Me.ActiveColumnindex + index) + + 'If Me.ActiveSheet.ActiveRowIndex <> Me.ActiveSheet.RowCount - 1 Then '// ƴϸ + ' If Me.ActiveSheet.ActiveColumnIndex = Me.ANextRow_ColIndex OrElse Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '/̸ ÷ ̵ + ' 'SendKeys.Send("{TAB}") + ' MsgBox(Me.ActiveSheet.ActiveColumnIndex & "/" & Me.AFirstColumn_Index) + ' Me.ActiveSheet.ActiveRowIndex += 1 + ' Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + ' 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex + 1, V_FIRSTINDEX) + + ' Else + ' 'SendKeys.Send("{TAB}") + ' 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + ' 'Me.ActiveSheet.IsSelected(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + ' 'ME.ActiveSheet.SEL + ' If Me.ActiveSheet.Columns(Me.ActiveColumnindex + 1).Width = 0 Or Then + ' GoTo Start + ' Else + ' Me.ActiveSheet.ActiveColumnIndex += 1 + ' End If + + + ' End If + 'Else '//϶ + ' If Me.ActiveSheet.ActiveColumnIndex = Me.ANextRow_ColIndex OrElse Me.ActiveSheet.ActiveColumnIndex <> Me.ActiveSheet.ColumnCount - 1 Then '/̸ ÷ ̵ + ' 'Me.ActiveSheet.ActiveRowIndex += 1 + ' If Not Me.AAutoAddrowInLast Is Nothing Then + ' Me.AAutoAddrowInLast.PerformClick() + ' End If + ' Else + ' If Me.ActiveSheet.Columns(Me.ActiveColumnindex + 1).Width = 0 Then + ' GoTo Start + ' Else + ' Me.ActiveSheet.ActiveColumnIndex += 1 + ' End If + ' End If + + + Dim Ee As New FarPoint.Win.Spread.EnterCellEventArgs(Nothing, Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex) + NewFp_EnterCell(Nothing, Ee) '//Ŀ ͼ ߻Ƿ ߻ش. + 'End If + End Sub + + ''' + ''' Ŀ ̵ + ''' + ''' + Public Sub APrev_Cell() + If Me.ActiveSheet.ActiveRowIndex <> 0 Then '//ù ƴϸ + If Me.ActiveSheet.ActiveColumnIndex = 0 Then '/ù̸ ÷ ̵ + 'SendKeys.Send("{TAB}") + Me.ActiveSheet.ActiveRowIndex -= 1 + Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex + 1, V_FIRSTINDEX) + + Else + 'SendKeys.Send("{TAB}") + 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + 'Me.ActiveSheet.IsSelected(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + 'ME.ActiveSheet.SEL + Me.ActiveSheet.ActiveColumnIndex -= 1 + End If + Else + If Me.ActiveSheet.ActiveColumnIndex <> 0 Then '/ù ƴϸ + 'Me.ActiveSheet.ActiveRowIndex += 1 + Me.ActiveSheet.ActiveColumnIndex -= 1 '//ùε ȱ.⺻ 0̴. + End If + End If + End Sub + + ''' + ''' Ŀ ٷ ̵ + ''' + ''' + Public Sub ANEXT_ROW() + If Me.ActiveSheet.ActiveRowIndex <> (Me.ActiveSheet.RowCount - 1) Then '// ƴϸ + Me.ActiveSheet.ActiveRowIndex += 1 + Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + End If + Dim Ee As New FarPoint.Win.Spread.EnterCellEventArgs(Nothing, Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex) + NewFp_EnterCell(Nothing, Ee) '//Ŀ ͼ ߻Ƿ ߻ش. + End Sub + + ''' + ''' Ŀ ٷ ̵ + ''' + ''' + Public Sub APrev_ROW() + If Me.ActiveSheet.ActiveRowIndex <> 0 Then '//ù ƴϸ + Me.ActiveSheet.ActiveRowIndex -= 1 + Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + End If + End Sub + + ''' + ''' ٹȣϰų Է ȣ True մϴ.(üũڽ üũ뵵) + ''' + ''' + ''' + Public Sub ASelect(Optional ByVal Columnindex As Int16 = -1) + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If Columnindex = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then Columnindex = Me.ACheckBox_ColIndex '//ȿ մ + sheet.AutoFilterReset(Columnindex) + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, Columnindex).Value = True + Next + End Sub + + ''' + ''' ٹȣϰų Էµ ȣ FALSE մϴ..(üũڽ 뵵) + ''' + ''' + ''' + Public Sub AUnselect(Optional ByVal index As Int16 = -1) + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If index = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then index = Me.ACheckBox_ColIndex '//ȿ մ + sheet.AutoFilterReset(index) + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, index).Value = False + Next + End Sub + + ''' + ''' checkbox_colindexϰų Էµ ȣ ù ŵϴ.(üũڽ ) + ''' + ''' + ''' + Public Sub AReverse(Optional ByVal index As Int16 = -1) + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If index = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then index = ACheckBox_ColIndex '//ȿ մ + sheet.AutoFilterReset(index) + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, index).Value = IIf(sheet.Cells(i, index).Value = True, False, True) + Next + End Sub + + + ''' + ''' Էµ ٹȣ ±=ʵ ġϴ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal index As Integer, ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(index, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + ''' + ''' 缱õ ȣشϴ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal Columnindex As Integer, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + Return Me.Sheets(Sheetindex).Cells(Me.ActiveSheet.ActiveRowIndex, Columnindex) + Return RetVal + End Function + ''' + ''' 缱õ ȯմϴ + ''' + ''' + ''' + Public Function Cells() As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + Return Me.ActiveSheet.Cells(Me.ActiveRowindex, Me.ActiveColumnindex) + Return RetVal + End Function + + + ''' + ''' 翭ġ ȯ + ''' + ''' + ''' + ''' + Public Function CellsPR(Optional ByVal FirstrowValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell + If FirstrowValueisNothing AndAlso Me.ActiveRowindex = 0 Then Return Nothing + + If Me.ActiveRowindex = 0 Then + If FirstrowValueisNothing Then + Return Nothing + Else + Return Me.ActiveSheet.ActiveCell + End If + Else + Return Me.ActiveSheet.Cells(Me.ActiveRowindex - 1, Me.ActiveColumnindex) + End If + End Function + ''' + ''' ռ ȯ + ''' + ''' + ''' + ''' + Public Function CellsPC(Optional ByVal FirstColValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell + If FirstColValueisNothing AndAlso Me.ActiveColumnindex = 0 Then Return Nothing + + If Me.ActiveColumnindex = 0 Then + If FirstColValueisNothing Then + Return Nothing + Else + Return Me.ActiveSheet.ActiveCell + End If + Else + Return Me.ActiveSheet.Cells(Me.ActiveRowindex, Me.ActiveColumnindex - 1) + End If + End Function + ''' + ''' Էµ ±׿ ʵ尡 ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' Էµ ±׿ ʵ尡 ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function CellsR(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + Dim Rindex As Integer = Me.ActiveSheet.ActiveRowIndex : If Rindex > 0 Then Rindex -= 1 + + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(Rindex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' Էµ±(±״ ̺) ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function Cells2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + If SC.Label.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' Էµ±(±״ ̺) ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function Column2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Column + Dim RetVal As FarPoint.Win.Spread.Column = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + If SC.Label.ToUpper = Tag.ToString.ToUpper Then + Return SC + End If + Next + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function column2") + Return Nothing + End Function + + ''' + ''' ʵ巹̺ ġϴ ġ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + Public Function ColIndex2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As Integer + Dim RetVal As Integer = -1 + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + If SC.Label.ToUpper = Tag.ToString.ToUpper Then + RetVal = SC.Index + Exit For + End If + Next + If RetVal = -1 Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' ʵ ġϴ¿ ȣ ȯ + ''' + ''' + ''' + ''' + ''' + Public Function ColIndex(ByVal DataField As String, Optional ByVal Sheetindex As Integer = -1) As Integer + Dim RetVal As Integer = -1 + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + If SC.DataField.ToUpper = DataField.ToString.ToUpper Then + RetVal = SC.Index + Exit For + End If + Next + If RetVal = -1 Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' Էµ±(̺) ġϴ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + ''' + Public Function Cells2(ByVal RowIndex As Integer, ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + If SC.Label.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(RowIndex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column Label [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + + ''' + ''' ȯմϴ + ''' + ''' + ''' + Public Function GetProw() As FarPoint.Win.Spread.Row + If Me.ActiveSheet.ActiveRowIndex = 0 Then Return Me.ActiveSheet.ActiveRow + Return Me.ActiveSheet.Rows(Me.ActiveSheet.ActiveRowIndex - 1) + End Function + + ''' + ''' Ȱȭ ȯմϴ. + ''' + ''' + ''' + Public Function ActiveColumn() As FarPoint.Win.Spread.Column + Return Me.ActiveSheet.Columns(Me.ActiveColumnindex) + End Function + + ''' + ''' Ȱȭ ٹȣ ȯ + ''' + ''' + ''' + Public Function ActiveRowindex() As Integer + Return Me.ActiveSheet.ActiveRowIndex + End Function + ''' + ''' Ȱȭ ȣ ȯ + ''' + ''' + ''' + Public Function ActiveColumnindex() As Integer + Return Me.ActiveSheet.ActiveColumnIndex + End Function + + Public Sub AViewSetting_Load(ByVal ٰ As String, ByVal ѱʵ As String, ByVal ٿ̸ As String, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + '//Ķʹ ⺻̴ iniϿ ʾ Ѵ. + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & FN & "spread.INI") + Dim a As New tinyIni(File.FullName) + + If a.Exist = False Then Me.AViewSetting_Save(ٰ, ѱʵ, ٿ̸, Tag, FN) + + Dim , ѱ, As String + Dim v⺻Ÿε As Short + = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "prerowcopy", ٰ) + ѱ = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "hangulfield", ѱʵ) + = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "nextcolumn", ٿ̸) + v⺻Ÿε = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "defstyleindex", 0) + + Me.ٰ = .Split(",") + Me.ѱʵ = ѱ.Split(",") + Me.ʵ = + Me.⺻Ÿε = v⺻Ÿε + + End Sub + Public Sub AViewSetting_Save(ByVal ٰ As String, ByVal ѱʵ As String, ByVal ٿ̸ As String, ByVal ⺻Ÿε As Short, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + '//Ķʹ ⺻̴ iniϿ ʾ Ѵ. + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & FN & "spread.INI") + Dim a As New tinyIni(File.FullName) + If a.Exist = False Then a.Create() + a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "prerowcopy", ٰ) + a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "hangulfield", ѱʵ) + a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "nextcolumn", ٿ̸) + a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "defstyleindex", ⺻Ÿε) + + End Sub + + + ''' + ''' ʺ,̸(ɼ),͵ մϴ. + ''' + ''' + ''' + Public Sub ASetting_Save(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + ColSize_Save(Tag, FN) + If ColName Then ColName_Save(Tag, FN) + CurrentState_Save(Tag, FN) + AZOOM_Save(Tag, FN) + End Sub + ''' + ''' ʺ,̸(ɼ),͵ ҷɴϴ + ''' + ''' + ''' + Public Sub ASetting_Load(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + ColSize_Load(Tag, FN) + If ColName Then ColName_Load(Tag, FN) + CurrentState_Load(Tag, FN) + AZOOM_LOAD(Tag, FN) + End Sub + + ''' + ''' ʺ Spread.ini Ͽ մϴ. + ''' + ''' + Public Sub AZOOM_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New tinyIni(File.FullName) + a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", Me.ActiveSheet.ZoomFactor) + + End Sub + ''' + ''' ʺ Spread.ini Ϸ ҷɴϴ. + ''' + ''' + Public Sub AZOOM_LOAD(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New tinyIni(FILEname) + Me.ActiveSheet.ZoomFactor = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", 1) + + + + End Sub + ''' + ''' ʺ Spread.ini Ͽ մϴ. + ''' + ''' + Public Sub ColSize_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New tinyIni(File.FullName) + For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & z.Index.ToString, z.Width) + Next + End Sub + + ''' + ''' ʺ Spread.ini Ϸ ҷɴϴ. + ''' + ''' + Public Sub ColSize_Load(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New tinyIni(FILEname) + For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + col.Width = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & col.Index.ToString) + Catch ex As Exception '//쿡 Ƿ ׳ + + End Try + Next + End Sub + + Public Sub ColSize_Init() + For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + col.Width = 100 ' a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & col.Index.ToString) + Catch ex As Exception '//쿡 Ƿ ׳ + + End Try + Next + End Sub + + Public Sub ColName_Load(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New tinyIni(FILEname) + For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + col.Label = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & col.Index.ToString).ToString.Trim(Chr(0)) + Catch ex As Exception '//쿡 Ƿ ׳ + End Try + Next + End Sub + Public Sub ColName_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New tinyIni(File.FullName) + For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + a.Write(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & z.Index.ToString, z.Label) + Next + End Sub + + ''' + ''' [] :ٳ̸ + ''' + ''' + Public Sub CurrentState_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New tinyIni(File.FullName) + a.Write(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", Me.ActiveSheet.Rows.Default.Height) + End Sub + + ''' + ''' [] :ٳ̸ ҷ´.(spre.ini) + ''' + ''' + Public Sub CurrentState_Load(ByVal tag As String, ByVal fn As String) + Dim a As New tinyIni(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If Not a.Exist Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + CurrentState_Save(tag, fn) + a = Nothing + Return + End If + + '// Ҷ ҷ´. + Me.ActiveSheet.Rows.Default.Height = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", 20) + a = Nothing + End Sub + + Private Sub Delete_itm(Optional ByVal rowindex As Integer = -1, Optional ByVal prompt As Boolean = True) + Dim Commit As Boolean = True + Dim A As New System.Text.StringBuilder(" : ߽ϴ") + A.AppendLine() + A.AppendLine(" õ ˴ϴ") + A.AppendLine("Ͻðڽϱ?") + If prompt Then + If MsgBox(A.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, " ") <> MsgBoxResult.Ok Then Commit = False + End If + If Not Commit Then Return '//Ʈ Ҹ ÿ . + Me.ActiveSheet.ActiveRow.Remove() + End Sub + + Private Sub NewFp_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles Me.Change + If e.Column = Me.ACheckBox_ColIndex AndAlso Me.ActiveSheet.Cells(e.Row, Me.ACheckBox_ColIndex).Value = True Then '// + Me.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + Private Sub NewFp_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EditModeOff + RaiseEvent Arin_Before_EditModeOff(sender, e) '//䰡 after ߻̹Ƿ before ߻ ̺Ʈϳ ͱ۾ش. + + If Not Me.v_AEditStatusLabel Is Nothing Then '// Ǿִٸ + Me.v_AEditStatusLabel.Text = "[̵]" + Me.v_AEditStatusLabel.ForeColor = Color.Black + End If + '//ö ȣ ῭ȣ ٷ ѱ + If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//ٷΰl + RaiseEvent Arin_AddLog(Me, "editmode off and next_row") + Me.ANEXT_ROW() + Else + RaiseEvent Arin_AddLog(Me, "editmode off nextcell") + Me.ANext_Cell() + End If + End Sub + + Private Sub NewFp_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EditModeOn + RaiseEvent Arin_AddLog(Me, "editmode on") + If Not Me.v_AEditStatusLabel Is Nothing Then '// Ǿִٸ + Me.v_AEditStatusLabel.Text = "[]" + Me.v_AEditStatusLabel.ForeColor = Color.Red + End If + End Sub + + Private Sub NewFp_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter + + End Sub + + ''' + ''' ν. + ''' + ''' + ''' + ''' + Private Sub NewFp_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles Me.EnterCell + If Not Me.v_ACellposLabel Is Nothing Then + Me.v_ACellposLabel.Text = "[" & Me.ActiveSheet.ActiveRowIndex + 1 & ":" & Me.ActiveSheet.ActiveColumnIndex & "/" & Me.ActiveSheet.RowCount & "]" + End If + + ' Me.Text = Me.view1.ѱʵ.GetUpperBound(0) & "/" & Array.IndexOf(Me.view1.ѱʵ, .ActiveColumn.Label) + If Not Me.ѱʵ Is Nothing AndAlso Me.ѱʵ.GetUpperBound(0) >= 0 Then + If Array.IndexOf(Me.ѱʵ, Me.ActiveColumn.Label) >= 0 Then + Me.ImeMode = Windows.Forms.ImeMode.Hangul + Else + If Not Me.ActiveColumn.Tag Is Nothing Then + If Array.IndexOf(Me.ѱʵ, Me.ActiveColumn.Tag) >= 0 Then + Me.ImeMode = Windows.Forms.ImeMode.Hangul + Else + Me.ImeMode = Windows.Forms.ImeMode.Alpha + End If + Else + If Not Me.ActiveColumn.DataField Is Nothing Then + If Array.IndexOf(Me.ѱʵ, Me.ActiveColumn.DataField) >= 0 Then + Me.ImeMode = Windows.Forms.ImeMode.Hangul + Else + Me.ImeMode = Windows.Forms.ImeMode.Alpha + End If + Else + Me.ImeMode = Windows.Forms.ImeMode.Alpha + End If + End If + End If + End If + + + 'If Not Me.v_ACellImeLabel Is Nothing Then--̺κ Imemodechange ̺Ʈ ü̴ + ' If Me.ImeMode = Windows.Forms.ImeMode.Hangul Then + ' 'MsgBox("ѱ̴") + ' Me.v_ACellImeLabel.Text = ("[ѱ]") + ' Me.v_ACellImeLabel.ForeColor = Color.Blue + ' Else + ' ' MsgBox("Ϲκ") + ' Me.v_ACellImeLabel.Text = ("[Ϲ]") + ' Me.v_ACellImeLabel.ForeColor = Color.Black + ' End If + 'End If + End Sub + + Private Sub NewFp_ImeModeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ImeModeChanged + If Not Me.v_ACellImeLabel Is Nothing Then + If Me.ImeMode = Windows.Forms.ImeMode.Hangul Then + Me.v_ACellImeLabel.Text = ("[ѱ]") + Me.v_ACellImeLabel.ForeColor = Color.Blue + Else + Me.v_ACellImeLabel.Text = ("[Ϲ]") + Me.v_ACellImeLabel.ForeColor = Color.Black + End If + End If + End Sub + + + ''' + ''' Ű ̵ϴ Ű մϴ. + ''' + ''' + Public Sub AEnterToNextItem(Optional ByVal EditOff As Boolean = True) + Dim im As New FarPoint.Win.Spread.InputMap + If EditOff Then + im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused) + im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumn) + End If + im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused) + im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumn) '//ڵٳѱ ʴ´. + 'im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.) + End Sub + + ''' + ''' keydown ̺Ʈ 䳻 óɶ ߻ϴ ̺Ʈ + ''' + ''' + Overridable Sub Pre_KeyDown() + + End Sub + + + ''' + ''' 信 Ű尡 + ''' + ''' + ''' + ''' + Private Sub CustFP_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + RaiseEvent Arin_AddLog(Me, "keydown ߻ ڵ=" & e.KeyCode & "ٹȣ : " & _ + Me.ActiveSheet.ActiveRowIndex & " 翭ȣ:" & Me.ActiveSheet.ActiveColumnIndex & " ٷ̵ҿȣ:" & Me.ANextRow_ColIndex) + + RaiseEvent Arin_Before_KeyDown(sender, e) : RaiseEvent Arin_AddLog(Me, "Before Keydown ̺Ʈ ߻׽ϴ.") + + Select Case e.KeyCode + Case Keys.Enter + e.SuppressKeyPress = False + e.Handled = True + + If e.Control Then '//ٰ + RaiseEvent Arin_AddLog(Me, "keydown control ") + Me.Cells.Value = Me.CellsPR.Value + '//ϰ ڸ . + Else + '//϶ ϴ·ƾ view վ ش keydown ̺Ʈ ̰ ߿ Ͼ⋚ + '//ҼԵǾ. + + If Me.ActiveSheet.ActiveRowIndex = Me.ActiveSheet.RowCount - 1 Then '//ϰ + RaiseEvent Arin_AddLog(Me, "keydown ϵȴȣ/翭ȣ/üȣ " & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex & _ + "/" & Me.ActiveSheet.ColumnCount - 1) + If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//ٷΰl + RaiseEvent Arin_AddLog(Me, "keydown ̸ ٻؾ " & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex & _ + "ȣ = " & Me.ActiveSheet.ColumnCount - 1) + If Not Me.v_AAutoAddrowInLast Is Nothing Then + Me.v_AAutoAddrowInLast.PerformClick() + End If + Else '//̰ ̾ƴϸ ̵ + RaiseEvent Arin_AddLog(Me, "keydown ̳ ") + Me.ANext_Cell() + End If + Else '//̾ƴϰ ̸ ٷ + 'MsgBox(Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex) + If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//ٷΰl + RaiseEvent Arin_AddLog(Me, "keydown ̾ƴϸ ٷ" & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex) + Me.ANEXT_ROW() + Else + RaiseEvent Arin_AddLog(Me, "keydown ̾ƴϸ ") + Me.ANext_Cell() + End If + End If + 'MsgBox("ٳѱ Ϸܤ") + End If + 'If Not Me.v_AAutoAddrowInLast Is Nothing Then + ' If Me.ActiveSheet.ActiveRowIndex = Me.ActiveSheet.RowCount - 1 Then '//ٿ + ' If Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex Then '//ٷΰl + ' e.Handled = True + ' Me.v_AAutoAddrowInLast.PerformClick() + ' ElseIf Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '//̶ + ' e.Handled = True + ' Me.v_AAutoAddrowInLast.PerformClick() + ' End If + ' End If + + 'End If + + + Case Keys.Delete + If e.Shift Then '//Ʈ + If Me.V_DeleteKey Then Delete_itm(, True) + e.Handled = True + Else + If Me.V_CurrentDel Then + If Not Me.ActiveSheet.ActiveCell.Locked AndAlso Not Me.ActiveSheet.ActiveColumn.Locked Then + Me.ActiveSheet.ActiveCell.ResetValue() + Else + Me.Disp_Msg(" Ƿ ϴ") + End If + 'Me.OnEditModeOff(Nothing) + e.Handled = True + End If + End If + + Case Keys.Space '// + If Me.V_SpaceEdit Then EditMode = True + e.Handled = True + Case Keys.F1 + Case Keys.F2 + Case Keys.F3 + Case Keys.F4 + Case Keys.F5 + Case Keys.F6 + Case Keys.F7 + Case Keys.F8 + Case Keys.F9 + Case Keys.F10 + Case Keys.F11 + Case Keys.F12 + Case 18 '//ALT + e.SuppressKeyPress = False + e.Handled = True + Case Else '//׿ܴٸԷµǾ쿡 editmode ԵǹǷ ѱó ٷ Ʈ Ѵ. + '//ڰԷµǸ ѾǷ + + If e.KeyCode >= Keys.NumPad0 AndAlso e.KeyCode <= Keys.NumPad9 Then + '//Ʈ + ElseIf e.KeyCode >= Keys.D0 AndAlso e.KeyCode <= Keys.D9 Then + '//Ϲݼе + Else + If Not e.Alt AndAlso Not e.Control AndAlso Me.ImeMode = Windows.Forms.ImeMode.Hangul Then + EditMode = True + End If + End If + + End Select + End Sub + + + ''' + ''' Ǿ + ''' + ''' + ''' + ''' + Private Sub CustFP_RowHeightChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.RowHeightChangedEventArgs) Handles Me.RowHeightChanged + If Me.V_sameRHeight Then + Dim Row As FarPoint.Win.Spread.RowHeightChangeExtents = e.RowList(0) + Me.ActiveSheet.Rows.Default.Height = Me.ActiveSheet.Rows(Row.FirstRow).Height + End If + End Sub + + Public Sub Excel_Save(ByVal Filename As String, Optional ByVal INitdir As String = vbNullString, Optional ByVal Asfilter As Boolean = False) + If Me.ActiveSheet.Rows.Count <= 0 Then + MsgBox(" ʽϴ", MsgBoxStyle.Critical, "Ȯ") + Exit Sub + End If + Try + Dim A As New SaveFileDialog + A.InitialDirectory = IIf(INitdir = vbNullString, My.Application.Info.DirectoryPath, INitdir) + A.Filter = " ũƮ|*.XLS" + A.FileName = Filename + If A.ShowDialog = Windows.Forms.DialogResult.OK Then + ' Me.prb1.Style = ProgressBarStyle.Marquee + If Not Asfilter Then + Me.SaveExcel(A.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + Else + Me.SaveExcel(A.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + End If + End If + + Catch ex As Exception + MsgBox("" & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "Ȯ") + + End Try + + End Sub + ''' + ''' ̱۷ο ǥϰϴ DatarowView ָ TAG 缭 ǥմϴ. + ''' + ''' + ''' + Public Sub ASingleRow_Viewer(ByVal Drv As DataRowView, ByVal StartRange As Point, ByVal EndRange As Point) + For i As Integer = StartRange.Y To EndRange.Y '// + For j As Integer = StartRange.X To EndRange.X '// + If Not Me.ActiveSheet.Cells(i, j).Tag Is Nothing Then + Me.ActiveSheet.Cells(i, j).Text = Drv(Me.ActiveSheet.Cells(i, j).Tag.ToString) + End If + Next + Next + End Sub + ''' + ''' ̱۷ο ǥϰϴ DatarowView ָ TAG 缭 ǥմϴ. + ''' + ''' + ''' + Public Sub ASingleRow_Viewer(ByVal Drv As DataRowView) + For Each RW As FarPoint.Win.Spread.Row In Me.ActiveSheet.Rows + For Each CL As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + If Not Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag Is Nothing Then + If Drv(Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag.ToString) Is DBNull.Value Then + Me.ActiveSheet.Cells(RW.Index, CL.Index).Value = "" + Else + Me.ActiveSheet.Cells(RW.Index, CL.Index).Value = Drv(Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag.ToString) + End If + + End If + Next + Next + End Sub + + ''' + ''' ̱۷ο Ҷ 尪 ̺ . + ''' + ''' + ''' + Public Sub ASingleRow_Writer(ByRef Drv As DataRowView) + If Not Me.ActiveSheet.ActiveCell.Tag Is Nothing Then + 'MsgBox(Me.ActiveSheet.ActiveCell.Text) + Drv(Me.ActiveSheet.ActiveCell.Tag.ToString) = Me.ActiveSheet.ActiveCell.Value + End If + End Sub + + Public Sub New() + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + ' InitializeComponent() ȣ ڿ ʱȭ ڵ带 ߰Ͻʽÿ. + + End Sub + + Protected Overrides Sub Finalize() + MyBase.Finalize() + End Sub +End Class diff --git a/Epole/Picasa .ico b/Epole/Picasa .ico new file mode 100644 index 0000000..261651f Binary files /dev/null and b/Epole/Picasa .ico differ diff --git a/Epole/ReadMe.txt b/Epole/ReadMe.txt new file mode 100644 index 0000000..bdf92d1 --- /dev/null +++ b/Epole/ReadMe.txt @@ -0,0 +1,78 @@ +190502 * 기존 QR이 존재하는 화면에 배경색 전경색을 추가함 +170715 * 가공-선로화살표를 비고 앞에 놓이도록 수정 + * 엑셀불러오기에 선로화살표 기능추가 + * 엑셀내보내기에서 컬럼을 제외함 (컬럼이 있으면 데이터가 컬럼수만큼 출력 안됨.. 그레이프까페에 문의함) + +170711 * 전주번호찰 일반번호찰에 화살표를 추가함 +2017-05-19 + 지중번호찰 입력에서 빈줄체크로직에 몇개 필드 더 추가 + 설치파일 다시 생성함 2013은 사용못하고 limit 버젼으로 했음 +2014-04-16 + 구전산화번호->신전산화번호 변경시 flexgrid 로 일부 대체 (저장시 오류가 있음) +2014-04-15 + 가공번호찰입력 - 구신전산화번호가 같은경우(다른줄) 에서 찾은 갯수가 표시되지 않은 현상 제거 + 가공번호찰 출력에서 H가 있는 경우 없는경우 저장시 번호에 H여부 판단하여 저장하도록 수정 +2017-03-20 + 지중일반에 제조년월/제조회사 필드 추가 +2017-03-08 + 가공번호찰에서 . .지선주일때 전주번호가 나오지 않아야하는데. 나오는 현상 제거 (소스코드 1줄 누락되어서 구버젼 보고 복구함) + 중복검사 기능 1개 수정 및 추가 + 전체페이지 출력완료후 마지막 데이터가 이상하게 디스플레이되는 현상 제거(화면에만 그러함 : 인쇄물은 파일로 출력시 확인 못함) <- 전 화면 적용 + 다음페이지 출력설정이 된 경우 홀수 페이지가 나오지 않는 현상 수정 + +2017-03-02 + 스타일연속저장시 나타나는 오류 현상제거(삭제된 행....) + 지중(케이블) , 각 구간을 1개에서 15개로 개별 분리 + +2017-02-27 + 1/3 : 기입(선로명) 스타일에서 타 스타일 변경시 선로명 복사기능이 남아 있는 현상 제거 + 2/3 : 기입(선로명) 스타일에서 한줄전주번호가 표시되는 현상제거(해당 기능은 전주번호 표시여부에 연결되었습니다) + 3/3 : 기입(선로명) 스타일에서 데이터출력옵션이 "다음데이터" 에서 "현재데이터" 로 기본값 변경되었습니다 + +2017-02-16 + 지중출력시 시공년월을 기존 1개에서 10개로 분리처리함 +2017-02-10 + 입력폼(지중) 에서 데이터테이블 fill,update 오류가 발생해서, + tableAdater 새로 생성해서 우선 막아둠 ;; 고쳐야함 +2016-08-30 + printformsrc 에서 비고명이 패턴파싱에 오류가 있었음 해결됨 + 중요수용에서 관리구가 5자리 미만일경우 오류가 발생하는 경우에대한 오류처리추가 + +2016-01-31 + 1)가공번호찰 _일반번호찰 + 입력창에서 우측 기입체크부분은 있는데 우측에 "인입용체크창이 숨었네요" 칸을 열어주세요. + 2) 가공번호찰 _자동화기기번호찰 + 현재 에러가나서 열리지않습니다. + 자동화기기번호찰 복원용의 내용과 동일하게 바꾸어주세요. + 3)지중번호찰_일반번호찰 + 기기번호(선로명+선로번호) , 변압기사항(선로명+선로번호+상+형식(용량)) 으로 조정합니다. + *기존 기기번호1 과 기기번호2가 있는대 기기번호2칸은 없애고 칸을 늘리는데 사용하시게요. + 3)중요수용번호찰 + 입력창이 칸이 열리지않고 하너로 묶여 있네요 펼쳐주세요. + + +2016-01-23 + 지중번호찰 내용추가 (선로명+기기, 선로명+변압기) +2015-02-12 + windows 7 64bit 에서 재 컴파일(한글및 추가 오류 제거됨) +2015-02-08 + 1)점검일자가 연결은 되었는데 지정을하고 점검일자 내용이 없는데도 원과 선이 그대로 활성화됨 + 2)엔터치고 바로 아래로 내려가지않고 중간에서 한줄삽입됨 + -내용이없을때 이상없는데 내용이 있으면 이상하게 작동. + 3)한줄삽입/한줄추가 /한줄삭제 등 기능이 안됨 + 삽입및 추가시 순번이형성되면서 순서가 에러가 발생하여 오류가생기네요. + 한줄삽입시에는 순번은 상단순번을 복사해서 동일하게 하고 한줄삽입이 되어야하고, + 한줄추가는 순번을 무시하고 마지막줄 다음으로 생성되는게 좋을듯하네요. + 4)COS 휴즈용량(10A , 3A , 100A 등등) A자등 영문 우선이며 대문자우선 + 5)상표시찰 영문 우선이며 대문자우선 + 6)엑셀 불러오기에서도 추가된 내용이 들러가야합니다.(점검일자 누락) + +2015-02-03 + 1)프로그램 설치하면 프레임워크 설치후 멈춤현상 있음 다시설치하면 이어서 설치는 됨 + 2)가공 일반번호찰 제작에서 우측 인입 체크 줄이 숨어버려서 인입 지정이 안됨. + 3)선/박스/원 연결에서 점검일자 부분도 연결을 시켜주세요. 누락됨 + 4)COS 휴즈용량(10A , 3A , 100A 등등)에서 자수별로 조정이 안됨. + 5)상표시찰 1단은 양호하며, 2단에서 자수(1자인경우/3자인경우 별도 조정이 안됨(패턴저장) + 6)엑셀 불러오기에서도 추가된 내용이 들러가야합니다. + +2014-12-17 : 프린터 여백과 스케일 값이 숫자만 입력되도록 수정 \ No newline at end of file diff --git a/Epole/Resources/about_16.png b/Epole/Resources/about_16.png new file mode 100644 index 0000000..2f39d11 Binary files /dev/null and b/Epole/Resources/about_16.png differ diff --git a/Epole/Resources/about_161.png b/Epole/Resources/about_161.png new file mode 100644 index 0000000..1cdd2f2 Binary files /dev/null and b/Epole/Resources/about_161.png differ diff --git a/Epole/Resources/about_24.png b/Epole/Resources/about_24.png new file mode 100644 index 0000000..0ddd822 Binary files /dev/null and b/Epole/Resources/about_24.png differ diff --git a/Epole/Resources/about_32.png b/Epole/Resources/about_32.png new file mode 100644 index 0000000..1fc39c3 Binary files /dev/null and b/Epole/Resources/about_32.png differ diff --git a/Epole/Resources/apps_32.png b/Epole/Resources/apps_32.png new file mode 100644 index 0000000..cd14c05 Binary files /dev/null and b/Epole/Resources/apps_32.png differ diff --git a/Epole/Resources/back_16.png b/Epole/Resources/back_16.png new file mode 100644 index 0000000..64f3406 Binary files /dev/null and b/Epole/Resources/back_16.png differ diff --git a/Epole/Resources/back_24.png b/Epole/Resources/back_24.png new file mode 100644 index 0000000..03fb502 Binary files /dev/null and b/Epole/Resources/back_24.png differ diff --git a/Epole/Resources/back_32.png b/Epole/Resources/back_32.png new file mode 100644 index 0000000..1ad6e60 Binary files /dev/null and b/Epole/Resources/back_32.png differ diff --git a/Epole/Resources/calc_16.png b/Epole/Resources/calc_16.png new file mode 100644 index 0000000..a138d16 Binary files /dev/null and b/Epole/Resources/calc_16.png differ diff --git a/Epole/Resources/cancl_16.png b/Epole/Resources/cancl_16.png new file mode 100644 index 0000000..d10ee63 Binary files /dev/null and b/Epole/Resources/cancl_16.png differ diff --git a/Epole/Resources/cancl_32.png b/Epole/Resources/cancl_32.png new file mode 100644 index 0000000..71246c0 Binary files /dev/null and b/Epole/Resources/cancl_32.png differ diff --git a/Epole/Resources/confg_32.png b/Epole/Resources/confg_32.png new file mode 100644 index 0000000..c301adc Binary files /dev/null and b/Epole/Resources/confg_32.png differ diff --git a/Epole/Resources/down_16.png b/Epole/Resources/down_16.png new file mode 100644 index 0000000..459b0eb Binary files /dev/null and b/Epole/Resources/down_16.png differ diff --git a/Epole/Resources/down_24.png b/Epole/Resources/down_24.png new file mode 100644 index 0000000..f423029 Binary files /dev/null and b/Epole/Resources/down_24.png differ diff --git a/Epole/Resources/down_32.png b/Epole/Resources/down_32.png new file mode 100644 index 0000000..f35badf Binary files /dev/null and b/Epole/Resources/down_32.png differ diff --git a/Epole/Resources/edit_32.png b/Epole/Resources/edit_32.png new file mode 100644 index 0000000..7a50e45 Binary files /dev/null and b/Epole/Resources/edit_32.png differ diff --git a/Epole/Resources/excel.png b/Epole/Resources/excel.png new file mode 100644 index 0000000..a7ad901 Binary files /dev/null and b/Epole/Resources/excel.png differ diff --git a/Epole/Resources/forwd_16.png b/Epole/Resources/forwd_16.png new file mode 100644 index 0000000..b36a527 Binary files /dev/null and b/Epole/Resources/forwd_16.png differ diff --git a/Epole/Resources/forwd_32.png b/Epole/Resources/forwd_32.png new file mode 100644 index 0000000..30af3bc Binary files /dev/null and b/Epole/Resources/forwd_32.png differ diff --git a/Epole/Resources/go_32.png b/Epole/Resources/go_32.png new file mode 100644 index 0000000..0a1c84a Binary files /dev/null and b/Epole/Resources/go_32.png differ diff --git a/Epole/Resources/image_32.png b/Epole/Resources/image_32.png new file mode 100644 index 0000000..91487ac Binary files /dev/null and b/Epole/Resources/image_32.png differ diff --git a/Epole/Resources/lgicn_32.png b/Epole/Resources/lgicn_32.png new file mode 100644 index 0000000..ed3a40b Binary files /dev/null and b/Epole/Resources/lgicn_32.png differ diff --git a/Epole/Resources/new_32.png b/Epole/Resources/new_32.png new file mode 100644 index 0000000..33d6e10 Binary files /dev/null and b/Epole/Resources/new_32.png differ diff --git a/Epole/Resources/new_321.png b/Epole/Resources/new_321.png new file mode 100644 index 0000000..33a39df Binary files /dev/null and b/Epole/Resources/new_321.png differ diff --git a/Epole/Resources/open_32.png b/Epole/Resources/open_32.png new file mode 100644 index 0000000..fc83999 Binary files /dev/null and b/Epole/Resources/open_32.png differ diff --git a/Epole/Resources/opts_24.png b/Epole/Resources/opts_24.png new file mode 100644 index 0000000..c9287f4 Binary files /dev/null and b/Epole/Resources/opts_24.png differ diff --git a/Epole/Resources/opts_32.png b/Epole/Resources/opts_32.png new file mode 100644 index 0000000..f1a5496 Binary files /dev/null and b/Epole/Resources/opts_32.png differ diff --git a/Epole/Resources/play_32.png b/Epole/Resources/play_32.png new file mode 100644 index 0000000..164740d Binary files /dev/null and b/Epole/Resources/play_32.png differ diff --git a/Epole/Resources/prefs_32.png b/Epole/Resources/prefs_32.png new file mode 100644 index 0000000..d2ff367 Binary files /dev/null and b/Epole/Resources/prefs_32.png differ diff --git a/Epole/Resources/print_32.png b/Epole/Resources/print_32.png new file mode 100644 index 0000000..a5e6812 Binary files /dev/null and b/Epole/Resources/print_32.png differ diff --git a/Epole/Resources/print_321.png b/Epole/Resources/print_321.png new file mode 100644 index 0000000..a5e6812 Binary files /dev/null and b/Epole/Resources/print_321.png differ diff --git a/Epole/Resources/prtpv_32.png b/Epole/Resources/prtpv_32.png new file mode 100644 index 0000000..733b4fd Binary files /dev/null and b/Epole/Resources/prtpv_32.png differ diff --git a/Epole/Resources/redo_32.png b/Epole/Resources/redo_32.png new file mode 100644 index 0000000..032fd88 Binary files /dev/null and b/Epole/Resources/redo_32.png differ diff --git a/Epole/Resources/ref_24.png b/Epole/Resources/ref_24.png new file mode 100644 index 0000000..8fdbb31 Binary files /dev/null and b/Epole/Resources/ref_24.png differ diff --git a/Epole/Resources/ref_32.png b/Epole/Resources/ref_32.png new file mode 100644 index 0000000..b8d8ee7 Binary files /dev/null and b/Epole/Resources/ref_32.png differ diff --git a/Epole/Resources/remov_32.png b/Epole/Resources/remov_32.png new file mode 100644 index 0000000..c2562b3 Binary files /dev/null and b/Epole/Resources/remov_32.png differ diff --git a/Epole/Resources/save_16.png b/Epole/Resources/save_16.png new file mode 100644 index 0000000..ce445df Binary files /dev/null and b/Epole/Resources/save_16.png differ diff --git a/Epole/Resources/save_32.png b/Epole/Resources/save_32.png new file mode 100644 index 0000000..6d95afa Binary files /dev/null and b/Epole/Resources/save_32.png differ diff --git a/Epole/Resources/skipb_32.png b/Epole/Resources/skipb_32.png new file mode 100644 index 0000000..d4d95e4 Binary files /dev/null and b/Epole/Resources/skipb_32.png differ diff --git a/Epole/Resources/skipf_32.png b/Epole/Resources/skipf_32.png new file mode 100644 index 0000000..53655c5 Binary files /dev/null and b/Epole/Resources/skipf_32.png differ diff --git a/Epole/Resources/smicn_24.png b/Epole/Resources/smicn_24.png new file mode 100644 index 0000000..6a38c0b Binary files /dev/null and b/Epole/Resources/smicn_24.png differ diff --git a/Epole/Resources/smicn_32.png b/Epole/Resources/smicn_32.png new file mode 100644 index 0000000..9f23a5f Binary files /dev/null and b/Epole/Resources/smicn_32.png differ diff --git a/Epole/Resources/splay_32.png b/Epole/Resources/splay_32.png new file mode 100644 index 0000000..5e7eadf Binary files /dev/null and b/Epole/Resources/splay_32.png differ diff --git a/Epole/Resources/srch_32.png b/Epole/Resources/srch_32.png new file mode 100644 index 0000000..bd29900 Binary files /dev/null and b/Epole/Resources/srch_32.png differ diff --git a/Epole/Resources/start.png b/Epole/Resources/start.png new file mode 100644 index 0000000..f7e01e2 Binary files /dev/null and b/Epole/Resources/start.png differ diff --git a/Epole/Resources/stop_32.png b/Epole/Resources/stop_32.png new file mode 100644 index 0000000..a8c27f4 Binary files /dev/null and b/Epole/Resources/stop_32.png differ diff --git a/Epole/Resources/up_16.png b/Epole/Resources/up_16.png new file mode 100644 index 0000000..93d5f1a Binary files /dev/null and b/Epole/Resources/up_16.png differ diff --git a/Epole/Resources/up_32.png b/Epole/Resources/up_32.png new file mode 100644 index 0000000..a44169b Binary files /dev/null and b/Epole/Resources/up_32.png differ diff --git a/Epole/SplashScreen.Designer.vb b/Epole/SplashScreen.Designer.vb new file mode 100644 index 0000000..efe1e58 --- /dev/null +++ b/Epole/SplashScreen.Designer.vb @@ -0,0 +1,140 @@ + _ +Partial Class SplashScreen + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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.MediumSeaGreen + 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(357, 205) + 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.White + Me.lb_msg.Location = New System.Drawing.Point(3, 179) + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(351, 26) + 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, 146) + 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(351, 30) + 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.Location = New System.Drawing.Point(3, 15) + Me.Copyright.Name = "Copyright" + Me.Copyright.Size = New System.Drawing.Size(484, 15) + 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.Location = New System.Drawing.Point(3, 0) + Me.Version.Name = "Version" + Me.Version.Size = New System.Drawing.Size(484, 15) + Me.Version.TabIndex = 1 + Me.Version.Text = "Version {0}.{1:00}.{2}.{3}" + ' + 'ApplicationTitle + ' + Me.ApplicationTitle.BackColor = System.Drawing.Color.MediumSeaGreen + Me.ApplicationTitle.Dock = System.Windows.Forms.DockStyle.Fill + Me.ApplicationTitle.Font = New System.Drawing.Font("맑은 고딕", 14.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(351, 143) + 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(357, 205) + 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 diff --git a/Epole/SplashScreen.resx b/Epole/SplashScreen.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/SplashScreen.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/SplashScreen.vb b/Epole/SplashScreen.vb new file mode 100644 index 0000000..cf8aab8 --- /dev/null +++ b/Epole/SplashScreen.vb @@ -0,0 +1,267 @@ +Imports MyControlOLEDBv2 + +Public NotInheritable Class SplashScreen + Dim install, installkey As Long + Dim auth As New MyAuth + Dim Runcnt As Integer = 0 + 'TODO: 프로젝트 디자이너에서 "프로젝트" 메뉴의 "속성"을 선택하여 표시된 "응용 프로그램" 탭에서 + ' 이 폼을 응용 프로그램의 시작 화면으로 쉽게 설정할 수 있습니다. + Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + '응용 프로그램의 어셈블리 정보에 따라 런타임에 대화 상자 텍스트를 설정합니다. + 'TODO: "프로젝트" 메뉴에서 선택하여 표시된 프로젝트 속성 대화 상자의 "응용 프로그램" 창에서 응용 프로그램의 + ' 어셈블리 정보를 사용자 지정합니다. + '응용 프로그램 제목 + My.Settings.Item("ireaConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + My.Application.Info.DirectoryPath & "\database\database.mdb" + + If Command().ToUpper = "ARIN" Then Admin = True + 'MsgBox(My.Settings.ireaConnectionString) + + 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 + 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 Not LoadReg() Then End + If Not Connect() Then End + Me.lb_msg.Text = "" + + ' LoginForm1.MdiParent = Main + 'LoginForm1.TopMost = True + 'LoginForm1.Show() + Frm_Main.Show() + Me.Dispose() + 'Me.Hide() + + End Sub + Private Function ReadAuthcount() As Integer + Dim RunCnt As Integer = 0 + Dim ini As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Dim RegDate As String = ini.Read("main", "regdate", "") + Dim CurDate As String = Me.auth.GetDateNumberEnc(Today.AddDays(-10)) + If RegDate = "" Then '//등록일이없으면 10번카운터를 셋팅한다. + RunCnt = 1 + ini.Write("main", "reg", RunCnt) '//1일로한다. + ini.Write("main", "regdate", Me.auth.GetDateNumberEnc(Today)) '//1일로한다. + Else + '//상요자가 숫자를 임의로 고칠수있으니 설치된 날짜랑 오늘이랑 10일이상차이나면 횟수에상관없이 사용불가로한다. + If CurDate > RegDate Then + MsgBox("프로그램을 사용할 수 없습니다" & vbCrLf & "배포업체에 문의하세요", MsgBoxStyle.Information, "확인") + Return 10 + End If + RunCnt = ini.Read("main", "reg", 10) '//없으면 10으로한다 즉 사용못하게하겠다는거다 + If RunCnt < 10 Then + RunCnt += 1 + ini.Write("main", "reg", 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 + + If (auth.GetDateNumber(Now)) > 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 + + If installkey.ToString <> auth.GetDateNumberEnc(install) Then '//인증정보가 손상되었다면 + MsgBox("인증정보가 손상되었습니다" & vbCrLf & vbCrLf & "홈페이지 [자료실] 에서 인증번호를 확인하세요" & vbCrLf & "062-382-0411" & vbCrLf & Common.HomePage, MsgBoxStyle.Critical, "확인") + 'Process.Start(HomePage) + Return False + End If + Return True + ' MsgBox(auth.GetDateNumberEnc(Now)) + End Function + + Private Sub SetAuth(ByVal NewDate As Date) + Dim auth As New MyAuth + Dim Arinini As New MyINI2(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 MyINI2(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", "install", 0) + Me.installkey = Arinini.Read("main", "installkey", 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 = "데이터베이스확인중..." + If Not System.IO.File.Exists(DataBaseFile) Then Return False + Dim Dbpath As String = My.Application.Info.DirectoryPath & "\database" + Dim Dbini As New MyINI2(Dbpath & "\patch.ini") + + ' Return True + + '//데이터베이스 버젼을 확인한다. + Dim Cnn As New OleDbConnection(My.Settings.ireaConnectionString) + Try + Cnn.Open() + Catch ex As Exception + MsgBox("데이터베이스를 열수 없습니다", "데이터베이스 손상되었는지 사용중인지 확인하세요", "오류") + Return False + End Try + If Cnn.State <> ConnectionState.Open Then + MsgBox("데이터베이스를 열수 없습니다", "데이터베이스 손상되었는지 사용중인지 확인하세요", "오류") + Return False + End If + + Dim Dbversion As Short = 0 + Dim ErrMsg As String = "" + + Dim Cmd As New OleDbCommand("select version from dbinfo", Cnn) + Try + Dbversion = Cmd.ExecuteScalar + Catch ex As OleDb.OleDbException + Dbversion = 0 + ErrMsg = ex.Message.ToString + End Try + + If ErrMsg.IndexOf("dbinfo") >= 0 Then ''//테이블이 없을경우이다. + Cmd = New OleDbCommand("create table dbinfo ( version number )", Cnn) + Cmd.ExecuteNonQuery() '//테이블생성 + Cmd = New OleDbCommand("insert into dbinfo(version) values(0)", Cnn) + Cmd.ExecuteNonQuery() + Dbversion = 0 + End If + + Cmd = New OleDbCommand("select count(*) from dbinfo", Cnn) + Dim RowCnt As Short = Cmd.ExecuteScalar + If RowCnt = 0 Then + Cmd = New OleDbCommand("insert into dbinfo(version) values(0)", Cnn) + 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, Cnn) + Try + 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, Cnn) + Try + Cmd.ExecuteNonQuery() + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + End Try + + + Cmd.Dispose() + Cnn.Close() + Cnn.Dispose() + Return True + + End Function +End Class diff --git a/Epole/WEBBROWSER.Designer.vb b/Epole/WEBBROWSER.Designer.vb new file mode 100644 index 0000000..8fb0285 --- /dev/null +++ b/Epole/WEBBROWSER.Designer.vb @@ -0,0 +1,47 @@ + _ +Partial Class WEBBROWSER + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.WebBrowser1 = New System.Windows.Forms.WebBrowser + Me.SuspendLayout() + ' + 'WebBrowser1 + ' + Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill + Me.WebBrowser1.Location = New System.Drawing.Point(0, 0) + Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebBrowser1.Name = "WebBrowser1" + Me.WebBrowser1.Size = New System.Drawing.Size(670, 611) + Me.WebBrowser1.TabIndex = 0 + ' + 'WEBBROWSER + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(670, 611) + Me.Controls.Add(Me.WebBrowser1) + Me.Name = "WEBBROWSER" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "웹페이지 뷰어" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser +End Class diff --git a/Epole/WEBBROWSER.resx b/Epole/WEBBROWSER.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/WEBBROWSER.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/WEBBROWSER.vb b/Epole/WEBBROWSER.vb new file mode 100644 index 0000000..967f71a --- /dev/null +++ b/Epole/WEBBROWSER.vb @@ -0,0 +1,3 @@ +Public Class WEBBROWSER + +End Class \ No newline at end of file diff --git a/Epole/app.config b/Epole/app.config new file mode 100644 index 0000000..93947eb --- /dev/null +++ b/Epole/app.config @@ -0,0 +1,29 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Epole/fProgress.Designer.vb b/Epole/fProgress.Designer.vb new file mode 100644 index 0000000..84fb180 --- /dev/null +++ b/Epole/fProgress.Designer.vb @@ -0,0 +1,65 @@ + _ +Partial Class fProgress + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.ProgressBar1 = New System.Windows.Forms.ProgressBar() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'ProgressBar1 + ' + Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ProgressBar1.Location = New System.Drawing.Point(0, 70) + Me.ProgressBar1.Name = "ProgressBar1" + Me.ProgressBar1.Size = New System.Drawing.Size(396, 16) + Me.ProgressBar1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Location = New System.Drawing.Point(0, 0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(396, 70) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Label1" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'fProgress + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(396, 86) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.ProgressBar1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "fProgress" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "잠시만 기다려주세요." + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar + Friend WithEvents Label1 As System.Windows.Forms.Label +End Class diff --git a/Epole/fProgress.resx b/Epole/fProgress.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Epole/fProgress.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/fProgress.vb b/Epole/fProgress.vb new file mode 100644 index 0000000..26da201 --- /dev/null +++ b/Epole/fProgress.vb @@ -0,0 +1,3 @@ +Public Class fProgress + +End Class \ No newline at end of file diff --git a/Epole/hg.ico b/Epole/hg.ico new file mode 100644 index 0000000..7a9197b Binary files /dev/null and b/Epole/hg.ico differ diff --git a/Epole/preview.Designer.vb b/Epole/preview.Designer.vb new file mode 100644 index 0000000..16512cc --- /dev/null +++ b/Epole/preview.Designer.vb @@ -0,0 +1,1336 @@ + _ +Partial Class lb_left + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(lb_left)) + Me.Button1 = New System.Windows.Forms.Button + Me.Button2 = New System.Windows.Forms.Button + Me.Button3 = New System.Windows.Forms.Button + Me.Button4 = New System.Windows.Forms.Button + Me.tb_pixelpos = New System.Windows.Forms.TextBox + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.TabControl1 = New System.Windows.Forms.TabControl + Me.TabPage1 = New System.Windows.Forms.TabPage + Me.Button21 = New System.Windows.Forms.Button + Me.GroupBox4 = New System.Windows.Forms.GroupBox + Me.lb_s = New System.Windows.Forms.Label + Me.Button8 = New System.Windows.Forms.Button + Me.lb_font = New System.Windows.Forms.Label + Me.lb_b = New System.Windows.Forms.Label + Me.lb_i = New System.Windows.Forms.Label + Me.lb_u = New System.Windows.Forms.Label + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.tb_pixelsize = New System.Windows.Forms.TextBox + Me.Button13 = New System.Windows.Forms.Button + Me.Button14 = New System.Windows.Forms.Button + Me.cb_autosize = New System.Windows.Forms.CheckBox + Me.Button15 = New System.Windows.Forms.Button + Me.Button16 = New System.Windows.Forms.Button + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.Button12 = New System.Windows.Forms.Button + Me.Button11 = New System.Windows.Forms.Button + Me.Button10 = New System.Windows.Forms.Button + Me.Button9 = New System.Windows.Forms.Button + Me.Button7 = New System.Windows.Forms.Button + Me.Button6 = New System.Windows.Forms.Button + Me.tb_fontbakcol = New System.Windows.Forms.TextBox + Me.tb_foncol = New System.Windows.Forms.TextBox + Me.lb_sel = New System.Windows.Forms.Label + Me.tb_height = New System.Windows.Forms.TextBox + Me.tB_width = New System.Windows.Forms.TextBox + Me.lb_size = New System.Windows.Forms.Label + Me.tb_top = New System.Windows.Forms.TextBox + Me.tb_left = New System.Windows.Forms.TextBox + Me.Label2 = New System.Windows.Forms.Label + Me.TabPage2 = New System.Windows.Forms.TabPage + Me.TabPage5 = New System.Windows.Forms.TabPage + Me.Label3 = New System.Windows.Forms.Label + Me.Label28 = New System.Windows.Forms.Label + Me.Label6 = New System.Windows.Forms.Label + Me.Label27 = New System.Windows.Forms.Label + Me.Label7 = New System.Windows.Forms.Label + Me.Label26 = New System.Windows.Forms.Label + Me.Label16 = New System.Windows.Forms.Label + Me.Label25 = New System.Windows.Forms.Label + Me.Label17 = New System.Windows.Forms.Label + Me.Label24 = New System.Windows.Forms.Label + Me.Label23 = New System.Windows.Forms.Label + Me.Label8 = New System.Windows.Forms.Label + Me.Label22 = New System.Windows.Forms.Label + Me.Label18 = New System.Windows.Forms.Label + Me.Label21 = New System.Windows.Forms.Label + Me.Label19 = New System.Windows.Forms.Label + Me.Label20 = New System.Windows.Forms.Label + Me.TabControl2 = New System.Windows.Forms.TabControl + Me.TabPage3 = New System.Windows.Forms.TabPage + Me.Button18 = New System.Windows.Forms.Button + Me.TextBox5 = New System.Windows.Forms.TextBox + Me.Label14 = New System.Windows.Forms.Label + Me.TextBox4 = New System.Windows.Forms.TextBox + Me.Label5 = New System.Windows.Forms.Label + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.CheckBox6 = New System.Windows.Forms.CheckBox + Me.CheckBox7 = New System.Windows.Forms.CheckBox + Me.CheckBox8 = New System.Windows.Forms.CheckBox + Me.CheckBox3 = New System.Windows.Forms.CheckBox + Me.CheckBox2 = New System.Windows.Forms.CheckBox + Me.CheckBox1 = New System.Windows.Forms.CheckBox + Me.RadioButton5 = New System.Windows.Forms.RadioButton + Me.RadioButton4 = New System.Windows.Forms.RadioButton + Me.RadioButton3 = New System.Windows.Forms.RadioButton + Me.RadioButton2 = New System.Windows.Forms.RadioButton + Me.RadioButton1 = New System.Windows.Forms.RadioButton + Me.TabPage4 = New System.Windows.Forms.TabPage + Me.Button20 = New System.Windows.Forms.Button + Me.Button19 = New System.Windows.Forms.Button + Me.Label13 = New System.Windows.Forms.Label + Me.ComboBox1 = New System.Windows.Forms.ComboBox + Me.Label12 = New System.Windows.Forms.Label + Me.Label11 = New System.Windows.Forms.Label + Me.tb_picfile = New System.Windows.Forms.TextBox + Me.Label10 = New System.Windows.Forms.Label + Me.TextBox2 = New System.Windows.Forms.TextBox + Me.TextBox3 = New System.Windows.Forms.TextBox + Me.Label9 = New System.Windows.Forms.Label + Me.CheckBox4 = New System.Windows.Forms.CheckBox + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.Button5 = New System.Windows.Forms.Button + Me.Button17 = New System.Windows.Forms.Button + Me.Panel1 = New System.Windows.Forms.Panel + Me.PictureBox2 = New System.Windows.Forms.PictureBox + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabPage4.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Button1 + ' + Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) + Me.Button1.Location = New System.Drawing.Point(722, 12) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(64, 52) + Me.Button1.TabIndex = 0 + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(551, 21) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "페이지셋업" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(362, 21) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "Button3" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(463, 21) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(75, 23) + Me.Button4.TabIndex = 4 + Me.Button4.Text = "Button4" + Me.Button4.UseVisualStyleBackColor = True + ' + 'tb_pixelpos + ' + Me.tb_pixelpos.BackColor = System.Drawing.Color.NavajoWhite + Me.tb_pixelpos.Location = New System.Drawing.Point(39, 40) + Me.tb_pixelpos.Name = "tb_pixelpos" + Me.tb_pixelpos.Size = New System.Drawing.Size(22, 21) + Me.tb_pixelpos.TabIndex = 8 + Me.tb_pixelpos.Text = "1" + Me.tb_pixelpos.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 533) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(800, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(127, 17) + Me.lb_selcon.Text = "ToolStripStatusLabel1" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(17, 17) + Me.lb_msg.Text = "▷" + ' + 'Timer1 + ' + Me.Timer1.Enabled = True + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Location = New System.Drawing.Point(351, 256) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(439, 272) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.Button21) + Me.TabPage1.Controls.Add(Me.GroupBox4) + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.Button7) + Me.TabPage1.Controls.Add(Me.Button6) + Me.TabPage1.Controls.Add(Me.tb_fontbakcol) + Me.TabPage1.Controls.Add(Me.tb_foncol) + Me.TabPage1.Controls.Add(Me.lb_sel) + Me.TabPage1.Controls.Add(Me.tb_height) + Me.TabPage1.Controls.Add(Me.tB_width) + Me.TabPage1.Controls.Add(Me.lb_size) + Me.TabPage1.Controls.Add(Me.tb_top) + Me.TabPage1.Controls.Add(Me.tb_left) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Location = New System.Drawing.Point(4, 21) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(431, 247) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "개체속성" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'Button21 + ' + Me.Button21.Location = New System.Drawing.Point(195, 17) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(75, 23) + Me.Button21.TabIndex = 43 + Me.Button21.Text = "Button21" + Me.Button21.UseVisualStyleBackColor = True + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.lb_s) + Me.GroupBox4.Controls.Add(Me.Button8) + Me.GroupBox4.Controls.Add(Me.lb_font) + Me.GroupBox4.Controls.Add(Me.lb_b) + Me.GroupBox4.Controls.Add(Me.lb_i) + Me.GroupBox4.Controls.Add(Me.lb_u) + Me.GroupBox4.Location = New System.Drawing.Point(10, 139) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(101, 92) + Me.GroupBox4.TabIndex = 42 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "글꼴정보" + ' + 'lb_s + ' + Me.lb_s.AutoSize = True + Me.lb_s.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_s.Location = New System.Drawing.Point(51, 22) + Me.lb_s.Name = "lb_s" + Me.lb_s.Size = New System.Drawing.Size(14, 12) + Me.lb_s.TabIndex = 39 + Me.lb_s.Text = "S" + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(6, 60) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(89, 27) + Me.Button8.TabIndex = 29 + Me.Button8.Text = "글꼴설정" + Me.Button8.UseVisualStyleBackColor = True + ' + 'lb_font + ' + Me.lb_font.AutoSize = True + Me.lb_font.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_font.Location = New System.Drawing.Point(14, 43) + Me.lb_font.Name = "lb_font" + Me.lb_font.Size = New System.Drawing.Size(71, 12) + Me.lb_font.TabIndex = 41 + Me.lb_font.Text = "FontName" + Me.lb_font.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lb_b + ' + Me.lb_b.AutoSize = True + Me.lb_b.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_b.Location = New System.Drawing.Point(16, 22) + Me.lb_b.Name = "lb_b" + Me.lb_b.Size = New System.Drawing.Size(14, 12) + Me.lb_b.TabIndex = 37 + Me.lb_b.Text = "B" + ' + 'lb_i + ' + Me.lb_i.AutoSize = True + Me.lb_i.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_i.Location = New System.Drawing.Point(36, 22) + Me.lb_i.Name = "lb_i" + Me.lb_i.Size = New System.Drawing.Size(9, 12) + Me.lb_i.TabIndex = 38 + Me.lb_i.Text = "I" + ' + 'lb_u + ' + Me.lb_u.AutoSize = True + Me.lb_u.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_u.Location = New System.Drawing.Point(71, 22) + Me.lb_u.Name = "lb_u" + Me.lb_u.Size = New System.Drawing.Size(14, 12) + Me.lb_u.TabIndex = 40 + Me.lb_u.Text = "U" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.tb_pixelsize) + Me.GroupBox3.Controls.Add(Me.Button13) + Me.GroupBox3.Controls.Add(Me.Button14) + Me.GroupBox3.Controls.Add(Me.cb_autosize) + Me.GroupBox3.Controls.Add(Me.Button15) + Me.GroupBox3.Controls.Add(Me.Button16) + Me.GroupBox3.Location = New System.Drawing.Point(119, 42) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(101, 92) + Me.GroupBox3.TabIndex = 36 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "크기" + ' + 'tb_pixelsize + ' + Me.tb_pixelsize.BackColor = System.Drawing.Color.NavajoWhite + Me.tb_pixelsize.Location = New System.Drawing.Point(39, 40) + Me.tb_pixelsize.Name = "tb_pixelsize" + Me.tb_pixelsize.Size = New System.Drawing.Size(22, 21) + Me.tb_pixelsize.TabIndex = 36 + Me.tb_pixelsize.Text = "1" + Me.tb_pixelsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(63, 37) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(28, 27) + Me.Button13.TabIndex = 35 + Me.Button13.Text = "▶" + Me.Button13.UseVisualStyleBackColor = True + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(9, 37) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(28, 27) + Me.Button14.TabIndex = 34 + Me.Button14.Text = "◀" + Me.Button14.UseVisualStyleBackColor = True + ' + 'cb_autosize + ' + Me.cb_autosize.AutoSize = True + Me.cb_autosize.Location = New System.Drawing.Point(66, 74) + Me.cb_autosize.Name = "cb_autosize" + Me.cb_autosize.Size = New System.Drawing.Size(32, 16) + Me.cb_autosize.TabIndex = 30 + Me.cb_autosize.Text = "&A" + Me.ToolTip1.SetToolTip(Me.cb_autosize, "개체크기를 자동으로 유지합니다.") + Me.cb_autosize.UseVisualStyleBackColor = True + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(36, 63) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(28, 27) + Me.Button15.TabIndex = 33 + Me.Button15.Text = "▼" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button16 + ' + Me.Button16.Location = New System.Drawing.Point(36, 11) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(28, 27) + Me.Button16.TabIndex = 32 + Me.Button16.Text = "▲" + Me.Button16.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.tb_pixelpos) + Me.GroupBox2.Location = New System.Drawing.Point(12, 42) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(101, 92) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치" + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(63, 37) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(28, 27) + Me.Button12.TabIndex = 35 + Me.Button12.Text = "▶" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(9, 37) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(28, 27) + Me.Button11.TabIndex = 34 + Me.Button11.Text = "◀" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(36, 63) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(28, 27) + Me.Button10.TabIndex = 33 + Me.Button10.Text = "▼" + Me.Button10.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(36, 11) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(28, 27) + Me.Button9.TabIndex = 32 + Me.Button9.Text = "▲" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(234, 190) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(77, 23) + Me.Button7.TabIndex = 25 + Me.Button7.Text = "배경색(&B)" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(234, 163) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(77, 23) + Me.Button6.TabIndex = 24 + Me.Button6.Text = "글꼴색(&C)" + Me.Button6.UseVisualStyleBackColor = True + ' + 'tb_fontbakcol + ' + Me.tb_fontbakcol.BackColor = System.Drawing.Color.Tan + Me.tb_fontbakcol.Location = New System.Drawing.Point(313, 190) + Me.tb_fontbakcol.Name = "tb_fontbakcol" + Me.tb_fontbakcol.Size = New System.Drawing.Size(77, 21) + Me.tb_fontbakcol.TabIndex = 23 + Me.tb_fontbakcol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.Tan + Me.tb_foncol.Location = New System.Drawing.Point(313, 163) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(77, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(12, 17) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(81, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "선택된 개체 : " + ' + 'tb_height + ' + Me.tb_height.Location = New System.Drawing.Point(351, 94) + Me.tb_height.Name = "tb_height" + Me.tb_height.Size = New System.Drawing.Size(39, 21) + Me.tb_height.TabIndex = 18 + Me.tb_height.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tB_width + ' + Me.tB_width.Location = New System.Drawing.Point(309, 94) + Me.tB_width.Name = "tB_width" + Me.tB_width.Size = New System.Drawing.Size(39, 21) + Me.tB_width.TabIndex = 17 + Me.tB_width.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lb_size + ' + Me.lb_size.AutoSize = True + Me.lb_size.Location = New System.Drawing.Point(276, 98) + Me.lb_size.Name = "lb_size" + Me.lb_size.Size = New System.Drawing.Size(29, 12) + Me.lb_size.TabIndex = 16 + Me.lb_size.Text = "크기" + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(351, 71) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(39, 21) + Me.tb_top.TabIndex = 15 + Me.tb_top.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(309, 71) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(39, 21) + Me.tb_left.TabIndex = 14 + Me.tb_left.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(276, 75) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(29, 12) + Me.Label2.TabIndex = 13 + Me.Label2.Text = "위치" + ' + 'TabPage2 + ' + Me.TabPage2.Location = New System.Drawing.Point(4, 21) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(431, 247) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "인쇄설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.Label3) + Me.TabPage5.Controls.Add(Me.Label28) + Me.TabPage5.Controls.Add(Me.Label6) + Me.TabPage5.Controls.Add(Me.Label27) + Me.TabPage5.Controls.Add(Me.Label7) + Me.TabPage5.Controls.Add(Me.Label26) + Me.TabPage5.Controls.Add(Me.Label16) + Me.TabPage5.Controls.Add(Me.Label25) + Me.TabPage5.Controls.Add(Me.Label17) + Me.TabPage5.Controls.Add(Me.Label24) + Me.TabPage5.Controls.Add(Me.Label23) + Me.TabPage5.Controls.Add(Me.Label8) + Me.TabPage5.Controls.Add(Me.Label22) + Me.TabPage5.Controls.Add(Me.Label18) + Me.TabPage5.Controls.Add(Me.Label21) + Me.TabPage5.Controls.Add(Me.Label19) + Me.TabPage5.Controls.Add(Me.Label20) + Me.TabPage5.Location = New System.Drawing.Point(4, 21) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(431, 247) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "Controls" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.Transparent + Me.Label3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label3.Font = New System.Drawing.Font("굴림", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.Firebrick + Me.Label3.Location = New System.Drawing.Point(21, 14) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(35, 45) + Me.Label3.TabIndex = 12 + Me.Label3.Text = "1" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label3.UseCompatibleTextRendering = True + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.BackColor = System.Drawing.Color.Transparent + Me.Label28.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label28.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label28.Location = New System.Drawing.Point(81, 73) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(12, 20) + Me.Label28.TabIndex = 29 + Me.Label28.Text = "3" + Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label28.UseCompatibleTextRendering = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label6.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label6.ForeColor = System.Drawing.Color.Firebrick + Me.Label6.Location = New System.Drawing.Point(80, 13) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(13, 18) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "2" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label6.UseCompatibleTextRendering = True + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.BackColor = System.Drawing.Color.Transparent + Me.Label27.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label27.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(22, 73) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(12, 20) + Me.Label27.TabIndex = 28 + Me.Label27.Text = "3" + Me.Label27.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label27.UseCompatibleTextRendering = True + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.BackColor = System.Drawing.Color.Transparent + Me.Label7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label7.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label7.ForeColor = System.Drawing.Color.Firebrick + Me.Label7.Location = New System.Drawing.Point(143, 13) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(13, 18) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "3" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label7.UseCompatibleTextRendering = True + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.BackColor = System.Drawing.Color.Transparent + Me.Label26.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label26.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label26.Location = New System.Drawing.Point(286, 53) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(12, 20) + Me.Label26.TabIndex = 27 + Me.Label26.Text = "3" + Me.Label26.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label26.UseCompatibleTextRendering = True + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BackColor = System.Drawing.Color.Transparent + Me.Label16.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label16.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label16.ForeColor = System.Drawing.Color.Firebrick + Me.Label16.Location = New System.Drawing.Point(208, 14) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(13, 18) + Me.Label16.TabIndex = 16 + Me.Label16.Text = "3" + Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label16.UseCompatibleTextRendering = True + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.BackColor = System.Drawing.Color.Transparent + Me.Label25.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label25.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(209, 53) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(12, 20) + Me.Label25.TabIndex = 26 + Me.Label25.Text = "3" + Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label25.UseCompatibleTextRendering = True + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.BackColor = System.Drawing.Color.Transparent + Me.Label17.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label17.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label17.ForeColor = System.Drawing.Color.Firebrick + Me.Label17.Location = New System.Drawing.Point(286, 14) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(13, 18) + Me.Label17.TabIndex = 17 + Me.Label17.Text = "3" + Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label17.UseCompatibleTextRendering = True + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.BackColor = System.Drawing.Color.Transparent + Me.Label24.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label24.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label24.Location = New System.Drawing.Point(144, 53) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(12, 20) + Me.Label24.TabIndex = 25 + Me.Label24.Text = "3" + Me.Label24.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label24.UseCompatibleTextRendering = True + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.BackColor = System.Drawing.Color.Transparent + Me.Label23.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label23.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label23.Location = New System.Drawing.Point(22, 53) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(12, 20) + Me.Label23.TabIndex = 24 + Me.Label23.Text = "3" + Me.Label23.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label23.UseCompatibleTextRendering = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.BackColor = System.Drawing.Color.Transparent + Me.Label8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label8.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.Firebrick + Me.Label8.Location = New System.Drawing.Point(21, 35) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(13, 18) + Me.Label8.TabIndex = 18 + Me.Label8.Text = "3" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label8.UseCompatibleTextRendering = True + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.BackColor = System.Drawing.Color.Transparent + Me.Label22.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label22.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(209, 32) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(12, 20) + Me.Label22.TabIndex = 23 + Me.Label22.Text = "3" + Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label22.UseCompatibleTextRendering = True + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.BackColor = System.Drawing.Color.Transparent + Me.Label18.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label18.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label18.ForeColor = System.Drawing.Color.Firebrick + Me.Label18.Location = New System.Drawing.Point(80, 35) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(13, 18) + Me.Label18.TabIndex = 19 + Me.Label18.Text = "3" + Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label18.UseCompatibleTextRendering = True + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.BackColor = System.Drawing.Color.Transparent + Me.Label21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label21.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label21.Location = New System.Drawing.Point(81, 53) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(12, 20) + Me.Label21.TabIndex = 22 + Me.Label21.Text = "3" + Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label21.UseCompatibleTextRendering = True + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.BackColor = System.Drawing.Color.Transparent + Me.Label19.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label19.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label19.ForeColor = System.Drawing.Color.Firebrick + Me.Label19.Location = New System.Drawing.Point(143, 35) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(13, 18) + Me.Label19.TabIndex = 20 + Me.Label19.Text = "3" + Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label19.UseCompatibleTextRendering = True + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.BackColor = System.Drawing.Color.Transparent + Me.Label20.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Label20.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(286, 33) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(12, 20) + Me.Label20.TabIndex = 21 + Me.Label20.Text = "3" + Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Label20.UseCompatibleTextRendering = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage3) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(351, 70) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(439, 187) + Me.TabControl2.TabIndex = 11 + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.Button18) + Me.TabPage3.Controls.Add(Me.TextBox5) + Me.TabPage3.Controls.Add(Me.Label14) + Me.TabPage3.Controls.Add(Me.TextBox4) + Me.TabPage3.Controls.Add(Me.Label5) + Me.TabPage3.Controls.Add(Me.TextBox1) + Me.TabPage3.Controls.Add(Me.CheckBox6) + Me.TabPage3.Controls.Add(Me.CheckBox7) + Me.TabPage3.Controls.Add(Me.CheckBox8) + Me.TabPage3.Controls.Add(Me.CheckBox3) + Me.TabPage3.Controls.Add(Me.CheckBox2) + Me.TabPage3.Controls.Add(Me.CheckBox1) + Me.TabPage3.Controls.Add(Me.RadioButton5) + Me.TabPage3.Controls.Add(Me.RadioButton4) + Me.TabPage3.Controls.Add(Me.RadioButton3) + Me.TabPage3.Controls.Add(Me.RadioButton2) + Me.TabPage3.Controls.Add(Me.RadioButton1) + Me.TabPage3.Location = New System.Drawing.Point(4, 21) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(431, 162) + Me.TabPage3.TabIndex = 0 + Me.TabPage3.Text = "페이지설정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'Button18 + ' + Me.Button18.Location = New System.Drawing.Point(387, 47) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(75, 23) + Me.Button18.TabIndex = 17 + Me.Button18.Text = "Button18" + Me.Button18.UseVisualStyleBackColor = True + ' + 'TextBox5 + ' + Me.TextBox5.Location = New System.Drawing.Point(196, 112) + Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Size = New System.Drawing.Size(43, 21) + Me.TextBox5.TabIndex = 16 + Me.TextBox5.Text = "1" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(114, 116) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(29, 12) + Me.Label14.TabIndex = 15 + Me.Label14.Text = "여백" + ' + 'TextBox4 + ' + Me.TextBox4.Location = New System.Drawing.Point(149, 112) + Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Size = New System.Drawing.Size(43, 21) + Me.TextBox4.TabIndex = 14 + Me.TextBox4.Text = "1" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(261, 119) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(53, 12) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "번호형식" + ' + 'TextBox1 + ' + Me.TextBox1.Location = New System.Drawing.Point(319, 114) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(90, 21) + Me.TextBox1.TabIndex = 12 + Me.TextBox1.Text = "1" + ' + 'CheckBox6 + ' + Me.CheckBox6.AutoSize = True + Me.CheckBox6.Location = New System.Drawing.Point(235, 72) + Me.CheckBox6.Name = "CheckBox6" + Me.CheckBox6.Size = New System.Drawing.Size(112, 16) + Me.CheckBox6.TabIndex = 11 + Me.CheckBox6.Text = "구관리,전산번호" + Me.CheckBox6.UseVisualStyleBackColor = True + ' + 'CheckBox7 + ' + Me.CheckBox7.AutoSize = True + Me.CheckBox7.Location = New System.Drawing.Point(235, 50) + Me.CheckBox7.Name = "CheckBox7" + Me.CheckBox7.Size = New System.Drawing.Size(48, 16) + Me.CheckBox7.TabIndex = 10 + Me.CheckBox7.Text = "표준" + Me.CheckBox7.UseVisualStyleBackColor = True + ' + 'CheckBox8 + ' + Me.CheckBox8.AutoSize = True + Me.CheckBox8.Location = New System.Drawing.Point(235, 28) + Me.CheckBox8.Name = "CheckBox8" + Me.CheckBox8.Size = New System.Drawing.Size(102, 16) + Me.CheckBox8.TabIndex = 9 + Me.CheckBox8.Text = "장척1자리사용" + Me.CheckBox8.UseVisualStyleBackColor = True + ' + 'CheckBox3 + ' + Me.CheckBox3.AutoSize = True + Me.CheckBox3.Location = New System.Drawing.Point(120, 72) + Me.CheckBox3.Name = "CheckBox3" + Me.CheckBox3.Size = New System.Drawing.Size(60, 16) + Me.CheckBox3.TabIndex = 7 + Me.CheckBox3.Text = "중규격" + Me.CheckBox3.UseVisualStyleBackColor = True + ' + 'CheckBox2 + ' + Me.CheckBox2.AutoSize = True + Me.CheckBox2.Location = New System.Drawing.Point(120, 50) + Me.CheckBox2.Name = "CheckBox2" + Me.CheckBox2.Size = New System.Drawing.Size(112, 16) + Me.CheckBox2.TabIndex = 6 + Me.CheckBox2.Text = "관리구,전주번호" + Me.CheckBox2.UseVisualStyleBackColor = True + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(120, 28) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(72, 16) + Me.CheckBox1.TabIndex = 5 + Me.CheckBox1.Text = "일련번호" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'RadioButton5 + ' + Me.RadioButton5.AutoSize = True + Me.RadioButton5.Location = New System.Drawing.Point(21, 116) + Me.RadioButton5.Name = "RadioButton5" + Me.RadioButton5.Size = New System.Drawing.Size(59, 16) + Me.RadioButton5.TabIndex = 4 + Me.RadioButton5.Text = "기기용" + Me.RadioButton5.UseVisualStyleBackColor = True + ' + 'RadioButton4 + ' + Me.RadioButton4.AutoSize = True + Me.RadioButton4.Location = New System.Drawing.Point(21, 94) + Me.RadioButton4.Name = "RadioButton4" + Me.RadioButton4.Size = New System.Drawing.Size(59, 16) + Me.RadioButton4.TabIndex = 3 + Me.RadioButton4.Text = "기입용" + Me.RadioButton4.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(21, 72) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(59, 16) + Me.RadioButton3.TabIndex = 2 + Me.RadioButton3.Text = "인입용" + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Location = New System.Drawing.Point(21, 50) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(59, 16) + Me.RadioButton2.TabIndex = 1 + Me.RadioButton2.Text = "하프용" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Checked = True + Me.RadioButton1.Location = New System.Drawing.Point(21, 28) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(59, 16) + Me.RadioButton1.TabIndex = 0 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "일반용" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.Button20) + Me.TabPage4.Controls.Add(Me.Button19) + Me.TabPage4.Controls.Add(Me.Label13) + Me.TabPage4.Controls.Add(Me.ComboBox1) + Me.TabPage4.Controls.Add(Me.Label12) + Me.TabPage4.Controls.Add(Me.Label11) + Me.TabPage4.Controls.Add(Me.tb_picfile) + Me.TabPage4.Controls.Add(Me.Label10) + Me.TabPage4.Controls.Add(Me.TextBox2) + Me.TabPage4.Controls.Add(Me.TextBox3) + Me.TabPage4.Controls.Add(Me.Label9) + Me.TabPage4.Controls.Add(Me.CheckBox4) + Me.TabPage4.Location = New System.Drawing.Point(4, 21) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Size = New System.Drawing.Size(431, 162) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "배경설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'Button20 + ' + Me.Button20.Location = New System.Drawing.Point(208, 71) + Me.Button20.Name = "Button20" + Me.Button20.Size = New System.Drawing.Size(75, 23) + Me.Button20.TabIndex = 29 + Me.Button20.Text = "Button20" + Me.Button20.UseVisualStyleBackColor = True + ' + 'Button19 + ' + Me.Button19.Location = New System.Drawing.Point(208, 42) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(75, 23) + Me.Button19.TabIndex = 28 + Me.Button19.Text = "Button19" + Me.Button19.UseVisualStyleBackColor = True + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(231, 16) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(53, 12) + Me.Label13.TabIndex = 27 + Me.Label13.Text = "크기형식" + ' + 'ComboBox1 + ' + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Items.AddRange(New Object() {"일반", "중앙", "맞춤", "바둑판", "확대"}) + Me.ComboBox1.Location = New System.Drawing.Point(288, 12) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(121, 20) + Me.ComboBox1.TabIndex = 26 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(331, 90) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(41, 12) + Me.Label12.TabIndex = 25 + Me.Label12.Text = "[적용]" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(372, 90) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(41, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[찾기]" + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(15, 105) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(394, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(12, 90) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(65, 12) + Me.Label10.TabIndex = 22 + Me.Label10.Text = "그림파일명" + ' + 'TextBox2 + ' + Me.TextBox2.Location = New System.Drawing.Point(93, 35) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(39, 21) + Me.TextBox2.TabIndex = 21 + Me.TextBox2.Text = "1" + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(48, 35) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(39, 21) + Me.TextBox3.TabIndex = 20 + Me.TextBox3.Text = "1" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(11, 38) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "크기" + ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Location = New System.Drawing.Point(15, 12) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(72, 16) + Me.CheckBox4.TabIndex = 9 + Me.CheckBox4.Text = "바탕그림" + Me.CheckBox4.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(563, 50) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(75, 23) + Me.Button5.TabIndex = 13 + Me.Button5.Text = "Button5" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button17 + ' + Me.Button17.Location = New System.Drawing.Point(641, 21) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(75, 23) + Me.Button17.TabIndex = 14 + Me.Button17.Text = "Button17" + Me.Button17.UseVisualStyleBackColor = True + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.White + Me.Panel1.BackgroundImage = CType(resources.GetObject("Panel1.BackgroundImage"), System.Drawing.Image) + Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox2) + Me.Panel1.Location = New System.Drawing.Point(16, 19) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(333, 524) + Me.Panel1.TabIndex = 15 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackColor = System.Drawing.Color.Transparent + Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image) + Me.PictureBox2.Location = New System.Drawing.Point(134, 185) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(145, 87) + Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox2.TabIndex = 30 + Me.PictureBox2.TabStop = False + ' + 'lb_left + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(800, 555) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Button17) + Me.Controls.Add(Me.Button5) + Me.Controls.Add(Me.TabControl2) + Me.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.Button4) + Me.Controls.Add(Me.Button3) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.KeyPreview = True + Me.Name = "lb_left" + Me.Text = "미리보기" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.TabPage5.ResumeLayout(False) + Me.TabPage5.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents tb_pixelpos As System.Windows.Forms.TextBox + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_height As System.Windows.Forms.TextBox + Friend WithEvents tB_width As System.Windows.Forms.TextBox + Friend WithEvents lb_size As System.Windows.Forms.Label + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents TextBox4 As System.Windows.Forms.TextBox + Friend WithEvents tb_fontbakcol As System.Windows.Forms.TextBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents TextBox5 As System.Windows.Forms.TextBox + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents cb_autosize As System.Windows.Forms.CheckBox + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Button14 As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents Button16 As System.Windows.Forms.Button + Friend WithEvents tb_pixelsize As System.Windows.Forms.TextBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_u As System.Windows.Forms.Label + Friend WithEvents lb_s As System.Windows.Forms.Label + Friend WithEvents lb_i As System.Windows.Forms.Label + Friend WithEvents lb_b As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents lb_font As System.Windows.Forms.Label + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button17 As System.Windows.Forms.Button + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox + Friend WithEvents Button18 As System.Windows.Forms.Button + Friend WithEvents Button20 As System.Windows.Forms.Button + Friend WithEvents Button19 As System.Windows.Forms.Button + Friend WithEvents Button21 As System.Windows.Forms.Button + +End Class diff --git a/Epole/preview.resx b/Epole/preview.resx new file mode 100644 index 0000000..d60a849 --- /dev/null +++ b/Epole/preview.resx @@ -0,0 +1,1164 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAUIpJREFUeF7tnQdU + VOf69TUxGlsSU27iLemJqSYxxmiMvSIWFHtDxYpgA0QUKTbsvfeONKUoRekgoNJ771Wagr3tbz9nZgjx + mpvkxtxP/5G19nqnnDlzOL+nvc95Z6ZevWd/z87AszPw7Aw8OwPPzsCzM/DsDPyFzsD3/SZ8SHWnnv8L + /dt/rX+VcFtRvaipPw7U395z2PTT/ccYxo2dYQ49o8XoPGgy+FyHv9ZZ+T/23/4C5MRxBuYwXLAc5ss2 + wnbjHuw4YI8Tpzzg5RuMsEsxCAyNgOXq7WIAC/6PnZL/e/8OIX1G9RVP7jRQf1evYdM9B4wxJOSFP4O8 + 86Aasl8IwiNiEZuQgryCIpRXVOLa9eu4e/cu7t+/jwcPHuDmrVtwcPUG9+X7f++MPYX/0fdahKxFyFoT + ZghkhuuzA8Yapaggr8DC5Ztgu3kvFMgunvAWyJcIOT4FufmFKCuvRM2167ijgYz//CdGEBwWiVHTzG7Q + sBo/hafs6Ttkwv2S0v4Z5DEqyEYCedkmrCTkXYcc4ODiBW//8wiPjEOM4snFqKiswjVCrvXkX4H8a08n + pWbC1HodeDxdnr6z+YQesRryQI6GnQZNlnDtS09OHz9zEYzMbRVPXrlJBdn+lCe86MlhhBxNT1aFa0Ku + E65/DeIfeV6ixqZdR9Ch/0TbJ/R0Pl2HRei2nXUmY/aiVVilhGtClnAtnsycHBOfXAtZwrXGk/8IxD/y + 2tu378DZ/Sz6jJgR/HSd6Sf0aNtpTfhx0hwr+ASGqT35Rm1O/iOg/qzXSh0QciEK4w3M7/HYX35CT+vT + c1jttPSeH65vXOMXFKZU20/DX0paJsyXbgQNQPvpOdNP8JF2HzL19GEHVyWPPw1/FZWV2LL3GDoOmLTu + CT6tT8+hMQrMWLpuJ7Jz858G/rh9+zZOnfFB3xEz4p6es/wEHykN4L1pxjYs+mKUhsuT/qfUAeGRmGBk + wTSg9+oTfGqfnkPrN9Ig193LH3fu3HnS+SvHl5yWgUWcnrbrqzfi6TnLT/CRyoWXbfuOoayi4qkwAGkw + bd93HHLcT/BpfXoOjZ6kbbZkPZJS0p8KA7jFOsCVdYDWSIP0p+csP8FH+l3f8a+Omb7gnn/IBdy7d++J + NwLlugDrAP3ZluCxv/0En9qn59B6Dp0WfMzRHTU11554A5ADTE3PwmLbzWIA456es/wEHykr6gUreR0+ + v6DwqTCAcvYDdu4/gc4D9Y89waf16Tk0elIHQ7NlnA5GPxXTQekHuHicg/Yog9yn5yw/wUf6XZ/xzw8a + N6vC3csPt27dVozgSZa0roPCLmLKXCvw2Fs9waf26Tm0zoP0j+08eIIXhiqeaPgaw5Q6wGrlFjGAGU/P + WX6Cj5QnUl8aLIlJaU+FAVRw6ZgYbJdB+o5P8Gl9eg7tuz7j3p5guAi+gaHKtf8nOQUo6wRv3oIr64CB + Y40qeOzPlos/DlPrPWxa3HEnd1RX1zzxBqDUAaGXMG2eDdr2Gffl4/j///L7aN9Pb92aLXuRl1+A+w/u + c53AA44sCDmKlNvyeJ1RWbmrPCejvEYl8VLZ7qfH1ftQtlc9r5LsT63a1/N16v2qttXsVx6X/ajeM4XX + BaxXbRUDMP3Lw3scJ6Bt73HasxeuQNjFyFqQGqBP4ljOdYK7D51AVx3904/j///L74MG0Fh34twb7l6+ + zLE3n3gjuMFjdPE4i8HjZ9Xw2J/VAY/DgulNnrtZXZeVlT/xBiDXLgJDwmFgyjqg97gfH8f//5ffR9ve + YxdYss+emJyiXBx60pWanokla7axHzBu0V8e3uM4Ad/2Hvul/mwLnPUNUpZgPekGcJmRas8he3TT0X+2 + XPxxGIDso+/wabl2Tm64evWq0hN4knX9+g24nj4L3QlzbtB4n31s7HEYwQ/9Jxxbv20/cvLynmj4Ypiy + lE3qAMP5S0ED6PU4/v+//D6+7TV2tLHFSoSGX1RO8JOu1LR0LGUd0K7PuGcfG3sc1ksDeHXkFJN77p7n + lA94PukGUHr5MvYcdpA64MLj+P+f7YNnoPtg/ei9h+1RUlKqFINPsmpqauBy2hsjJxvf+7bXmGfLxR+H + BXNaZWuzegviE5K4RuDWE6/z58Mx33IVftDWe/axscdhAG16jek4bZ4Vp4MBuHHjhsoAeAVOOoQ3b6mk + 3FeMQ+5rnpPt5Dk+JqNspzYguYJXd3vN65RR2bc8r96Xsn/NPlQGqLyHItV+Vceieiw1NY3fV7AP3wwx + ud13gEFGfx3D0oE6hjmDhxg+u1D03xgEDeD5gWNmXrNzdkMFF4koJ/sJlkxZI6Nj8I2uKUYPNcKmMTNh + OHwmBgzUz9fVmfT6f3MO/vKv+XHABJeNOw8gMzNLiQJPuiqrqnDa5zw8PAKRe9IdZ2cvphEYoq/WKHfd + /rr1//JAf+8JYBSYNN9qNcIuXMJ1foL4aVBhUTES0nJRlVeIHM5iDpuuRr8B+ve1eg9o83v//7/89jSA + 9yYZLcRpTx+lK3jt2rUnXvJVMomp2SjMzscNGsP57QdhOWUJtPv099X94YcGf3mov/cE6Iw3yj9ywgVX + GF5luvWkq7LqCpISk5GSyrRVWITs055wst6Kof3639D97LPev/f//8ttrzvM5NvBQ+fN1daZdUZ7kFFu + x6Fzr00yX48qGkB1dfUTqUp+UOQym0GFhYXIzs5GRnoG0tJzcCWTkSDwPLwMzWDcpg02GL5VFOD7rnNa + 3GvhGw/NqNaZ7/hgkInTg0GmvyTne4NMne+qBY6PkmxzmfKmxlDNnlqjIfx21BXDUSZYOd4EtpT2SGPs + c/blTKBSSQP/P3TlyhWuTyhDcXEJCgoKFMhpaWlITk5GYmLiI1VWHIO7NT64f/MEHtSMBq7UA6p+0rWi + pgpM632hcAnOhtfF/F+U96V8nI0o+DfJa86E58LON+3BWrvIu5OWeVRznxeo8VSjp8oQCL4xlbtGzwRx + i5aicNM25O07jHAnD3iGxKD0cjkExJ8l+TyCeHFBfj5ycnI588hUAMfHxyM2ll8y+TuVnJIE3Dmj0u0j + wLVhQE0dVQ/DITc3+Ebmoezqbdzg1yPcvMtN+fnYurrD+w9L8/wtbi+vq755DyVVt5CYU4VTQRkPhpid + qqAB7Bho6vz0XJ0k/EF6I0zuJm3ZjXuXInCfJ/52XDzKYuIREpGI5AxW1kwDKlWqpbmvGmUa9vNtfv58 + aWmpEqZzc3ORnp6OlJRkJCQkIDIy8k9RzdUg0jyllgvHOrp5EPeuH4F/ZC6KKq4T5H0VaH5f1m9WHeMQ + o7h55wGuXr+LgOjCBxOXedSIEfSb6/R0TD91hxpv3G264t5V/yA8iI4GqLtRUbgaEYWLF2JwPiqZ3/5Z + Ccm3MkpzSLnNUdKDMlbyMeVxua3arpLPiSRsX7hw4X+m8PBwBLM9jJuHVLrlQDmqdFN0mO57GHGpUUjI + KkfVtTsQj36Ux/+ex27ffYAaRgSXkCzWFs5VVJ8nPhXo6hrV1x0y08Vj2foHt8Iv4AFBkRTu8yTeCA1D + ekgYPIJjGKLLUF5e/h8lufpyaQJKCs+jsuwMaqpO4ma1A1/rj/OhoQgJCXmsCg4OxqPk6+MLH6q0yJug + 96p08zjHOrq+F/ev7ce5i1nIK63B9dv3/y0FPJwSfsv9WzSCiurb2OocI0YQNcDkCa8HdHUmP6erMzHD + w9AYd3hCHwQxdAYG4kFAIO74+6PUzw/ewRFIychRijEFMvP15ZJoVFe54WbNCdy9eRT3b9Or7tDbHqXb + B3Eh4iL8/HxV8hX58bYffHnbl6M8rtymfHx8anXu3DnUlbe3N7t9HnB3Pw1XFxc4OzvDyckJjg6OcHB0 + gJOjI+zt7eHo6AQvL1fm/w3UFuD6fuogxWMUXaNRUMnpwYhKLUV5Na85EN5vgfxr29y4zc8t5F2BwZpz + 12kET/7nF3UHDMs9qTsMd86eBagHPMk8e7jn6Ylqnuww30AEBIcjjIZxLiwd5y5kK0rODCFwnkiNbvO2 + oj3Ubmonw+42ahPu3dgC55OnFDgnTpxQdPz4cRw9ehQHDh7A7j17sHXrNqxfvx4rVqyAjY0NLCwsYG5u + DjMzTuWMTTBnzhwYzDTA1KlTMWnSJEyYMAF6euMxfvx4jnrQ52PT+JzBDANl24ULFyIseBNQoc+ZgAVw + dQ2rtq0sCHlsNTzG6u14cHUHvPk/ZRZeVcL3rYcKwV+DXVsU8nXyWkVMJ1IPnAzKlCgQN9DE+Y0nOhUM + 7Nkn4nCvXoySDJH0Kpxi8XTyJO7TuyL8IuEZmgmvsCwExxYgLqMMaflVSMyuYPjMQWaupxoyTyxB4yZP + 8s2l9LL59LAZ1Die6CE8I1o4Zr8Js2bNIqRpCrxRo0ZhyJAhGDBgAPr27YtePIYePXuiR/fuVA/06EEp + I+9rbvN+97ric8p9GWUbRarte/boyVbwICC3BZD/PlDUASjlbKB8DlC5hFPD1dQ6No5OI4T/W3ElL3qx + mKsFWReqGqwGsECWmYMi9SxCZgUa1dy6j4LyGzDbHnSTaWBH79lPcEHYrc33SZvat8fVrVuR4e4Hj6BU + uAWnwy8iFxHJJUjOrUROSY1ygqqu3cU1/nNVtPD0gis4FZiGzKztBD2JoLXpad/zpH5Mr2vJE/0y1Ri4 + /DxVnye/Pnr2HYAff/xRrY7K2LGuOmqeU40d5X5Hblf7+E+v+Wk/dbZV9t2R+1RtJ7fXrJkJZLAPkMFj + yGgAZDYHsv5Jw/gSyPsBD/J6YNUhPwTGFOIyp4XXbwvIB7ihnuopo+Y2IV+vBf1A2fY6Q/41jopu8fYt + BhiO5dV34HEhH/2NnQupb57YKNDf6MBtaYwcP5uEwOh85sTLSM6rQlaxQL+Fymv3UM1/sob/oIg1Dqpu + 3Ef2Za7KDcnC6MUuiL7URgX5Mk90aR2V8LaoWKXzfgPR9rvv8F1bSjO2bcvHRPJ4W0VtZeR9ZVSeV9+W + bZTb6tcr9zXbqp+T5+UxZZu2jDDd+OVCfH9RilrJHEVJKrk7DWLO9kFAbCkKKu/ics0DlF0jRKryxgNc + uclpHlWtEQFXi9SPy3MiOS8V1+4rr5f9XEy7guWHI+5pz3MK627o+NwTYQTMSQPZqJC5KozW+WKTQzSc + AzNxKbUMyfnVKKi4pfwTVTcJ+j+onNukFNTgiHcKhpnboSD577WgFeBFahVy1KigHgYPH4LWrVvjyy9b + c/xSdVtz/0u5/yWf46jc5jbqUbWN6jnltT8b1dsr+5TnVPv8pNUn+PzTf9SCRiKPRZSgVjxH6kFsfYy2 + sMNO10TE519D4RWGcFHVPeSLKu8jr/JerfJ5WyPl8Yp7yKWyy+8i4/JdpJXeRUrxXcTk3IBTcB7G2Xje + 0prrNOb/mwH0m+f8L4ahLYSeM2P1ufu7XOOVVuaFlDKkF19H8dW7tPT/DPxRxlBGI0jIvYrdbvEYZ3kA + 17KaqmATtKL8OsrjbVFuPcL5Ch9//DFaUTJ+3KqV6j7H2sc0z6mfb/WxapuPOaq2eWjbVh/j7XfewRtv + /A3NmjVDgwYNwBOOxo3qYd+KNxTQiFMrlqMoRq3oejhjr42ZazkTiSlFVtldwhSg95BFZRJqBh9L55hO + uGkld5GqVkrxHQV2UtEdJBXeQSKVUHAH8VRs/m0EJV3FOvt49J3jlNd5hsP//nOMWvOcvyL8q/T6B6uO + XroXHF+CrNIbDHG/7uW/FgXk+dLqe4jJqlIiySSbPbif+1wtaIGNHLWyOaqVFvIe3n33XeodvENo73CU + +++8I+Jttd6RbZTbqsdlO8349ttv480338QrL7+MF198EfXr11eAP6znnquHnu2Z+wU2QSuKUiuSoyiC + USCiPkYsdMBRnywk5N9EKkGnlhAuQQvkZIEsgAlaIMcX3EYcAcflE3TebcRQ0aLc24jMobJvIyL7FkLT + rsM+qBATV/jc6zXLcfb/NAoQfiuqctwST+UCyMkgNj7Kmdf/C2//T8YgEeRSWgVWHr0II9v1taCRxZMr + ylRLKcaodELRGoSWLd/CWy1bKmPLt1riLaol778lj8t9eVx5vqUCu0WLVxTvbtiwoQL8t+q1l+sj2oHF + HyErukRdVOsCxws8pvB6WLzaAmvt4xCWWl3rxRpPFsgqwLcQJYDVEsgXs27hgijzFsIzbiKMCk2/hfNU + cMpNeERVYfnRONAASn+YZv+/aRH3nevUoO9c56D5u8LuO4cXY+D8U9jsFIMk5vny6yxYfiXH/57nxaCK + r9xFaNJlWOwKgdXGRbWgBTbS1HqoGGv1yRd49dVX8ZroNdFreJWS2y1atFBgv9joRTz//PM/g/3cc8/h + 96hBg+eg3elFgmZ0ClcrjKMolAYgOl8f+3eOhdmOUHhFl9dCFsCXCFeBLIAVyLfUkG/ifNpNhKTeRDAV + RNiBKTcQkHwD/kmi6/BNvAHv2Brs9MiBzgL3e90MHfv/T6JA7zlOOrqLTl855JeH4HQeVGoNOCeF2/kc + FjC3/5ABcEaovL6Sla/Ar2ClLBVzLqOL96UCTFzuiVCvdr9YdWuKsSuXmhP46wroJk2bolGjRkruFrji + 3f8JshjFoySvf1gvvPA8Wr7+PG4GckoaSp1XK5gGIApSKciuIybZ+rJwK0ZYutqLBTAlgFWQbyBQAzjx + OvwoH0I+l3Ad5+Kv42zcdXhTXrHX4RFzjbqO09HXcMivBFPXBoOzgb1/ugH0nOXUpOdspzirw9EP3KIr + EUyrDcq8CcsDkTDdGojw5DIld/+alwtcFWC1+AMjEj1kiiS6TJWylijltKek+gGLyQecSVznzCANA014 + 4eUXqu6firH6WGnVVQH/S8A1kB8F9t9Bv4AXXniBKeIF7vMFvNTsBXzxwQvYNOcF1JxjHRCsVhBHUSAV + oJZ/AxSe/gcGmblir3cOAui9AWov9ku4AV8BTJ0lZG/KK+4aPNWQzxD0GUI+HXUN7pE1cKVcImpwijp5 + qQbOF2twKKAc83ZEoLOBw7lOMxz+3DTQzchxxtDFHnd2eOXiTPw1+CTfhA/Dkzettb/JSaVqTymsQTk9 + 9yfAvJAhnkzA5QRdxq8PLiNYBTLH0pr7KFFA30cxYRddvY9CqojQlSkTlV91HzlldxCWUolVxyKhZ8Em + kVTeP6u6GW6j1YriGPUcDPVa0Zsb1Hr0o71YBVcFuOHP1PjFhmjxUkO894+G+PGrhtDTaoht8xoi7XhD + 3AtsSNB1FMDbIn+1fF8AfNSikeiYHMZaxxR4RFfTk6+pQYsnEzIBC2Q3gUy4CmQ1YOcL1XCkHMKpsGrY + U3ahV3E8tBrHz1/FAf8KmO+Lx4/THVK7GDj8eesFOs90fL7LTMfI2dsvPjgQWIZTUdfhSkt1j71BXedB + VkGH9YB7WC5D9h21F9cFTE8mZAErkIsIVubFytyYgAVynohz41yRMv9Vi1OlrLJ7rJZvwvNSCQzX+2PP + njGELKCpSLUiGHJFl0QMx9T77/6NUFXh+5dAC/gXX2yEZk0boeXfGuHbTxphgnYj7JrfCBd3N8JVz0a4 + H9CIwCkZRf5q+XH0VcuHo+icWmdpDN4qGdssw6J9MXAIragFfSqiWgEt3ux0kaAVyFd/gkzAx0Ku4kiw + 6AoOB13BocArOBCg0n7/KuzyqYTF4VR0M3S+ygjw531opeMMh3/+OMMhb9HhJOwPqsIxHuzx8BqcYBiy + 5z9wgv/A1LVBWHrwAi6lVylQxZNVjQ81YHXjQ+CKcgSyGrQAzlQrvfSeal6slsyNZbqUXHQXEZnMe2cz + lYhzNeQlVt2ELZJC7CKhX2DoFYWrdC+kIfZbNkWP7xqi1/cNofVDQwzq3Ajj+jbCQr1G2G7SCCeXN0LI + 9heR6/Qirnm/yKuWbDVr5M/bIj/KVy0fjqJzdXSWt0VeLApFnpQHDUF0hu+zbjJmbgzDXp8SlTdTJwjb + jpDFk48S9FGCPkwdIuiDCugq7Kf2+lVhD7XbV4BXYee5Suw4W4lt1Favclgdy8JAc697HafZG/0pdUCT + wfb120+1H9HH5HTl4uOZ2M6D2OV/BXtohXsDr2JfEENRcDX2BVahzxwn2PtnMRXcVADn1Hoxmx/05AxC + lq6WANZAFsDKvJiAlXkxR6XxUdv8UM2NY/PusIq+BZ+4Sqy2i4XW3BOETOiiMAIXhTLsnhfR8whfpUZ4 + EEwFiQhGFEhYorqgA5oQNuWnli9HkY9a5zieVcubo8iL8lTLg6PojIj7Pk25q+S5Uwtjlvphk1u+Avuw + 4tFVOEDQ+8Wb1aAFtgo0IZ/jr5kQtgLauwKbPSuwyaMSGzwqsOFMBdZRa90rYGWXh+FLgvDjNHvXP8UA + Wgy1b9h6or2njqX/HQu7XKyRN/fkgXhVYqN3JTbzALfwYLfRMPRWBmHR7jAEJVYoDQ/x4p+6WwKZnS21 + fgZYOlwELI0PpfnBxkeUSN34uMRRpk0yZQpJuQ6n88WYtSkYFivNCJjgQwg9mLBFQTLS8whcCduBBP6w + R/8baHYbfdQ614yg1fLmKPKqI0/eFnmodYbjabXcuA+RK+VCQxCdaoK0w59jwPwzWGafiX2EvNf3CnYR + 9E6eN/Ho7RqP5vncwvO6iZA3KqDLsf40QZ8uxxq3cqx2K8NKlzKsOFVOlWH5yTJY2BVijG046wDH1D/F + AN4cYf/yJ+NP3NWxCn5gejgX1s5lsDlZjqU8gGUuPBC3Cti6l2OVogr0nOWIg94Z7FhdV3sxPZiANd0t + Aa3pbinNDw3kh+bFYTIvVqZNqimTzItDWHTKtOlcfDV2nJZU4IKbfmzGKAWZJkcTuL+oTugWr671aAFN + YA+DPsv9eFNeanlyFHmodYbjabXcOYrcKFe1XDiKTlEnuX+Rs0q3HF5Fd56XBfuTsYWevFUDmo60kfc3 + 0qkE9DpqDc/nasJe5VoGW4FNLT95GcucL2MJZe10GVaOpbByuIzFJy7D/GghRq+MQMdpDpWt9ewe/0yA + KaD5x2NPoPd8X0zbmQWToyUwPV4Cs+OlWHCiFOY8iEX2PBjHMlg6lWG4TSDm7wiDV2S5Ale6WxGPglwL + WFqbquZHcOqNnzU+ZMok8qN8Repp0znOiR3P0/r3RWLgPK4cUooxQpc8Lfn5Z6GbwOt69L+BZi3hKeKl + ZpEHdUat0xxF7pSbWq4cRS7UKbVOchQ5U04i7s9RRGOQbqF9c0yYvwUGW6OxyqVE5dV0GBVolWzp1cvV + Xr2UTraE59LGkbAFtMi+FIvsSrGQ596cmn+MHKi5BwoxYgUNYLrDjR/Gb378P4NLA2jx+rATaDPZGcNW + xWHKrnzM2FcMg/3FMDxQDKODJZh1qARzDpdgHo1j3pESdJvpiJ2nMwjvmrp9+VPjI0jT+NB0t9gA8WPT + Q7pbPhrAnBMLZGmAqObGqimTB+fFojNRnCpdvILtZ3IxdqkPPPb1URVltTma0H8WutXeLKA91LBrQb9C + yGq5c6GH20Ny5X0XtU5xFJ2knNVy4ihypBxE3Je9WnY0BtHxl7HUyhR6q8JhZZ9fG74V0OLZ4tWEbOVQ + StDsfNKxFolzEfgCcbZjpTDluTXhuTU+XIy5h4ox+1ARZh0ogsGefAxecpEG4Hi787jVf3/saYAG8BaF + D8Y4o6tJEIatTce4rYUYv70AE7YXYtLOQujvKsTkXUWYsqcI0/YWoe/8szDZHo6T4WXwV3e4BLIPmx8K + ZOluSfND6W4RqtL8oASupvlByG6iyGvK3Fg1P67GSc44nNU6HFgB66NJ6GHkRO8ldMnVSo6uG7oJ/Gce + TTj/BvpVejXlotYpjqdeI+g6cuZtkRPlqJYDR5E9tz9B2VHHqKPUERrDYeogdaAFjq0YDV3LAJgezIY1 + QVtSFvRqgb3whMqrzRlVFc8maJMjxZhH2PMIe85B1jzibPuLYETnm7m3GNN3F2LKzjyM35iOHqYB6DTD + 8WaX0TYt/wwD+EeTIU5oMTYUn+s5oadFNHRWZ0N3fR6GbsjH8A15GLkpH6Oo0ZvzMWZLAcZuyUPP2Sex + xS2T3nq1trslXiwtTHdN40OBe03pbtWFK/NiJ2mCKFMmzo0pmTadYBNEM3U6HlKNI5wybTldgGnrQmFk + YVsnRxN6begm8Lpe/TPQhCegT71O2Go5cxQ58XKv40Ny4H176gR1nDpGHaWOcPtD1EHqALWP2sv97qF2 + 0xh2vorQ1V2hNd8LhjvTGcbp2fRqgT1fPJugjQl6HkHPFtgiwp65j6JDzdhbiBl0rqm7CjBpWy6hZ2L4 + qiQMXBKJ7ib++HKcHdpOsrvVtr/RK3+GAXzQRPckmugl419jPfHtTD/0sEqClm02+tnmQHtlLvqvysXA + 1bkYROmszcWQdXn4YboTTHdG4FgQG0d1ultO7B1Id0vg2qs7XCfY2arb4TquzIuvcMp0RWmEyLTpEKec + Mj8+yPHnzRDWHkdS0c/EDWUO76jysyuh14Zu8Wa1FI+uC5rwfgb6b4ROObxJ0GrZcTxOHaOOUoepQ9RB + 6gC1n9pH7eHrdlM7uc8d1HZqG7WF77f5dZSt/whdjVygvzFRBVs8m6lzNj17tqRTwhbNJOzpeyhG1akS + WenlE7ZkY8z6NOjaJqC/1SX0MAlA+xnu+GrCCXw90RGfjDmO70etivm065/wHccM/x810T2FJhNS8fKk + THw48gS+m3sRnSzT0c06G91tstBjSRZ6LslGr6XZ6L08G32pXjYp6M+pz7qT2ThOkApgdXdL5sJKh0u6 + W+wjaJofAlg1L76Cfex0ifb6sefAKdNumTpJD0KZOlWp5snq6dMaF564zZEYNI8f21JyNIE7UwK81qMJ + otajHwX6LYKmjlFHqSPUYeoQ1yIeoPartY/jHmo3tYvP76R2UNuordQWajMNYiO1gVrP91pHrXkDA4wO + YfSqGBjuzVfBpmbQwwX4VKZQFXBe59+Wj3GbsjBybSoGL49Fv8UX0M3YF+2mueKbSQ74brob03EgtKxj + 0c0sHK1GH0fbAXN2PHbvlx3SAL5qoutCA0hDk6nlaDnGF59M8sK3JvFob56BDosy0cEiEx0XZ+JHqpNl + FjpbZaGLVSbaTbaH8c4Y7Dp7WdW+VMCygSRzYXWHS4ErHS5F0gCRTlcFtnOqtO0s+wvqKZPMjzd7SUOE + 82Rpisj0Sd0UWeN2GQuPZGKYlS8Orh1P0AK7DnAldBOCeLXi0XVBE+RhEZefHaQOUPupfdReLv3aQ+2m + dlE7qe3UNrW2ctzE7UQbqQ3Uemot97eGWsX3WUnZUivexJx5thiy9CL0t+diGsP5lJ0FBM6wviMfeltz + MWYDQ/vqFOgsi0HfRWHoOs8H3087hW/1ndBxpgd6mIVgwLIkDF6VjqFrczBkTTa6LbiIL8ceffBF93Fa + f44B6Ni1azLUFU0mqgyg+eR8vDPsOD6dFoKv5iWhzfx0fDs/A9+apaPtgnR8tyCDInzzTHw3+zwLHx+s + cMyt9VhVd0s1F95KqDIvVoEtV0HlnFjT7VrPBojMjddxXKvMkaUhUqZMn1ZznryKt2W+LM2RJY4Modvi + 0WOWM+7aiTdLntaE7oc8ui7o/YS4lyt691C71drFcce/CFutbRy3UJupTdRGagO1nlpHreH2q6lVaq3k + uJz7XUZjWEotoWxaYqvxTOjYXMSEzVmKl+ttycWodRkYuioZg5ZEoe/C8+gy5yzaTXVSwHee7QUter/O + imQMXZOB4etyMZJ114iN+Ri2LgcDl6eg3cxzaDtuz51POo/+x59iAE11jnVtMtSdBpCuGIDo9XFheG/U + SbSafhGfzU7CF/PS8KXIOB2tjdPwlUk6vjalePvbSScwZ2c8gZUqYNeru1sqqATK+fAaNpBWuaoaICs5 + J17JBpOtphHCufEKdryWn7pc2xBZysZI3SmUzJmlOWJ6MAejl5/HbPPVDN2EfoBSQvfDHq0BTXi1oN+m + Z1NbRKwlNlObqI3UBmo9tY5aS62hVlOrqJWULbWcr1tGLaWWcL82lDVlxfey/Cdyzb/BFpM5GGR9EcNW + JmGobSIG2ESgj3kwusz2RPtpJ/GDgSvzuy8GWEcoRjFiHVdIb2BkkAKb0Efw9tA1mRhEg9CyjESXeX5K + /v9K17bsky5jXviTDMCuT5Nhp2kAGbUG0GRqGd4a5Y33x53BJwaR+GxOMj6fm/ZIfTXZBSOXBsPSLl/p + bNkKUGl4qJseyzgXFpiqUTUntlHLmo0QkcC1lnky58iW0nRSS+bKqjlziTJvNjvKnLotCX2MPRC9oQs9 + muAldCseTdV69CNAb3qXoKn11DrRe4RNraFWU6uolZQttYJaTi2jllJLuL0NZU1ZUovfQdCCgdhkbIyp + c7aglxGn0LPc0Mv0HPqYBbCp5ocuszzQccZJjqfRm48NXhaNEWtSCTwLYzdz1e+WfI6cXW3MwfC1GRhi + m4T+1lHotSAEP85iMa7viA6Tj6Cd3n58NWLTn/ejl40HnxjUZNgZNFYMoAxNplAcm04uxj9GnMKHE87h + U8MYfD4n5d8MQCLD53OT8f1UZ4JJZOuyRN3wUIGshcluoqb5oXS7KHO7Eo4lbITwtojTJmmImHHaJJLp + k5l6GmV6tFhpkpiwGTVrLz1mVQSGGx9kUUbomtC9mdBrPVoNej3hCeh17xM2tYZaJfqAsClbagW1nFqm + 1lKOSyhryuoDZFr8iP1mhvyo2TrozjmOHrPdKHf0nOuB3iZe6GnsjR683dXIDV0MXdCFM4Ee8zzR3yIY + w1fGYfS6NBZ82awB8qC3rQDjOYUeszGbBSCr/hXxGGAVgd4LAtGZBtN+mhO6zDiGbjOOou1kB3w2zh7v + DjuGL4etv/SneL/stPFgu1GNh3nSANLReEopDYDSL0Vj/RI018/Cv4bZ4yP9AHxqFEcjSK01AoGvSQ2t + Jzhg+NIwti3zlfmvQDWTDtdRzoXVMKX5oep2ESbnxcrcmECl82XM6ZKmKTKXc2RpjMgoc2a5LZLbMqUy + 2sdKemsaBiz0xSHLaXVCN6FrPPpRoG0/JOyPVFpOLaOWUjYifjLJ+mO4mE/CEtNlmGB8AL3m0qPnnVaa + XtoLAzHQMhQDrcLQf/F59DMPVFrnPecJeFdu54EBiwIwfEUUxqxL4Tw+AxO35mDS9nyKDbVt9PhNmRi1 + NoXQYzDAMlyJEp0M3XhtxRnac+zQfcZhfD/FEW2mnsZ3hgH4ft4FtDE8j/dG2ONTnZUHiOrxXwdQZgGD + jk1sIgagRwOYVET4RYT/0/iyXjyLQjt8PCUEn81KoAGkKuB/qgtYG8yOw4+GpzFpc7IKHufACkAC+wme + qrUpHa9ZnBdLI8RI5sccFcm0qc5tA3bDDDiFMmCDxIDQZTql3Oc8espOFlcrY9B/jgNqbD+jN9OrbUVq + j16hhq0BvYyAl7RSyeYTRFgMwqYFizDTdCf6zHNX1I9NnAGL/KFjHQbdZczRBCUasjyKrdgIPn4B/RcF + ow8NQgxD29wXw5ax4NuUisnbcjCFlb40cmSqN2UnwUtDZ1M6Rq9JxDDuY+DiEEYMb6VXMGS+M3RNjqOP + 4WH8QK9vN+MMfpgdiI4mnH4viEPnRSnovJiF97xovD/KCZ8MWCpLw8UAHr8RNBl0ZI7KAJJpAIVq5XPU + KA+vjgnDuyOd0WpaOKNA3aIwjUVhOr6SwlDvhDIFmkY4GnAy/1V1udj4YGtzOmHKY9OU26pRJZ44jnLy + NJpSe5vPcSol96dwDi2j/o4C6G1Mg45VCJabWanC91JCr+vRNq1QbtUOhxbMxjzTLVy25Yy+JqcJ2hMD + F/lisHUowTCV2MZgxMpYdt5iMWJVPMcERcNsYzFkySWGcs7HTb0UA9G1DoHe+kT+P/nK/ygtW5F08abx + Gor+Nob6jczza+IU4xiwiJFi3hn0N3XB+MWOGGV2BNqzDqHrTBaEhh7oNC8QXcwuoduieHRfnIru1hkU + p37WOehKtZkThXeHn8DHfRd0IXz5mNhjN4L6NACTRkM90GgcDWBCjqJGmlEvm/cpjm+M9MYH49zwqUEE + vmBR+CWhK/BlRkC1nu6P7sY+SkdLAMn8V8ZJlP4OFTQJh7VS7ucr0yV5bKL6ORkfKeZP2XYixwlbVVOs + kavZOVsYAEfzKThtPgEW81djlPExnnR39DWml5qdhc7iIAyxCVfBXhGpeOMwhuphttFUDA0glvejMXTZ + JQyxDoeOZRDTiw9f6wEdC1+MWx0Ng105qo6eRC+1DBmVDHbnYer2TEzalIxxa7gvpsFBi3zYtTytfP5x + irU9pi/cipGzNqC70UmGfHd0Mw1GD/MI9LJMQG/rNPRekoneS3PYZMtBT6rHEsomB92ssvG10UW8P/wo + /vVFV/n6WvneQjECjSH8obJAY0nPNRp4xLaxrhsaj41FI71MNB6XqYwqZShqPI4an46/j3DBRxO88blR + DFrPS62F/w2nhN+Y8P4Ee/SYH4gBS3g9YWkMBlKDlsRiEEedZbG1GszbImmIyOPSDdNdoRqHrIhTpLuc + klFkG69oKIsmuS/jUNluWRQGMTf3M/NBX/FSAh+w0A+DFgcqIHWsztOLL2Do0ksqwDYXCDmERuGPgQvP + YYAZo4G5FwZb+GCYTTDGrbqECetiMG1bqtLKnSe1iVqS0mbtK4DhnhxM356OyZsSMX51JEYsCYbOQm8M + s/DAlKUumL3sCKaZrIK+kSUmTDXBWD0DjJi3i7MBd/ReHIV+S9PRb3kWlQOtFbnsqqrUZ1muYgQiMYLu + 1pn4fHoIWo04cLvpq39/ibTlm8QeixHUwucOn2/Uf9/oRjp2aDTyAhqNTWYkSOOY+jO9OI73qaZj4/DO + CAe0muyn5H3pAwj8NqL5rAUmOONrGoG0M9tMcmQlq9J3k53w3RTmuinOnDE4sdp15rUEhsEZqlGmSz8a + nFLUaeap2mpaKupuLLK6zVJJKvCec1iczXVX1FskhZrxGWiZnKHnqUbt+R4Ee5byZruan3Di7SGW/hi5 + 7DwhR7BfH6+AnLO/AHMOqHWwgHVLIS/YFCmS23P25cNobzZm7szA9K3JmLwxFnqrL2CUjT90Lbygv8wD + c1c5w3jZHswwXYGp/L7hSdNMMEHfCHoTZ2I8NY4GMNL0IHqZBaL/MhavK/PQX2Sbh340AJHGEMQIeqsN + oStb8a0mB6DVsJ2V5CQG0OQhI/iv04G8UMKIfOjwhec/6v9ywwGHMxvqeqPhyCg0HJ2IRqOTqASVxiTg + RUVJaDImES+PvcTK1A6fTQ/CV3MT0MYkTekWtjFlHWB0AZ9ycclXvIDxvYEnOhh5o+Osc+g0xxed2dTo + YuyvqBuvcHXnBY/uvMzZY36AcnJ6U304HepjHoS+VL+FQay+g1h1BysV+GCrcOW6uC7rDMmvw1Zc4kKJ + SIyypVZGYixDtd66WEzYkAB9huQpnClM256BGbsyGcIJkTLcnUPwuTCiZnM6OXsftT9PJYI22pOlXM2b + uT2FwBMxZUMUJhL4mGWBGGHpDb2lXpi92h3ma45j1qIN/O2hFZgxxwLTZphgyvS5mDxVpUlTZmOi/ixM + mGRIIzDCuEV20GIXcOCKdF5pzeNFtTwMXPVzQ3g4GvxgnoKPJ53Dh4M2JJOTpACNETSsEwl+d1H4M/jc + 0YtUsxe6LO3RcODh2w2H+jMS0AhGxaPhiFiOTAujY9FYNCoOTUeLYvH66EB8OMoOX9AIvpkbR/ip+NY0 + BV/NPK/MXTvO8Wee41WthZHoZRGFPgx9fayi0ZfSso5BP0rbhlU808MAauBSpglJCQz7gylNGhjKsD+M + kqJs5OpEjF6bpGjcumSM35DCgkuliZtTOQNhNU7oU7aJ0hX400U7MujBmSrt4m3RzjQFsjSVpm9NwPQt + cZi6kR9UXXMBerbBXITih1HWZzHF9ixM15+B5UZHmC3fiXmL1mAWf3DKcA5nEEbzYUBNn2lKmWCagTGN + YJ4ifY0RTKYRTJ6NcRaO6G8ZhiGrMzFkLRd4rMn7N0PQtv15NGhrkoiP9Dzwbr+V8lO3shBEYwTy+QAx + AnHg310PaAxA2ooKfOoV6o0Xem5Y1nCQAxroBqLhsEtoODxKZQwjIhW9OCoaTUZFodnoKDQfE4U3R/ng + o9En8MUUH3w9OwJt5sXgq+l+aE3vlytYvS1jCZ2re63jFPWziSP0OPRfyuYHNWhZPIEnKBq8IoHQE5jn + EzF0JadN1PBViRhB6CPXqKCLxhL8uPUCPxkTBPwmlSZtToE+NXmLKAmTNydhymZ68OZ4TNkUiykM3VMI + eDI9Wn9dBCatDceElecxfkWAsuJojM1Z6K84C7NN3li6/TRWbHWA1doDMLFaD+OFqzB3vg0v9CzErHmL + MGuOOYzmLIDhrAWYKTIyg4HhfEydKcbwsCHMweQZpvwY/ClOIxm11mSxx5+PoVRdQ5BooKQGdVqQaNB6 + diw+GOuKf/awWEM+71KyGER+4qa5mp0w/F0GoIEvhYRYUFMNfI7/pN5vqLUjqMGgU2gwJBAvDAunLtIY + LqLJ8Et4cfgFNGOd0HzUJTQddREvU6+NDsZ7o0/is4muaD3NF19OdME3+ifRfUE4ei2mx1uK19PjbWLR + /xfgD1kez7k2JUWduhiUKZhU58M51x/BSn3kymiGeREbLaujMHZVFKtuikWY3toojF8TiQlrqTURSo4e + vzIM41bQk5cJYD+MtjmH0dbeGLvEG9NXMoyv8YDZBjfFs5dsPAbrNftgvnQbTK02wtRiDUz4o9jG861h + bGrF0RLzTCww12Qx5hpbYPbchTCZZYa5Ap6RYIqJNcbPs8aY6eaYNNNciQjTDMQQJC2wVWxojnFWbkxd + TFXrc9jv5yKb9XKxJx+6jAZiCDrqiKDFwrCLZSa+X5CGz2aEcwpohzfaTZ1ENh9Tb1NvqplJPfC7o8DD + 3i+W9BolV5nepz6t37Jt1wbae8sb6LjhBd0gNBwSgkbDQtFoeCgaDw1FE95uytvNR4ThpZGhNIIwvDIy + hNcNOD1k6JfwL0XgD8z9mpyvyvOB6LkgGL3Nz/OKWCgvhbJytwiD9uJQaFuEKm3T/osk57NQYkdNNMiC + TRlFvtDh1GqwxTmKxZyFN4Ys8laKsKGKPDF8sSdztCdGWXlhygpPGKw8A9N1rjBf74zF6+yweO1BLLTd + TY/eABPLdTC1XIv5FquoFTBbuBxm5ja1ms/b8xfYwIT9hXnzFmPebHPMmr0QBsZWmMzfHZ4wl8BnWWHq + onUwXLUDJruceO0iEMZH3KBnYA69GQswnRFBSQ0GpqwRFmOs1RlOQWN4wYcNrE0FGCVGwKt9Oiu5zsI6 + Fe3NEvDVrGh8ZnARn04/j09Y/L0/5pTSBm72Tie5DPwF9YGalTDTRAHNrOA31QKykeQNsRyxIAn9YlHv + UK2or6h2z7XWm/V8/wP3nx94Bi8MCcCLusFoLBoaTAMIRvPhIVQwXhoRjJcJ/5WRwdQ5vMaGxWdcuvTN + RAe0nXpKWdzQngsbOsxwRYfpLugwzZEVvyMXNzqhk4ETP/DozGr/JLpS3We7srpXqfdcV2ibuGKAqRv0 + bZxhsNQRRsvtMdfWHqarjmH+yiMwX3UYZrYHsch2L8FSK3bBjB5sYrkJcxetZa5eDZNFqyhbzF9EwIuW + EbQNFixcqtKiJTDndxwvWLgEAnyuqSWMCHo2Qc8iaAPm+SnGSzDZeBlm2mzG3HW7sHC/Cy9kBWPNuSRs + Di/Cziiuf0i4iQOJ13CA3+hxMLkCe+LyMd1sOcbRCCQlzJC0MMcSY6y9MGI5UwCvAPaz5mf9TCPR2uA8 + Wun7Ms97KqH+vVGOCvD3dPfde3fglstva62+1LKL+ebnGrz4A7l8rWYkUeBvlBSEUgv8rjSgqfxlPinh + X/KJFBdiWWJhbamOVNfnOlnbN+h/DA1oBC/q+KIxU0JT3QA0HRqAZhybD/PHy9QrwwPx8nB/vDTcG68O + t8cX4/fj2xnn0NEsRmlndmV3q5slO1xWaejFpkcvjn1o8b25mkiL6muTxPSQBO0liUwRCSwG47kOLppt + Vn9O5c5g0uwlmD7XCjMYYg2MbWBobI1ZpiJCY142NrOmp9rAlB5rtsCaXizibQW2QFaDJuz5fF5yuMGc + hczhzOXGljA05f5NlmPmQkaENQdhumkPFh905eXpEKz3ScG2sBLsjqzGwfi7OJRwC4f4QdnDyVyrmMKl + bPx+pKNpJTiano9j/FLM45kZOJ6dgmNZcVh19CTGTDPDFBrAFCMLGvkpJTq+P8oZ7444gffY3Plk+B58 + OmQDPupnc/297sYJf287+lCT196dyPMvv2TWl5JfNu1GiQHIL5h8Sr2rdlpxXnFiMQBx6l+NAHXzvxiA + FH9SVUru/4gS7/+e6kz1qNewmXb9XptSnu9vj4YDzqDJkLM0AF80oZoO9SN8H7zCscUIX7w01Jf3z6AF + rxd8Of4IvjXwQ8f5MehknoAuCxPY5kxCNwuu7OU6w17Wyex+paDPkjT0XZoG7eXpGLAiAwNtM6GzKgu6 + q7MwdHUa27ThGGJKz2exNXsuPXOeOfPwIkXGpothwrxsMt+KUK3U4OtCX0oDWEoDscaMuRYwmrtYMZ4Z + BG1ivZtTuIOYv2kfQbsQdDDW+yZjW2gRdvPDnIfiHuBwwj0cSbxD3cIRLns/RtjHUytwPO0y7NKLcCIz + D/b8bQH7rDQ45CTDMTcBjvmxcCqIgnNhBE4VR8C1+BLsYkMxUt8UWqOMHnSdvBtd9Naj/VALfNFzavUH + 7QaEtPzkx63NXvvXZJ7vAXUkXwQhBiBhX36worvaKb/l+Bn1HvUW9YcMQKp/ySHybZT/oiT8f011oLpS + Ynl967f8btLzWruu1dd2QKMBnmgy2BtNdbzRjGPzId54hUbxytCzBM/bQ93w6rAj+HzscbThotIfjPlB + BrMoXthgJDDnurZFcehO9Vocj95WiYq0bJKhvTSZS6BSMciWff2VvDy6Kk1ZSCFdvDEmuxX4Un2rwFsQ + OuGbWcKU+Vm83ZTebmK+BLMZDabPtVSixVTCnm68FLOZ6802EvSBkyrQPknYer4Au7n0/EAMQcdxlVj8 + fRwl7KOEfYwfTDmeXAO71CqcSC2HfTo/6JlRAMfMXDhmZcEpJw3OuclwzkvAqYJYuBRGw7UoCu4lUfAo + jYLX5Uj4lEfCryICwZUROF8VAf/iEExbuB1dRhpf/6TDIPsWf//Y8CHgdeHL7YcN4JcigHxA5HelgLoR + oK4BSE4RA5AvJaxrAGKB2vVbT1pVv+8+PKfliMaDPNBMxwvNB3vhpcGeeEXXEy10vTh64NWhp/DGkP0P + Wus54BtGgA5zw9HB+AJzHa9uzb+ErgsiuLaNS5wXRnPZeQwNIBZ9ueBRe4mE/QROCRM5C+CyKObIoVw4 + MWjhWUw2WYe5DNlzCV8q8DmsyCX8z5hnBf1ZFkwPlphK4DOZr2dZr4X5XgcuOAlgjo7H5pB87ORH2vdH + 3cPBGC4eihXYD3CE3n008bYC2y75GuxSuBSd3u1A73agdztm5MMpOwfO2Rk4lZsKl7xkuOQnwK0wDu5F + MTjNH5bwLI2B9+Vo+JZFw78imrCjEVbFb0m/GoUoKq4mConXIpF6PRLpNy4i4YovVhxwRcdRZjVvf919 + +SMMQKBrJN7fTxxQ7YhyEai92kGFk/ASx5UaQDj+5hrgUQYgKUAigEwxJALIG8kb9lQfgByIdv0fbTzr + 9z2IBlpOhO+O5oNO45XBDPlDNHLHq0Mc8XfdXQ9aT3BCmxk+aD8rCB3mhOCHOed5xSsUnU25AJK9ge5c + 4Nhz4SX0XhSBvosjoW0VxdwfTSNgA2iZTAPj0Wt+MD4dfQjdtMejQ+9RGDFlPiawup462wKGZvR22038 + 0IUvVnrHYkNQHvN0JcP3HeyL4sqwaK4SI/CDsfTweIbyBHo3c/dxxbv5ke2UKtinlcMxvRROGYVwZjg/ + ya+md8lJh0tuClzzk+BWEE/YcThTHAuvklicLY0l7FgElMcipDIWYdTFqhjCjkFcdQwSa2KQei0aGTei + kU3l34pCEVVyJwrldyJRdvsC8qo9sMPZEd0nLcaHnYZ6PPd8g4F1oGu8XgO/bvjvxO2+o+S7AT6kZMYm + swBJ4XWvDfxXNYBmCig7ljeQN5I3lLwj+UcOpF+9Jn/Trd9tY179XofworYzXhrkhpd1TuPVwQz7uu54 + TdcVrw09watWe9gCdkbbGVz0ONMX7Q0ZCWYH0AgC8CMve3aeF4xu88+ju1kYei8M41SQ19cX85Ip18cN + sonipWQuh1oYjk/1XPHRgNVo9U0nvN9uIH/k2QKWxy9iQ8hlbLtwE7siuL6T2hvJhb0CXQF+n/n7LqHf + poffoIfXEDi9O4WhnN7tmF4Mp8x8nMzKwansTAJPgyu9270gEacJ/AyBexXHEXYcfC/Hwb8sDsHl/Oav + yjjCjkPUlTjEXY1DYnUcYcch43ossqn8m7EovBWLklsxKLsTgwqq6m40rohoAFdoCFduRKHy6kX++IUH + zvjZQ2fuKrTuNzn3lZYf6Cvn9yfJ+RbPl3PfQ+2MEpUlOmsKwLr5X9MH+M3XBDSzAE0TqAV3LDuUwkLe + QCpNiQKqQlB1IHJA/er9s9OMet133Kzf+wiaaZ9EC4HPXsFrg10oCf/H8dFIpoCJjADTPPDtdC98Z+CN + 9jPPsifAWcFsX3SZ64euxoH8mFMg172x378wBP3YDxiwOJwLKbkylqtp2xv54l+6nAp1N8l5teXXBq27 + LLzSach2DJ/iho0+17CH0PdGPSD0ezgQe4fQbxH6NULnt20kVRJ4GexTiwm8gB6eSw/PIvB0uObwu4zz + kgg8gcDj4FkUD++SePiUxsP/cjyCyuIRWhGPi5XxiKziz85ciUdCNb8SpyYe6dfikXM9Hvk34lF4M46w + 43D5dhwqqKq7cYQdh6t3YnH1NkWDuHo9BleraQCVhF9GlUSgqoDKvoiS2HOIOmOHySt24vvhs2+9/U33 + 1Ty/8iMRIjnfEn3FASUSS/UvMzOZoYmTSsEuUfsPdQKVC0CUFBCSRzSFoMwE5I2k2hSrEyOQA5GCUA5O + q94X+qvr9diN+j2PooXOSTV8F7w+xJkGcBQfjTr44AupASa74RsCazvtNNpNP0Mj4OLIWd7oNJurYeb6 + oAc/ANHb1A99uVBSi0urZJWNjmUIL/ZwXjzOFf8YtBd//3rgCb5n/2avva/f6sfZ5Z11t2IE+wqbA0px + iB8dP5xQhaNJ5TieUsKirZD5O4/5O5vAMxjSU3GK1bkrizV35u8zauDniuPhR+CBBH6+PAHhFfz5mcoE + xFQlIP5qApKrE5Bek4CsawnIvZ6Aghv8IYubCSi7lYDy2wmoupNA2PGoFt2Ox9VbFI3iKiPC1asEz9Rw + 9TLhF0fjan4UqnIiUZURgcqUS6iMv4iKmAsoiwhDUZA/Uu3ssHDnUXSbaI5WXUcFNGr6ioR/KfgEvERh + YSDwW1OS+6VXo+kCyhT+d3cB+RplrihRQLpHmqmgJgpIcSG1gBiBJhL8yNtdqZ+iQXur0/V67EOD3scJ + XrzfhfCd8ObQI/iYefuzcXIl0JmXgk+izZRT+G6qCz/i5MYPPbgrix5leXT3ubKQ8iz6cAVtPzMukeYy + rIFcddPf3A8tB3PxQ//ND1568/2ZfF85KdpNW/xr/KedjAq7Dt+M0Vx0uTMkldCzWKWnE3oqC7ZkAk+E + a2483PKZuwnciyFdgPsTeBCBhxL4RQKPIvDYKwlIJPDU6kRk1CTSuxMJOxHF1OVbiYSdiErqyp1EVGvE + +9U3KRpHNQ2lmlGimhGjmumiuigW1ZwGXs2JwZWMaFSlEH5iJCpjI1ARdRFllwiev6hSGnYBJaEXUBxy + EfkB4Uh28MbGvSfQ18AaX2pPLnrj/a8mqMG3UzOQtCzwJUJLv6ZuB/A3F38CXvP38JVAiQISTqQhJKlA + jEAiweeU5B05EAlDmmjQs17D5v3qdVmfVq/HATTu56AYwd90nfDWsEP3W406yDXsx9CaS8OkG9iGy5pl + DcD3U0+yGyjX+d3Q2YgrYmaf5rV8D/Thilrt+d4YYH6OS7XOopPRabw5YD/+1XPxNb6npJ5aNX655YjP + u8zM7jF6I/vup7D30kVW6bEM67G1wH2YwwMIPITAw8vjEUHg0eLdBJ5yNRFpBJ5N4HnXElFI2CUEKsAr + biehirp6J4nAKd6uvkXdoLhtNV9bXUWVETx/3qaa6aM6j16fTWXE4kpqLIEz98dF08sjUREZgfKICFy+ + GIHSC5EoCY9EcWg0CkNYIAbFIi8gDtl+jDQ+/Ak75yic2M61C8Yr0Hao0d13vtVax/9bejLCQANfCj+J + 1DL101wD+F0t4EcZgeaCkCYVaIxAZgXSGfyEkvAjKUEaRNIhlPDUvd5b7cbW676tul6PQ2jY5wQjgD3+ + MezA9VYjD+LTUYf5MaZjXB/IfsBEfsaQHx37nsub20xSXSP4crwdP+d2DB+PoqfrHsLfBx/Aa9r78Cr1 + mvYeajtattcP5/tI6pF8qFGvF5u9pvN5t+mpfcavh765M+yiwxHAKj2EXhjOHB5Bj5RwnkCl0MMz1MAL + 6OFFBF5K4OUEW0nAVwQyYddwrLmVzF/+oK5RNdQVqpKPX6ZKElFTSDGdXM1muM+gUuNxJYn5Pz6WXk7o + /MGsiqholEXyd5IiYlF6kXXChXgUhdHQQhORH5KM3KAU5ASkIds/HRm+mUg7m4VUL/6CikcuYp2z4Lkp + ErpsX7cbMQcfdhkR2vyt9+Wci+cLfGn9SqSWyl8z9fuvLgWLIWgqRk0qkFyiiQTyJmJp8qbvUhINpPsk + Fin5SApESQtd6n2mZ1Gvx07U67Efz/XcizcG7b35zpA9+Jfk7wG78Jb2LvxNawda9NqOl6mXlHFbrV7p + vQ216rsNLahXeq5Na9HDNrnFhz/OVxubRB6NxPi6NmryivaXPabEaemvxXRrR3gmhCGRVXoqgWcyNOcy + hxfSa0sknFMV9HDFuwV4XdjX1bCvCmyqnCqligi9gMrl9ln0+gyCT6WSCT2B0OPiCJ0FYEwcymNYH0Ql + 4HJkEkojklFyMQVFF1JRGJaG/NAM5PF3EXKCspEVwF9J8eNP3/nkI/VsAZK9CpB4pgDx7oWIcSlE5Ml8 + hDnkwp2XsMcu3ojvRhnj4+7jylu27jGK/7NEZgn9Uq9J7pfUrWn//q5LwQJf8/coIxDLkjeQMCNvKG8s + 0UCuEkookpD0dR1D6Fjvq5nL6nXdlCeG0LDHtgfNum/Go7UFL3XbdKN559WpzX9cGtysg6V7kzYzNzZp + rb+k0fta0xq88oF0wAS0FD8SaaQAEmOTFKSR3Jd09GPDxs17fdlTP7z/9DUwWunA7xUKQwmr9DICryTw + K8zXCnB6e81N6obau6vV3l3B8TJVIsApzv1rcqhMAk/na1OpJBZ8/I3CKlF8AirjaEyxSSiPTUZZdCou + R6WhNDIdJZcyUMRfESu4wK/S5Xco5p3PQ05IAbL4Td+ZAUVI9ytGmk8xUs4WI8mrBHFnihBF8JdcChB6 + Mg+Bjjk4Z58ND347m8vRDBzkh2umLDyANiOM0aqPPv7ZdtCmRi+9ISzqLgl72AB+tQdQF/6jjEAzMxDr + khwjdYEmGsgiBKkNJC2IIUiRKIYgqUHgdGjw3fxtjbttutq08+qUpj/YeDVpv8ix8dcz17z42bj5Dd/v + N7l+w+YymxC4Ej1EAlkkQDWwJeRJH0L2K/WHRB0pgjSS+/K4RKLvGzRq0uXLnnp+AwxWYc66E/zW8VBW + 5AR4XfI2YWpg/8y7CbuAYju3hoVjdQa3TeNr+KuhV5MInT8re4WqSkgm9BRW7qkoj0sj9HRcjskg9CyU + RGajmD+LU3QpD4X8KdiC8ELkhRUhh99qlh1cgsygEmRwppLmV4oUn1IkEHysZzEizhQi3L0AwS558D+Z + C2+nHJx2yMZJu0zYE/yRw2nYuz8FO/YmYx0/ADt5AT8mPmIePuozBf9oNzjqtY87SjoWB9WsBpIUXjcN + PBYj0NQFmmggVie1geQgqULrGoJEBDkoMQaZNQgYAfhLkudFAlgkrxFpYMu+xLikHyGGJulH5r5ieDLK + falLNO/b5vkGDb//ouc4t4GGtpi70Q4XY8+jpozwJZQXq2Gz2aPybgJPJ/BUSgM8ibUAfzm8KiGFSkVl + Qjoq4tIJPRNlsVmEnoPS6DyUROWjKLIQRRFFKLhYjPwLJcgNK0VuaBmyQ8qQGVyGDH67aqr/ZSQRfBy/ + LDKK4C95FSGUoT7QPR8+rnnwOJUDN+dsODlkwe5EBg4dS8c+gt9xMAWb9yVj7e5ErOSHbJdui4X1lhhM + tgzEtzSCd3tNQct2w66/2lprqtoIhE/ddYH/dSrgfpS/uimhbjQQa5PCQ9LCw4YgBYqAEVgCTcCIBOLD + 0jwn9YRItheYInm9TD9lX5Ju3qXE0KTpIbWIGJ6Mcl8el200xqBEo8+6j7brb7gMczYd449MBhM2gdO7 + a9JUsKuT6eGJ4uXJBE7YiakEnk7gGfTyTELPRlkcf+MwNg+lMfmEXkjoRYRegsII/j7xpTLkXShDLr8P + KSesHNmh5cgIKUcavxklOegy4v1LEeNbgkvn+G3hZwsR7FUIP498eJ/Owxm3XLgQvCMLPTvHTByyz8C+ + 42nYeTQVWw6lYMP+JKzdn4hVexOwYm8sluyNgfXeaCxmi9N8XwTXLYbih/EW+Gf3Kfhb+5F46fN+do3e + /FQc8rHUAtxP7V9dI9AUiJJr5I0eNgQpFCUvCRiBIk0KMQiB8yjJcyKBK5LtRfJaqTM0sCXdSLND9i91 + iBidRtIBk39c3le2l9dr0tJnn3Ydvltrhg2M1h+Ez1l/FXDCVoAnpFGEnUDY8dkEnkMv549A82ffLscW + EnoxSqJLURx1mdDLCL0c+ZcqkHexArkXKpAdVoFMfgdw2vlyJNPbEwg9hmE+0r8EF3yLEXKuCAEE7+PF + XxQneHeCP+mWA3uXbBw7mYVDBL/PIQO77dKw/Vgqth5PwaZjSVh/NBFrjibwC7LjseJ4LJYej4aNXRQ/ + YBuJRQ6XYOZwEcYOYZh8LBDac9fh79308UaH0Wj+uXZms497SuoUPnWng/9VGqi1APWNh6OBvMHDhiCp + QWoEgSSwNGAEjkDUSO7XlcCVbUXyOpGA1cCWfUq0kf1L5JGcp5HUJXXfV/Yl0UEMSIzro1addFf3mrIY + U1fvgau7P0EL8ByKsOMKCJw/8RZbROAlBH6ZwMtQFFWOwsgKFERUEnoloVch50IlMgk9jZ6ezDCfwDAf + S+iRgaW4QOjnWdgF+RbB71whvL0LcIbgXc/kwfl0LuwJ/rhrNo6cysIBZ4J3InindOxyTMM2fpv4Fsdk + bHJOwgbnRKw9xe9UcInjF0XGYJlbNJa4R8HYORyT93tjpCU/szhxMb7VmoEP6f1vdiH8H8bhtXbD8dKX + A2kE/fOateolddRjNwCNQfwnQ5AcJMWiQNKAEXCvqCUgRZr7MsrzGrgCUiSvFWlgyz4l2sj+JfKIJNfJ + KI/Jc2IQ8hpNWtJEIyUqfNhRZ3EXPbP7eku34oijrxLKS/mDTiXRZQReTuAVBF5J4FUEXqUAz+Zl44zw + SqSFVxB4ORL4BZWxvPAUGXwZFwk9NKAEQf7F8Cf0cz6F8DxXAHfvfLh48tIx5/EOZwjdnd5OHXHLwkHX + DOx3S8detzTsckvFDneuLDqdjK1nkvgVsYnY6JWAdd7xWHI6CnMdgqC/5gh0DJahXf+ZaNVjGt7qxnD/ + ox5ebz8ar7Ydhpe/GnSt+Wf9gpp92ncDoY9u8m4HSZeafsCfZgBiCBojqNtB1ESEh8EIHAH4KMlzGsmB + 11Vd0LJPiTaa0Cb1iEZ137euMYghiYFJFFGiwgcdBs1uP3LuvWFc5rXtkLcSzjXAcwk8Sw08lcCTmNPj + CT2G0CMJ/UIwgbOSDw4sgb9/EXz8iuDlW4gzPgVwO5ePUwTv7MUVQQR/guDtPLJx1CMLRzwzcdgrAwe8 + 0rGfP3yx92wqvxcphd+JlIwdfvR4rlFY7HYJs7Y5YqTJWnTWnYfPBHb3aXiz80S83mEMXqV3v/LNYBB2 + QrNP+hxs+nH3WY3f/k5mTfK/yf+o6QXIuXzsNYAA/6W/hw1Bc1VRoGjAaMD9llHzOs1YF7Ts+z9Jtq2b + ljTR6GdR4b12Aya2GWJ4W3vOMizbdgrJBJxC4IkEHkdF834EgYcrwEsRJMADinGO0L0J3YPQ3QndhdBP + niV0b15sOktvP8vcfi4bdueycIw6yq7eET9W9P6cw/MXUfcHEnxgClZxrcKCgx6YbLUdvUab4fNe09Cy + xwyG8kkM5WMZykfglW+HELZ2Nj37ZLOPeyxu8t4P2s+90FjSZ90aSANeEyU10bFu/v/Ds4D/BP/h5x5l + DL8G7bc8X3e//+m2Zl8ao5ETIZHj4ajQ4u22WkO+6D/tdvepXM+/6ihDOat0Ag+hAgncL7AYPnzMm9A9 + /AjctwCuAp0du5OK8uDky+Vg7OI5+BN8AMEHsJoPzsQx6uh5en1oOrYFJGG5oz9mrT4Inam8sNNnOj/M + MQNvdZ2Mv3Ucj9e+H4kWbXWZuweU07vPNvuk98qmH3Yd1uhvraSIrZsu66bJh1OjBrwmSmp6ABr4j6UA + /D2GINv+Vmi/Zbvf+t7/KRppilVNH6P5P9to9fq418Tr7cfOx3jL7XCnN3sS+BkBTrkRuosv87kfwzt/ + KOukP4u5gFw4BeXAgW1c+2DqfDa/xZTgwzOxn1ciN7iHYeFWe16UWoPvBxjh3Z7Tmben4m+d6uZtnZv0 + 7pBmn2ptZN4e1+Td9jL11UB9uMDVpM2H02Td9PhwatQ4guZ8/Nbz939qu1+rUZSo8PevtTq812XsldZD + 5mDgnJU44ZkFF39CD8jjD1kTehAXjgQTOn8ZzSmMc/bwbDhcYIgPz+D3GUZh2X5XTLfcgu4j5uPDXgZo + qc7bb3QYq8rbbRjKP9dOoHcfZO42aPpRN2mGParm0QDVFLfizRo9nDp/LT3W/d//T0H9b/+Zh/sYdWuF + hi2/6t36Xz+MLPtYewY66y/GURZlzoTtxB6+0wUCv5iNvf5xWGvnhbkrdmOgviVa9Z2Jf/Q0qDMFYyj/ + VlemYNn0bsfmn2rNp3d3b/TW55Kn60L9JZia9m3dmkdz+z+lyUdF0P/2PP2ff92jDEExhjdb93mfLdWi + d3pMZot1PjYd98DiTUcx0nAFvtAywj/7GKKlTMGYt1//fhTz9lC81HpQBWF707uXsVgb1PSDTtJ7qBuO + f81Tfwnsb0mLf+nw/kct9ZHFaosve//j9W+HZP6903j8o6s+3urEKZjMt7/jfPtrndv07hAC30Dgo1ms + SZv6YW/9vZ76zHv/KMnH8PqfQWDYfpOgI6hE5u6DlAGLNbkw9Ue89TEc5rNd/C/PwG8Nwf/LY3r2Xs/O + wLMz8OwMPDsDz87AszPw7Aw8OwPPzsAfOwP/DyS3WcW7a0BMAAAAAElFTkSuQmCC + + + + 17, 17 + + + 138, 17 + + + 229, 17 + + + 229, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAAYMAAABvCAYAAAAOlaxfAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAAlwSFlzAAALEwAA + CxMBAJqcGAAAicJJREFUeF7tvYWXZFl23ptiBkvPXvbf8mRbw9ADPQzSaDS2BfbS0/KyZWlZmumZ7plm + ru4uZq7KrKSqZGZmZoiIZKaChv1+37lxsqJTkZVZ1J1dHdW91428ceHcExH7O3t/G37pr/7qr2xhYTHp + V37lV5L+/b//90nj4+NJv/7rv5b0B3/wh0mLiwtJv/Vbv5X0q7/6q0mzs7NJf/zH/0/SO++8k7SxsZ70 + S/z3m7/5G0m/9Mu/nHTj+o2k3/+D30+an59P+u3f/p0ks/c4ZsOd+2u/9mtJy8srSfr3x3/8R+71r/zK + L3OP30haX1/jWOOc3066detW0i//8q8k/d7v/m7S6uqK2/8Hf/AHSSsrq+z/5aTf4F6LjPM3fuM3kn6T + 6+qYX//1X2dsv5a0trbK1X8p6Q//8A+S5ubmuP6vJv3u7/xO0jpj0Lk6bmVlOel3f/f3OF+vg3N/67d+ + m/EsuWf/HY5fXV1N+r3f+33398ryMvf5TZ7xNzlm2d1X19J9bt684Y7XcWtra0n/5t/8m6QbN25w/lrS + H/3RHyVdv3496d133+WY305a4Zq/w/NpnBrD7/3e77l7z88vJP06Y/l9/ta8/dIv/ZI7V/Nj/PeHPLvG + o/nWPGgMwZh/K2lhYcHNp+578+bNpPfee8+NR8+u6+sYjUtj0Jj1Gayvr7vraJ41t9qvrcaqz31xcdFd + S5+F9ukz1zPrOrqm/mkMmg9df2lpyR0bOx6NX2PTvOict99+213r93//991rPc+/+3f/zs2//tb4dbyu + +Yd/+IdJExMTbg40Xh2j8es6upf26V56Do37d/meaM71PHp2bXVN3UvHa650rZmZGfda15+cnHTPpeP1 + /dTz6T3Nm67t9+u+Ol7X1/10HY3H31fX1Ln/4T/8B3euH6fmR8+uczWf+ux0jD9ez6BjNc8av17rHB2v + 8egZdLy/lz4vP36NTdfUff/4j//Y7dfx//bf/lt3vK7tP2fdV8fo2vrn50TzrPtqHvTcOlfX0bPr2TQG + zY8+o1Ao5K6n+df19R3z1/Sfr/+MdF2dq/voOnounav507Pqmv53pPvrtb7z+vz1PdR19E/zoM9O19C1 + /HdYx/ln1Hg057qm9mv8Ot7Pj+ZMr6Wv9JvS3/re+e+zf0Z9prqO5tB/JzUWPZvXXTrf/170XfdzpTHo + tca79fuv8fv7av51TZ2rz8R/l/xvRHOhedD1/Oei++vZ9bvRZ633IpHI5mv/WWj8mlsdp2P0jPqn59R+ + pyeZZ91T19TnoWM0N/ostV+vdbxe67eT9LWvfc2+/vVv2A9+8AP70pe+ZN/61rftz//8z+2rX33c9N73 + vvd9t+9b3/oW+39g3/rmt+ybiPbrvG8gOv6b3/ime/2jv/wR537Vvv61r9t3v/Md+8qXv2xf/cpX7Lvf + /S6vv8Jx37C/+MFf2Bc+/wX33ve+9z2u90333g+4zre5l67z3e98177zbc7n3B9wX43tq1/5qn3vu9+z + L37xMbf/29/+tn2Za+hvje8zn/kMf3/FvsO5X/rSl+2zn/0cx3zHvf/YY8ExX/jCF+1zn/u8e639OkfP + pevpmXV/nfu1x79uf/b9YB4kOuZLj33ZPfsPGP9XGMvjj3/N/uIvfujm4Zucp9eP89y655/92Z/b15kT + nfdnPJeO0Txq/7eZl28xds2bnl/7dU2NSc/0V3/1126+NP//7b/9N56H43nvL//yL93x+luvtdXc/c3f + /I19//vfd8drv87V/v/yX/6Le61r6jrfYO4leq33JXqtcejcv/iLv9j8PH70ox8x1j/bPF7319+6j46X + /Nf/+l/duHSdv/7rv3bv6fp6rXvqPS02NE79rWtqq+M0Nr3WezommIdvuf3ap3vptd//P/7H/3D30Tl6 + ra3GrHvFPsvjj/MZ8p72+/nUnOjYH/7wh/bf//t/d1vNi8ahrURj09j1Wse473TMHOp8Pa/26bp+fvxc + 6Fz9hvz8a/wau7+u5ln307PpOnpP5+gZ/Th0jMYu0Rj98/pn9J+d7u/P1WtdU8f7+dRr7f/617/uvhv+ + e/K3f/u373vG2O+DjteY/DPqWnoeic7Xc2hu9byaf82T9mv8GqfO/bu/+zv3t66rMWgOdI5/Xp2j+fHf + Ic2z7uO/h3pfx/vvg/SIxqxraxy6vvbFfr6x3yX/3dLxXvwzaiwar8Yf+9vRGHSMH4Ofc93XP5f/jega + 2q+50n31ueha/velsWucOt7Pv55Fx/rvjH5jsd9zHa8x+e+P5k/38d9/va/3dF//OeqeGpv2x/52/G9c + x+lz1xxobLF6w//W/e9Oc67jdG6SLqoPSwpMCuuv/zr48vgH1OT7D11KS8d8HyDQ8ZLvfz/4wKXA9aAa + oBS0JuCLKF4p4e85IPiy2//nUpIozC+jcH+I8pQS1rm6h/YLAHTM41HFrL/1/tdQvFKkut5nP/NZd/wX + vxhcX2N87LEv2ac//Wk3SZ/73Oec0td+bXWcwEv7P//5zzvFEOx/bHO8ek+Tov26lo4XQEnh//CHP3LP + LZFy/8Y3vuX2f5djvoHCFzDoeDcXPMP3ePZvA0hf4/Wfuw8TxcsXSF8eP58/4kN31wDc3A9ISoYPzitw + jcV/6Pry+C/t1h+sjtGca79XsP6H7H/g/gupD15fLv8l1xfOK0z/Y/dfwtgfjv+x6AsZzOX3NpWM7qX7 + xioTva859l88P2YPHLqXV4AeILyS1HfEA4f/8kux+GvqO+aVqleAHsh0vMSDkebaK1gPmrq+jpFC8wpD + z+zBxf/4dLxe6xoat9+vc7xC0DF6LaXrX3uFrB+j5k3X1rle6em1n3fNj/7W+V6p6hwPRLFgpDHoeYPF + 29c3lb+O9787jVXzqfP1u9B+r5A1ZzpP4hcYmgv99j0w+v36TfrPxX92uo7O1fF+ceIXFRqbnjdWGUsn + 6Bx9Pz1Aa6688tHxehavGD2oeQWm47wC998NDxb+e67n1e9C52hsur7upeM1Ng8c+v7rXjpfr3WMn08d + 6+dN19B8+u+nB1OveL2S17U86Oma/vup4z3AbQV0/7nrWh6s9flIdD19FpoTv4jw1/cLLb8o0rm6j583 + ve9BVvfUcf77r+vqWTzA+cWb7hHo/OB4D1BJgRXwVbca/pu/+Vun2LQS/uEP+RDZSgFqle6UM4pZgKDX + UmS6qBS3VtpSavoCykL4JucICKRMda62n2eV/uestL+mc5E/Q3F+m1X2l1C8AoHHv8IHhJKVdfA445E1 + IdDR+zpeilYgIGWuL6smL1D4j9snPvEJ++QnP+U+yM+i1P/0T//UKWIpeI1Nx37605/BCvisfZUvgiwG + vf46xwcg8hn3PLre41gE3/72d9n/Zff6z1D+X/vaNzjv60yaEFmWg6wPrWT5IrFfQCBg+ArP8H0BmbMU + vmM/AOy+yPW/w9x83/2YpLS/zw/kR/YVnlGi1wIKjeVHPwpWiRqvfkT6kPSs/suvD1X7AvB7zH2pdLy+ + 3F6Z6IvhV/h+he2VmgcFXVNfGL2vc/3KR6/9NT2g6Ivnf5j6cvkVjK6h9zxg6W+/4tL49L3SODROv9rx + Ss+Dl8agZ/UKxysHr0i9NeJX4xqbxuwtIN1D99UceKvEKyWNwf/Q9Cz6rmqfruXHrOt4Zawx+VW9rFCd + 65Wq/7H7z0XHekvBr9J1vF8E+c/C30v31729leRX+Bqzxu9BT+d7hewVoMbiFYjuqeto3jRnOt7fS3Pr + gT7WivOKXdfw4Khjtd+vKjUOKYfY8esY7ddz+TnXMdqv63iLRmPScV5ZxQKCB209Q+zCwINd7Nj0PfGr + bI1Dz+K8CVFg2k4h634akwd0neOvf3sRG1hPHtA1fq8Yv/CFL2xao/677QFLz6Rn0D38NfW3t7C8wveA + 6z9fDy56X78pXUfH6Lm8xecVtV+caDzee+Gfxc+rnt0vAPx3Rkpe86XFmT4jjdkvJPzr2M9E99W4dL7G + 6X+/+r65BTtjTNKAvQtCK1gpLLlxNFjnouG1XCdSulL0UrJyFUn5a7UuJeoBQopVK3kpcIHB9+Su+eKX + kMfsu+z/jJSuQIXzH2Of9n8dZfplFO8XcRt9/7tS/o8FVgDK//MocrmTdD+BgFw6Ag7tkzLXvk9+8pPu + tb5wAgUpf03Qpz71aafk9QwCBR2j8en9T3zik+61lL9ARG4luZc+z3Wl7L/8ZYHjV5ggWT3cj3F+9atf + s88AItovgJDiF2B8H4D7/Oe/yLx90wHE12RBAGrOauBa32DsAoOv8YX9MmMRyMoK0Hi/wweoD0gAFbib + vu7m13+5vJL3Cl9faH3gOif2x6IPVB+mntV/yfUB60PXcXqta+p9zY038b2S0TU1HikZv/LUF0z7vGtA + 3xE/Ho3TWXly60XNfH9fDyh+leV/gBrD1mN0Tf8F9WPQODU+v3KLtVz02rt7dLwHSm9xeNDzx2gs+rHr + Wbwy9KtoveeBV9fxqzVvlWx1xXjXh+ZP19fcxl5Tr3UdPyfeZRA7D/qMvMXhwctZxNH59Ipdc+t/0F4p + 655+DgPX6Bfdqk/zp7/96k7HaAy6rh+P/z55QPQg7pWVnt3Pp1f+3uLw1oT/TLzS9pa5X/n7a+q5dV9v + ScR+f/QM3gLTPMSCgndJeoWma+j7p2f0rk7dS/v0nl8U6W//2XlLTPPhrSoPoJpv/3n5BbBX2hq7nssr + X6+0NVa/MNCx/jvjrQkdH7jWA6tNx3gg9gsPb0V5S9mPw7su/crc/37979TPvz5nvwj0FlbsYkbP4n9H + +k5q7H6xof1+PP7z02/E/5Zjvye6b5IUZeDakaJ4zD2wFKVey0cvpS4l6VfObsXPfinqYNWNskVJarX9 + FZSoVu+f+wxKk/M//9nP26c+8Sn3Wvs+/clP2xc/9wX77Kc/60TvfxFFqn1fQ9nqGAcS3F/Xl2gMn0ax + /+l//lP3939m+5/+039yil4WgF5/6lOfsv/3//0T/v6EA4Q/+ZM/if6t9/+z/cf/yDG4kPT+n/zJf3TA + 8Kd/+kne45rcX/s/ydj0+tOfFnAIUL7EMzGGLzyGEn+cZ/0C15Bl8XW377MaMwDwRQEZIgAQOHxZXAv7 + P89zaL+4hC/zDI+Jh+BL9yXNM8/nwCH6oxY4PMaXSopL86wvplc6eu0sLo4JrKEvOOWhH4T26wurffpS + ehed51P0vgDTf6n9F9f/0LRfAKt76XXAm8D3RH8cOl9fYp2nY/S+JBjn45s/TI1Nx24dm7+Oztl6jL+m + 9uu8eM+off7Hr62e3yt4PzZvJXpl6Y/z4/U/FP3tla6+817J6TpegflVuJ9/P36dq/f835ojf4x/Lv2t + H5wfs19B+xWYtpprf7yf89hnD9ybX3Cfo//cdc3Yz1efp+ZB19drP29+TH6Mfrx6Nl1X7/vjYz9f/9rr + AZ2n1xqnd6l6wNG9tn43dIxfNPg58cCi/fpeab8HOP/d0eei9/01/fcp9tl1jM7bel9/fb/f/xb8uX4O + td9///2z6z6xc6XPwX8f9FrH6Rj/PYudn9jXmh//XdM4/ecc+12KnSt/TY3Zj99/jn78/rfgPwu/ePPf + GY3N3zd2TvzvS+f5/f4Z/Rzruydgiv1++jnRePTsYp5NAvNv168HsrG+YTDMtra2bkTzGBEutri4ZHOz + 8zY7M4fM2sz0rE1NTdvExKRFwhEbGxu30dExGxkesTG2o2xHhkZseHDIhgaGrL+3zwb6+q2/p896unqs + F+nr7rU+/7deI709vdbT3WNdnV3W2dFp7W3t1trSaq2trdbS3GJNTU3W1NhkjY2NweumZquvr7fa2jq2 + DdbA/vqGemtoaOSYJrevqbnZHeeljWt2cO2urm7r5D7d3K+X8fX29ltf36ANDA7b8PCoDY/wPMjYWMjG + QxGLTEzZ5NSMk2nmYYb5mJtbsPmFJVtYXLbFpWVbWma+Vtdslblb0zxuXN+UDV5vaI6Zazfvt27Z22+/ + Y0QasH3biV5LYPzfJ0RMJP7t4RmI/bziDXOnz3Pr+3f79/1Ozd3e76N2/E7zc7/Ps9P1PwrvKzQpAAIp + qg2BwIatocwkAoElFJyAgFBIwGDOpqUIkanJKQcEoVDYAcHIyKgNDQ3bYP+gDQEAwyjUgb4BJ/2AgFf6 + AgIv3Z3d1gsA9KCUuzq6nAgA3gcCAEAzitwpf5R7A8rdKf2GYCsQqKmpiQJCrdXU1lptXZ3VARAChAAc + OJbXTU0CkxaApd3a2rkP9+9kPN3dABRAIDAYHOI5AIJBZAQQGB0PWyg8YWGAYGJyGiAABAFCBwYAwWwU + DAQEi5ovwFOysrruAGE1CggeBK7fAHgdAN+yWw4AAiAQABCStymE534Uvj+7HmPss8W+9j/C7d6/n/2x + P/A7XUfH7XSfXT9o4sDEDHxEZ8BZBgKEwCoQIFx3FkE8MJBFMD0tIEApAgZhLALJ+HjIAcKwswRYVSOD + A4ACIiCQ8u9mBe6UPUq4S6vy6Gv93Y5ylnS0dWxaAgIAZwFIoaP061D61dXVKH4UPsq/FqVfXV1jVVXV + SNWmVNdwjN7jGIleB1IHSHAdrtWMpdGh+wsMOgMw6O0dcIAwyDMEgIBVMMpzAQbhyKQDA1kG3joQIExF + AWFufnHTOpiXhYB1sNVCcHMaBYYbAoQoKNy6FVgExDPf0TLYSVndr7K7n+vr3J1WVh/R30di2IkZ+NjM + gBJTNsEg1j206txD77cKZgADWQSBVcBqGSAIAQTjsgxwCw0PDzuX0ADWQb8sApRrj1v591iHU/odTuG3 + OeUvxR/83dKEC4gVu7bNAIBAoL6u3gGAEwCgWkq/EqWPuNdIZWWllZeXW0VFhXstUKhgWylwADiqqqui + rwNQqK+XdYCVwb3aGU9PD9aAxtnPmAewZARicg/h5hqSiyhqGchFFAIQJBEBYRQINsEAN9E81pNcRQtR + 60CuopUoAHgQ2IiCroBAICwACKyDj5dlEA84dgKjncDmbt/f+gvf7nx/nHffxW5jx7z1/a3Ps9Xy2+l5 + t75/t8+39fid7ne/17/f8z/qGvd+n3+n8z+I+UnSir67u9v5zbu6AjeN/Ont7bhS5K9vbbNm+eqjfnq5 + XupQ1MEKXavzQDFXlFc4KS0ps+KikkAKi62ooMgK84uCLZKfm295OflWkFeAFPJ3geXm5FlOVq7lZOda + dla2Xbt6za5mXnWSmZFp6WnplpaaZleuXEFSLTX1tvi/9V5aWpqlZ2Q4SUtPt9To3xmZmXaN62Zzn9w8 + 7s24ysorAQ6sh2oshtoGnkXPBPcAYNTIgmjAJQVoCDiaWtqctABirYBIG1ZFu6wK5qwTsOuGb+gBVPoA + wT5ZQwIVucwAyCHcZyPiUMYk486CGhsfx70Wci62cDhsZBhuikCWDFEssOn3CRmPdj9CRqbdj5CtCT9y + 70JmJi7HQLTI2CpkVsJPPRgh09J2ErJbsYDji/iyreLdqXKp7kY8F7fbrVsY3EE8p7TdNh5Yxe673/N3 + uv79vr8TWO3193dS5vf7/gcCBj09+PARgUE3vnsPCgKEjg5W8VFAaMG1IsJWpKz89Vqxy1Ujl41W6lqZ + a4VeVloOIJQ68aBQkF/ogEDbPMAgNxulLMUcFQcC13Is62q2ZV3LciCQkY5SBwRSpfwdAKQ5QJAEf6da + Ogo/VjKiQJCafhsUBARZ2TmWV1Bg+YyhmHGVl8tikCsJAKgFAOoa3esq9lVWs599AoQacRKAgwMFwKAZ + MGiRZYPLqwNrR0DQJQJcQOBAAAsDEJAMR0FgxIOALCgAwLnWUP5S+hMofSl+J1NYXIhAQEr/fhSvziXN + /X1CCjxlRwKhrMG/kp2AYuv17nT97e4R77673RcPQO60T8AS+/52QONB407goPe2goP4te0kcLvuTnYD + LDpmJ7C43/d3AouH/f79gsmHff79Kvv7Pf9BgEWSgMBF1IjEVQSPj+JpFxC0OctAQCDrwBG5WAYibp1V + EOOucVZBaZkDAw8CzhLAAvAiIPCKX5aAA4BrAAAgcC0TEMi4tmkJpEvpp6TalZQrlpKcYsmXky05Odku + u22KAwdZBSkpKc5iEDjo72Rep6RiJcgyiILCVQAmJzcPMCi0ouISKymtsPKKaieyDiR6XVpWaSVlAFpF + lZVX8r5AjuesEl8BOAgYGptxaQkQZB0ACAEYQJBHLQIBgayBncAgEgEMBAiQ8AIDRWZ5a0DuuK1gsJMy + vtP7W5Vz7Crdv95pJb2TMo53zZ3O2Y2y9kp8p/FtfV8KPFZZb6ecd1LGfmW/VfHf6/V0v91aC7HHfdSV + /U5g8mEr8/u1PO5Xmd/v+Q8EDOTvl8LvlIuoU+4hfPneIgAMPBAEYZlBqKbcRLVSklE/foVcLoBBeRlW + QVGpFckthBQ6N1C+5eMWypUbKCu6+r8aKH5JehoundR0p8idyycqly9dtuRLyXbp0iXT64sXLgRy8SJ/ + s+/yZSfu7+hrbZMv6RoZTq6kpGNhXMMCKbCiQlkqAFVxuRUVlQEKgRQyXrmNiop5X/vk3uJ1Ce6uMj2T + 3F8V4iMC8lpRSc0AQptIcMJguxWFJI4E15B4huFRRSERjuosAUUiBZaAFyl/yfuV/20XkF/V73bF7I+L + p4x3cs3EKuOd7reTMo638t7pnN2uyndatcdbuQeh0bfdQDut7Hd63yt/Dx7bKfTdKO14inEnZbiTMt3p + /Z2U3U73f9jv7zS+h/3+/SrjD/v8BwIGcgX19bG6lauoJ4i7lwRuok4HFBK5i2QdODcRK2QBglxFNYro + YRXtOYNyLINyFGlJYYkDhAI4gTy5heQKirEAMtLgAlIDIEjBAki+rNU/q/zkKwEIXLholy5eAgAuOoWv + 1wIFibcGtPVAEFgNvJeMxZAsjkF8QzaWiCyTIisBBCSFgEJBQQlWQrHlsT+fMeaIt5AFo335cBlYNLIg + SnmWElk7gFy5AEHRTMpnECBgLck66JBrzVkGchHBESi/Ao5gKxgIFCRyDTlAiLqH5BqairqGvKtGgBDr + 1tnN6+2UuQeEnVw3O4HJTu/vxt9/J3DYjcK/m2Ok3O/kyvHv3csKfzcr+92Agj9mN+AQm4PysBXzTmT5 + w1bMH8b1HwVlfr+AgJuI1a0IZIBABLIjj6OWQcAXKOHrtrtIiV8umUtuExftg6/dgUElLiJcRayui2Ud + SOFiGYgs9i6ha1gEEgFB6hWUNiCQghtIrh/JpYuXnSVw4fyFqJxne97On9P2QmAhCBgECjqebfBaoOBd + SIFlcDUz21kEebmMQRaKxoLkAEzZSBaWSpYslahoXy6gUFAIEBQVYx2UOBCQVSDrQK8VyirrQEDYKP5E + EVCKiFISXT85FQqrxUXkiOKoZRBrESgc9zY3oMS1wCLQVkAQ6+vfSfnezar/Xsna3azs70ZB7+bYeOTt + bhX7bpS/jnlYAOBBYjdAcKeV/Ieh7He654ehoO/mnh+2Mr/f+9+vIn8Q5ycp89aRxwCC3ESyFGIjieQm + knjrQOGg+tsDgrMSRMRCvFbhdxcglJUIFHDJYB0oWsiDQUZ6rDWABYASv3jBr/4vudX/2TNnUf7nNkVg + 4MDBWQgcA1gIAPT3BdxGAhDtl+h6aamZWASAzjVFJqH4EQHDNawS7fevr8pKEWcBGORAZOcpuilqEXgQ + qK5StJEsn6rN6CkltAXJbAIDXGeaH+akG+5AvMH7LQMIY7gBScRxAwEYeG7AWwTK3bgTGEiZbwWH3frj + d7Nijz3mQQLAdor9XvbvVtHfSdk/aBDYjdK/0+o/FhB2UsbbvX83CvNRPvZ+lfGHff6DUOb3e42kPlwc + Hgw6NsEAgjQaWupLN3i3UeA6kssIUpm8gMbGZtxGch01RUM0ZTEQnVNVh5ulkgiiYrcKlxJOT7+KNZDm + VvLOCpAil5KXYkfhnwMEzp0HCACAM2fOONG+8xcABKf8A0CQbP59Qa6jFOdqSoN/uCpCWqt+3FJ6nQ4A + peKK0lYiQMrMuOosFIWx5ijSCDAoxD1UjFVQXlZm1Sj/WqKkFDXVqOxlAEBbJb9pK+tIJTIcqe7Ass06 + cK31qORG1Dpw4aNR15CsAwcGUZeQtwhEFM9gEXjCWCSwdwl9mMpegLCbVbw/5l6U+53OuRvFfz/unq3k + 8Z3cPw9S8d+Ny8cr8O3yGz4oBf9hK8u9fv/7VcR74XxnGQTWgUoz4CaKAoJ4A9Xu6WK/tgFgqGYQx+Er + V+JYC4DQ2BCAQT1SBwgICGpqGgCDekjYSuem0Sr9NhikOuV97qzcPwDA2UD5n3dgoO05O3tWQHDazrA9 + 6wDCv3+O/fwttxEWhSyEZDiGK7icBARS9tcAAkkmyj4dpa/3A0lxQCDC2gOBQluV76AciDJCTsV7iBiX + 0lfkVGsLyWmKpqK2kfs7CgIdkOyyolyklXOhRctb4C7qxzpQjoFcRSHlEHh+4H1AEACAZNbF7qvG0W2e + QP7/3a7od7OSjz1mt0r+XhX8vSjyeOfsNjRzK7G72+ignfz+Oyn/nQjbu1H4H7ai3w2g7HVl/GGPby8o + 8/sdQ1IfQCACWWDgks5Qcl6k/MUpeOlWgpUSrSjh0IZrpLm5jdVzs7MIHBDUNFoFIFAFGEgqKuusuLTK + CojiycFffxW3TMqVdJR4il1gdX/+/EUHAmejgCAr4My5s3ZaYMD2TBQItD2PVSDRebIsAkvgqrM2MhWW + itvn6tUcyySMNJV8gysknF0Sj+BI5mQXiqoEtqxr13BbZWEN5EByF1p5cbFVYg3UQw43kjfR2tIM2LVT + PoMM5e4uaiex4mde3N9IL/PUq9wMgadzqUUzqXntC94NYh04MCCaKOKSyOQemoYohiOQJbCZAObzAd4f + +y+rYLdKfrfK/W5X8VsVtAeH3Sr7u1Xm9+LCiaf4d1Lyd+PXjwWEnZT/3bh5dqN8dzrmw1Z+j9r971eR + Pgrn4yaKggEKLiCQg1WvXku8RSBA6FJcvSp9dnRvgkFjQ4sDAg8GNXVUEW0kQaulk1VzFz71TrJ5W6y0 + vJoM4Hy7gsvm8uUrbmUfrPAD95C2Z88CAAICWQTiCiCLJefdFveQiyRSCGo6il+8QE6UDBYhnOcskDQS + 1i5DSl8Quaz8BOUesFV2cgZJbNkAQS6uoZKiIqvAGqgmUa5BIEBBu07Icin7gf4+6isNUHV1cFOGBwYo + tdHv9g/yuq8XYJTlFK186qufCjAHSD5TBVeBwcQWIJil2N8Moq2K/8VG+XheQFbBbpX83a7g71WZ7zbO + Plap77RKv5v3d6vk71XZb7UEHoTy30mh7/R+rML1xz5qSnivPM+joMzv9xkcGHQr8cxZBbctA3EDt0Eh + UHoq7qZqn63UFRJn0IRl0Ngo3oAwyzYBCTWIegatd2DU+obGrX84ZANIR/eAlVTUWgbK+zIunUu4bc6j + rM9iGZxjtX8uqvBlAZwBFE4BCqd5fZb9Z2URAARXxAeI7BUhjQhYJI6PwCLIgBxOJ6fgCgo/GSvgwuUA + PC46wpnzr6SQ2JaJRZBtxWQjV5aVWm1lBdZAtbXU11kv1sAgEVUjQwMWGhuxSGjMJsPjTiZ4HWbf2MiQ + jQ2j6IeGqM5KOe4+ldvGhebcaMFWLrd+IosUVSTOIJYnEADILeRcQy5DGIsgpkyDL9XgweBuFf3dRN3s + duXuFfZOx9+NYt/p2LtV/Jt1nnYo6XCnlf5urIAHvfqPp+wTSv/9pdt3Cxb3qwgT55tFQ0uj0URRzkDR + RLIQgsii2yLXUCABILS0tJOIRt2eZtUxUjQSPQkAgdsSst7BUWvAOsjHVZSGOyeVRLMrhJamYCGch0A+ + i/I/g6vIAQFyUsQxVsFF8gak1K9QlkKunxxF+5AcJlFOgIBABHEG10vT9UgwSxE5LauAfAOBgXNFXSQk + lb/T0lLJeL4GP1BgFaUlDgia6mqtranRutpabKCr00ZZ+QsIJgCA6amIzUxN2CwyMxmxqUgIUBgHFFDy + yOiIivIFFoJzG21KwMEMk2+gaq7eTeRIY4WPRkHAZwy7/ICYmj2eK9gukSoWIHa7yt+JZN2q6OMp690c + cz9um50AYCcf/t2u7HcT2/+glf9OlWV3q/g+jscllPXDn4GkXscXBOSwz0J+PwhQmE2lpVV1VEXaJPzd + qhBTWQgtwbZdpaB7qACKJdDVP+IshM7eIevoHbSq+mbLJu8gk7j/fEJPr5HslQK5ewGXzwWsBG0v4s45 + jzvnjIhhrId0FP01ZS+rfATlIcrIZSijbEQheQy58A+ZcASpylcgcU0iMJD7SWAgS+IcAHMxmrdwBd4g + 6+pVMqLzCXktCjiCmipcQ/W4hpptEF5gbKDPIqPDAMGYTU+GaOAzYXNepgUKEZueCAEKgbUQHh/FUggA + YYA57AcU1MBHVsGAQkwhkQMwINvYhY5GrQFqA82/r0aQL94WFGnzXMG9uGV2Wr3fq0K/1xIKDyo6x5f3 + 3sl1cy/v343Cv9Oxd+Py+Tgq8/t95oevChN3SJLycnyAjyaKFqjzFoGvTaSImVaXhEYUkQstVakKRdHI + dYR7qUvupgHrBgjauvqtEb6guaPXSR2WQ2Vdk1WLX+C8cgjnArJ7cyn9UEgtoCKieHJJ9MrAl59JSGiO + itopi5m8hUoVkiN8tYZ8hiryGfLIEpabSGR0mkJV4Q8CMFDI6hXnGnJEs8tWFnGcSvTQVXiCbEcYV8g9 + VFVpjXU11t7caN3trTbU02Xh4UGbQsFPRAIwmJmO2CwiQJgHDOYAg9nJMIAQdlaCwGB8dISObgCCeATc + RgNyHTGfg3AGEvEGKkwn8lg8gYsakmWwWTROBeOCKp7qKBcb0nkv8fK7AYPtXDQ7rcwf5Pt3u8p/GGCw + WxDYScnv9v37VYYf9/MTqvrhz8BtMHCcQLQ2Ea6hVmLnnQWA4lcugcsrcDwBCWjs7+zCPUK1zl7aRHbT + F6CTBjGSNkChFXdRPRaDpFk8AtZBN+6i/tGw9dA0pmtwxDqJuOmmiUzPyLh10kughvvlk8VcUk00EiR0 + Le4ngUgTXERzezfXaqeSaJMVUDcon2S2HKwGcQhphIumYElcxsJQlNFF8g6UyJYMMCiUVGUwCnEriTAu + hzAWEDRBGMs91NMJT9CLVTDUbxNjwzYFNzA9BRDMhFnJCwiQWcBAFoLAYYr9iCwEWRDiFcZxK8llNAKY + CBAG1eIzCgjq/qbwUtUhEk/gCeMFVzV0KXAPRcs5ezDwgHA/q/idfPI71de5F8V/Lwp+N3763a72d6vc + d3PcbhV87HEftrJ++KoicYdHfQaSBgYHXbKUtw4cIERBIChSFySWqV2k37ZDJKsTmLp/jdMSUp3BVL2z + jSijJriDpvYea2jtdAq9CUUuIBgOT1toesEm5pdsenHVppfXbHpp1SL8PRSZsjaApRbgqcSlVN3Q6oBA + QCJwkTTCU9QSxlpGVrAqjBYCCrmUxFY+gcDgIlaA3ELnz6mQXTJAgDUAr6CeCqVYIAKDUkUQlZZaPc1v + 2poarBcwGB3ss/DokAOCGVb8M9NyEQECc4CAgCAqDhgABAGDXEZTDhBwFzlAoDgdxPIw0UcCAydYBgID + WQZyE8kiWFh4Pz/gE8sC9xB9k9VuNFou+WHXz9+q8O9Xmd/N+btV8A8iQ/d+XDt3AwoJMHjUVeWj/3xJ + 8m27LGSFlsIbKGLIcQNyC6mpi+rvqJa/RMDA3+INlGkrMFC3LwFCL93CBAaNgICUeCMrelkGrSjyvpGw + jU/P2xQgMI+ym6eI2Bwys7phkcUVG5qYsdZ+rAPOKa5qsJJKchRqSWZrJYQV7kH8g0CmAXCpxdVUQemL + IgrIqSx1OqGkKfANLgQVnuD8mQuWBn+gaqkVKlWtSqRwDEUAh6KICnNzrbSwAAK53Jrra62no9VGxBdg + GUzDB0xNAgrTUctA1gEyL8FamGP//Owk2wmOC9mkSOUoIIzhMnKAoEJ1amqjxLOom0jlJjwYBJYAtfa3 + NHJxoaTRpipyEd2tn/5ulPG9HHsvCnync3azSn/Qx+xWwX/Qyv3RVzWJJ9zrM5Ck1asIzx4IUJdxrBaV + CiGNWgfePSQwaHAWQivbABDUL3hiasa1gRwaHXcF21rgCMQZtHb3Wxsiq2B0gt7JS+u2iLKbBQBmVjZs + apnXa9dtBhmbXbBGji2ghEVeabXll1RbCaAgMOiEg+jqg4cgPLUFK6OWe6vXQB6lIxRNlEa0UTKk8UVF + EMEVXLmcSrnsPPIHqskfIPmNRjYCggJZCSo5kZ9vJQUQyQV55BkU4TKqhjdosZH+HgjkIRLEcBXJOvBA + MBexBayEBSwEWQeyFGYBA/EKDgwAkAhRRiERygDCGAAwQutMzau6mskyEHm8aRU4fgCy+H3duG4DwXq0 + acq9hEvuVsnvpKTv5f0HrbTv9nq7VfI7HfdBg4C/315XFInxPfozkKTCav24Nfpw06jYmqKK5CoKSlYH + loDyCVpx0zTjuqknp6Cunpo8EMQdKP3eAUIoIzMWQuF3ET3UJL5Bcfe4n0bkIlFnLUBAMgdJuoSym1vR + 6+u8vs77Gyj8kJXVtFleCRnLZZDLxYBBOeWxGyCpAZduOIUO+gY0MA4RyWo+o/DSLJHIkMfJFylxcZ4E + swviCdKpiVRCCYkma6OMRKMKy1FsTq6hBqSLfR1UHO2g0Fw7BedaxB/U11sf4bTjEMHT4SGbnRi1OUBh + bnIc4njc5uEJ5nERLQACAZkMGEAke8tgIqwWloG7SNbAqJrbyEIQZ0DimQrSCQycVQAIOCDAEpB4a2Br + hu9WMLgXBb2bc7zS3enYu1XOuzl+J8X8Qb3/QQDAo69KEk/4UZ+BJHXlksunF2XbTVSR72XgwaCBXsCN + WAOKGGqHC2hq7nAZxQKERl63QRYLEPoGx6wTd047Gbj9rIxD6twFUTqP4ltA6QkMpPzn1zacLKxft9nl + 6zYYmsGd1GuF5Q2WU0ToKICQV0iBu6IqK62gZwL36MIF1UUDmSZCWGsYTxGRRlmUnBYvkJIMEFwIgCA9 + JZPS00WUyKh3pSRUPqKd+kIt1BpqpcBcK0q/l4Y9g+RTjOIaG1VIaGeH9ZB53E9OxSiZx5Gxvn8NCAo1 + RXxE0exklDeIkGEMEEQEBuOeOxChLMuALY1uZBkox0CkscAgFggEBg4EAMhY2aBl4sMEg3iK+oMGgw9K + 0e/2Pg8bED7qiiIx/kd/BpJUQ0dg0KcQUwChU4XoXHObrmhSmUhkIotw0fQQFdSFu6axqZ0WkPj08eE3 + 4+evVRYy/EAHrp4R+IMJQigX19ZtGSUnAFhc33DiwGBVVsINAOGGjU8tWHPnoBVVNBFaWuvAIL+wmgQz + lH0uEUP59CuubqC9JAQ31ksrY5NlUAAhrNBS1SRS74JLF5ItjYY2+TSyaW5soI5Qu/WTTdzNar+ZxLJa + VSLFWqiRxVBTbb2tLTZG9nAEwnesvxdw6AAM2m3YhZj2Elk0AJk8ioUwZrMKNVXuASKSWdzCBC6hCKIE + tDAgIDdRGHFEsgMCJaXJSgjAQMlmC2oErzIT6sAVFe8SkvLfGj10t+GUu1mJP8xjdqt0P6zjHray3+n6 + j74qSTzhR30GkoZxazjLIOomCspOBIllCiN1gmXQAjGsPIKhkRDbQayCdsAAtxGAUEmBunoAY4jQ0Xlc + QYus/Jec8vcgwJbXC7IK4AzmkPDsEu6hMauoa7Pc4lqS0qotS5JTRsZxEaUrChGS1MhcbiCstIvxtRHO + qmiiPPIQVKJaDWnSKVZ38dxlu5aeZVVl+P9R7H0AQS8Zxe24imrKy6w0jxLV1CQqIN+giCzkSgjkJkJM + e7AaBARD3Z1Ohnu7bXxI3EE/OQfwB2ODTiKjgxYaoUwF5ShGBgCPXqqTcvxAX4+rXaTwUgHBuFpeRt1D + 2g5jHQTRRLiJlE+gqCHvGopaAx4IXLjnzZuOONb2XqtePkyF/0FF5twLYMRTxonQz4+6ekqM/4OcATiD + wE3UhxumR/kCgIGAwCeWufpDjjSWq6ibDl4TRA9NWQ+umzr2KSGsBRfSEBbGIqGRKyi5ZVa6AoMFrAMB + wvL1G84aEAjMr96wyOwynELIapqIHsIqyCuuBwxqyFCuhBAusLSMfMpW5DrJyi2mMX29I491nxJyEQqU + Z0D56RwAQV3T0kg4K6ZvQgegMUKo6CgKe4j8gZ428iNqq6yORLMayOJqQKDoaoYVZMAr5GRZQ3mpdTc3 + 2DCAMNbXZeOQyKEhLAbAQCAwAQhEAIHIyKBLSgtRt0iRR8OqSaTKpoiAR/kFI9QrUr6BI5CjnIHAQJzB + NJaBcgqciyjqFnIggOKPFQ8EchF90GBwLwp4L52z08r8Yb//Qf5oE/dKzMDDmIGkYZq4q/6+SOQu/P1q + 0hJEEgWiUhOKHqqHJ2jECuiDH5ieWbDI1CxuIXIAKEMxFpm0BSyCFRSccw+h/FdQdNoKGAK30IbNQhxP + zC2TfDYBEHSSedzgSOPcojq7mltlqZklhInmUrsoxwHBlfRgW0hfhGoS0eoYR0lZJU3sS1xnsquZ1yyT + xLI8ooea6hptjMilEBFB4ySRDaPYtervpe5QFzkFHQ111o6LqAFgEChU5udaXWmRdTbU2hBupbE+rAJF + FI2QgDY6ELUIBgCBfkTbABBUsiKCkh9XkplAAf6hF3GAEBNaKgJZ8zoeooQFloHAQOSxI4yZk61gsGkZ + AAT3AgYftmJ+2Mp2r1//Yfw4E9dMzMAHOQNJI4SEOstAmcQod4WWukJ06lfASlsiy0BgUAdP0AJHEJmc + tXkSxiYIKQ1DFM8vAwTwAUsAgayBWDBYFFEMCEzNL1t4etF6h8LkIPSRS9BE3SHIYoAgr7DeMrMqUP7F + lJfIJpv4GpVNKTWRmu2A4Vo2eQIAgmoTKZKolPyBfMJEs6hPlEsWcjXWQj8upKlxGs6zmg8PYR2w0h/t + 7bSRng4b7myzgbYm62uGQG6qs66GGuuorbRutto/0tVm432dFh7sce6h6TCANw43gFUQgIEsBFkGWAu4 + hKbgB6Yhj8O4hVTSOqhPhPtImcfRukSDWArKNVDHM+cmcpxBEEW0pvDRLYCwmQQWrbwpl8yHreDv5v57 + XVnvNL4P8keXuFdiBvbiDOAmCjiDftw+ARiQJwAYKHpIloHcRAKEBgChlnIQiiQaGCLskmSxVQDAgQAu + IW3XsQZkEazcuBlYA+IHBAQcO0piWd9whNyBHuoNtVmRQkhL6gkjJYoovxYwqLT0q+UUn8slgSyDYnMU + nktRhVN6F1+jWX0BZSiKSh0YVJBDUCTrAFeRWlW2w2uM4+5yYCAFPthr4wOs8gGFSZT5FCv7CH+HAYih + 9mYb6iCvoLPVxgCKcQAjxP7wYLdNYRHMAASzkMczoRGb5O8I54dwPY0jY1Q1HXUF7XgP4niCVX9E7S3H + xjYL1in7WFaBE9xFsgym6Wi2qEiiGL7AWwaOJ5A1cEtyy4l3Ed2NMn7Yx+6kTD/q7+/FH2diTIkZ+CBn + wIGBgKDPgUE/bqJuQkjlKqImECSxXEMSRQ7JOlAGcCdE8tTsoq2yul3BFbTE6l/bNZSagGBp4yZAQEIZ + iWZTC6tEDS2SKxCCCO6DAKbRTaXcPU2UlKhHyddYNi6izKxyy8gspbBcNqUlAIMLaSSTCQyy4BFyiB4C + EOAPKuiLUEGjnEIK1qllZT29iocJE51E6c7RVWxiRAAQyAzKfI6V/iKKfYXIIMkCf8/iCpqCKJ4EACaG + JLwmimguNGTz5BfMk2ewCQa4nBRxNIB10Ulhu05I6W5CUV3vA6wCVS4do1idiGQ1xfF1iVyegaKJ6H+s + ukQ+rHRtIwgldZZBlDPYBAQHCrdMkUR3axncrzLeCUzu9/of5PlkH9quBIvtXx1HyRL3T9vY6/AZu3+E + IL9vv/72/wB7O3rU7F/+5f1CHw3qjNw+bus1dB+NRf92GrsfX7yx+2s8aA3yYT9XvPny8771c9LfdzO/ + 5Bn9q89an0G874DfH+/6es+Pabv3t/tu+es+6M/tLq+3aRkIDHpVUE4F51wWMtnERBCpV4HAQHkFEnUx + a+W9oTEih6gvJBBY3pAEFoLcQguEjc7gRgrPLBJqOuPI4sa2XkpMtAEEzQ4MigGDArmICogkAgyuZlfQ + s1icQZYDAgHCpcsqQgcgpNLW0oEB9YVoo1laUg4YFNGboJCSEg2s1on6AQxmKAonMJhiNT/JVmAwHxq2 + ZUBgjQJ065STWCd5bJVkssXIiC2g/OfGBzmu32bZLrBviWMWSTSbwzqYGhty1sUoZLTjHgCCZniHFsJV + m6l62kGIaj+RRWp2Ixkm0a6fqKfNMtYokHCEnATqEm1aBjFRRBs3AhJZYLCZPfz223YLkXL+IBXoRx0M + 3ve9f/xxs92IfrRbj5Mi1z9tY997/fXbyjp2v/8hCyz+6q+2v+///J+3AUHnbL2vxqJrbN2v82L3ff/7 + txXV1mPv8se/q8M1pq1jiL3vB/FcUthbn9XPu+Yj9j2B8XbzK7Dceh0p6K2ftY6J9x3w++NdX+/5746+ + K/G+f9t9t/x1d/WBPLyDHBgMUkVU1oHAQCGmchW1U2eoVdYBjWmUV6D2lU3NSItaWdIOsw+fOsp+9fpN + W3cWwS0A4ZaLFppdvgFRvEJxujmSxbAI2gYoQNdJSWqAoKIVV08rbTCbnWWQj2WQk1sJL1BGFFERnEGW + XcJNdOE8lUgvZVKJVI1r1MUsh4zjfCvAXVRcWGoFlLEuowhdB+GhEVbn8uNPjePPZ9U/HZU5IoIWw8NO + +a8DBhso+huUltigrMQqCn8ZK2AhAiCEAI3IsC1MjgAEY07mAYZpAEKgEsLFNIhbqadFVgHZyxDS7SKl + AYeu9jaX0xC0yAwK1PVFS1mPEFmktpdzZGEvqQSFksyuB1aBjyJyVkHURSQQ8PJBg8EHCTwP414PHQy8 + Et6qCLxSuhMQeMXwzDPxAUXv+9VkPJDYus+v1GP3+2s/aF3xIJ5LltFunkvKWsp863PFA23NezyQEHht + BwbxxqG5fFBgIGDcDkRiwWK7+z3oz+4ur5c0OhqKgoFIZABB+QZYBwIDhZKqj7EAoRkAaAQMJAKDVspE + jIwrigi+AEBYAggW12+SdbxmE7MrNhKZpTQ1FkH7gNU0dtPDoB0XUSuhoeqHHLiJZBk4MMirpBx1KWBQ + SEbxNQcCFy+kO5F1kOzI5Cwa2mfTw7gArgAhx6CcyqXdZBRPyIdPnL9IXinvKVxEAoUZ+IN53ELL8ACr + sg4AhQ3qDq0BBCsAwRIKfz48iAw5IFiaZt80VgNgsKCSFLw/i2UxBSktDmKkB0JauQWIwkuVb9BLBnMf + OQ2DuJJkGQgM1OlMxf9G4BJEHs8r+zgKBs5NFOMiuh7lDAQICTC4t5aHApeHDgb6MUv5xAODeCtO7yqK + t6rfTlltXYF7Bb9VIUs5blUo3gURTwFIQepafhWtrVavO7mVpCjjWU7bKbOH8VxS4NuBwVbg0Dzp392O + 40GBgV/hb7VW/BzudctglESx4VjrINqfwPUz7iR0lBIUAoL6RvoJ1OIqauyANyADmW179xARQkskmt20 + mcXrDgTGp5ZscHzOOvpCVt86SDlqJYp1IO0UmGu3YoCgrBxQKGu24hJIZBLNcvPK7VpWMW4i8guwAi7j + IrooVxEiKyEZQLiCuyjtylXCSXMsF5eRyOMKylJ0szJX/L9krL/bwgPdkMXwAIhAYVauIscbDDsrwXEH + AMEyyn6Bv+cEBBMjtgwQrM6FbQ1ZmQ3x97gDh8VJMpEdIAw4cnqUe4TgEcIAj8JLhwQCkMrqnTxKaKkH + AxX/E3ms7ONYMFCegaKJYgHhNokc8AUfhpvoYazWP8hrvk8HSnlI4q0EpQT9+9spu+1Wdzo3HhjEU1bx + gONObgYp83guDI1lq9sh3nNtp9jjrZ79faS07gQI8Z7L++jjuajiKeF49/fAtVWZxztf49sODLaCpK63 + HRjcaRwPEgziLQw+OmAQIklq3FkHAxSEU7OaLscbSPppZ9nn3EO19a0o8wYSwCgUx7aorNaq69ttaJwu + XouUop5Z5vWM9Q5PWHvPGPWG+ml32UMBuk5cQ224iJCyVissbbKSUlkGzfA2de8Dg7R0Es0Ag5TLZBVH + LQNnHQAOKSlYB8kZJJnRD/lqrnMTVdEtraut1WUOD+PXH+qmpEQXJamRsZ52C/d3QRITLkoi2TSirQeH + gC8YgCsYcGCwMoMraX7iNhjwt0BhdTYMMIRsCTfTIgXrZkLiEhReigvIlaQgsYzcA0lAIg+60h7qE+HJ + Y4GBOAPlGQRgEADCJol8M+ANfESRAOGj5ia6S4v0gzl8OyUSe/d4K9/twEDKJx4YxPP1b+e73k5ZxfMz + e9J5qyLTKn+r3367Gd2qMLdaH54LiXd+PMX2MJ9rq1L2bpd4n+PWOdB8eJI/HqjcaX4fJBjEA+qPChiM + jUVugwGAIDeRupi1x1gGjU0dVk1/gbIKVRRVMblawkJr6UjWbj2DERsOzVM7KOJAoKFtELeQyOJOK6vu + sGJnDbQBApDGpYBBMRZBaWAVFFKPKC+/kub2pZZxNZ/Cczl2hQiiZMDgEqGlF87TG1nWAYBw+RKgwGsB + gsCgBL6grpIqpC3N1BVqheBtpuZQo/W21Ft/a4MNtjXasAshDWS4vcntGwUowuQUTA0DEkQQTY32Ob5g + GaW/Chgsz+Aqmhp1IoCQpbAGzyBZX5i29cUZQGLKlmYmqWZK3SFaYaovcgS+YhRLwZHHamyDi0h8gWt3 + qTaX6moWdRV5QNhMPouCQQAIgXWQAIMHgBcPGgz0o96qhDxnEI8wlGKI9y+estrqWojlAOJZMFtJ0+3c + Q/FW8LH7vOtiu+mO91zbRb/c7XPpnvGu7/f5lX68z3HrfHkX0XZge6f5fZBgEA+kPkpgMEZk0Ag1h4ax + EJR8Jsugg2qk7fACqlIq91AFFkFpeT3JX7Ws9BtZ6TdaBWWn27pGaGYzRI9j9TnusNJqFD7kcIFW/hDF + hVgD+cVqV8nfJS2AAVVHnTRQlK4GF5HAoIRcAspQEFaaAj+Q7DiDNDt7JsXOn73iyOSLFwAGwCHlcrrl + XMu1MvgClaYOQj1VkrqObGL+bqQ+Eduextpoklktf1dbR02FtVWXsb+GPIMmcgvabZKw0umxfucKWqFv + wdrCJIoeFxJAsCgOge0ygLA8E2I/789Nccw0oDHNdsaW52hnCSCoKU4Ei2Ec60DkscqCu3aXNLWZIax0 + bj4eGMS4ijZzDQIgUJ7Bu1v94A9AN37sLvEwwGCr8vKKMZ5C8aShX7H6D2C7aJTYa2/lALa7fuyKeOsH + vJsV9U5gsN19tWp/EM91J+UZG6p5J9DQe7EWzt3O74MEg+34go8CgTweotZQaNJGsRAGKEPdRyOZvv5R + LIQRAKE/CgaNVllNrwEyf0uQUhrGVFbV0n6yFv9/rZWU1LDSRyg4V0QiWRGrfkULFZU0WnY+BDGSW0Tk + EH/LTVRYSuVRjstTpVIsg6tYBmmZ+ZZCtrFCSS9dzrBz5wEBAOEcfQrOnUuxM2cv0dLyMlZDiqXS7zg/ + O4ceBZVE9dQ7IGipQ9nXVVpHVbl10MWss7rCSXtlmbVVlFprRYl1VJdbO4DQXVdlA1gP47iVxC3MQDYr + 1HSdKKNFrIRZyljPjvXa0gQcg6wEgGEZwFjHelgDNNbnJwGESawD9TegK5paYGIZjGEZyEXkwMD1MQAM + ZBkABotLuIlUskOtLV19IpL0kNvJZ0HCmecM/hUp+rHT5A/ggT9IMIh3r1jffKxy342y2urL38794KOc + 7mZlH6tY7+Qm0jXjucC2A62H9Vx3mls/lvuZ3wcJBrFzs9VFt9cJ5DD9hwUGI6MRaunIMlCzmzEqk1Iy + Wr2MyStQI/qqmno4gxpW9OUAAo3rAYWiYgm1ggorcPlUERlUxcq/Dj5AVgRggNLPLayzrDwqjQIGBYCB + RIXpVIoih0iiLMjjDMjj1Iw8S8EyUCjpRVxC585dId8g1QHB6TOXkItYChdxHwEIly5bFj+OauoMtQEE + rXXV1lRTZs0o+jaKz7WWl1hrGaKtBCAQKHQADo0lBU6ayosoSVFh/S11Ntbd5vgEhaLOK8wUmXOA0Od4 + hQVIZoHBCqTyClaCXEYODGiBuUDegsBApa1HIZF7iSJSGQqBwSSlOjwYzLvmNmp3qZIUKmOtHgYCg6BY + nXcReUBIgMFHDAw0XPn277Qy9AprN0pT14r9t51S3kmZbyVpY5XVTgSyv7+U8YN6rq0Wz3aEa+xz7QYM + vEtpOzfRduT8dvzQnfbv5vPzlkA8l9xeDS2NUCYiRBVSWQZDwyEUWQi/N2DQPehCSgUGqklUQwtJWQOl + FIoTEBQQ659fUIKU4vcvpYpoCUlhZRDCshDqHSDIQsgHDHJJLBMYSAQOTpR5nFdl1yhZnZ5JfgFWgatL + JDCALziPS0jWwZmzl+3U6Yt28tR5BwYXL1y2S+cvWWZqqpUVFdK2ssqapOSrSq2xshTLoAwAKLbGYpR+ + cb41lRY6QGjjPVkItQW5Vplz1cqyAJP8HGsqK7IuwGSgpRFuoc0i/Z2QzOQqwCeE+jos1Nvu/l4i+mhJ + UUgOEMQtTNgiMidSGTAIUyBPFVMFBqpWOo6bKACDWdf/OACDKImsLmdboopis5A9Z/AA1OHH+xIfpGXg + Z1r+/e1cH9vlKsRzgcRT8vFi/reCRrxPfLtcgZ1cRLHX+qCfKxY0dgMGO3EGW+c4lpO5X8tgO1faVtJ6 + r1sGExSdCywDQkxpXD86NkFUEV3Loi6i+oagSF0tYFBOTaAyXESF1AgqAAjy8opJGCsCBFRSmte4e3Jz + VUSuGpdSA6JGNFgBAgKK0akGkdxG2XnVgEAFWcflln6t2JWtTpZVAF8gIAjcQ1fs7Fm5hwIwkGVw7twl + LIMUOptdpplNipXk5+EqKqc3AT0PUPZbwaC+KM9ZAbIM2hCBQn1RvlXlXLPSaxlWwbYGcKgHOJp4rwXr + obu+yhHOo130OmhroJZRowMIZSrPE4EkfmFRGcyI2mHOTlC0LjyOiwgQoHS2dxMJDEQgy1UkMFA/A1Uu + dSRytO1l4C6KTUIL6hQlwOABYdiDBIPtsnBjSxT4kFWfQBZvNb1dctlWZRXP/XOniJh4U6ZV952yh3VP + 75cXqGzlAHTN2Ge6l+faOgfxniue9bK1fMdOnMFO0UR3GseDAIN4n/VWC2Kvg0EkMu3AQH0KxkgiGwEQ + +mlC30lIaTPkcQNgUCc3EZyBwKCE2P78fAFAAcq/wHIRZQZnqn4Qfv+rVwt5j3IRdC1TxFAJHEGx3ENY + CzmAhKyBLDKOM0kyy8xUbkEBCWW5JJaRbEYU0QX6GZ+nheXZc8lRILgAGFxwnMFF2lteuphMMxs1vk+2 + wpwcq8FV1IASlzTDCXRgIbRWYBmU5FtdAbxCYa41yzrAKmhB4dcV5Fl1HpVOc3OtJi/XavPzrQZQqeRa + 1TTBacS91F5dZb2NVDil7HUfnIQshjD5BSpzMUs101lqHc2GqV8EcTzNNkJ4qfocqKR1n6qYquUlGdGR + yUkqu2IdiEQmosjnGwRRRfAHUQvBAYLqFHkima2iiRL/7nMGHiQYbOdu2S6aSPvj5Q5sBwbxFNJuCNo7 + TdFu3BkCC39vDwyx14xHmG+XExHvfvGspK33iXde7BjifY7x5stHb+12HN6qehBgEC8s9qMGBnIRBTJt + Y4DCICRyD53M2tq6XV0iDwZyEZWplwCNZTwYZGcDAmQFX82kyQxgkIabJ42qo1evFhMlBJ9AHkEACB4M + 4AhUegKrIINj0tMLqVKaR0G6bJdpfFFlKAADDwTiCk6euhC4iDwY0OLy3Olz9Dy+ZHl0LqsoLqStZbE1 + oOybsRC6IZE7a8odAMgdVJJxxUozU60Ct1BFNu4hmttUZF0FDAAK3EyNxcW4kkqsmdaYrZUV1gzn0F5d + 6cCgn8J0KnstQFClUwHCBLWKJJNkJbvmN8pOhisYJvlMCWgDJJ6NUNE0PEEF1alJm9wCBso3EBgo58BX + MfVJaJvcQQIM7hMFoqc/SDDYzm9+JzC4m6SteAos1g++nS/8TjO1VUHJlbJd3ZxYK2EnMNhuXuM9Qzzi + +26fa7v7bQUqn5dwt+OIBwayTOJZVfE+B50fzyX0UQMDWQZhRNyBeIM+ag51kXDWShkKFairpzhdbW2j + VSl6CBdRKYleqhian1cIEFBALjOb1pNkB6depR/xNZcclpaaYxlkE2dBDOcBCnn5VRSkUxgpBemwCDKu + ljjX0JVUgCBqESi5TCGkZwAAWQFyD2krIDh+4pydOHnOAcJ5XEVnT521i2fP27W0NCtlVV9VVAAg4OaB + O+hrqkGRV6PYi+EF0iz70jnLuXzeClMvW+nVdAcG5bS+rMrJxkoosiYsndZyIo94vl76K3fV1nF+ow1S + mbS/mdwFeir3IP3kMQxhIYxSkmJUjXBU1tp3PqO0tYBgSFu1v6TXQQQgmJjGTTQ74wrVzS0G4aULy0GT + G28V+OSz6+QaSDyRnLAMHgAePGgwiLfKvRMYxMt63c4yiDdWr9z8VOy0gt46ZVuVnJSwlFw8l8Z2ZHI8 + y+BuQC4eiMb693cDctt9jtsp8XjzdKdxbHf81mffrtyFxrH1GvGS8/a8mwgQiEzMOutABLKsgk5yDGQZ + qGppI24igYF6CAgMSlzF0GJqBOU6MMhIBwBIBLtCQ3olhblEMZWQQMmnOlAopF8xXAJAkA2fkHmtxBHG + qWn5ziK4fPka0UOZDghEGnuXkIDAWwbHjp+xo8dO2ykA4fSpc3bq+Cm7cOasXYVELsK9U4Hrp07RQzVa + 0Vc7QGiLgkFu8nkrSEvGBZSF4i/CbZTvrIJKeiJXEp5aozLYgEJjcZm1YPn0UAV1oJmeDSSz9TRQkA6X + UQdlsruJWuqjUN1geyuZzh02QsbziAAAYBhUrSK1w8RFNIJ7aFxWAUAwOTNt03OzNrsAgby06MDAWwYO + DGIa3bjCdTFgkIgm2oNgEM894sEgXnXRu+EMpKziKbfYENO7BYOt4KXxbEd2blfb6EE8VzwQvZvnuhtL + ZLtyGbrGdlnL8UA73me3XeVazenWa+iz+qhZBiKQZRkICNTSsodeBapL1E6ROvUzaKKpTU1NA2BQE4AB + oaUFgEFeLkqeTOBMGtGnXslEVE8oBSC4gigSSK/JHIYUVs0hNbnPhCxOzywgnyCXfIKgo5njCWQVEEYq + IBFRLJFFIGA4fuJsVM7YsaOn7MTx03bi6Ak7h3WQdvmy5WRkWIn8/cWs8skv6GkEEJrITCbvoKWCvsf5 + 16woPcXKszJwBZVYD5FDvXUkqJGj0FhUbLW5cAY5uVZNraMaXjfJSsA66K4nf4EPuLWqylqrSVqrryWp + DauBUtb9tMnsp6Vmf3eX9XV3Wh8F69TLYBAwGKCC6jBlKsbCIQsBCuHJidugIAvBcwdRd9HqepB3ENv5 + TC0wE5bBHgSDeJnAHgzk379T+KVWmXdyY2xnMcRmMd8tGNypLlE8wjqWtPXT/yCeK56r6G6eazswiLdf + Cn+7lf6dxrET0a75iu05sTVkdOtY4n2ee90ymJgM3EMD9A/uoWqpa3ATBQPnKnKRRLiJKuEMyC8oLoJA + zoNAhji+djXHWQcCA1kGAcGbiuDuwc1z8hQuHfIFLlyk8ihWwhWBAGTxpWT1LCCXAGvgLBnGZ8g0Pns2 + 2U5x/KkoRxC4h87asWOAAJbB4SMnHBgc1fbwMTt78rRduXjJsnAVFeL2qaCvsWtw31DBqr4WN498/dXw + B2VwAyj6/GxrIGpI4aVd9CTora+z/oZGG2rCCmDbW0dJ6spqIouIOEIaSiGcK0hkU/8CgKOtttq6cBd1 + wiV0t2I1YCH0dFCOA1Doo4S1wGBYheqooCrrwAOBtxDkLpqZn8NKCIhkV6vIVzKNhpluJqAlwOABIEE0 + Eiaem+NOPvHtfrCe9NyqNDwY6JpalW4HCFpVemW7nbLaTrndq5tI58XjCDRGjWHrWGOfZSuBez/PFS9H + IjasdSeQu5O7Lx6obTe/2/WL0LPqs9mOT5F7KJbM327FHzuWjyIYhMKTAAFF6oZGrV+1iehpoCJ1qk0k + V1GjyzNosepquYrIMC4qR8rgAorgBPIcgSwwuHyJKKDzl1HwgZw6cwElftaOoMyPn7xop5RFrNW/iGKs + hfMUnzsDEJw6zfHsP8v7p05fshOs+E+cBASwACRHAIDDR07ZocPH7bDk0DE7euionTp2wi6fO29Xr5CN + DOKXKcwUBS4wGO5oJLu4hWSyZhvtpHZRc63LM2guK7Q2oo06FEIKv9DfUGujNKgZo/LpUFOT9bCSqsTl + VAivUAzJXAexLBBoqaly0un6GNRbpxrddLRZB+d1qoR1Xx/huFQwJYpInMEoVoFcRZ43kLtociYKBso5 + iILBZq0iJaHFNL1xlsF7iWiiB4MIH/BVpFR8xVIpDa1G44VsfpDD8jX+NR6NLZ4FsNN49uJz7TTme3lf + c6XPzEeDxYuwupfrfgTOSRqjb/AgPY0HXS9klaEIrAOFlrqIIhrbOECoa7bKSkpNAAZqMJNPjkEWpaQz + cBMlX6YRzWUUuvPzKwwU5c9WkUBHAIRjJ9ieOG/HWPkfR/mfUR4BLiQBwYlTHMtWxx47JpfQGQDgJCBy + ym0PHT5hBw8dt/0Hj9qhg8fs0IEjdvCtg3bs0BG7cOq0pctVlJ5upfAAUt5yE433tJIbQNXSPnodKHGs + B2VPEbs+6hIpj6C7ttKBQQ8Ja/3OQsAlhBXQTGRRJaBSkJluxdeuYmmUOddQOy6iNjqbdcEZODDAMlCX + s872dgcGvb2ElJJsNqDmNlgGm4BAy8uQWnFiXjr+gAQ0RyarcJ16HKgvsq9kGs05EBCIP0jUJvoI/HoS + Q0zMwCM0A0kjo+Mkm405kWXQ0wsYiESmfHWrLAPAoL5BYNACGChMlP7DRUQIAQbXsvKJCKK0NJbBBbiC + 87iJzuO6OXseQDh/EeWPZcAq/zDunkOAwkGU/cFjRAbhEpKVIGvhhCKGiCASKASWxEk7DCcgt9BBrIAD + yH4A4K39h+3A/iO2/80DdgA5evCInT91xq5wn2spKVacnW218Abd8AXh3jYyiHuoO0R1UjW6R8JkEodI + JBuiqumIBDfSmKqYUqNogMJ2HSSltZCgVkdGcg05CvVKVKvHNURoqaSjuc7aAIJWpA0waIVgbkbaWDl0 + dHfTFxpAwDroFyBgIQxTtXRknGQ0ehqEAIWIEtBkHURrFSkjWYSycxWpXhHWQWwCWoIzeIR+ZYlHSczA + R2AGkkapWKpqpQEYDL8PDFS1NChJ0Y6rqNWqa5ogkWvJHSALubAcN1EBEUPqQkal0RQ4AwDhAnWDzl24 + aMdR1Ptx6xxAqR/G538Ad8+bh0/ZW8j+o6z+naUAQQxJfOwk/IDjCi4GQIAcwBKQNSAQeOOtQ/am5I2D + 9ua+twCDg3YckBAYpAA8V5OTrYCcgyp4g476MkpItFJCglpDyPwYdYYoUz1N0/spMonHOppxCzU5EAjA + AN4ART9IldOhJohjXrtS2G24jdh2txBaynGdAEgrEUVt5B60YiE04TJqwrXURNvNts5Oa+/qth6K1AkM + BjA1h0ZHHSCMOkAIk3cw4ZLQYovXyTpQAbuV9xWw27DrdEJLgMFH4NeTGGJiBh6hGcBNRPlqrINBKm1q + ZdvbT55BN60vsQ5a23sJL5V1IECgp0FNM1nIykSmaF05heYoQ5GeoUqjAgMa0LC9gGK+yEr9HBnCF5JT + LTmD/AOI5hTyEa5czbNTZBcfIm9gPzzAW8hBQkYFFAdxCx1y/AC8ALKflf9b+w/ZPhT/628ccNu33hQg + 7HeWwSksCHEGaZeoU8S9cuUqIlS0sbyAiqR1dDujxhDlqZfocbyMLIzzmqJzM4OdNiE+oU3WQR1gUAs4 + NFi4s8mmsChG+zucDOFq6oV76OKYTqyINsJVWwCM1maBQD2WEs198L/WEopaTyhqc3undfb2Wy9z2Edj + m36K1Q3RA1mg4AEhFI64ekUChOkZahbNRWsWRSuayjrwkUUJMHiEfmWJR0nMwEdgBpxlMDpGH2TAYAAF + 1kvSmYBAoi5nzYBBU3OXNQAINXWtFKujYB1kchlgkF9AxVGyjwUCKQovJfksnciea7mQsKVldEJrogdy + p7XCQbRDTHdQEbUaKyOroAywgDOg/tBpQlCPkD9wAH7g4BFxBFgTAIHkDbiBN6Jg8Nq+/fbGPkDh9Tcd + Z3AGcvkKFUwzAR6BQZaI5PQMqynMso66cmoKNdDlrMuVoV6jDPUqZaiv09t4FWBYlNUAKMwKMAY6bBp+ + YQrlLwnjXhpj30BXs/VFwaBDBDRg0Irl0Ix1UEd4amWVSnmX0fmtyqoIRa1vabPWzi6shC7rogdyPw1u + BAgDzKvmdgRgGB2noF0EDiFas0guI1fAbrO89eqmu+idRDmKj8DPJzHExAw8OjOQNA6BPDJK60usg77+ + IeuCQO6lJEUn3EFrB5nIHf24inpwE9H7mAY21bVtKMBmK61qshzKVqfnUaSunDpEhKCWKGOZxjitENH9 + k3M2Mr9q/VOL1hmato7QjPVMLlg/fZKbhiNWBzDU945YIe6ns1gMb0I4vwxZ/Cpho68fOIoABgcP2+v7 + D9hrb7xhr732mr355j7b99or8AUHLPn8ObsKEGQICFKuWG4qHdCupFlZbhbcQb61QxKriY36FcxhFaxM + AgrTNKuZGHCyEOm3uRDtMMfV7YwyEyNdTiIj3c4y6Idf6MKd1AJf0IBFUEfkUQPuoWrI5vJaSnlXEFWF + lBB6WgEJXcn+WjKWG8lcbhaxTO5BN1FGvQPkHji3ETwCVoJaYU5MqYAdhLKsAxWxi5a3lrtoNcofvPvu + O4/OtyzxJIkZSMzAnp+BJDW3GXVgQPnqYZQ4UUX99DXoplhdG5VLW9qxDgQGDR2shlsAhU6rrGmlpSUu + I1kKtMRsGZDyn7WhmUUbm1uy8YUVCy2t2zi9kYdQ/j2ROWsdnbSmobD1AA5dE/OAwrINz69Zd3jGKgGd + NJLZjhGeuh/S+Q1A4TW4gtewAF598y17GSB4fd/rDgyOHz1sZ08cJ+GMHAOsgQyiia4CCAKC7BQykqlG + Wp57jTyBQutqqCLMVIDQAXdAs5rwAG6jfgcGS1GZZzsXpmQ1wDA13uPAYJjooy5cQy1EHzUQfVQHkdyI + e6iZ3IIWEs6ayC+ohTyup/9yA4q/kb8b2bZ0wR04Mvk2EPQJDOARXPE6ahaJTBYYTCIBGCiyiGqmUetA + YCAiOeEm2vO/ncQAEzPwSM1AUmSCAnVULB0GDAaHxwmLDLOSpSwFYNBBT4O2zgFIUoFBJw1uWPk3dbtt + dYOU35D1jU9ZeHHNpjZu2eT6TYssrVkYGZlfdpbB6CKgsHzdBudWrSM8a+1YCA4M5pZtYGbZeifnrYtr + VJLXkFZYZscJUz1Iyep98AevkU/wahQQ3jhwAGL5iF26dIHmNpDGaVcsOz3VMpMFBgEwZFPWOpf9BRSm + EyDIQlCrSzWwCeECmsQ1NI2ynx3rwSqg9zHgMItM08RGIBAi6qiX49ooXV0PCFRjXVTQAKeCzmg1gEED + uQVt/WRnD+L2oi5RF20uu2lqI+ml7eVghNahoTEbYzs+EXYSnoyWpqA8hUpTzCAKLfXhpUEHtGjTm2gX + NCWfJcDgkfqdJR4mMQN7fgaSXDkK6hMFYECIKW6jfpWmwFXU3jXgLIPGJjiDRrKRmwEFtgKDuuZu6x6E + fJ5asBBgEFpG6QMCU2s3nISXNwIwWNqwyNotttedm6gb6Z1esoG5Fetn24M7qZ9rdIamrAZLJJPuaclE + KZ2GkD5J74IThI6eJjpJxHQGyWDZJINlAgJZGWmWl8nfaby+kmI51CnKce4iuIOMVCsEEEqwEqoLsikx + UUidIWUm19hoN5FEyFiP+iC32hgy3EOJiY56oodwCdVXkGBXihVUAjdSTl/nSqvEMqjETVRLSGldB9YA + WceNPV3WSj0iAUM3oDAAAIzNsuKfgxxemLOZxXmbpTjd/BItL1cIIV0LylaLIHbiksyinc7oduab21y/ + cdNuJqqW7vkfTmKAiRl41GYgaWpmATCYJQwyjF8b5U5Pg8AyGIVAHoBA7rH6RgrWAQQt7QPWwLYK/qC+ + tde6hydscAJuAJePwGACEJjBQpi/+a7NIpHVmza+AjAABuMrN511IDdRHxbBKNZCeBWQwHIYYf/Q7KL1 + RmaskcY6FUQxFZL1nEMJjOzySsspK7difPM1lILIo9DcNZT8tUzAAGDIu5pmOWkplpcOELDNF0gAFrkU + p8vj78LMFKKMIJYLsnAdwSVQnqK9tpyidmypX9SKsm9l24gFUVtZYkW0w8wj3yAfN1MxiWml9fADZCEX + ImWElZbBG1S0k5FNBdOaLnIwKFjXPNhrnVgH/ZO0v6SP8tQ8PQwWSTBboo8BsrCyYEurASCsbuAGuq7+ + Bdftxi0a2bz9tr39zjtO3nnnXbaSdxIZyI/aLy3xPIkZ2OMzkDQ5vUCLxmlAgOY2an9JTwNZBV29wyRU + 9QMC3c5F1IirqKW936rrCDHl7/Ze3CLhOVbDy3AEayj+67iJblkEUBAgCAymNt5B4d90YBBZf8eJLAPJ + MBbDBH+PYUEMiz/AbTS6ELiV+rAUOui41kpmdFPfgDV291gz9X+6qBJaThRPbk4WPZDTrIBt/rV0wkoF + BFccIHgwEBBkp1zCWrgAn3DR8tMuWVFmMsBA2WtKWxcjJdmEo+bR8yD3KtVPMyyfYnbpWemWAsBksC+3 + lFLdlLHI556FgFER1kF5axMurRarAgwEBPVULW2mnHUHbS97w7iI6IAWpi/y9AIJZgKERcBg2YMBOQWy + DjYoTAcYqJmN63kMINx6+zYgCBQSbqI9/stJDC8xA4/YDCRNTM8DAtO4hyapqTPtwKA3yhe0ykUEGIgn + aGrpcy6icsjjarZduIjCc7iFUPaTazedVRBCsU+t37BpwGDmxjs2CRiEeH+U/bIExrAOBiCNJWM65/p7 + Nr56w8YAhjDbCJyD9g/x9+D8ig3BOwxgufROMCbaSA5R76cJJVxMM5scooaKKD5XSAObPFxCeelYAk70 + OpUwU7mMkuERLlgW/QyyLp+zLMpZX2WbefGspV88Q0jqBUJTLyLJlp58yVLgIk4RpXTi/Hm7RDXUazS/ + KaRiaRHRQ8VEC1VAGFdCIldBGFd1tVmDAwLKfY9Q3I8mN910QBsjfDU8G7apBaKFEFkHzjJYW7KVDYDg + +ppt3AysgpsOBLwEYOAthAQYPGK/tMTjJGZgj89A0iTKVmAwAggIEIZHI9aNVaCw0pY2MpBxBzW3EVHU + JqugHR96u9UADgKDcSKFBAaz199F+b8LIKDgsRDCKyj3lev8LYvgbQuxP7T2tkU23nUuokHAIAxQTN80 + 9r3trIcQ50j5DwMaQ3IdASACh4kNLIsVkdJLNkVjmD788zW4boqpQFpKNdLifKwDVvL5mbIKZB2kutpC + hbiLCpB83EXZyRcdGFy9BAhcOGOpZ09a8pkTlnqechYXziLn7eKZUzTNOUm+w1E7cvq0nVfeAqGjlYSL + 1lCQroayEw20tWyigU0DFkoDRLIsgrYRSn6PDVnnOJZBhBIUEyM2Pj1uE3OUrp6fDAABC2F+ed4WcRWt + rK84N5F3Ed16BzCIgoB3ESnHIAEGe/yXkxheYgYesRlICkEeCwzGxRsABj0AQVfPkHMRKcegq2fEmlr7 + rJL8ArmHqggtrW3ptfZ+spYnFoge2rDZG+/Z/NtmU4DCFArckckodwGBlP0YvIGsAgFAHwAyuLDu9unv + CUBkkvMmOU7Kf4T9knEsjBAWRuT627x/k2vDR0C8ChBa6SFQRuXRUvz6RYBBCa6eYtw8ObiCRB5L5CaS + dSBrQfxBNq6ibKyAa846uGDpdEBLuYBcvICoexrF8Q4eImLpuB09ccrOXSJclX4HZbX1VtMCadzZDVmM + 0idnoIOeBd30LOghcqifPsiDk3AtuIbGZiYtNEsdojm6nAEEzjpYnLG55TmAgOSy9WVnGazdgDPAOriO + dXADN5GzEDYBQdbBu5ZIOnvEfmmJx0nMwB6fgSSRx6NE8shFNMJWYNBBFJFKUchN1Nk9wnaAbGLyDGpx + jwAIda1UNR2K2PCUcgpwFaH0Z1nlT6HYp6+jwFc3AjCQZYCSlytoFDCQddAvspj8g3G9BwgIDCYABQFB + WFFI7JNEcDNNiHdApm++bdNE2cwScjmLz70fZVxHJnB5ebGV0vC+vDAbQMjEIiCsFCAIRBnJARjkZ4hg + FqEcBYUryYSkXiCD+Ty9lLEKzlI2+xhVUUlw2w8g7D9MiexzhK+SSV1cVWOVjU1W195hTRSja6ZCaUs/ + oaXDgy601IWUTpCnMRWx0RmsgQVCSJfgC5YJIV0hoWxt0ZY3lm0VEFi/6UGA6CHnJtoKBJDHWAUJy2CP + /2oSw0vMwCM4A0kRQktFIA/T4KYfwlZg0I1l0NlF+QjyCOQiEldQQThpubKPcRPV4TLqUiQRYKBIoAhR + QTOAwewtBOXt+AO5ilD4YYBiTLwBq/1RtgNYBcO8Dska4ByBgSyIMK4kiZS/k1vvOZl++z2bYTv39rs2 + f+sdIpVwHZG1295LvgON6yvgD6pKC6yMaKFSEcHX1OwG9xAA4MCBaKLC6FYWQy5dz7IhmzMBhAxCUi+e + P2snj1ECQ0DwFhVRqYd0GDA4feacZVzD6iCaqZLGN/Wt5FVAZLcBBB3UH+qikU0PoDSAhTAUptCfQksB + hHEAITJHiOnCLKBAueoVitGtQRwTRbR6g8qkWAQb6nccBYNNNxEZxwIBLwk30SP4a0s8UmIG9vAMEE00 + T839GRdW2kvbyy4SzeQm6u0HGPpGnYvIcQUAQQXbcqKJGjo4ZmTKRmZWyTJed2Agy2DmZtRdhHsnLO5A + kUSyDFDycv2IDxjErTSGhTDB8dO4liZxMTnLQElr17EGcAtNiHz2lsEt+AgAYZ7qDAvvvGdLuFOWUaZK + 7mrAOqitqbDaCvoQFOdStTRnExAEBIVXyUi+eoXeBAAE2yIijwqRbCyGDCKN0iGOBQbHDh+hAN6byFt2 + iD4Jh6iLdJxOammZgEspvAHF6BrayLQGDAIgwCKgiU0/GcX9UTAYwTrwYDBBaOkUPMEMUUQeDJYhj1ev + k1+Ai0iAcP2WrIPblkGsmyhhGezhX0xiaIkZeERnYDMDWQln/Wp9KcugG6FuUCeWQRMEci2uoRolm8lF + hFXQ3IMijMzjIrpuEdw/0xDDIoOl1MUdTKPQnctHlgFgECLkVGAgIBgk+WwMS0BgMIkl4SwDgQHnTLtw + VPEDklu4hrTvHZuVVYAfXWCwiKy/x3lzc+RBdLpS0o10IavBQqilF0FlwTXqE6lTWer7pCgLcAAUCpAs + rIaMK5dp1QlXcOa07ccqeAMgeAvLYP9+tsjR40ftEiRyLmWxy2tq4ElarIlyE82UmuigxIQsg17qDXkw + GJuasNAM2dhkGE+SbDYDtzGPS2txfRU30bqtAAJrhJOuAwKyCq7jIroRdRMFnEHAGwSgkOAMHtHfW+Kx + EjOwZ2cgKRyBL1APZNf2EpcHCWf9A9QmAgxasAqUYyDLQORxDQlnNZDHTV2Uuw7hXlogV0AuIlb3M1Ls + gMIcK3mBwYQ4ALl/FC3EVi6iIYBgBPAQGERkESBhrAEdI4tAYDCD8neCS2jWWQWBODcR4sFggTZ8KvzW + RTZwu+oG0bWsuabc6stocF+cYxX5Vx0olMMlOHDIVpQRHAJyDe4g7fJFO0cE0dHDlMWm/tG+fVgGb+1H + 3gQM3nSlL85dgnCmg1pxRaVV07ugnqgigYFcRV1Dg85N1AtvMKgSFJSdCAMGIcBgYmEeF9Giza2uvB8M + 5CJyQABxLCAAACQBEHgSOcEZ7NlfS2JgiRl4hGcgKUyimVpfqlCdeiEPDlFfh6qivX1jLqxUYFBDkbo6 + gKABItmBARFGPeNEIc3jIpJlQL7ArKKJ5PphNa9V/SQSuH/INUDZj2IlDEW5gpBAAIlwXgQwkMhCmAIE + 5iGLnaD4ZQnM0wpYLiInuIuW+XuV/au4WNRcXk3o+wCEHhR1h7qQ1ZZYU1UhHcty6ViWbdXF2VgLJJbl + iEuAM8hItquplyGOz9gxit69hfJ/7fV99iryOtbBGwfesH3799Ff4RC9Fwg7JdtZyWfltL6sVWE6rINW + Qkw7AIOuEXgDks1kHQxTh2hsWtFE8/AFi4DBMmCwBhhs2DLE9ypAsA4QyDIQILwfDKIWAbxBgkB+hH9t + iUdLzMAenoGkEFVLVblUTW5UtXRgkFBJqos6F5GyjnELqQxFIxFEje2DWAXDhFiGCadcpCaRcgpukHms + lTxAINePc/MIDLTaDxS9wGAMMBBxPIVSnwQ4Is5FJHkPIhkRWSxLYOMGoaq3sDDecWCwgEvIyyJAsMJk + rgAU1997jzBN7k/z+eH+PhtGQfe2NVtXUyU9i8usGUBoqKB9ZVkelkK2lWEhCAxyiCoSGFw8RzOdg/vt + 1VdfoTz261RFfdOJwOCNA2/SpvOwnSQP4RL8wtUCoopwRVU0NVoV1UpVm6iVXINOAKEbQOjHMhAYyE0U + oQrp5MISbqKVTTBYwT20Bs8hEAgsA1xEUavgZtQ1FJtrkOAM9vAvJjG0xAw8ojOQFAqTeUzphxARRWOE + lg5RubSHRjRthJa2dRBi2jFsLUhj+xCWAclofbiQxqYpUa1sY2oOUao6AkEsy2AaBS8QCLNfVoH+nkLR + B0lnZBjz3gzHSaZR9lMKGb1FWCo+8rl3sQKY5OC94Lwgqog6R4omcnyB2TLgsIwCXUXW3gE0iNYZHofj + 6O+mKT1NadppXN+oukPF1lJVBBjkWl1JLtZBtss/yCUp7fJZ2m4e2E9vhNcAg1ft1df2YR0EYPDWW2/A + G+AmOnzQTsEnXFbzHDqoqVlPOU1sqhoBgw64CkpVt4g/oKtZD+6qQTKkx2l6Pzk/51xE885FtIZVsE4U + EWBwCxcR7iHJdcZ9A7npJOoiwiq4Jcsgmm+QiCZ6RH9xicdKzMAenYGkMfUzAAzG5S7aBIMhyFmIYjiD + FqyBZoCgqWPEmrvG8JfDKUAeT7HSn8W1M0al0jHVI1JYqRQ5Sly5BREAYVIJZYjAYFzRRfAI0woZdeGj + uJOwAKZuQhQDCDPU5pkBFGZR+BIBgjtWHASRReIQ5jhPYLAKcKxjGay/+zaJXCsWIeFrkEzg/v4uG+6q + t96WSutsKLWW6iKrK81xHEJ53jWXiJZObsEZcgr20x/htZdfcWDwyquAwus00EEOAAQeDE6cPGnnL160 + VKKKsvMLrIDIovI6ktBoYNPY1QUYAJjwB530KxCZPEy5jJADBCqWQiAvQCAvuZBSyOMoGAgIPBg4QOAZ + BALvJ5ApVJfodLZHfzKJYSVm4NGcAUcgj5F5LBkZo2IpJHIffZB7qVraA2/Q2jkcBYNhLIMha+kdswEy + j+dQ8lqpK4R0FOtAWcQChDm5geQaUt6Aooai0USyDAQGAoJJDwYChCgYCBCclYAryANCYEVATotYFqEM + pyACeZVjFFG0LgsBX/w8tX9UIG5goMdG+pqtF+ugo7kCUrnEakpzrYKQ0+KcTEpdX7ZzJ47aMTql7cM9 + 9Cpg8MorbF95DVcRXdRcRBFtNXn/8JHDduzESZLPqFOUlm7p2bl2Nb+IEhVVVkaoaTVtLhu7uq0Ny6CD + zORumtcMYB2M0bRGEUVTkMgBIKw4QFjxOQaKJpJ1IBJ50zK4DQauNlGiHMWj+WtLPFViBvbwDLh+BhGy + kMedVRB2rS97aX3ZP4gFMBixjh4BApFFRBDVtdLfADCQZTCDy2cJpaxVe1BkThwB7h7AQJnIsgzkLpIo + tNTlEThLQe4hVvsod0UJyUXkRZZBED0UAMKcgCFKIMtNNI+lMAtBvcxxqxJI5HWU6tpNylQQ2z801Gcj + /fQmwDrobqu21oZyqy3Pt3JcRAopVQmKEwffsgNYBa+//JK99MKLDgxef+0Nex2rQO6iN97Y58JLBQbH + T55yYJCSkWnpOXmWmV9oWUUllkd0UXFNnQMDlafoGRujyU/IRml2L1eRBwMXXrq6TNKZwkuxEKJ5Bmsu + qigIMfVEcmyNogQY7OFfTGJoiRl4RGfAJZ35MtYij3tlFfSh4OhR3EEpiiYAoAlXUWv3qLX2hlgBAxpk + HqtS6RwuoTn591Hwrg7RJpEMIaySEookcnxBYBFIuQsMZBkIDGZR8OIK5ljle1G2sawBBwZR0Wu3T24j + yOlFAGOF81aIz5er6DpuFindUcjkgaF2OI8ma++geX1TtVXDG5QW5Vo2IaUXz522w/vfsDdfe9VefuEF + e+XFl7EKcBNhIbz2Km4jwECgoHyDgySiHT5+EhL5oiVnZllmQZFll1I+u7zKciupZKqsZJLQeiDeB2lw + P4RFME7uQxgX0SScwcyyoolWbIE8A2cZiDugQJ0kNgtZiWeuNIVLQAvKWb+NyyzhJnpEf3GJx0rMwB6d + gaTJqTnAgDLWNK0XGPTTz3iAfgYuz4D+BU1EETUgzVgHPcNa9dLEZpkIIqyBaVxAUtDiCUQYCwCUK+D8 + /YosUp0h5y4iF4HjFpgE5RMIEGItAwcIURHv4N1Eeh1EKQEuLmQ1CFtdAAzkKhKJvPHeO3bjPbgE/PLT + kLdDI52AQbN1dNZZawvhoDWlVl5CQxyiiM7gInrztZdt3ysvOzB46fkX7SUPCLiK9jneYN9tMDh2gvDS + S5Z6LddyyyqsqKbeqslErsBFVEl5iqbefkprE5ZLL2NJiEiiCYBAxfRmHRCsAQQknAkEokln3iJwiWcS + ymtcV6TRDSwFRB3PbuI6S4DBHv3FJIaVmIFHdAaSpgCCCVpPBnwB7S4FBuQadFOKop0w0s7ecWvtGrW2 + HoAiRDvHNYhc3D1yE0nmBAYqNierQHkGKO73gYFzEYkPCFb7AV9w203kiWPnIkJcXoHnDWLAwHENrqid + wk6DqKIVhZriX5fLaImV9QIx/cOTWDVDtKTsacaiQXnX49KhumkaWcfHjh2x1+EK5B56SWAgERiIQEZk + Fezb95a9uf+wHTp6wg4dO2WnL5GtnFeMJdAICJBjoIY78Cr1fRDr5GX0Rij7TW7BGEAQJrdgin7G06ur + FNRbswWAYBEgUGipyzOQ0hdfwFhjwUBAsE6YrBPXCjPRA/kR/b0lHisxA3t2BpKm6WcQoXXl8OgEIABn + 4MAgyEDuoCxFz+CEdfZH6F8w4ayCGZT+AspY/nsBQVB+QrxBUKzOreSjoaGu1pDLLg54AsmMIoUcMez5 + AXEHt2UhCgaxLiK99tZCRK01o+T1MvuXcKssspJeZEW9jITnwzYwRpRPL+UjAIOaBsCgpNCupF22o0cO + QRq/ZC8+/wLyvAOFl18SgfwqQCAXEeGlAILA4OCR4w4MzlwmY7mwDCCgxWXPAA1sJunXPGEtlO9oIWu7 + JzJB20/qOy0u2yR9F2Ypsy2ZBwgW6HO85MDghsszWGd8m7kGvA5cRACD3nNAQNQR564DagnLYM/+ZhID + S8zAIzkDgMGiTdBmcnR8KkoaEy3keiCPOc6gsy9kXQOEbmIVTC3ftAUU/jzKWK4aRRPN4cuX+2ZCxeei + nIFPQBMICBAEDiKFtbIXGEjEHzieAPeQCORpAGFKIaZEGM0qjFRWgrKOdZwPN1WyGvdSX2XxFEpCU5mK + OVxIc5w3p0Y4S4R20j+gbaDbCmlqX1ZLZVMSxq6QX7Cf3IKXRBy/+BI8AbzBSy+7rUQRRa8r3wAy+Y23 + Dtv+Q8ft4PHTdiGNsNKyKtxCnVavDnCAQTtg0Dwybu1kbvdP4yKaJwFvCYtgnRLbrOxnUeqzgME82wXA + YBnLwFkHUVDYECjIPRR1EznLgPPWAIFVLIoNXifA4JH8vSUeKjEDe3YGkmZmIYOnF8kzoHLpCKtc3EWy + EnoHAASkd4iWk8NUKJ2g1s4aACCrQGQwyncBIFCW8Kx8+q4ngXIHxBsAEMosdiUmRAh7MJAFELwWeRxI + EE0URBIBAtE6RNq6vAXuEeQcBDIGVzFOFzVxEeqsFl5Vz2WS3shZmCDnYWodS4eGMh3DvdQSaoLrwL9f + V20XqEW0j0ihF1960V5UFFEUDOQm8oAgAvm118gzOHDUDhw+bsfPXrQr2WQf1zVZTSdlOOBSeqjw2hWZ + tjaAoJOEvUG5iLAKIstrLnt6WpYBIDDHSn8BkZtIdZQUZjoLn7CIC2mFYyRrHLcOEAgM9NpJwjLYsz+W + xMASM/AozwDRRJCeUwGBPDhCwxoS0LTtoVhdzwAul1FAIrxAzR3831gFcs0IDGY2S0aoZpBCTCGRsQzk + FhJHIEJZoaZS/C5E1FkGshKk3AUQUTeRB4LodkGZyAIIvR91LanMtStZgag3wjhWiJrjDNNYZ3AWRcw+ + cQnDvB6dn4HMnQq6j1E8boAy02X0MT5KmOjL8AIv4hZ6+SVZBa9iIQSvnWWwGU0EGLx1hGgiyOPzNMMp + LrPaDjq7UbupCyAYmKf15sy8dZKf0T1JHwj+Hl9eda05p9Y24FFuYKnIgroZ8BhqyAOZPEUdJWUnTxJx + NLtIhjJtPBfhF5YEDmtEGgkcZBk4MFhPWAaP8q8u8WyJGdiDM+BCSyMQyHITDQECchH1EVXUjZuoi9IT + A6N0QJvAeli4YfyPj158AcoaMJh1BeWCXgPiCyapWjqhvIJoo5qAOI76+10hu204Ayn/qLtIYBAAQlD8 + LshY5lzxEIiAIATohLBCBAY9jH0Ay2ZwdhF//rQ1D6gTWY+1DtCfmPpB1c2NlpyeZm/SwUxg8JKzCAQC + gXjLQGAgEYG8fz89DQCDE2cvWU4JyWvkXfRMTFs//MrA3JL1RsGgZ4oucYtkQGOdTCByE80BAhIHBo7L + uGGLshQABG8dzAEEc6pq6kGBOkbLFLULAGE94Sbagz+UxJASM/Coz0DS9CwrVgBBbiIBwvAY3AFVS3vo + cdxBglnvEK4jXERTS6x4UfZyEy0ABuo6pmJyKlmtDmcukkiF51ihK9tYfn2FlDqeIOoaclYCPIESyZy1 + EOMm8u6ihWjfggAUotyCEtkknD/OGEYgq8eIahqmYmrnxLw1Mt46XDi19GIoo0VlNnWELlFC4iRhoYfI + FXjtzQP2Ci6gV1/d56yBF5287MRZCc4yCOoU7X/jIO0vj9nBQ8fsxJkLlkNuQTN5F91EDXUBCD0zc9aF + RdA5MYWFMGchQGAK95AsgnmUvyuyh2Uwz98LbJeixLYa8izjDhJ3oP4GchctYBlIlnEjbbqNEtFEj/pv + LvF8iRnYkzOQNDtPOCQksnohj0coSx2ZtSEAoY8exwKDrn6qmeImEnm8iLJfwGWzKK5Avv1oiQi5c2Z5 + b8aBQdDCMqQuZ6zeg4zjwO/vEsmiCWbzjjwWMGABID60VNd05avZt8gx/rhpjhUYhLnHMGAwChiMr7+L + cl62BqKgKroHrKSly7LKyuzkpcv2Aj0KniRq6KnniBx6BS6AInQvvPDybTDYfB3s2wwvfeUNO3LwOBnI + J+w0bqLCylprJ7qqb3LGZAn0zS1YLzxBL3kFgxDHYVxD0zTjmXbuIYEBQBCVIMLplq3gLloloWydyKc1 + Xi8ryki8gTgC3EhrAMAqLiJtFVaqXIMEgbwnfy+JQSVm4JGdgaQZ3B7iDUICAtws44DBAP2NRR53U5Su + g2ii3hGqlBJWKstAkUTKAF5UtI+P/lEzGpT0lBrcR4vUiTMIKo+KTFZegRLLoi4jv+L3mcdRF5EjkLmm + E1UyVV0il30cWAau9DUWiIAgkHdtYHHDOqiVVNU7atk1LXY2NdNeO3jUnn75NfsFCv/ZF+EEXnvLXiZK + 6JlnyCuIcgUv8p63Dl4hksjlGeyjLMUrr9vhA8eoWgpngJsor6yS+kN0NCNqaGBu0YZwCw1CGA8ABMPk + FURQ4lMo8UnxBWzFpagfwyJKX5zBMhILBsqWXsVKWEHpB2GmgARAsioyOQoEykJOgMEj+5tLPFhiBvbk + DAAGuIBcBjIdz1SsDldRH8ln3biJ5CKSZdBGGYqBMKUWaGYv8lhuogWvuBUK6ghlCF58+ZObXcsCn78P + KRUoyCpwBHI0msiHl3q+wIPBLApyRoXrAJlJJ5DTnDehaCIq1A2vvE37zBvWT9vNAbqt9c2vWQ2Ed3pZ + nR08fc6ewRL4Oav9ZwUIz79sP3/6BXteIPASnEEUDAJ3kbcUcBdRkkJgsP+NA84ycLwBeQZpufkQyD3W + FSbCanqOey1avwQLYYRw0gl4gmlFEQEEcg/JTRSAAbWbBAhRN5HqKK1hHVwnSW5dAOD6GlBKQ/sBA1kI + eq2+Bh+32kQjFPlL/EvMQGIGPtwZILQUFxBgECZccoyw0nF1MEP6iCTqwzLoRdo66G9As5uh8WmIUEhR + rADJHAAwH+ULlFPgWlwS+jnFa5Wp2Kw6upknEBNFFC1ZLQCYRQHOUtdf4grSiS/wLiK2M/w9xXGTgFCE + nAK1yhxeBgRmV1mhrxPVs2JFzX12MqPAnntpnz3/4uv29HOv2NPPvmzPPPey2z7L9lmA4YUXXokKr58n + Ac25i8hCBjj2wSnsf2M/9YsAAjgDhZeeTU6lDEWDtdLnoZfSHd0CBMjqEUJJXRVWteuEJ5nh9Szbedxi + CwDYAuNUMpxI5Fjr4IZRels1lQQEPK9AQQlpAoa3Kcv9Du+/K+H1x+VfAgw+Lp904jn38gwkTaPcVLl0 + nGSqkdGIA4OR0SlKUxBZhPSpcimZyM3UKWqn3eX4NJEwRPQsqVy1AEF5BLhuBAaK8AmRAyDrYEZdy6Il + KFzlUc8RbMkvEBAEGcjqaUB0korXRQvYuYQzRzhzD8cr4CriuhPccxxyehjrYHB+w5pGZuxKcZ29cuIy + bqHXUfpYBM+8HJWX+PtVACKQTTAACMQhCAwUVfQKlsLrUTA4RNLZ4cOQyEdP2okLly1PvMEYYba41PoJ + JR1eXHMkuRr5bIKBymSoPAe1k+YdEFBdFf5jhWdbRdZ4TpXc9rzBRhQMNlzXM0pYOyCw22DwMepnkACD + vawiEmP7uMwAJaxnKEeBVTBOkxvAYISEsyEI2X7cLhLVKwqK1vVZc0cfdX9CtHYkEgZ+YFaF6RAlmKm9 + 5RjEsRrdRNTExjWkCawDuYMcGLhVfiCeOJ5F6c0IEKLiuAIBRpRYFpD4c0QiT6MxBQYCnhFI7Z6pFStv + G7ATaXn289eO2HMv3LYKZBH84umXnMgyeObZl+x5rIPnnguAwBHKWAqBdaBS1hSpk2UAZ3AEINgPiXyU + xLOs0kpKT4zZIGAwuLDMfdedVaDieer1PMVrJb4JBGQZLGIZLKuyqgrqRcFgVeRxlEAWEGxgFThAQG4D + QQIMPi4/vMRzJmZgr81A0gRAoAY344CBa3BDFvIgANADAPTS3GaIsM1BpJfcgy4a3rSzf5Aw1MgiIZVE + DE27aqVBqepRwknHY8AgqGAaAIIrQy2JrvJdKKlT+Ch/VsVuq8qlUcvARxdN87fEhZYiEZSt+ikP0VCn + m1La1fRbSC2qtX2nU+znr0Mc4x565rlX7alfvGBP/vz5TTB4BgAQGIhEFiDIReQtA4GBSli/SXOb/YSh + Hj4YgMEBwODI2QuWSqG62p5+chpmXY7B8OJq0MZTPRqQWDBY4JmXsF4ksgqcZQB/4EjkKG/ggMCDgdpc + 4hYKrIIEGOy1H0hiPIkZ+LjMQFKEeHmBgXohy1UUQkZHcYlQsG6IkMpxACIEnyAZATB61AmN94fIxg2j + FKdQhmpkM4p7aBS+YCLazcyTx0HGcVCcbsqRx4EELS49IIhcDnogiy8QIOh91SuakHBeRIJFMCr3EPfq + m1u1ZqKesqqa7cjFTHv2rRP25MsH7RfOAnjFgcBTP38BV9GLTp5Bno2CgSyD55EXZRVE8w6Ub+DqEsky + OETF0qOnbD9yhIii1Pxiq6IcRRtz0Q1voIii0LrcRFEwwCqYcXwBloG6sSFLuIicmwggcFaB+IGoeCCQ + i+gmIMjUbIKB4wskCTfRx+U3mHjOxAzsiRmgn8EMnAGK3bW/nNgEg2EykccoTTHJangawlS5CBHKVowC + CoMUauvj2BEycsMrG7iGNmyIbOCR5euugJyA4DZHcNsqmIoCgbYBcXwbEAQGDhBc2Ont3INJXC0CgjDh + qZIQVsg4MkhIaT0RT1cKquz14xftyVcP2Y+f3Wc/wyL4+S9etCefeh55DkB4zkUTPYvL6Gm2Tz/9PK9f + dNbBi3AIriQF5LES0tTxbP9bh+ygQkuJJDp04qyduHjFMorKrKa73zoIvx1YWKEkxoZNqL+CcijYulLe + zkVEvaaoVbDE8y1v4Qs2CCvdUA8GgYIii9jKRZQAg0Q00Z7QBolBfKxnwIFBxFkGchNFsArGcRWNuW2E + rNsZsmznCaOcJ5xylpr903NEHhFzP6QibbiYhgAElYLom8GfDpcw4cHAZxlHW1fK9y9//20J3D8zrICn + ZQVEaxNtNrlx7qTANTSh/AKsi7C4AviJEPkO/TMrVtbSa6fTcuyl/Sfsiedft58+/SquoefeJ0899SwA + 8KIDgl8AFAID7yrygPDyy6/T/lIlrINeBvvJMTh84owdPn3BTlxKtcziSmsaINeAon5jKpLnWnjiHnMN + d4gkYqt2nAKERcBAfMEmZ4DyF3nsCWSBwXUnb9sNwCEWCBJuoo/1bzHx8IkZ+FBnILAM5CpybiIAYSxk + I9Tq13aK92bJthUQLCxQS4dia3MLS/QbJrSSkgy9HN+DW6mbFXMXPRF6qBHkwi1ZwTs3UZQncOUnomUo + PBks7sBxASpdrbBRXCkqYS1rwVkGnnBmO8X5E1FQGIankFXQRIZ0Rmmt7T992Z5+7aD95LnX7Cc/f9lZ + AgKEnz35jNsG1kDgJvJg8ItfBNaB9sk6EBBIVLH0ACGlB4+ctOOnz9uxs5c3waAZ99jQwqqN4woTGKhj + WwT30CQyDSCoTlNgHagekaKtYiKJYqOJNsGADm1bXEQCg4Sb6EP9PSRunpiBj+0MEE0kzmACICCsFBkd + GcUyGLVwKGzT9PWdp9Lm4oIAAQtBW2RydhbrgBBUAKGHkMvmARq9qNLpJG6kpY2gJpFKUPhy1bIOlHAW + Exmkv70EFoAAQbkEuF2iVoKLHOK9ySgYhAhhVSmK1tCs5ZJtfDz5mr1y8KT94sU37Ymfv2T//JNn7Gc/ + +4U9+eTT9tRTzzgr4OcOEAJrwP8tMBAQPAe/8KKsAkDgdZLN3iSk9C2sgiOnLtixc5ftsMAgOd2ullRZ + HfWJBqiKOgJxPQ55HLTvDCwDgYFKUqgUxYISzhwYvD+0VLyBCy11bqIACAIXkXcTvT+09L1EnsHH9keZ + ePDEDHwYM+AI5BB9fMdo7D6KYh8dHXWAEA4DBtPTthAFgwVAYGFx3ubU8D0KBkO4kTrUBrJvxJoJRxUY + jBBlpNWzK2ONheB6GqjiqAjkqDhXkQ8xVbipAwrAw4WZBqSytuIWIk7MBARjcAU9c2QbwxWkFlXZ/jMp + 9ty+Q/bkc7iIfvGS/eTJF+ynP/0FQPAsIPCsA4RAgtfa96QsBkTWgghlgcHLr9L7eN9+5yI6IKsAEDiF + e+j4hSt2/FKaZTowGLIBXGGj8CN6vhAWkIryTbq6ROQYqIIrALCIRbAUDSt1oaU8xxqyjmxIeEYBgQeD + Ww4MAlHCmU86S4DBh/FzSNwzMQMf3xnAMpgmz4CIITiDUVxDY2NjRBCNwRdEbHZGYDBrS4BAIHM2NzdD + xjLhqJP0TOb4tr4Bq+8kBwHroH9ywSVkKbJIRerChJ0qKzmi3sVYCtoqaWwSBS9ieEphowKBKCDM8DkI + CEQky1oQEIxDHo8BBCPX37OB1betbXLJSlr77Uxmob16+HRgFTz5PG4hQkmfxD30s58H8tPoFktBIOBl + EwxwEykj+UUyll959S3A4CCWwRHbd/gkEUTJFLtLs2MX0+xU2jXLrmygzSX9EQA6hdAKCOQOc24iWQWu + lDclOlD2m3wBr2OBYB0AEBCoHIXkxnvv2k2ecysYeDdRAgw+vj/KxJMnZuDDmIEk8QKBdSACOQwQjBNR + NA6PMIHin4UrmNsEg0Vez85OAwbkJeBa6hsetaauHqtp67JmchD6KCctv/ooUUUCAyWiOVHjG0UDqScy + YZcRRNsJVtHONSQrIAoKyjeYjYKBeIIwMg4YDFGYrmfxujXRfjO3vtOOXL5mz7951H767Gv206desJ88 + 8SxWwTP2kx//1H7yk5/ZE088aU/8RPKU/TxqIQgQfvazwDJ4ktfKO/Bg8Dqlqw/Q6nL/8bN26nKGnQME + Tl+5aheu5Vt+XYt1ULNpjOcKkeOwCQZKPIuCgVp1ql6TCyn1+QVRq2CrZeDAALnpAOG2u2izFIUrRwEa + fkz+JTKQPyYfdOIx9/QMQCB7ywC+gJX+eCgEMIQhj6dsDneQAMBZBWwX6SI2NzsFlzAJcNAAR1YBjeIr + G9sABZrFU/q6l37KiipSzoFT/s4aiFYcVbE5krIiTrAaHDAAGgKGaE7BtMpSKLoIa2ESmUBCnN+/+o51 + UDm1mvIYqSV19vrJy/aLVw7YU8++ilXwnD3x41/YT5/4eQAG//JEFAiexEJ4yp6KcggCgZ8BDE/8DE6B + hLRnSVB78WX6HLy+3/U9PoSlcTI5w5Jzii2toNQuXiuwi1kF8BPN1oRloGgigZ14gzFCasMu8Uy1mMgz + iDb7CQrUwRdEAWENi8GJdxNFt6peqhyDTTCI1iVKuIn29O8lMbjEDDyyM5A0BREsEjlwE4UdfyAX0Qwu + onlaNHowEBDMz1GojpaSE5GwDVNpsqO712oaW6yivsXq2tRdbNxaKXbXDXcwACCMkJEcEnegLmhqe+lK + UMtlpNyBABAEBmEBAgo0jEyRpesijLAURBxHEAcGVCptm1m1grZ+O321yJ47cNKexEX05DOv2BNYBP/y + fwMrQEDgweAnP/6ZPYnL6KmnnnZuIkcuRyONnn5GJSrodEb/gtffOOSsgsNHz1hydiE9EWott6LOLgMK + AoOc6iY4gxF6Hs9EwW6F5j0bruzGhDgDgGBG0UQCgmh+wcpWN1GUL7jOc3nO4DYYkHgWJZMTYPDI/tYS + D5aYgT09A1QtpS+vsw5w/RAqGgIIJrAKZnER+UgiWQaLcAfzAMHMFGCBG2lwYMDa2jusDjCoami1BoFB + 3yhRRROB0iRJbYBV9DBKc1y8gbMGlEkcJJFNwAdIxB1MuH0AAzKlEFNElkKI/WMAwQgF8XqWblrr1LLl + kVtwNDXPnnrtsP3s+X325NMvO/fQT//5KXsSt9BPsQx+hosoAISf8V7gJpJVoMiinxNJJHkGIFB1U3EF + +ylZfejoaTtBFFFaXqnlYwkUICn5pXYpp8jyeF1PG9B2+j0I6IZIPNssVAcIOCBgvI4zIFLIA8EqnMga + sg4ASDYEBCj9G1FAcGCgqCIXWfSuvRNTtXSvcgbKjJa8rZpKKrmN3KCDm+Q6ZbjVv1myog5uy8u2RIvP + eYIOJDMzMy4oQaIABUkIS7SqqmpP/0gSg0vMwMdhBhwYTJFE5pLPAIQJiOFJOIFZXET6ASus1LmIII7n + ZiZtagJeYYwErP4+awUMGprbrL6101pwE3VQ06gDhdlJg5weGub04lbpn19x5SPGWEWPKzbfWQWAgG9l + Gd2KVJ4AGIIoIqqfstoe5fhhZRvTJ6GL6qTNtN8soCjdkSu59uQrh+wJ+IKnqE76xBNP20/+LzzBPwcu + Ig8EchkJDEQoCwxcRBFAoPIUqmT60itvAgZkHEMaHzt53jWzySyqsOKGdiuubye7udyBQX5tizVEwUAR + U0OU4QjyKZSFrL4L5EcwZoGBswwABJHHm2DgrIL3II49EATWgQcDV5ICMIgtYf2wwOAd1UKKKvINGupI + 1tR2E+UtWSCXRDKHVSjlLZHLcFLfC0RWo0RKXPySxEWg3YdUVlZ+HH5riWdMzMCenoGkado3yjKQq0ii + H/w0LqI55RUgiiZaWAAYAIOZ6QkUwTguomFr7+qikmmnNbRiHdBusr6t15oocd1KvaDeSWUkr9AMZtnV + EFKS2BAuoxFI5VGshFFVOFVxO4AhrJpD0XwCJZepbpEa2kRYUYfYP0imby+5Be30Lqij2U5WZYsdOUct + IsDg2efewPf/kv34J7+wf/7xk04UWvqTn8AdID/m7yfgEVxIqUJNqVX0pDKRKXH97Mtv2UtvHrNDp4kc + Ss52cvhChqXhIqrsHrIq+jdkltVbamGVFUFY13SPWMNg2JrgRbpIrhsUbwBnEFbSmbKPGbPvZRDUJQqq + lspKcNYBsoFc529vGWwFBFkH9Dizt+ETYpX2g1h934+yftjnJsBgT+uIxOA+JjOQ1NTcYo1NuEEamqwB + aWpqsuaWZmtvb7OOjnbr7GwLpKPV2tqaObbeqmuqraCoyLLoApaRk29pWUh2sWUWVlpebatV0Pughuqm + NbiN6rAWGnAdNVAauwmroZlsZUkrhe7aKPrWSRXQLrqtddMnoBdRO0n1GO4h07mLctHNvN8QmbMKMo7z + cRGdu1ZiL7x1yv7pieftH//pKfvf//AT+/v/+Y/2d3//v+3/+/t/sL938r+j8g/2v/7XPyL/ZP/rH/7J + /s8//tj+z/99wv5JYAEwPA0gvHH0nB0+l+7kDUjpExl5llXdbNnImcwCO0pi2wXumVZca1crGy1XVkN7 + r1WSd1BHVnIT2dqtI+PWPhqyTrZd2g6NInAMSNvAoLX30xyot99au3GlIc0dnfSH6LDGVqwq5rq+udnq + mhqttrGBbYPVNtRbXV2d1dbWWk1NjRO5UiRSnPci/vy9uE1JSdl0H3k3UmIbuNMSkpiDD+o78P8DWurT + ZXYOTM4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAAGQAAAA4CAYAAAALrl3YAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAEd1JREFUeF7t3Fus + HlUVB3AJT0YNDwIJYnwAISbwYEiUBB5IqBACJqRRQQ0oBgKigVBS0gAiFwMlTUUJFkFtQgMNIiUoVqDc + L+VWKZEWCJQWaeVaaKEtbaGC4/5tzzpupvPNzHfOoZSkJ9n5vm9mX9Za/3Xba/acnaqq+tSOv+1IAgDZ + 0bYfGewAYztTyDEDsmHDhuqxxx6rZs+eXZ199tnVqaeeWp144on584ILLqhuuOGG6sknn6zef//9ZIDd + Gvjmm2/mMdrcuXPzvFdffXU1a9asaubMmdWll16a5z3vvPOqs846K/9+9913t5obTffff3+1cOHC3PzW + nnjiidGGLu2ZZ56prFunT9+bbrpplJ6gq/6Jzmi33nprb17b5DEmQDBDUAA456c/ra6++OJq/pw51e3X + X1/N+93vqhnnnltNOeWU3BD80ksvdYKCoSOPPLL6xZln5jnNoZlbm50AmPOrX422g77+9a3mfe2116rj + jjsuj//ZGWcMbO5HA3opIAp02mmnVT859thMi3l8Bj3lp+tB76RDD62s30f5JgSQzZs3Z4094IADqi9+ + /vPVD44+Ogv/uaRNr7/wQvXK8uX/b88/Xz396KNZkN885JBql899LjPJqgYRQ/sP3G+/asmDD1bL//GP + PO/KpMH/evbZ0fZKmtc661avzn1pcjnfHXfcka8v+tvfqsfvvDO3hxcsGG0Lb7mluufmm0eVh9B33XXX + asuWLaPz+P7FPffM/OEhWtCErmjuoY+i7LzzztWyZcu2CSDVnKT9+++7b2aWFWxYuzaDcNc111QXJaZO + 2Xvv3KZ+7Wuj7Yof/ah64MYbs/AQ/e1Jk6qDDz640UUQ6to0Jy0jJH/XTZs2Om/Mf+IXvlBpgAJ0HZB7 + 7rknC3L1ypWV9bXfJBdatnnnn5/nBwww8FZXEq4Ov6zIn/Elb/GdDCgQBeVix2sdxre6LG6Ea0BcAPFA + AgRBk9NQbdr++2dNJISVS5ZkYSH0uksuyfeP++xns3BZx9QTTsigDLKUjRs3ZrdFqJvefrs6PwEU65Sf + NBPAYkMphABk6d13N44zB+1m2cDQf5AQuR/eYObUqZk3fJQ0zL/88jwX6xdbJgKMgYAIdOKDxfju99av + z9pO+CVRNPC9TZuyyQKNqWOUsJYlodGeYIRw/bkn8LcxwFKAYm4WUQeFII5PwNHkustiYdauj0GH68BA + pzjYJcQVK1bkvvhgWTEni0UbniUcXfMMc38rC0Ho/sk1YeytV1/N7olFfH/EIuJzRhIIf8t10HrWtG7d + uhxoEQkYgrtlxFKMm53iiDkBLRNqIlTms9dee+X4s/bllzMg5drmcJ0w6oDQeNe5Sf3KceYhREEYbeJN + H0FRHiAGIOakXGIKOv/TM4vss1ajhbAM2kcruAbmuvD3v8+ajphorjNn2lxPbbkerk5GsmjevA+NW/bA + A1nYxtWJ5MooA6vcmICjieWaFx50UBYAJUCnRKOcw29Z1hFJgQifBZfjKdGaVasqwZ1StLmsmNc6Mkhu + N+YyD9lQxL6C7ttvKwuhOYRlsZxRJZOlcdxVEEQwoel1078lMWsMCxMHEG+cMbTsn4sWZWHpU08TBUbC + BHC5nvE/Tk2GBUy0te1vgEKpmuahWK8//XTWetZEedqEZS7xswTkt8ccU4lTTUrVV/CD+nXuQ5ilYD19 + BBCCuTZlHwhiBTEx7Z4yZUrWPBrFrSBcX0Heb+koq5l+0knZbdQBmTx5chZUWJW1NICYi2KYvx7MmyyN + MrE0qXLME5/AFhfxVnd79bkAIn7OO/30TIc50CKRkYCMF4D6+E5AuJAAJBgSFwg9grN4oJ+AzSU8f9dd + mWjWIOtiLQRJs+03Lk8Zip1wnRj3uco5P/zhVkJcOn9+Th76CgFo1mTJaKmDgjZ0NdFR0nVs6sPFzU1K + FHOgz/6GAm1TQJg8syZUFhIE3fnLX1Z/Si1KGBj3m4uiSfrlwJo01IaJlslYuohvA4SbAXjTvmHQvAQm + /WZxdUDEMml4FyDmYNklIL67Bqwunoa932ohAcjLTz31YUCmT6/+mlwLYfP5KxYvrlaljCpAm7bTTjkR + YC20kPV0uRmE037++r7LLssCNE982lzamMrC+jKpvEPoLLac78Ldd6/WvfJKpr0rsKOJewqrRROlYzUU + rS8tffu1AiKtZSEBCGKCIBoyKxUV/TH/uFd+zh0J7MBjRVLjNsIuTgGbAN947rmt5mMhwwIi6LLcZ5OF + lOD+MWVfYguauupPABEv8RK83Z6yS3FFBtZX0H37jQkQxNlkHZ9cCJcgxrCGO5Pl0L4SFL8JE4AE0Jb/ + y9iUIbi+2Ycf/qF5hnVZXNG+e+yRqwL1ud5K7lPK3kfDgcq9bQVIsuSPFZDffuUr1SUjbmT+ySdnActk + +FGClmYCaWPa5TPp6AucGZ/5TPVqErayi+xqZdrDDNIYGpk3hTUrWZGCOvD7+G2pLMtWa+OuSlpoN3eF + 5notrImmDEji69rDDhtVkPsuvDDP3VVx6GsVZb/eFgIQwsVcmKwKrskIWPZE2HmHnzSQAAERwvj1brtl + zZfytmVK0lDCsjG0jvEaJbAZda+rqupZifjA5YYimcN3G0uWHbR3CU2iwSUDJGgByIIUI/vO0bVGb0A8 + AKJp3EXJWAYkaXudIGUTZsztsCCxABDByF++9a2c/7vfFkxpHqERXqwL3HffeCPHmDZXAyygSTSWXHHF + 6NrGUxQxBU9tjwJKAQFEwlICsmgEEPuuYYTdp2+rhQQggjrBXDGirY/8/OfZZAcRxH8TCi0ihBKUfz30 + UHY9bVaSSyhJaPoZT5jWZiVb1qzJgA5KV7kY8YGFhYUay3UJzn1dVQjP5hcg85LFhWL9fcaMzNs2B0Rt + KCzk+n32yULRQkPsQwahLs3lwuwBgBBjWQlhudf2JJF/z+4pBdRVqZwT4323STS+XrZR1EQvy/rzEUeM + jpFlsXLzde076vyIkxQSIEEDQO648sq8D+uj9cP0abWQLkA8S29bTJpLCOtTBsaqMHTNpz+dATnmwAPz + 49228WFpXN8zf/jD6HjziUXiVoyPnbnkIfpaL8CQcY3lIRJAzFkCsjTtkwDSxf8wQETfoQCZrYSe2tKU + BfUliBaJBx+kAHvjl76Ux9Nye5g+DCmzEKZaGEHk9dOnWODAA0bsJdSl0LQ2WQLQ9ZNYsDAbWC6y74GL + UpAlIMG/2OQBVaw/FsEPGtMLEExyWXVA+hAkHqjs8uE0NwTKlfXZByDchhEoLIsyAEQ9zXX3BV4W80FK + dwN0oKxLu3raDShZl3jQtREsBZUrFak68EbaZ7GQ4H95mu9jASTyef53wZe/XP0paZ0WFtIHEAzS8hNS + +V2GRVCL02kUAA1TnJPKAgUt/06xTTkcIDI9Frj5nXeq+9NzEvQRnE/gPPq971WvpozQ2p7/99nHBChi + EUDq/A8LSJwXMFdXLa7VQiLbYSHjAcQj4Vx5TRnTwvRolpC4kmEAISSgyLBoLAtheUd/9avZFb2Qsp7b + U1UglKb+SQnEHmOaznM1uZBcOkpCrPNvrfnJZZYxbJALMofMb9p3vpOtuMsrjAmQZRdd1DuGBKF8ONdB + u8JChtHWmMdRJJYiKRAbnAhhbYSmSrAh1ahWJJcGnAUjlgIcCrUpbSzFmr57kPzcPAHC9ZUK2RcQwFO6 + U7/xjWzVEoyucksvQIIgDGoAUc0dJu1TeaUla9JzbwJbdO21ncQN0jqnPIDJFWJYbKD5Ul5rAMgmkgsL + mlklsAAiwegTiMNl1/kPQFjsoHnCTQFDbOP+WHVXuaU3II8kfzweQKSlk0a0bf3DD+dDCH1jUB/h0Wb7 + Em6E0FnOB2kTGZYijrDQYdxknCwBSMm/ubisQe4nn+tKvIpZNrKUkJulLBSzjZ+hAXkkWcgL55yTNXyY + napNIFcjjtAWQX4izzOVTKqtiVkEuThZD5pZDG3tCqrlPEEzywpAzLU8lYdkfOJZeRRV2SYeY3uIB4zl + 3/1u7gsc7qqtsGrtzuIiIYaGIKYEpCtAlcw5IsStYI4Jm7erSNjHMpr6EGQu4ydgCPK5o44arQ50CaSc + j3CBSKCP77JL5j3auvSAanUqOnKTrEHqTQlYAR43pWNC1mZNKgt473PGeSAgMiMC52YwVhJEQxCDaS6g + z9NA2UYOqIlYG0NMjGWj1gckFQLZ15a0YSRAwuOu+j6Pt1eRTuMPvS+nxwklGPF9ddogks2q227Lm9DN + ySI18tGHIlC+ttpbnZ9GQDBEeMzMhHmRZHrREMjt8NH2A7S9foq8vpCMw5wYED+GcXd9QCj7qACgS6yi + SHgAUFepBo3G4if7//+dZq8Ivqm9lmpa79x7b+73XqokWM81QACE3PA6TDbZeHKR6TlkRpOhL13L30ca + bcjX0j3XHPWRgralk7IOjIaZdx2/GRaEsr9yB7oojmZNxUhus21eLhQf3JSnn5qzZOJBvXnur+XrI339 + ln1SVED5ZB19PEjQtRUgfKyNDKZ8ckkQ7mqymzYX5NQJ96dS+lG6K4cgKBSNXZnS3i0vvpi1vU+KzkJY + ugpANKltUyv7xItE4gSlAwylpajkOIxydZ7LGmaytr7ObnEbsquu1G88ayrBA0BQZR0AyQ+sehxDGs+6 + xsoaxd1osqquUy29Ysh4CWsaj1jmy3U0vUY2UWuyPu50/VVXZR/O9Xbtjidq7YmYZ5tZiJRPIHf2dyII + b5rDQy2gswqZFUD6PIP/qOgZy7yNgHAv3IpNlMyEX42ytcAd19wPbWcB+rknDrnuflwzXh/zlvsPGV2s + FXsEAd+1eGUBmB4uaa6XTwq5onhBVFrLImQ9AirXJQbqj47gp05DCE7QL3mTiMQ9absHZuaxnlgVPJtX + E2vw46gT1+maMUF718FuazUCQiCCEV9oUowqcwjaALGwFNY1RGNY0KT9rqkxuR5lDMQBRCA0VwkIggVD + a8XGid+10cKYNY0LZs1tjxCKABBj0cMdrklng/3JAGVMaCI8CYq18SNBUVOqv86AN7QGb2VWBhBj3TMW + D4D1G+/oireQgWLDqB/+ouY2ro0h4mOvgCHMxSE3E/sdmqpvpLG0IN4qihMgYV0YatopI7zMRswbewZz + 10+30FKCCIH5DQxJQ94fJeH5XtatrBG/gYn+puQCrW0vcFonTmACsH4aP+iOg+VhYYDpUyUYGEMQH4AE + AyUgCAlA4n2S+oKAxABriffFm/xqzB/MEDCNpN2E0/SUz7zxPEJ//TyR9OfcVH4doXgRE6glQOhv2szi + wdxNZZ14QzcAoRD6il3uleeOySTo6/u21kCX5UbsP7gPbqiszLKQ8jgN4mksoRgXpolA7gjjXS+3hBsE + Qmyk8hmvNL4JRCX3mJPiyP+jqoA2FlsWEgGiv7jEgllM+Tp0rBGANB3qbgIEfVwSN1gmLNZCP3c2zIG6 + VgsxIZdRvpiD8DogpVkCJh4C8e+Eg2DX2oqRUesqU1SM0MAmQFhA1KakuqzCn30OIYg9JSBA0x8Qg0C2 + zrCAoA8QlK48TA4QSkxW+O+bcQ0EBPHBWF2YAQiXJWaUZ2S5p/CrwRxf6zsLioMJTQRas3wsSpuNqbtC + wdgaBM4SpLqsAyjAcR/AZe2qdFn8OyVrqiw0uSz9uE2fwCxjCEAifpalo9JlRfLQ50nlQEAQHRodwoyn + XVHzQYhyA0FGgAUW7fUbYAQau2S+1O9BzySMqxcd/eYGS/cS14BqbUAo7JWJBldbvumLl3hJM07CGFt3 + W8FbucNGd9BsjXiOEwlA02sWFKO0dkrbx1IaAUEM4WM8tJ/wMRV5usUinUWQxRAqFmCKpbivX6TB+vmt + lcVFmsfs62uGFRlnXpmKzCgEItaIHcCQZhI4C7Ru6c/xkJ9tJJ5C0GjEj8AflkKJ0Oo67xD/CId1Adf6 + aGfFYoyxfqOtLM2UfMb+x/pd1ebWoN7X531c/QiRhnv1QXXWP7r5uGiZyHW3WelkIok2V5RJBPGxnkqc + aJomYr5PLCBchFfc/AuOPsFyIoS1Leb4xAICBL68j1/eFoKcqDU+sYBMlAC2t3l2ANLj3w9uS9B2ALKd + AfJfyNc1HGbCOuMAAAAASUVORK5CYII= + + + + 41 + + \ No newline at end of file diff --git a/Epole/preview.vb b/Epole/preview.vb new file mode 100644 index 0000000..7894b50 --- /dev/null +++ b/Epole/preview.vb @@ -0,0 +1,588 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO.Ports +Public Class lb_left + + Private Const Pi = 3.14159265358979 + Private Structure LOGFONT + Dim lfHeight As Long + Dim lfWidth As Long + Dim lfEscapement As Long + Dim lfOrientation As Long + Dim lfWeight As Long + Dim lfItalic As Byte + Dim lfUnderline As Byte + Dim lfStrikeOut As Byte + Dim lfCharSet As Byte + Dim lfOutPrecision As Byte + Dim lfClipPrecision As Byte + Dim lfQuality As Byte + Dim lfPitchAndFamily As Byte + Dim lfFacename As String + End Structure + + Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (ByVal lpLogFont As LOGFONT) As Long + Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long + Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long + + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList + Dim onlyOne As Label + + + + Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer + Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer + Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer + Public Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer + Public Shared QHD As IntPtr + Public Const SRCCOPY As Integer = &HCC0020 + Public Shared hSDC, hMDC As Integer + Public BMP As Bitmap + Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer + Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Integer, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As Integer) As Integer + Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer + Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer + Public Declare Function GetDesktopWindow Lib "user32" () As Integer + Public Declare Function GetForegroundWindow Lib "user32" () As Integer + + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + + + 'Static StartChar As Int32 'μ⸦ ġȣ + Dim PrintFont As New Font("", 10) + Dim Po As PointF, PrintArea As SizeF, PrintRect As RectangleF + + 'μ + With pDoc.DefaultPageSettings + PrintArea.Height = .PaperSize.Height - .Margins.Top - .Margins.Bottom + PrintArea.Width = .PaperSize.Width - .Margins.Left - .Margins.Right + Po.X = .Margins.Left + Po.Y = .Margins.Top + End With + + '̸ μ ̸ + If pDoc.DefaultPageSettings.Landscape Then + Dim Temp As Int32 + Temp = PrintArea.Height + PrintArea.Height = PrintArea.Width + PrintArea.Width = Temp + End If + + 'μ ǵ + Dim Lines As Int32 = CInt(PrintArea.Height / PrintFont.Height) + PrintArea.Height = Lines * PrintFont.Height + PrintRect = New RectangleF(Po, PrintArea) + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + 'Dim RemainedText As String = Mid(TextBox1.Text, StartChar + 1) + + 'Dim LinesFilled, CharsFitted As Int32 + 'e.Graphics.MeasureString(RemainedText, PrintFont, PrintArea, fmt, CharsFitted, LinesFilled) + ' ν CharsFitted, LinesFilled . (ByRef) + + 'μ + 'e.Graphics.DrawString(RemainedText, PrintFont, Brushes.Black, PrintRect, fmt) + e.Graphics.DrawImage(Me.PictureBox2.Image, 0, 0) + + Dim Tobj As Label + For Each obj As Control In Me.Panel1.Controls + If obj.GetType.Name.ToUpper = "LABEL" Then + Tobj = CType(obj, Label) + e.Graphics.DrawString(Tobj.Text, PrintFont, Brushes.Black, Tobj.Left, Tobj.Top) + + + End If + Next + + + + 'StartChar += CharsFitted + + 'μ κ ̵ + 'If StartChar < TextBox1.Text.Length Then e.HasMorePages = True : Exit Sub + 'e.HasMorePages = False : StartChar = 0 'StartChar Static ϿǷ ʱȭ ־ + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + + + + Dim RECT As New Rectangle(22, 24, 310, 491) + Me.PictureBox2.Image = CaptureScreen(RECT) + + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + Public Shared Function CaptureScreen() As Image + Return CaptureScreen(New Rectangle(0, 0, My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)) + + End Function + + Public Shared Function CaptureScreen(ByVal CaptureArea_ As Rectangle) As Image + + Dim hBMP, hBMPOld As Integer + Dim oBackground As Image + + 'QHD = GetDesktopWindow '//ȭڵ Ѵ. + QHD = GetForegroundWindow + + + + + 'QHD = FindWindow(vbNullString, "Qring") + 'QHD = FindWindow(vbNullString, " - ޸") + If QHD = 0 Then + Return Nothing + Exit Function + End If + + hSDC = GetDC(QHD) + hMDC = CreateCompatibleDC(hSDC) + + hBMP = CreateCompatibleBitmap(hSDC, CaptureArea_.Width, CaptureArea_.Height) + + hBMPOld = SelectObject(hMDC, hBMP) + BitBlt(hMDC, 0, 0, CaptureArea_.Width, CaptureArea_.Height, hSDC, CaptureArea_.X, CaptureArea_.Y, SRCCOPY) + hBMP = SelectObject(hMDC, hBMPOld) + + oBackground = Image.FromHbitmap(New IntPtr(hBMP)) + DeleteObject(hBMP) + DeleteDC(hSDC) + DeleteDC(hMDC) + + Return oBackground + End Function + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Dim PageSetup As New PageSetupDialog() + PageSetup.Document = pDoc + PageSetup.PageSettings = pDoc.DefaultPageSettings + If PageSetup.ShowDialog = Windows.Forms.DialogResult.OK Then pDoc.DefaultPageSettings = PageSetup.PageSettings + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + Dim Print As New PrintDialog() + Print.Document = pDoc + If Print.ShowDialog = Windows.Forms.DialogResult.OK Then pDoc.Print() + End Sub + + + Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp + + Dim A As PictureBox = Me.PictureBox2 + + 'If SelCon Is Nothing Then Exit Sub + 'For Each A As Control In SelCon + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then + A.Height -= Val(Me.tb_pixelsize.Text) + Else + A.Top -= Val(Me.tb_pixelpos.Text) + End If + Case Keys.Down + If e.Shift Then + A.Height += Val(Me.tb_pixelsize.Text) + Else + A.Top += Val(Me.tb_pixelpos.Text) + End If + Case Keys.Left + If e.Shift Then + A.Width -= Val(Me.tb_pixelsize.Text) + Else + A.Left -= Val(Me.tb_pixelpos.Text) + End If + Case Keys.Right + If e.Shift Then + A.Width += Val(Me.tb_pixelsize.Text) + Else + A.Left += Val(Me.tb_pixelpos.Text) + End If + + End Select + 'Next + + e.Handled = False + End Sub + + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + For Each obj As Control In Me.Panel1.Controls + 'MsgBox(obj.GetType.Name.ToString) + If obj.GetType.Name.ToUpper = "LABEL" Then + AddHandler CType(obj, Label).MouseDown, AddressOf Con_Click + 'AddHandler CType(obj, Label).Move, AddressOf con_move + AddHandler CType(obj, Label).DoubleClick, AddressOf con_dclick + 'AddHandler CType(obj, Label).MouseMove, AddressOf con_move + End If + Next + End Sub + + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + Dim A As Label = sender + Dim Val As String = InputBox(" Էϼ" & vbCrLf & vbCrLf & "ͺ̽ ʽϴ", "", A.Text) + A.Text = IIf(Val = vbNullString, A.Text, Val) + End Sub + Private Sub con_move(ByVal sender As Object, ByVal e As System.EventArgs) + 'ViewProperty(sender) + End Sub + + Private Sub Con_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + On Error Resume Next + If SelCon Is Nothing Then + SelCon.Add(sender) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As Label In SelCon + If obj.Name = CType(sender, Label).Name Then '//ȴ. + SelCon.Remove(obj) + Exit Sub + Else '//߰ȴ. + SelCon.Add(sender) + End If + Next + Else '// + SelCon.Clear() + SelCon.Add(sender) + End If + End If + ViewProperty(sender) + onlyOne = sender + + + End Sub + Private Sub ViewProperty(ByVal sender As Label) + Me.lb_sel.Text = "õ ü : " & sender.Name & " =" & sender.Text + Me.tb_height.Text = sender.Height + Me.tB_width.Text = sender.Width + + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.Text = Hex(sender.ForeColor.ToArgb) + Me.tb_fontbakcol.Text = Hex(sender.BackColor.ToArgb) + + End Sub + Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Dim A As New System.Text.StringBuilder + If Not SelCon Is Nothing Then + For Each c As Label In SelCon + A.Append(c.Name.ToString & ",") + Next + Me.lb_selcon.Text = "õƮ:" & A.ToString + End If + If Not onlyOne Is Nothing Then + Me.lb_sel.Text = "ü:[" & onlyOne.Name & "]=" & onlyOne.Text & " ġ=" & onlyOne.Location.ToString & " ũ=" & onlyOne.Size.ToString + Me.lb_b.ForeColor = IIf(onlyOne.Font.Bold, Color.Red, Color.Black) + Me.lb_i.ForeColor = IIf(onlyOne.Font.Italic, Color.Red, Color.Black) + Me.lb_s.ForeColor = IIf(onlyOne.Font.Strikeout, Color.Red, Color.Black) + Me.lb_u.ForeColor = IIf(onlyOne.Font.Underline, Color.Red, Color.Black) + Me.lb_font.Text = onlyOne.Font.Name & "(" & onlyOne.Font.Size & ")" + Me.Button6.Enabled = True + Me.Button7.Enabled = True + Me.Button8.Enabled = True + + Me.Button9.Enabled = True + Me.Button10.Enabled = True + Me.Button11.Enabled = True + Me.Button12.Enabled = True + Me.Button13.Enabled = True + Me.Button14.Enabled = True + Me.Button15.Enabled = True + Me.Button16.Enabled = True + Me.cb_autosize.Enabled = True + + Else + Me.Button6.Enabled = False + Me.Button7.Enabled = False + Me.Button8.Enabled = False + + Me.Button9.Enabled = False + Me.Button10.Enabled = False + Me.Button11.Enabled = False + Me.Button12.Enabled = False + Me.Button13.Enabled = False + Me.Button14.Enabled = False + Me.Button15.Enabled = False + Me.Button16.Enabled = False + Me.cb_autosize.Enabled = False + + End If + End Sub + + Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + + If CType(sender, CheckBox).Checked Then + Me.Panel1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Else + Me.Panel1.BackgroundImage = Nothing + End If + + + + End Sub + + Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click + Me.Panel1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + End Sub + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + A.ShowDialog() + Me.tb_picfile.Text = A.FileName + End Sub + + Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged + Select Case CType(sender, ComboBox).SelectedIndex + Case 0 + Me.Panel1.BackgroundImageLayout = ImageLayout.None + + Case 1 + Me.Panel1.BackgroundImageLayout = ImageLayout.Center + Case 2 + Me.Panel1.BackgroundImageLayout = ImageLayout.Stretch + Case 3 + Me.Panel1.BackgroundImageLayout = ImageLayout.Tile + Case 4 + Me.Panel1.BackgroundImageLayout = ImageLayout.Zoom + Case Else + Me.Panel1.BackgroundImageLayout = ImageLayout.None + End Select + End Sub + + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + If onlyOne Is Nothing Then Exit Sub + + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + onlyOne.ForeColor = A.Color + Me.tb_foncol.Text = Hex(A.Color.ToArgb) + End If + + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + onlyOne.BackColor = A.Color + Me.tb_fontbakcol.Text = Hex(A.Color.ToArgb) + End If + End Sub + + + Private Sub cb_autosize_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_autosize.CheckedChanged + onlyOne.AutoSize = IIf(CType(sender, CheckBox).Checked, True, False) + End Sub + + Private Sub ApplyPosSize() + If onlyOne Is Nothing Then Exit Sub + + Me.onlyOne.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), Me.onlyOne.Left) + Me.onlyOne.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), Me.onlyOne.Top) + Me.onlyOne.Width = IIf(IsNumeric(Me.tB_width.Text), Val(Me.tB_width.Text), Me.onlyOne.Width) + Me.onlyOne.Height = IIf(IsNumeric(Me.tb_height.Text), Val(Me.tb_height.Text), Me.onlyOne.Height) + End Sub + + Private Sub tb_left_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_left.TextChanged, tb_top.TextChanged, tB_width.TextChanged, tb_height.TextChanged + ApplyPosSize() + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub + onlyOne.Left -= Val(Me.tb_pixelpos.Text) + + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub + onlyOne.Left += Val(Me.tb_pixelpos.Text) + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub + onlyOne.Top -= Val(Me.tb_pixelpos.Text) + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelpos.Text) Then Exit Sub + onlyOne.Top += Val(Me.tb_pixelpos.Text) + End Sub + + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub + onlyOne.Height -= Val(Me.tb_pixelsize.Text) + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub + onlyOne.Height += Val(Me.tb_pixelsize.Text) + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub + onlyOne.Width -= Val(Me.tb_pixelsize.Text) + End Sub + + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + If onlyOne Is Nothing Then Exit Sub + If Not IsNumeric(Me.tb_pixelsize.Text) Then Exit Sub + onlyOne.Width += Val(Me.tb_pixelsize.Text) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + Dim B As New FontDialog + B.Font = onlyOne.Font + B.ShowDialog() + onlyOne.Font = B.Font + + + + End Sub + + + + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + + Me.PictureBox2.Image = Obj2img(Me) + Me.PictureBox2.BorderStyle = BorderStyle.None + Me.PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize + Me.PictureBox2.Refresh() + + End Sub + + + Private Function Obj2img(ByVal objTarget As Control) As Image + Dim gObject As Graphics = objTarget.CreateGraphics 'Drawing.Graphics.FromHwnd(objTarget.Handle) + + Dim MyImage As Image = New Bitmap(objTarget.Width, objTarget.Height, gObject) + Dim gSave As Graphics = Graphics.FromImage(MyImage) + Dim dcObject As IntPtr = gObject.GetHdc + Dim dcSave As IntPtr = gSave.GetHdc + 'Ϸҋ.Dim sFileName As String = "C:\aaa.jpg" + BitBlt(dcSave.ToInt32, 0, 0, objTarget.Width, objTarget.Height, dcObject.ToInt32, 0, 0, 13369376) + + gObject.ReleaseHdc(dcObject) + gSave.ReleaseHdc(dcSave) + + dcObject = Nothing + dcSave = Nothing + gObject.Dispose() + gSave.Dispose() + Return MyImage + 'MyImage.Save(sFileName, ImageFormat.Jpeg) + End Function + + + + Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click + 'Ʈü Ʈ Ѵ ʿ(ȸũ) ׷Ȱü ̹ ٲ۴. + 'Dim BMP As New Bitmap + + Dim Af As Font = New Font(Label3.Font.FontFamily, Label3.Font.Size * 10, Label3.Font.Style) + Dim z As LOGFONT + z.lfFacename = "" + z.lfHeight = 400 + z.lfOrientation = 1 + z.lfWidth = 0 + + ' Af = Drawing.Font.FromLogFont(z) + + Dim FS As Size + FS.Width = (Label3.Font.Size * 100) '/ 15 + FS.Height = (Label3.Font.Size * 200) '/ 15 + + MsgBox(FS.ToString) + + Dim BMP As New Bitmap(Me.Panel1.Width, Me.Panel1.Height, Imaging.PixelFormat.Format32bppArgb) + Dim G As Graphics = Graphics.FromImage(BMP) '//⺻׷Ȱü( ó ) + ' ׷Ȱü ڸ װ IMAGE ȯѵ ȯĹڽ ָȴ. + G.DrawString("TEST", Af, Brushes.Black, 3, 3) + 'G.ScaleTransform(100, 100) + G.Dispose() + + + + + ' MsgBox(PictureBox2.Image.Size.ToString, MsgBoxStyle.Information, PictureBox2.Left & "/" & Me.PictureBox2.Top) + My.Application.DoEvents() + Me.PictureBox2.Left = Me.Panel1.Left + Me.PictureBox2.Top = Me.Panel1.Top + Me.PictureBox2.Image = BMP + Me.PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage + Me.PictureBox2.Refresh() + + End Sub + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click + Me.UpdateZOrder() + + + End Sub + + Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click + Dim A As New Size(Me.PictureBox2.Size.Width + 2, Me.PictureBox2.Size.Height + 2) + Me.PictureBox2.Size = A + + End Sub + + Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click + Me.PictureBox2.SizeMode = PictureBoxSizeMode.AutoSize + End Sub + + Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click + + End Sub + + Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove + + End Sub + + Private Sub PictureBox2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseUp + Me.Text = e.Delta & e.Button.ToString + End Sub + + Private Sub PictureBox2_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseWheel + Me.Text = e.Delta.ToString & e.Button.ToString + End Sub + + Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click + 'MyPicture1.MyRefresh() + 'MyPicture1.Refresh() + 'MyPicture1.Update() + + End Sub +End Class + + diff --git a/Epole/데이터셋/PatternDS.Designer.vb b/Epole/데이터셋/PatternDS.Designer.vb new file mode 100644 index 0000000..034831e --- /dev/null +++ b/Epole/데이터셋/PatternDS.Designer.vb @@ -0,0 +1,2684 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.18408 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class PatternDS + Inherits Global.System.Data.DataSet + + Private tableTStyle As TStyleDataTable + + Private tableTPattern As TPatternDataTable + + Private tableTCheckBox As TCheckBoxDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New() + Me.BeginInit() + Me.InitClass() + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit() + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, False) + If (Me.IsBinarySerialized(info, context) = True) Then + Me.InitVars(False) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TStyle")) Is Nothing) Then + MyBase.Tables.Add(New TStyleDataTable(ds.Tables("TStyle"))) + End If + If (Not (ds.Tables("TPattern")) Is Nothing) Then + MyBase.Tables.Add(New TPatternDataTable(ds.Tables("TPattern"))) + End If + If (Not (ds.Tables("TCheckBox")) Is Nothing) Then + MyBase.Tables.Add(New TCheckBoxDataTable(ds.Tables("TCheckBox"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TStyle() As TStyleDataTable + Get + Return Me.tableTStyle + End Get + End Property + + _ + Public ReadOnly Property TPattern() As TPatternDataTable + Get + Return Me.tableTPattern + End Get + End Property + + _ + Public ReadOnly Property TCheckBox() As TCheckBoxDataTable + Get + Return Me.tableTCheckBox + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set(value As Global.System.Data.SchemaSerializationMode) + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As PatternDS = CType(MyBase.Clone, PatternDS) + cln.InitVars() + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return False + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return False + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset() + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TStyle")) Is Nothing) Then + MyBase.Tables.Add(New TStyleDataTable(ds.Tables("TStyle"))) + End If + If (Not (ds.Tables("TPattern")) Is Nothing) Then + MyBase.Tables.Add(New TPatternDataTable(ds.Tables("TPattern"))) + End If + If (Not (ds.Tables("TCheckBox")) Is Nothing) Then + MyBase.Tables.Add(New TCheckBoxDataTable(ds.Tables("TCheckBox"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars() + Else + Me.ReadXml(reader) + Me.InitVars() + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(True) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTStyle = CType(MyBase.Tables("TStyle"), TStyleDataTable) + If (initTable = True) Then + If (Not (Me.tableTStyle) Is Nothing) Then + Me.tableTStyle.InitVars() + End If + End If + Me.tableTPattern = CType(MyBase.Tables("TPattern"), TPatternDataTable) + If (initTable = True) Then + If (Not (Me.tableTPattern) Is Nothing) Then + Me.tableTPattern.InitVars() + End If + End If + Me.tableTCheckBox = CType(MyBase.Tables("TCheckBox"), TCheckBoxDataTable) + If (initTable = True) Then + If (Not (Me.tableTCheckBox) Is Nothing) Then + Me.tableTCheckBox.InitVars() + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "PatternDS" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/PatternDS.xsd" + Me.EnforceConstraints = True + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTStyle = New TStyleDataTable() + MyBase.Tables.Add(Me.tableTStyle) + Me.tableTPattern = New TPatternDataTable() + MyBase.Tables.Add(Me.tableTPattern) + Me.tableTCheckBox = New TCheckBoxDataTable() + MyBase.Tables.Add(Me.tableTCheckBox) + End Sub + + _ + Private Function ShouldSerializeTStyle() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTPattern() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTCheckBox() As Boolean + Return False + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars() + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As PatternDS = New PatternDS() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TStyleRowChangeEventHandler(ByVal sender As Object, ByVal e As TStyleRowChangeEvent) + + _ + Public Delegate Sub TPatternRowChangeEventHandler(ByVal sender As Object, ByVal e As TPatternRowChangeEvent) + + _ + Public Delegate Sub TCheckBoxRowChangeEventHandler(ByVal sender As Object, ByVal e As TCheckBoxRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TStyleDataTable + Inherits Global.System.Data.TypedTableBase(Of TStyleRow) + + Private columnBACKIMG As Global.System.Data.DataColumn + + Private columnCANVASX As Global.System.Data.DataColumn + + Private columnCANVASY As Global.System.Data.DataColumn + + Private columnDUMMY As Global.System.Data.DataColumn + + Private columnDUMMYCNT As Global.System.Data.DataColumn + + Private columnDUMMYTYPE As Global.System.Data.DataColumn + + Private columnLANDSCAPE As Global.System.Data.DataColumn + + Private columnMARGINX As Global.System.Data.DataColumn + + Private columnMARGINY As Global.System.Data.DataColumn + + Private columnPICSTYLE As Global.System.Data.DataColumn + + Private columnPRINTFONTOFFSET As Global.System.Data.DataColumn + + Private columnPRINTBG As Global.System.Data.DataColumn + + Private columnSCALEX As Global.System.Data.DataColumn + + Private columnSCALEY As Global.System.Data.DataColumn + + Private columnBAKX As Global.System.Data.DataColumn + + Private columnBAKY As Global.System.Data.DataColumn + + Private columnBAKW As Global.System.Data.DataColumn + + Private columnBAKH As Global.System.Data.DataColumn + + Private columnVIEWIMAGE As Global.System.Data.DataColumn + + Private columnFILTER As Global.System.Data.DataColumn + + Private columnISXML As Global.System.Data.DataColumn + + Private columnDUMMMYX As Global.System.Data.DataColumn + + Private columnDUMMMYY As Global.System.Data.DataColumn + + Private columnQRVISION As Global.System.Data.DataColumn + + Private columnQRENCODING As Global.System.Data.DataColumn + + Private columnQRLEVEL As Global.System.Data.DataColumn + + Private columnFILE As Global.System.Data.DataColumn + + Private columnDESC As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TStyle" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property BACKIMGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBACKIMG + End Get + End Property + + _ + Public ReadOnly Property CANVASXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCANVASX + End Get + End Property + + _ + Public ReadOnly Property CANVASYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCANVASY + End Get + End Property + + _ + Public ReadOnly Property DUMMYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUMMY + End Get + End Property + + _ + Public ReadOnly Property DUMMYCNTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUMMYCNT + End Get + End Property + + _ + Public ReadOnly Property DUMMYTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUMMYTYPE + End Get + End Property + + _ + Public ReadOnly Property LANDSCAPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANDSCAPE + End Get + End Property + + _ + Public ReadOnly Property MARGINXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARGINX + End Get + End Property + + _ + Public ReadOnly Property MARGINYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMARGINY + End Get + End Property + + _ + Public ReadOnly Property PICSTYLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPICSTYLE + End Get + End Property + + _ + Public ReadOnly Property PRINTFONTOFFSETColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRINTFONTOFFSET + End Get + End Property + + _ + Public ReadOnly Property PRINTBGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRINTBG + End Get + End Property + + _ + Public ReadOnly Property SCALEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCALEX + End Get + End Property + + _ + Public ReadOnly Property SCALEYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSCALEY + End Get + End Property + + _ + Public ReadOnly Property BAKXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBAKX + End Get + End Property + + _ + Public ReadOnly Property BAKYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBAKY + End Get + End Property + + _ + Public ReadOnly Property BAKWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBAKW + End Get + End Property + + _ + Public ReadOnly Property BAKHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBAKH + End Get + End Property + + _ + Public ReadOnly Property VIEWIMAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVIEWIMAGE + End Get + End Property + + _ + Public ReadOnly Property FILTERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILTER + End Get + End Property + + _ + Public ReadOnly Property ISXMLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnISXML + End Get + End Property + + _ + Public ReadOnly Property DUMMMYXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUMMMYX + End Get + End Property + + _ + Public ReadOnly Property DUMMMYYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUMMMYY + End Get + End Property + + _ + Public ReadOnly Property QRVISIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnQRVISION + End Get + End Property + + _ + Public ReadOnly Property QRENCODINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnQRENCODING + End Get + End Property + + _ + Public ReadOnly Property QRLEVELColumn() As Global.System.Data.DataColumn + Get + Return Me.columnQRLEVEL + End Get + End Property + + _ + Public ReadOnly Property FILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE + End Get + End Property + + _ + Public ReadOnly Property DESCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESC + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TStyleRow + Get + Return CType(Me.Rows(index), TStyleRow) + End Get + End Property + + _ + Public Event TStyleRowChanging As TStyleRowChangeEventHandler + + _ + Public Event TStyleRowChanged As TStyleRowChangeEventHandler + + _ + Public Event TStyleRowDeleting As TStyleRowChangeEventHandler + + _ + Public Event TStyleRowDeleted As TStyleRowChangeEventHandler + + _ + Public Overloads Sub AddTStyleRow(ByVal row As TStyleRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTStyleRow( _ + ByVal BACKIMG As String, _ + ByVal CANVASX As String, _ + ByVal CANVASY As String, _ + ByVal DUMMY As String, _ + ByVal DUMMYCNT As String, _ + ByVal DUMMYTYPE As String, _ + ByVal LANDSCAPE As String, _ + ByVal MARGINX As String, _ + ByVal MARGINY As String, _ + ByVal PICSTYLE As String, _ + ByVal PRINTFONTOFFSET As String, _ + ByVal PRINTBG As String, _ + ByVal SCALEX As String, _ + ByVal SCALEY As String, _ + ByVal BAKX As String, _ + ByVal BAKY As String, _ + ByVal BAKW As String, _ + ByVal BAKH As String, _ + ByVal VIEWIMAGE As String, _ + ByVal FILTER As String, _ + ByVal ISXML As Boolean, _ + ByVal DUMMMYX As String, _ + ByVal DUMMMYY As String, _ + ByVal QRVISION As String, _ + ByVal QRENCODING As String, _ + ByVal QRLEVEL As String, _ + ByVal FILE As String, _ + ByVal DESC As String) As TStyleRow + Dim rowTStyleRow As TStyleRow = CType(Me.NewRow, TStyleRow) + Dim columnValuesArray() As Object = New Object() {BACKIMG, CANVASX, CANVASY, DUMMY, DUMMYCNT, DUMMYTYPE, LANDSCAPE, MARGINX, MARGINY, PICSTYLE, PRINTFONTOFFSET, PRINTBG, SCALEX, SCALEY, BAKX, BAKY, BAKW, BAKH, VIEWIMAGE, FILTER, ISXML, DUMMMYX, DUMMMYY, QRVISION, QRENCODING, QRLEVEL, FILE, DESC} + rowTStyleRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTStyleRow) + Return rowTStyleRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TStyleDataTable = CType(MyBase.Clone, TStyleDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TStyleDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnBACKIMG = MyBase.Columns("BACKIMG") + Me.columnCANVASX = MyBase.Columns("CANVASX") + Me.columnCANVASY = MyBase.Columns("CANVASY") + Me.columnDUMMY = MyBase.Columns("DUMMY") + Me.columnDUMMYCNT = MyBase.Columns("DUMMYCNT") + Me.columnDUMMYTYPE = MyBase.Columns("DUMMYTYPE") + Me.columnLANDSCAPE = MyBase.Columns("LANDSCAPE") + Me.columnMARGINX = MyBase.Columns("MARGINX") + Me.columnMARGINY = MyBase.Columns("MARGINY") + Me.columnPICSTYLE = MyBase.Columns("PICSTYLE") + Me.columnPRINTFONTOFFSET = MyBase.Columns("PRINTFONTOFFSET") + Me.columnPRINTBG = MyBase.Columns("PRINTBG") + Me.columnSCALEX = MyBase.Columns("SCALEX") + Me.columnSCALEY = MyBase.Columns("SCALEY") + Me.columnBAKX = MyBase.Columns("BAKX") + Me.columnBAKY = MyBase.Columns("BAKY") + Me.columnBAKW = MyBase.Columns("BAKW") + Me.columnBAKH = MyBase.Columns("BAKH") + Me.columnVIEWIMAGE = MyBase.Columns("VIEWIMAGE") + Me.columnFILTER = MyBase.Columns("FILTER") + Me.columnISXML = MyBase.Columns("ISXML") + Me.columnDUMMMYX = MyBase.Columns("DUMMMYX") + Me.columnDUMMMYY = MyBase.Columns("DUMMMYY") + Me.columnQRVISION = MyBase.Columns("QRVISION") + Me.columnQRENCODING = MyBase.Columns("QRENCODING") + Me.columnQRLEVEL = MyBase.Columns("QRLEVEL") + Me.columnFILE = MyBase.Columns("FILE") + Me.columnDESC = MyBase.Columns("DESC") + End Sub + + _ + Private Sub InitClass() + Me.columnBACKIMG = New Global.System.Data.DataColumn("BACKIMG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBACKIMG) + Me.columnCANVASX = New Global.System.Data.DataColumn("CANVASX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCANVASX) + Me.columnCANVASY = New Global.System.Data.DataColumn("CANVASY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCANVASY) + Me.columnDUMMY = New Global.System.Data.DataColumn("DUMMY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUMMY) + Me.columnDUMMYCNT = New Global.System.Data.DataColumn("DUMMYCNT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUMMYCNT) + Me.columnDUMMYTYPE = New Global.System.Data.DataColumn("DUMMYTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUMMYTYPE) + Me.columnLANDSCAPE = New Global.System.Data.DataColumn("LANDSCAPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANDSCAPE) + Me.columnMARGINX = New Global.System.Data.DataColumn("MARGINX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARGINX) + Me.columnMARGINY = New Global.System.Data.DataColumn("MARGINY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMARGINY) + Me.columnPICSTYLE = New Global.System.Data.DataColumn("PICSTYLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPICSTYLE) + Me.columnPRINTFONTOFFSET = New Global.System.Data.DataColumn("PRINTFONTOFFSET", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRINTFONTOFFSET) + Me.columnPRINTBG = New Global.System.Data.DataColumn("PRINTBG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRINTBG) + Me.columnSCALEX = New Global.System.Data.DataColumn("SCALEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCALEX) + Me.columnSCALEY = New Global.System.Data.DataColumn("SCALEY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCALEY) + Me.columnBAKX = New Global.System.Data.DataColumn("BAKX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBAKX) + Me.columnBAKY = New Global.System.Data.DataColumn("BAKY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBAKY) + Me.columnBAKW = New Global.System.Data.DataColumn("BAKW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBAKW) + Me.columnBAKH = New Global.System.Data.DataColumn("BAKH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBAKH) + Me.columnVIEWIMAGE = New Global.System.Data.DataColumn("VIEWIMAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVIEWIMAGE) + Me.columnFILTER = New Global.System.Data.DataColumn("FILTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILTER) + Me.columnISXML = New Global.System.Data.DataColumn("ISXML", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnISXML) + Me.columnDUMMMYX = New Global.System.Data.DataColumn("DUMMMYX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUMMMYX) + Me.columnDUMMMYY = New Global.System.Data.DataColumn("DUMMMYY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUMMMYY) + Me.columnQRVISION = New Global.System.Data.DataColumn("QRVISION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnQRVISION) + Me.columnQRENCODING = New Global.System.Data.DataColumn("QRENCODING", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnQRENCODING) + Me.columnQRLEVEL = New Global.System.Data.DataColumn("QRLEVEL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnQRLEVEL) + Me.columnFILE = New Global.System.Data.DataColumn("FILE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE) + Me.columnDESC = New Global.System.Data.DataColumn("DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESC) + Me.columnCANVASX.Caption = "FILE" + Me.columnCANVASY.Caption = "DESC" + Me.columnDUMMY.Caption = "BACKIMG" + Me.columnDUMMYCNT.Caption = "FILE" + Me.columnDUMMYTYPE.Caption = "DESC" + Me.columnLANDSCAPE.Caption = "BACKIMG" + Me.columnMARGINX.Caption = "FILE" + Me.columnMARGINY.Caption = "DESC" + Me.columnPICSTYLE.Caption = "BACKIMG" + Me.columnPRINTFONTOFFSET.Caption = "FILE" + Me.columnPRINTBG.Caption = "DESC" + Me.columnSCALEX.Caption = "BACKIMG" + Me.columnSCALEY.Caption = "FILE" + Me.columnBAKX.Caption = "DESC" + Me.columnBAKY.Caption = "BACKIMG" + Me.columnBAKW.Caption = "FILE" + Me.columnBAKH.Caption = "DESC" + Me.columnVIEWIMAGE.Caption = "BACKIMG" + Me.columnFILTER.Caption = "FILE" + Me.columnQRVISION.DefaultValue = CType("", String) + Me.columnQRENCODING.DefaultValue = CType("", String) + Me.columnQRLEVEL.DefaultValue = CType("", String) + Me.columnFILE.DefaultValue = CType("", String) + Me.columnDESC.DefaultValue = CType("", String) + End Sub + + _ + Public Function NewTStyleRow() As TStyleRow + Return CType(Me.NewRow, TStyleRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TStyleRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TStyleRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TStyleRowChangedEvent) Is Nothing) Then + RaiseEvent TStyleRowChanged(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TStyleRowChangingEvent) Is Nothing) Then + RaiseEvent TStyleRowChanging(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TStyleRowDeletedEvent) Is Nothing) Then + RaiseEvent TStyleRowDeleted(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TStyleRowDeletingEvent) Is Nothing) Then + RaiseEvent TStyleRowDeleting(Me, New TStyleRowChangeEvent(CType(e.Row, TStyleRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTStyleRow(ByVal row As TStyleRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As PatternDS = New PatternDS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TStyleDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TPatternDataTable + Inherits Global.System.Data.TypedTableBase(Of TPatternRow) + + Private columnNAME As Global.System.Data.DataColumn + + Private columnVal As Global.System.Data.DataColumn + + Private columnOBJ As Global.System.Data.DataColumn + + Private columnPAT As Global.System.Data.DataColumn + + Private columnCAT As Global.System.Data.DataColumn + + Private columnPVAL As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TPattern" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ValColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVal + End Get + End Property + + _ + Public ReadOnly Property OBJColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJ + End Get + End Property + + _ + Public ReadOnly Property PATColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPAT + End Get + End Property + + _ + Public ReadOnly Property CATColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAT + End Get + End Property + + _ + Public ReadOnly Property PVALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPVAL + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TPatternRow + Get + Return CType(Me.Rows(index), TPatternRow) + End Get + End Property + + _ + Public Event TPatternRowChanging As TPatternRowChangeEventHandler + + _ + Public Event TPatternRowChanged As TPatternRowChangeEventHandler + + _ + Public Event TPatternRowDeleting As TPatternRowChangeEventHandler + + _ + Public Event TPatternRowDeleted As TPatternRowChangeEventHandler + + _ + Public Overloads Sub AddTPatternRow(ByVal row As TPatternRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTPatternRow(ByVal NAME As String, ByVal Val As String, ByVal OBJ As String, ByVal PAT As String, ByVal CAT As String, ByVal PVAL As String) As TPatternRow + Dim rowTPatternRow As TPatternRow = CType(Me.NewRow, TPatternRow) + Dim columnValuesArray() As Object = New Object() {NAME, Val, OBJ, PAT, CAT, PVAL} + rowTPatternRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTPatternRow) + Return rowTPatternRow + End Function + + _ + Public Function FindByNAMEVal(ByVal NAME As String, ByVal Val As String) As TPatternRow + Return CType(Me.Rows.Find(New Object() {NAME, Val}), TPatternRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TPatternDataTable = CType(MyBase.Clone, TPatternDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TPatternDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnNAME = MyBase.Columns("NAME") + Me.columnVal = MyBase.Columns("Val") + Me.columnOBJ = MyBase.Columns("OBJ") + Me.columnPAT = MyBase.Columns("PAT") + Me.columnCAT = MyBase.Columns("CAT") + Me.columnPVAL = MyBase.Columns("PVAL") + End Sub + + _ + Private Sub InitClass() + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnVal = New Global.System.Data.DataColumn("Val", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVal) + Me.columnOBJ = New Global.System.Data.DataColumn("OBJ", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJ) + Me.columnPAT = New Global.System.Data.DataColumn("PAT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPAT) + Me.columnCAT = New Global.System.Data.DataColumn("CAT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAT) + Me.columnPVAL = New Global.System.Data.DataColumn("PVAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPVAL) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNAME, Me.columnVal}, True)) + Me.columnNAME.AllowDBNull = False + Me.columnVal.AllowDBNull = False + End Sub + + _ + Public Function NewTPatternRow() As TPatternRow + Return CType(Me.NewRow, TPatternRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TPatternRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TPatternRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TPatternRowChangedEvent) Is Nothing) Then + RaiseEvent TPatternRowChanged(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TPatternRowChangingEvent) Is Nothing) Then + RaiseEvent TPatternRowChanging(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TPatternRowDeletedEvent) Is Nothing) Then + RaiseEvent TPatternRowDeleted(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TPatternRowDeletingEvent) Is Nothing) Then + RaiseEvent TPatternRowDeleting(Me, New TPatternRowChangeEvent(CType(e.Row, TPatternRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTPatternRow(ByVal row As TPatternRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As PatternDS = New PatternDS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TPatternDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TCheckBoxDataTable + Inherits Global.System.Data.TypedTableBase(Of TCheckBoxRow) + + Private columnName As Global.System.Data.DataColumn + + Private columnVal As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TCheckBox" + Me.BeginInit() + Me.InitClass() + Me.EndInit() + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub + + _ + Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnName + End Get + End Property + + _ + Public ReadOnly Property ValColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVal + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TCheckBoxRow + Get + Return CType(Me.Rows(index), TCheckBoxRow) + End Get + End Property + + _ + Public Event TCheckBoxRowChanging As TCheckBoxRowChangeEventHandler + + _ + Public Event TCheckBoxRowChanged As TCheckBoxRowChangeEventHandler + + _ + Public Event TCheckBoxRowDeleting As TCheckBoxRowChangeEventHandler + + _ + Public Event TCheckBoxRowDeleted As TCheckBoxRowChangeEventHandler + + _ + Public Overloads Sub AddTCheckBoxRow(ByVal row As TCheckBoxRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTCheckBoxRow(ByVal Name As String, ByVal Val As Boolean) As TCheckBoxRow + Dim rowTCheckBoxRow As TCheckBoxRow = CType(Me.NewRow, TCheckBoxRow) + Dim columnValuesArray() As Object = New Object() {Name, Val} + rowTCheckBoxRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTCheckBoxRow) + Return rowTCheckBoxRow + End Function + + _ + Public Function FindByName(ByVal Name As String) As TCheckBoxRow + Return CType(Me.Rows.Find(New Object() {Name}), TCheckBoxRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TCheckBoxDataTable = CType(MyBase.Clone, TCheckBoxDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TCheckBoxDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnName = MyBase.Columns("Name") + Me.columnVal = MyBase.Columns("Val") + End Sub + + _ + Private Sub InitClass() + Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnName) + Me.columnVal = New Global.System.Data.DataColumn("Val", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVal) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnName}, True)) + Me.columnName.AllowDBNull = False + Me.columnName.Unique = True + Me.columnName.DefaultValue = CType("", String) + Me.columnVal.DefaultValue = CType(True, Boolean) + End Sub + + _ + Public Function NewTCheckBoxRow() As TCheckBoxRow + Return CType(Me.NewRow, TCheckBoxRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TCheckBoxRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TCheckBoxRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TCheckBoxRowChangedEvent) Is Nothing) Then + RaiseEvent TCheckBoxRowChanged(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TCheckBoxRowChangingEvent) Is Nothing) Then + RaiseEvent TCheckBoxRowChanging(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TCheckBoxRowDeletedEvent) Is Nothing) Then + RaiseEvent TCheckBoxRowDeleted(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TCheckBoxRowDeletingEvent) Is Nothing) Then + RaiseEvent TCheckBoxRowDeleting(Me, New TCheckBoxRowChangeEvent(CType(e.Row, TCheckBoxRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTCheckBoxRow(ByVal row As TCheckBoxRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As PatternDS = New PatternDS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TCheckBoxDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TStyleRow + Inherits Global.System.Data.DataRow + + Private tableTStyle As TStyleDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTStyle = CType(Me.Table, TStyleDataTable) + End Sub + + _ + Public Property BACKIMG() As String + Get + Try + Return CType(Me(Me.tableTStyle.BACKIMGColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BACKIMG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.BACKIMGColumn) = value + End Set + End Property + + _ + Public Property CANVASX() As String + Get + Try + Return CType(Me(Me.tableTStyle.CANVASXColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'CANVASX' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.CANVASXColumn) = value + End Set + End Property + + _ + Public Property CANVASY() As String + Get + Try + Return CType(Me(Me.tableTStyle.CANVASYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'CANVASY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.CANVASYColumn) = value + End Set + End Property + + _ + Public Property DUMMY() As String + Get + Try + Return CType(Me(Me.tableTStyle.DUMMYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.DUMMYColumn) = value + End Set + End Property + + _ + Public Property DUMMYCNT() As String + Get + Try + Return CType(Me(Me.tableTStyle.DUMMYCNTColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMYCNT' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.DUMMYCNTColumn) = value + End Set + End Property + + _ + Public Property DUMMYTYPE() As String + Get + Try + Return CType(Me(Me.tableTStyle.DUMMYTYPEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMYTYPE' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.DUMMYTYPEColumn) = value + End Set + End Property + + _ + Public Property LANDSCAPE() As String + Get + Try + Return CType(Me(Me.tableTStyle.LANDSCAPEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'LANDSCAPE' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.LANDSCAPEColumn) = value + End Set + End Property + + _ + Public Property MARGINX() As String + Get + Try + Return CType(Me(Me.tableTStyle.MARGINXColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'MARGINX' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.MARGINXColumn) = value + End Set + End Property + + _ + Public Property MARGINY() As String + Get + Try + Return CType(Me(Me.tableTStyle.MARGINYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'MARGINY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.MARGINYColumn) = value + End Set + End Property + + _ + Public Property PICSTYLE() As String + Get + Try + Return CType(Me(Me.tableTStyle.PICSTYLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PICSTYLE' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.PICSTYLEColumn) = value + End Set + End Property + + _ + Public Property PRINTFONTOFFSET() As String + Get + Try + Return CType(Me(Me.tableTStyle.PRINTFONTOFFSETColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PRINTFONTOFFSET' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.PRINTFONTOFFSETColumn) = value + End Set + End Property + + _ + Public Property PRINTBG() As String + Get + Try + Return CType(Me(Me.tableTStyle.PRINTBGColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'PRINTBG' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.PRINTBGColumn) = value + End Set + End Property + + _ + Public Property SCALEX() As String + Get + Try + Return CType(Me(Me.tableTStyle.SCALEXColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'SCALEX' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.SCALEXColumn) = value + End Set + End Property + + _ + Public Property SCALEY() As String + Get + Try + Return CType(Me(Me.tableTStyle.SCALEYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'SCALEY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.SCALEYColumn) = value + End Set + End Property + + _ + Public Property BAKX() As String + Get + Try + Return CType(Me(Me.tableTStyle.BAKXColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKX' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.BAKXColumn) = value + End Set + End Property + + _ + Public Property BAKY() As String + Get + Try + Return CType(Me(Me.tableTStyle.BAKYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.BAKYColumn) = value + End Set + End Property + + _ + Public Property BAKW() As String + Get + Try + Return CType(Me(Me.tableTStyle.BAKWColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKW' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.BAKWColumn) = value + End Set + End Property + + _ + Public Property BAKH() As String + Get + Try + Return CType(Me(Me.tableTStyle.BAKHColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'BAKH' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.BAKHColumn) = value + End Set + End Property + + _ + Public Property VIEWIMAGE() As String + Get + Try + Return CType(Me(Me.tableTStyle.VIEWIMAGEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'VIEWIMAGE' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.VIEWIMAGEColumn) = value + End Set + End Property + + _ + Public Property FILTER() As String + Get + Try + Return CType(Me(Me.tableTStyle.FILTERColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'FILTER' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.FILTERColumn) = value + End Set + End Property + + _ + Public Property ISXML() As Boolean + Get + Try + Return CType(Me(Me.tableTStyle.ISXMLColumn), Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'ISXML' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As Boolean) + Me(Me.tableTStyle.ISXMLColumn) = value + End Set + End Property + + _ + Public Property DUMMMYX() As String + Get + Try + Return CType(Me(Me.tableTStyle.DUMMMYXColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMMYX' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.DUMMMYXColumn) = value + End Set + End Property + + _ + Public Property DUMMMYY() As String + Get + Try + Return CType(Me(Me.tableTStyle.DUMMMYYColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TStyle' 테이블의 'DUMMMYY' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTStyle.DUMMMYYColumn) = value + End Set + End Property + + _ + Public Property QRVISION() As String + Get + If Me.IsQRVISIONNull Then + Return String.Empty + Else + Return CType(Me(Me.tableTStyle.QRVISIONColumn), String) + End If + End Get + Set(value As String) + Me(Me.tableTStyle.QRVISIONColumn) = value + End Set + End Property + + _ + Public Property QRENCODING() As String + Get + If Me.IsQRENCODINGNull Then + Return String.Empty + Else + Return CType(Me(Me.tableTStyle.QRENCODINGColumn), String) + End If + End Get + Set(value As String) + Me(Me.tableTStyle.QRENCODINGColumn) = value + End Set + End Property + + _ + Public Property QRLEVEL() As String + Get + If Me.IsQRLEVELNull Then + Return String.Empty + Else + Return CType(Me(Me.tableTStyle.QRLEVELColumn), String) + End If + End Get + Set(value As String) + Me(Me.tableTStyle.QRLEVELColumn) = value + End Set + End Property + + _ + Public Property FILE() As String + Get + If Me.IsFILENull Then + Return String.Empty + Else + Return CType(Me(Me.tableTStyle.FILEColumn), String) + End If + End Get + Set(value As String) + Me(Me.tableTStyle.FILEColumn) = value + End Set + End Property + + _ + Public Property DESC() As String + Get + If Me.IsDESCNull Then + Return String.Empty + Else + Return CType(Me(Me.tableTStyle.DESCColumn), String) + End If + End Get + Set(value As String) + Me(Me.tableTStyle.DESCColumn) = value + End Set + End Property + + _ + Public Function IsBACKIMGNull() As Boolean + Return Me.IsNull(Me.tableTStyle.BACKIMGColumn) + End Function + + _ + Public Sub SetBACKIMGNull() + Me(Me.tableTStyle.BACKIMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCANVASXNull() As Boolean + Return Me.IsNull(Me.tableTStyle.CANVASXColumn) + End Function + + _ + Public Sub SetCANVASXNull() + Me(Me.tableTStyle.CANVASXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCANVASYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.CANVASYColumn) + End Function + + _ + Public Sub SetCANVASYNull() + Me(Me.tableTStyle.CANVASYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUMMYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.DUMMYColumn) + End Function + + _ + Public Sub SetDUMMYNull() + Me(Me.tableTStyle.DUMMYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUMMYCNTNull() As Boolean + Return Me.IsNull(Me.tableTStyle.DUMMYCNTColumn) + End Function + + _ + Public Sub SetDUMMYCNTNull() + Me(Me.tableTStyle.DUMMYCNTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUMMYTYPENull() As Boolean + Return Me.IsNull(Me.tableTStyle.DUMMYTYPEColumn) + End Function + + _ + Public Sub SetDUMMYTYPENull() + Me(Me.tableTStyle.DUMMYTYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLANDSCAPENull() As Boolean + Return Me.IsNull(Me.tableTStyle.LANDSCAPEColumn) + End Function + + _ + Public Sub SetLANDSCAPENull() + Me(Me.tableTStyle.LANDSCAPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARGINXNull() As Boolean + Return Me.IsNull(Me.tableTStyle.MARGINXColumn) + End Function + + _ + Public Sub SetMARGINXNull() + Me(Me.tableTStyle.MARGINXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMARGINYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.MARGINYColumn) + End Function + + _ + Public Sub SetMARGINYNull() + Me(Me.tableTStyle.MARGINYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPICSTYLENull() As Boolean + Return Me.IsNull(Me.tableTStyle.PICSTYLEColumn) + End Function + + _ + Public Sub SetPICSTYLENull() + Me(Me.tableTStyle.PICSTYLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRINTFONTOFFSETNull() As Boolean + Return Me.IsNull(Me.tableTStyle.PRINTFONTOFFSETColumn) + End Function + + _ + Public Sub SetPRINTFONTOFFSETNull() + Me(Me.tableTStyle.PRINTFONTOFFSETColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRINTBGNull() As Boolean + Return Me.IsNull(Me.tableTStyle.PRINTBGColumn) + End Function + + _ + Public Sub SetPRINTBGNull() + Me(Me.tableTStyle.PRINTBGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSCALEXNull() As Boolean + Return Me.IsNull(Me.tableTStyle.SCALEXColumn) + End Function + + _ + Public Sub SetSCALEXNull() + Me(Me.tableTStyle.SCALEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSCALEYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.SCALEYColumn) + End Function + + _ + Public Sub SetSCALEYNull() + Me(Me.tableTStyle.SCALEYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBAKXNull() As Boolean + Return Me.IsNull(Me.tableTStyle.BAKXColumn) + End Function + + _ + Public Sub SetBAKXNull() + Me(Me.tableTStyle.BAKXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBAKYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.BAKYColumn) + End Function + + _ + Public Sub SetBAKYNull() + Me(Me.tableTStyle.BAKYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBAKWNull() As Boolean + Return Me.IsNull(Me.tableTStyle.BAKWColumn) + End Function + + _ + Public Sub SetBAKWNull() + Me(Me.tableTStyle.BAKWColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBAKHNull() As Boolean + Return Me.IsNull(Me.tableTStyle.BAKHColumn) + End Function + + _ + Public Sub SetBAKHNull() + Me(Me.tableTStyle.BAKHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVIEWIMAGENull() As Boolean + Return Me.IsNull(Me.tableTStyle.VIEWIMAGEColumn) + End Function + + _ + Public Sub SetVIEWIMAGENull() + Me(Me.tableTStyle.VIEWIMAGEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFILTERNull() As Boolean + Return Me.IsNull(Me.tableTStyle.FILTERColumn) + End Function + + _ + Public Sub SetFILTERNull() + Me(Me.tableTStyle.FILTERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsISXMLNull() As Boolean + Return Me.IsNull(Me.tableTStyle.ISXMLColumn) + End Function + + _ + Public Sub SetISXMLNull() + Me(Me.tableTStyle.ISXMLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUMMMYXNull() As Boolean + Return Me.IsNull(Me.tableTStyle.DUMMMYXColumn) + End Function + + _ + Public Sub SetDUMMMYXNull() + Me(Me.tableTStyle.DUMMMYXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUMMMYYNull() As Boolean + Return Me.IsNull(Me.tableTStyle.DUMMMYYColumn) + End Function + + _ + Public Sub SetDUMMMYYNull() + Me(Me.tableTStyle.DUMMMYYColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsQRVISIONNull() As Boolean + Return Me.IsNull(Me.tableTStyle.QRVISIONColumn) + End Function + + _ + Public Sub SetQRVISIONNull() + Me(Me.tableTStyle.QRVISIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsQRENCODINGNull() As Boolean + Return Me.IsNull(Me.tableTStyle.QRENCODINGColumn) + End Function + + _ + Public Sub SetQRENCODINGNull() + Me(Me.tableTStyle.QRENCODINGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsQRLEVELNull() As Boolean + Return Me.IsNull(Me.tableTStyle.QRLEVELColumn) + End Function + + _ + Public Sub SetQRLEVELNull() + Me(Me.tableTStyle.QRLEVELColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFILENull() As Boolean + Return Me.IsNull(Me.tableTStyle.FILEColumn) + End Function + + _ + Public Sub SetFILENull() + Me(Me.tableTStyle.FILEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDESCNull() As Boolean + Return Me.IsNull(Me.tableTStyle.DESCColumn) + End Function + + _ + Public Sub SetDESCNull() + Me(Me.tableTStyle.DESCColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TPatternRow + Inherits Global.System.Data.DataRow + + Private tableTPattern As TPatternDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTPattern = CType(Me.Table, TPatternDataTable) + End Sub + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTPattern.NAMEColumn), String) + End Get + Set(value As String) + Me(Me.tableTPattern.NAMEColumn) = value + End Set + End Property + + _ + Public Property Val() As String + Get + Return CType(Me(Me.tableTPattern.ValColumn), String) + End Get + Set(value As String) + Me(Me.tableTPattern.ValColumn) = value + End Set + End Property + + _ + Public Property OBJ() As String + Get + Try + Return CType(Me(Me.tableTPattern.OBJColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'OBJ' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTPattern.OBJColumn) = value + End Set + End Property + + _ + Public Property PAT() As String + Get + Try + Return CType(Me(Me.tableTPattern.PATColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'PAT' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTPattern.PATColumn) = value + End Set + End Property + + _ + Public Property CAT() As String + Get + Try + Return CType(Me(Me.tableTPattern.CATColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'CAT' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTPattern.CATColumn) = value + End Set + End Property + + _ + Public Property PVAL() As String + Get + Try + Return CType(Me(Me.tableTPattern.PVALColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TPattern' 테이블의 'PVAL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTPattern.PVALColumn) = value + End Set + End Property + + _ + Public Function IsOBJNull() As Boolean + Return Me.IsNull(Me.tableTPattern.OBJColumn) + End Function + + _ + Public Sub SetOBJNull() + Me(Me.tableTPattern.OBJColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPATNull() As Boolean + Return Me.IsNull(Me.tableTPattern.PATColumn) + End Function + + _ + Public Sub SetPATNull() + Me(Me.tableTPattern.PATColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCATNull() As Boolean + Return Me.IsNull(Me.tableTPattern.CATColumn) + End Function + + _ + Public Sub SetCATNull() + Me(Me.tableTPattern.CATColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPVALNull() As Boolean + Return Me.IsNull(Me.tableTPattern.PVALColumn) + End Function + + _ + Public Sub SetPVALNull() + Me(Me.tableTPattern.PVALColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TCheckBoxRow + Inherits Global.System.Data.DataRow + + Private tableTCheckBox As TCheckBoxDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTCheckBox = CType(Me.Table, TCheckBoxDataTable) + End Sub + + _ + Public Property Name() As String + Get + Return CType(Me(Me.tableTCheckBox.NameColumn), String) + End Get + Set(value As String) + Me(Me.tableTCheckBox.NameColumn) = value + End Set + End Property + + _ + Public Property Val() As Boolean + Get + Try + Return CType(Me(Me.tableTCheckBox.ValColumn), Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'TCheckBox' 테이블의 'Val' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set(value As Boolean) + Me(Me.tableTCheckBox.ValColumn) = value + End Set + End Property + + _ + Public Function IsValNull() As Boolean + Return Me.IsNull(Me.tableTCheckBox.ValColumn) + End Function + + _ + Public Sub SetValNull() + Me(Me.tableTCheckBox.ValColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TStyleRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TStyleRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TStyleRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TStyleRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TPatternRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TPatternRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TPatternRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TPatternRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TCheckBoxRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TCheckBoxRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TCheckBoxRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TCheckBoxRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Epole/데이터셋/PatternDS.vb b/Epole/데이터셋/PatternDS.vb new file mode 100644 index 0000000..5f28270 --- /dev/null +++ b/Epole/데이터셋/PatternDS.vb @@ -0,0 +1 @@ + \ No newline at end of file diff --git a/Epole/데이터셋/PatternDS.xsc b/Epole/데이터셋/PatternDS.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Epole/데이터셋/PatternDS.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/PatternDS.xsd b/Epole/데이터셋/PatternDS.xsd new file mode 100644 index 0000000..a632e7c --- /dev/null +++ b/Epole/데이터셋/PatternDS.xsd @@ -0,0 +1,81 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/PatternDS.xss b/Epole/데이터셋/PatternDS.xss new file mode 100644 index 0000000..3186010 --- /dev/null +++ b/Epole/데이터셋/PatternDS.xss @@ -0,0 +1,14 @@ + + + + + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/PicDS.Designer.vb b/Epole/데이터셋/PicDS.Designer.vb new file mode 100644 index 0000000..7018fe1 --- /dev/null +++ b/Epole/데이터셋/PicDS.Designer.vb @@ -0,0 +1,768 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class PicDS + Inherits Global.System.Data.DataSet + + Private tablePicfileList As PicfileListDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("PicfileList")) Is Nothing) Then + MyBase.Tables.Add(New PicfileListDataTable(ds.Tables("PicfileList"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property PicfileList() As PicfileListDataTable + Get + Return Me.tablePicfileList + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As PicDS = CType(MyBase.Clone,PicDS) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("PicfileList")) Is Nothing) Then + MyBase.Tables.Add(New PicfileListDataTable(ds.Tables("PicfileList"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tablePicfileList = CType(MyBase.Tables("PicfileList"),PicfileListDataTable) + If (initTable = true) Then + If (Not (Me.tablePicfileList) Is Nothing) Then + Me.tablePicfileList.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "PicDS" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/PicDS.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tablePicfileList = New PicfileListDataTable() + MyBase.Tables.Add(Me.tablePicfileList) + End Sub + + _ + Private Function ShouldSerializePicfileList() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As PicDS = New PicDS() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub PicfileListRowChangeEventHandler(ByVal sender As Object, ByVal e As PicfileListRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class PicfileListDataTable + Inherits Global.System.Data.TypedTableBase(Of PicfileListRow) + + Private column파일명 As Global.System.Data.DataColumn + + Private column경로 As Global.System.Data.DataColumn + + Private column크기 As Global.System.Data.DataColumn + + Private column찾음 As Global.System.Data.DataColumn + + Private column메세지 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "PicfileList" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property 파일명Column() As Global.System.Data.DataColumn + Get + Return Me.column파일명 + End Get + End Property + + _ + Public ReadOnly Property 경로Column() As Global.System.Data.DataColumn + Get + Return Me.column경로 + End Get + End Property + + _ + Public ReadOnly Property 크기Column() As Global.System.Data.DataColumn + Get + Return Me.column크기 + End Get + End Property + + _ + Public ReadOnly Property 찾음Column() As Global.System.Data.DataColumn + Get + Return Me.column찾음 + End Get + End Property + + _ + Public ReadOnly Property 메세지Column() As Global.System.Data.DataColumn + Get + Return Me.column메세지 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As PicfileListRow + Get + Return CType(Me.Rows(index),PicfileListRow) + End Get + End Property + + _ + Public Event PicfileListRowChanging As PicfileListRowChangeEventHandler + + _ + Public Event PicfileListRowChanged As PicfileListRowChangeEventHandler + + _ + Public Event PicfileListRowDeleting As PicfileListRowChangeEventHandler + + _ + Public Event PicfileListRowDeleted As PicfileListRowChangeEventHandler + + _ + Public Overloads Sub AddPicfileListRow(ByVal row As PicfileListRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddPicfileListRow(ByVal 파일명 As String, ByVal 경로 As String, ByVal 크기 As String, ByVal 찾음 As String, ByVal 메세지 As String) As PicfileListRow + Dim rowPicfileListRow As PicfileListRow = CType(Me.NewRow,PicfileListRow) + Dim columnValuesArray() As Object = New Object() {파일명, 경로, 크기, 찾음, 메세지} + rowPicfileListRow.ItemArray = columnValuesArray + Me.Rows.Add(rowPicfileListRow) + Return rowPicfileListRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As PicfileListDataTable = CType(MyBase.Clone,PicfileListDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New PicfileListDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column파일명 = MyBase.Columns("파일명") + Me.column경로 = MyBase.Columns("경로") + Me.column크기 = MyBase.Columns("크기") + Me.column찾음 = MyBase.Columns("찾음") + Me.column메세지 = MyBase.Columns("메세지") + End Sub + + _ + Private Sub InitClass() + Me.column파일명 = New Global.System.Data.DataColumn("파일명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column파일명) + Me.column경로 = New Global.System.Data.DataColumn("경로", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column경로) + Me.column크기 = New Global.System.Data.DataColumn("크기", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column크기) + Me.column찾음 = New Global.System.Data.DataColumn("찾음", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column찾음) + Me.column메세지 = New Global.System.Data.DataColumn("메세지", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column메세지) + End Sub + + _ + Public Function NewPicfileListRow() As PicfileListRow + Return CType(Me.NewRow,PicfileListRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New PicfileListRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(PicfileListRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.PicfileListRowChangedEvent) Is Nothing) Then + RaiseEvent PicfileListRowChanged(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.PicfileListRowChangingEvent) Is Nothing) Then + RaiseEvent PicfileListRowChanging(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.PicfileListRowDeletedEvent) Is Nothing) Then + RaiseEvent PicfileListRowDeleted(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.PicfileListRowDeletingEvent) Is Nothing) Then + RaiseEvent PicfileListRowDeleting(Me, New PicfileListRowChangeEvent(CType(e.Row,PicfileListRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovePicfileListRow(ByVal row As PicfileListRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As PicDS = New PicDS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "PicfileListDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class PicfileListRow + Inherits Global.System.Data.DataRow + + Private tablePicfileList As PicfileListDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablePicfileList = CType(Me.Table,PicfileListDataTable) + End Sub + + _ + Public Property 파일명() As String + Get + Try + Return CType(Me(Me.tablePicfileList.파일명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '파일명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePicfileList.파일명Column) = value + End Set + End Property + + _ + Public Property 경로() As String + Get + Try + Return CType(Me(Me.tablePicfileList.경로Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '경로' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePicfileList.경로Column) = value + End Set + End Property + + _ + Public Property 크기() As String + Get + Try + Return CType(Me(Me.tablePicfileList.크기Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '크기' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePicfileList.크기Column) = value + End Set + End Property + + _ + Public Property 찾음() As String + Get + Try + Return CType(Me(Me.tablePicfileList.찾음Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'PicfileList' 테이블의 '찾음' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablePicfileList.찾음Column) = value + End Set + End Property + + _ + Public Property 메세지() As String + Get + If Me.Is메세지Null Then + Return "(Empty)" + Else + Return CType(Me(Me.tablePicfileList.메세지Column),String) + End If + End Get + Set + Me(Me.tablePicfileList.메세지Column) = value + End Set + End Property + + _ + Public Function Is파일명Null() As Boolean + Return Me.IsNull(Me.tablePicfileList.파일명Column) + End Function + + _ + Public Sub Set파일명Null() + Me(Me.tablePicfileList.파일명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is경로Null() As Boolean + Return Me.IsNull(Me.tablePicfileList.경로Column) + End Function + + _ + Public Sub Set경로Null() + Me(Me.tablePicfileList.경로Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is크기Null() As Boolean + Return Me.IsNull(Me.tablePicfileList.크기Column) + End Function + + _ + Public Sub Set크기Null() + Me(Me.tablePicfileList.크기Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is찾음Null() As Boolean + Return Me.IsNull(Me.tablePicfileList.찾음Column) + End Function + + _ + Public Sub Set찾음Null() + Me(Me.tablePicfileList.찾음Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is메세지Null() As Boolean + Return Me.IsNull(Me.tablePicfileList.메세지Column) + End Function + + _ + Public Sub Set메세지Null() + Me(Me.tablePicfileList.메세지Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class PicfileListRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As PicfileListRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As PicfileListRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As PicfileListRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class diff --git a/Epole/데이터셋/PicDS.xsc b/Epole/데이터셋/PicDS.xsc new file mode 100644 index 0000000..5dbde4a --- /dev/null +++ b/Epole/데이터셋/PicDS.xsc @@ -0,0 +1,10 @@ + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/PicDS.xsd b/Epole/데이터셋/PicDS.xsd new file mode 100644 index 0000000..1d02333 --- /dev/null +++ b/Epole/데이터셋/PicDS.xsd @@ -0,0 +1,31 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/PicDS.xss b/Epole/데이터셋/PicDS.xss new file mode 100644 index 0000000..cd84856 --- /dev/null +++ b/Epole/데이터셋/PicDS.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/ireaDataSet.Designer.vb b/Epole/데이터셋/ireaDataSet.Designer.vb new file mode 100644 index 0000000..8c8569b --- /dev/null +++ b/Epole/데이터셋/ireaDataSet.Designer.vb @@ -0,0 +1,32629 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.42000 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class ireaDataSet + Inherits Global.System.Data.DataSet + + Private tableMainTable As MainTableDataTable + + Private tableEtcTable As EtcTableDataTable + + Private tablejjutable As jjutableDataTable + + Private tableDetail_Deung As Detail_DeungDataTable + + Private tableDetail_karo As Detail_karoDataTable + + Private tableDetail_Cable As Detail_CableDataTable + + Private tableDetail_Cable2 As Detail_Cable2DataTable + + Private tableDetail_CableLabel As Detail_CableLabelDataTable + + Private tableDetail_kiki As Detail_kikiDataTable + + Private tablejjungtable As jjungtableDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + Me.InitExpressions + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.ExcludeSchema) Then + Me.InitExpressions + End If + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("MainTable")) Is Nothing) Then + MyBase.Tables.Add(New MainTableDataTable(ds.Tables("MainTable"))) + End If + If (Not (ds.Tables("EtcTable")) Is Nothing) Then + MyBase.Tables.Add(New EtcTableDataTable(ds.Tables("EtcTable"))) + End If + If (Not (ds.Tables("jjutable")) Is Nothing) Then + MyBase.Tables.Add(New jjutableDataTable(ds.Tables("jjutable"))) + End If + If (Not (ds.Tables("Detail_Deung")) Is Nothing) Then + MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung"))) + End If + If (Not (ds.Tables("Detail_karo")) Is Nothing) Then + MyBase.Tables.Add(New Detail_karoDataTable(ds.Tables("Detail_karo"))) + End If + If (Not (ds.Tables("Detail_Cable")) Is Nothing) Then + MyBase.Tables.Add(New Detail_CableDataTable(ds.Tables("Detail_Cable"))) + End If + If (Not (ds.Tables("Detail_Cable2")) Is Nothing) Then + MyBase.Tables.Add(New Detail_Cable2DataTable(ds.Tables("Detail_Cable2"))) + End If + If (Not (ds.Tables("Detail_CableLabel")) Is Nothing) Then + MyBase.Tables.Add(New Detail_CableLabelDataTable(ds.Tables("Detail_CableLabel"))) + End If + If (Not (ds.Tables("Detail_kiki")) Is Nothing) Then + MyBase.Tables.Add(New Detail_kikiDataTable(ds.Tables("Detail_kiki"))) + End If + If (Not (ds.Tables("jjungtable")) Is Nothing) Then + MyBase.Tables.Add(New jjungtableDataTable(ds.Tables("jjungtable"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + Me.InitExpressions + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property MainTable() As MainTableDataTable + Get + Return Me.tableMainTable + End Get + End Property + + _ + Public ReadOnly Property EtcTable() As EtcTableDataTable + Get + Return Me.tableEtcTable + End Get + End Property + + _ + Public ReadOnly Property jjutable() As jjutableDataTable + Get + Return Me.tablejjutable + End Get + End Property + + _ + Public ReadOnly Property Detail_Deung() As Detail_DeungDataTable + Get + Return Me.tableDetail_Deung + End Get + End Property + + _ + Public ReadOnly Property Detail_karo() As Detail_karoDataTable + Get + Return Me.tableDetail_karo + End Get + End Property + + _ + Public ReadOnly Property Detail_Cable() As Detail_CableDataTable + Get + Return Me.tableDetail_Cable + End Get + End Property + + _ + Public ReadOnly Property Detail_Cable2() As Detail_Cable2DataTable + Get + Return Me.tableDetail_Cable2 + End Get + End Property + + _ + Public ReadOnly Property Detail_CableLabel() As Detail_CableLabelDataTable + Get + Return Me.tableDetail_CableLabel + End Get + End Property + + _ + Public ReadOnly Property Detail_kiki() As Detail_kikiDataTable + Get + Return Me.tableDetail_kiki + End Get + End Property + + _ + Public ReadOnly Property jjungtable() As jjungtableDataTable + Get + Return Me.tablejjungtable + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As ireaDataSet = CType(MyBase.Clone,ireaDataSet) + cln.InitVars + cln.InitExpressions + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("MainTable")) Is Nothing) Then + MyBase.Tables.Add(New MainTableDataTable(ds.Tables("MainTable"))) + End If + If (Not (ds.Tables("EtcTable")) Is Nothing) Then + MyBase.Tables.Add(New EtcTableDataTable(ds.Tables("EtcTable"))) + End If + If (Not (ds.Tables("jjutable")) Is Nothing) Then + MyBase.Tables.Add(New jjutableDataTable(ds.Tables("jjutable"))) + End If + If (Not (ds.Tables("Detail_Deung")) Is Nothing) Then + MyBase.Tables.Add(New Detail_DeungDataTable(ds.Tables("Detail_Deung"))) + End If + If (Not (ds.Tables("Detail_karo")) Is Nothing) Then + MyBase.Tables.Add(New Detail_karoDataTable(ds.Tables("Detail_karo"))) + End If + If (Not (ds.Tables("Detail_Cable")) Is Nothing) Then + MyBase.Tables.Add(New Detail_CableDataTable(ds.Tables("Detail_Cable"))) + End If + If (Not (ds.Tables("Detail_Cable2")) Is Nothing) Then + MyBase.Tables.Add(New Detail_Cable2DataTable(ds.Tables("Detail_Cable2"))) + End If + If (Not (ds.Tables("Detail_CableLabel")) Is Nothing) Then + MyBase.Tables.Add(New Detail_CableLabelDataTable(ds.Tables("Detail_CableLabel"))) + End If + If (Not (ds.Tables("Detail_kiki")) Is Nothing) Then + MyBase.Tables.Add(New Detail_kikiDataTable(ds.Tables("Detail_kiki"))) + End If + If (Not (ds.Tables("jjungtable")) Is Nothing) Then + MyBase.Tables.Add(New jjungtableDataTable(ds.Tables("jjungtable"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableMainTable = CType(MyBase.Tables("MainTable"),MainTableDataTable) + If (initTable = true) Then + If (Not (Me.tableMainTable) Is Nothing) Then + Me.tableMainTable.InitVars + End If + End If + Me.tableEtcTable = CType(MyBase.Tables("EtcTable"),EtcTableDataTable) + If (initTable = true) Then + If (Not (Me.tableEtcTable) Is Nothing) Then + Me.tableEtcTable.InitVars + End If + End If + Me.tablejjutable = CType(MyBase.Tables("jjutable"),jjutableDataTable) + If (initTable = true) Then + If (Not (Me.tablejjutable) Is Nothing) Then + Me.tablejjutable.InitVars + End If + End If + Me.tableDetail_Deung = CType(MyBase.Tables("Detail_Deung"),Detail_DeungDataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_Deung) Is Nothing) Then + Me.tableDetail_Deung.InitVars + End If + End If + Me.tableDetail_karo = CType(MyBase.Tables("Detail_karo"),Detail_karoDataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_karo) Is Nothing) Then + Me.tableDetail_karo.InitVars + End If + End If + Me.tableDetail_Cable = CType(MyBase.Tables("Detail_Cable"),Detail_CableDataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_Cable) Is Nothing) Then + Me.tableDetail_Cable.InitVars + End If + End If + Me.tableDetail_Cable2 = CType(MyBase.Tables("Detail_Cable2"),Detail_Cable2DataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_Cable2) Is Nothing) Then + Me.tableDetail_Cable2.InitVars + End If + End If + Me.tableDetail_CableLabel = CType(MyBase.Tables("Detail_CableLabel"),Detail_CableLabelDataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_CableLabel) Is Nothing) Then + Me.tableDetail_CableLabel.InitVars + End If + End If + Me.tableDetail_kiki = CType(MyBase.Tables("Detail_kiki"),Detail_kikiDataTable) + If (initTable = true) Then + If (Not (Me.tableDetail_kiki) Is Nothing) Then + Me.tableDetail_kiki.InitVars + End If + End If + Me.tablejjungtable = CType(MyBase.Tables("jjungtable"),jjungtableDataTable) + If (initTable = true) Then + If (Not (Me.tablejjungtable) Is Nothing) Then + Me.tablejjungtable.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "ireaDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/ireaDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableMainTable = New MainTableDataTable() + MyBase.Tables.Add(Me.tableMainTable) + Me.tableEtcTable = New EtcTableDataTable() + MyBase.Tables.Add(Me.tableEtcTable) + Me.tablejjutable = New jjutableDataTable() + MyBase.Tables.Add(Me.tablejjutable) + Me.tableDetail_Deung = New Detail_DeungDataTable() + MyBase.Tables.Add(Me.tableDetail_Deung) + Me.tableDetail_karo = New Detail_karoDataTable() + MyBase.Tables.Add(Me.tableDetail_karo) + Me.tableDetail_Cable = New Detail_CableDataTable() + MyBase.Tables.Add(Me.tableDetail_Cable) + Me.tableDetail_Cable2 = New Detail_Cable2DataTable() + MyBase.Tables.Add(Me.tableDetail_Cable2) + Me.tableDetail_CableLabel = New Detail_CableLabelDataTable() + MyBase.Tables.Add(Me.tableDetail_CableLabel) + Me.tableDetail_kiki = New Detail_kikiDataTable(false) + MyBase.Tables.Add(Me.tableDetail_kiki) + Me.tablejjungtable = New jjungtableDataTable() + MyBase.Tables.Add(Me.tablejjungtable) + End Sub + + _ + Private Function ShouldSerializeMainTable() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeEtcTable() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializejjutable() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_Deung() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_karo() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_Cable() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_Cable2() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_CableLabel() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeDetail_kiki() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializejjungtable() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As ireaDataSet = New ireaDataSet() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Private Sub InitExpressions() + Me.Detail_kiki.회선10Column.Expression = "isnull(회선11,'')+isnull(회선12,'')+isnull(회선13,'')+isnull(회선14,'')+isnull(회선15,'')" + Me.Detail_kiki.회선20Column.Expression = "isnull(회선21,'')+isnull(회선22,'')+isnull(회선23,'')+isnull(회선24,'')+isnull(회선25,'')" + Me.Detail_kiki.회선30Column.Expression = "isnull(회선31,'')+isnull(회선32,'')+isnull(회선33,'')+isnull(회선34,'')+isnull(회선35,'')" + End Sub + + _ + Public Delegate Sub MainTableRowChangeEventHandler(ByVal sender As Object, ByVal e As MainTableRowChangeEvent) + + _ + Public Delegate Sub EtcTableRowChangeEventHandler(ByVal sender As Object, ByVal e As EtcTableRowChangeEvent) + + _ + Public Delegate Sub jjutableRowChangeEventHandler(ByVal sender As Object, ByVal e As jjutableRowChangeEvent) + + _ + Public Delegate Sub Detail_DeungRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_DeungRowChangeEvent) + + _ + Public Delegate Sub Detail_karoRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_karoRowChangeEvent) + + _ + Public Delegate Sub Detail_CableRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_CableRowChangeEvent) + + _ + Public Delegate Sub Detail_Cable2RowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_Cable2RowChangeEvent) + + _ + Public Delegate Sub Detail_CableLabelRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_CableLabelRowChangeEvent) + + _ + Public Delegate Sub Detail_kikiRowChangeEventHandler(ByVal sender As Object, ByVal e As Detail_kikiRowChangeEvent) + + _ + Public Delegate Sub jjungtableRowChangeEventHandler(ByVal sender As Object, ByVal e As jjungtableRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class MainTableDataTable + Inherits Global.System.Data.TypedTableBase(Of MainTableRow) + + Private columnID As Global.System.Data.DataColumn + + Private column날짜 As Global.System.Data.DataColumn + + Private column거래처명 As Global.System.Data.DataColumn + + Private column비고 As Global.System.Data.DataColumn + + Private column총수량 As Global.System.Data.DataColumn + + Private column단가 As Global.System.Data.DataColumn + + Private column금액 As Global.System.Data.DataColumn + + Private column번호찰구분 As Global.System.Data.DataColumn + + Private column시공자 As Global.System.Data.DataColumn + + Private column홈페이지 As Global.System.Data.DataColumn + + Private column관리 As Global.System.Data.DataColumn + + Private column관리1 As Global.System.Data.DataColumn + + Private column관리2 As Global.System.Data.DataColumn + + Private Shared column날짜_defaultValue As Date = Date.Parse("2007-01-01T00:00:00") + + _ + Public Sub New() + MyBase.New + Me.TableName = "MainTable" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property 날짜Column() As Global.System.Data.DataColumn + Get + Return Me.column날짜 + End Get + End Property + + _ + Public ReadOnly Property 거래처명Column() As Global.System.Data.DataColumn + Get + Return Me.column거래처명 + End Get + End Property + + _ + Public ReadOnly Property 비고Column() As Global.System.Data.DataColumn + Get + Return Me.column비고 + End Get + End Property + + _ + Public ReadOnly Property 총수량Column() As Global.System.Data.DataColumn + Get + Return Me.column총수량 + End Get + End Property + + _ + Public ReadOnly Property 단가Column() As Global.System.Data.DataColumn + Get + Return Me.column단가 + End Get + End Property + + _ + Public ReadOnly Property 금액Column() As Global.System.Data.DataColumn + Get + Return Me.column금액 + End Get + End Property + + _ + Public ReadOnly Property 번호찰구분Column() As Global.System.Data.DataColumn + Get + Return Me.column번호찰구분 + End Get + End Property + + _ + Public ReadOnly Property 시공자Column() As Global.System.Data.DataColumn + Get + Return Me.column시공자 + End Get + End Property + + _ + Public ReadOnly Property 홈페이지Column() As Global.System.Data.DataColumn + Get + Return Me.column홈페이지 + End Get + End Property + + _ + Public ReadOnly Property 관리Column() As Global.System.Data.DataColumn + Get + Return Me.column관리 + End Get + End Property + + _ + Public ReadOnly Property 관리1Column() As Global.System.Data.DataColumn + Get + Return Me.column관리1 + End Get + End Property + + _ + Public ReadOnly Property 관리2Column() As Global.System.Data.DataColumn + Get + Return Me.column관리2 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As MainTableRow + Get + Return CType(Me.Rows(index),MainTableRow) + End Get + End Property + + _ + Public Event MainTableRowChanging As MainTableRowChangeEventHandler + + _ + Public Event MainTableRowChanged As MainTableRowChangeEventHandler + + _ + Public Event MainTableRowDeleting As MainTableRowChangeEventHandler + + _ + Public Event MainTableRowDeleted As MainTableRowChangeEventHandler + + _ + Public Overloads Sub AddMainTableRow(ByVal row As MainTableRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddMainTableRow(ByVal ID As Integer, ByVal 날짜 As Date, ByVal 거래처명 As String, ByVal 비고 As String, ByVal 총수량 As Integer, ByVal 단가 As Integer, ByVal 금액 As Integer, ByVal 번호찰구분 As Integer, ByVal 시공자 As String, ByVal 홈페이지 As String, ByVal 관리 As String, ByVal 관리1 As String, ByVal 관리2 As String) As MainTableRow + Dim rowMainTableRow As MainTableRow = CType(Me.NewRow,MainTableRow) + Dim columnValuesArray() As Object = New Object() {ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, 시공자, 홈페이지, 관리, 관리1, 관리2} + rowMainTableRow.ItemArray = columnValuesArray + Me.Rows.Add(rowMainTableRow) + Return rowMainTableRow + End Function + + _ + Public Function FindByID(ByVal ID As Integer) As MainTableRow + Return CType(Me.Rows.Find(New Object() {ID}),MainTableRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As MainTableDataTable = CType(MyBase.Clone,MainTableDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New MainTableDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.column날짜 = MyBase.Columns("날짜") + Me.column거래처명 = MyBase.Columns("거래처명") + Me.column비고 = MyBase.Columns("비고") + Me.column총수량 = MyBase.Columns("총수량") + Me.column단가 = MyBase.Columns("단가") + Me.column금액 = MyBase.Columns("금액") + Me.column번호찰구분 = MyBase.Columns("번호찰구분") + Me.column시공자 = MyBase.Columns("시공자") + Me.column홈페이지 = MyBase.Columns("홈페이지") + Me.column관리 = MyBase.Columns("관리") + Me.column관리1 = MyBase.Columns("관리1") + Me.column관리2 = MyBase.Columns("관리2") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.column날짜 = New Global.System.Data.DataColumn("날짜", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column날짜) + Me.column거래처명 = New Global.System.Data.DataColumn("거래처명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column거래처명) + Me.column비고 = New Global.System.Data.DataColumn("비고", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고) + Me.column총수량 = New Global.System.Data.DataColumn("총수량", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column총수량) + Me.column단가 = New Global.System.Data.DataColumn("단가", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column단가) + Me.column금액 = New Global.System.Data.DataColumn("금액", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column금액) + Me.column번호찰구분 = New Global.System.Data.DataColumn("번호찰구분", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호찰구분) + Me.column시공자 = New Global.System.Data.DataColumn("시공자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공자) + Me.column홈페이지 = New Global.System.Data.DataColumn("홈페이지", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column홈페이지) + Me.column관리 = New Global.System.Data.DataColumn("관리", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리) + Me.column관리1 = New Global.System.Data.DataColumn("관리1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리1) + Me.column관리2 = New Global.System.Data.DataColumn("관리2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리2) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me.column날짜.DefaultValue = CType(MainTableDataTable.column날짜_defaultValue,Date) + Me.column거래처명.DefaultValue = CType("",String) + Me.column거래처명.MaxLength = 50 + Me.column비고.DefaultValue = CType("",String) + Me.column비고.MaxLength = 50 + Me.column총수량.DefaultValue = CType(0,Integer) + Me.column단가.DefaultValue = CType(0,Integer) + Me.column금액.DefaultValue = CType(0,Integer) + Me.column번호찰구분.ReadOnly = true + Me.column번호찰구분.DefaultValue = CType(0,Integer) + Me.column시공자.MaxLength = 40 + Me.column홈페이지.MaxLength = 70 + Me.column관리.MaxLength = 50 + Me.column관리1.MaxLength = 50 + Me.column관리2.MaxLength = 50 + End Sub + + _ + Public Function NewMainTableRow() As MainTableRow + Return CType(Me.NewRow,MainTableRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New MainTableRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(MainTableRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.MainTableRowChangedEvent) Is Nothing) Then + RaiseEvent MainTableRowChanged(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.MainTableRowChangingEvent) Is Nothing) Then + RaiseEvent MainTableRowChanging(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.MainTableRowDeletedEvent) Is Nothing) Then + RaiseEvent MainTableRowDeleted(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.MainTableRowDeletingEvent) Is Nothing) Then + RaiseEvent MainTableRowDeleting(Me, New MainTableRowChangeEvent(CType(e.Row,MainTableRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveMainTableRow(ByVal row As MainTableRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "MainTableDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class EtcTableDataTable + Inherits Global.System.Data.TypedTableBase(Of EtcTableRow) + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전주번호 As Global.System.Data.DataColumn + + Private column선로명 As Global.System.Data.DataColumn + + Private column번호1 As Global.System.Data.DataColumn + + Private column번호2 As Global.System.Data.DataColumn + + Private column번호3 As Global.System.Data.DataColumn + + Private column번호4 As Global.System.Data.DataColumn + + Private column번호5 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column비고4 As Global.System.Data.DataColumn + + Private column담당자 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column선택 As Global.System.Data.DataColumn + + Private columnrowid As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "EtcTable" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전주번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호 + End Get + End Property + + _ + Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column선로명 + End Get + End Property + + _ + Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column번호1 + End Get + End Property + + _ + Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column번호2 + End Get + End Property + + _ + Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column번호3 + End Get + End Property + + _ + Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn + Get + Return Me.column번호4 + End Get + End Property + + _ + Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn + Get + Return Me.column번호5 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn + Get + Return Me.column비고4 + End Get + End Property + + _ + Public ReadOnly Property 담당자Column() As Global.System.Data.DataColumn + Get + Return Me.column담당자 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 선택Column() As Global.System.Data.DataColumn + Get + Return Me.column선택 + End Get + End Property + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As EtcTableRow + Get + Return CType(Me.Rows(index),EtcTableRow) + End Get + End Property + + _ + Public Event EtcTableRowChanging As EtcTableRowChangeEventHandler + + _ + Public Event EtcTableRowChanged As EtcTableRowChangeEventHandler + + _ + Public Event EtcTableRowDeleting As EtcTableRowChangeEventHandler + + _ + Public Event EtcTableRowDeleted As EtcTableRowChangeEventHandler + + _ + Public Overloads Sub AddEtcTableRow(ByVal row As EtcTableRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddEtcTableRow( _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 담당자 As String, _ + ByVal 정렬번호 As String, _ + ByVal 선택 As Boolean, _ + ByVal rowid As System.Guid, _ + ByVal 출력 As Boolean) As EtcTableRow + Dim rowEtcTableRow As EtcTableRow = CType(Me.NewRow,EtcTableRow) + Dim columnValuesArray() As Object = New Object() {관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고2, 비고3, 비고4, 담당자, 정렬번호, 선택, rowid, 출력} + rowEtcTableRow.ItemArray = columnValuesArray + Me.Rows.Add(rowEtcTableRow) + Return rowEtcTableRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As EtcTableRow + Return CType(Me.Rows.Find(New Object() {rowid}),EtcTableRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As EtcTableDataTable = CType(MyBase.Clone,EtcTableDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New EtcTableDataTable() + End Function + + _ + Friend Sub InitVars() + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전주번호 = MyBase.Columns("전주번호") + Me.column선로명 = MyBase.Columns("선로명") + Me.column번호1 = MyBase.Columns("번호1") + Me.column번호2 = MyBase.Columns("번호2") + Me.column번호3 = MyBase.Columns("번호3") + Me.column번호4 = MyBase.Columns("번호4") + Me.column번호5 = MyBase.Columns("번호5") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column비고4 = MyBase.Columns("비고4") + Me.column담당자 = MyBase.Columns("담당자") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column선택 = MyBase.Columns("선택") + Me.columnrowid = MyBase.Columns("rowid") + Me.column출력 = MyBase.Columns("출력") + End Sub + + _ + Private Sub InitClass() + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전주번호 = New Global.System.Data.DataColumn("전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호) + Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로명) + Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호1) + Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호2) + Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호3) + Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호4) + Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호5) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고4) + Me.column담당자 = New Global.System.Data.DataColumn("담당자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column담당자) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column선택 = New Global.System.Data.DataColumn("선택", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선택) + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.column관리구.DefaultValue = CType("",String) + Me.column관리구.MaxLength = 6 + Me.column전주번호.DefaultValue = CType("",String) + Me.column전주번호.MaxLength = 8 + Me.column선로명.DefaultValue = CType("",String) + Me.column선로명.MaxLength = 50 + Me.column번호1.DefaultValue = CType("",String) + Me.column번호1.MaxLength = 30 + Me.column번호2.DefaultValue = CType("",String) + Me.column번호2.MaxLength = 30 + Me.column번호3.DefaultValue = CType("",String) + Me.column번호3.MaxLength = 10 + Me.column번호4.DefaultValue = CType("",String) + Me.column번호4.MaxLength = 10 + Me.column번호5.DefaultValue = CType("",String) + Me.column번호5.MaxLength = 10 + Me.column비고1.DefaultValue = CType("",String) + Me.column비고1.MaxLength = 20 + Me.column비고2.DefaultValue = CType("",String) + Me.column비고2.MaxLength = 20 + Me.column비고3.DefaultValue = CType("",String) + Me.column비고3.MaxLength = 20 + Me.column비고4.DefaultValue = CType("",String) + Me.column비고4.MaxLength = 20 + Me.column담당자.DefaultValue = CType("",String) + Me.column담당자.MaxLength = 20 + Me.column정렬번호.DefaultValue = CType("히히히000000000",String) + Me.column선택.DefaultValue = CType(false,Boolean) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column출력.DefaultValue = CType(true,Boolean) + End Sub + + _ + Public Function NewEtcTableRow() As EtcTableRow + Return CType(Me.NewRow,EtcTableRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New EtcTableRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(EtcTableRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.EtcTableRowChangedEvent) Is Nothing) Then + RaiseEvent EtcTableRowChanged(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.EtcTableRowChangingEvent) Is Nothing) Then + RaiseEvent EtcTableRowChanging(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.EtcTableRowDeletedEvent) Is Nothing) Then + RaiseEvent EtcTableRowDeleted(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.EtcTableRowDeletingEvent) Is Nothing) Then + RaiseEvent EtcTableRowDeleting(Me, New EtcTableRowChangeEvent(CType(e.Row,EtcTableRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveEtcTableRow(ByVal row As EtcTableRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "EtcTableDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class jjutableDataTable + Inherits Global.System.Data.TypedTableBase(Of jjutableRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column구관리구 As Global.System.Data.DataColumn + + Private column구전산번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전주번호 As Global.System.Data.DataColumn + + Private column선로명 As Global.System.Data.DataColumn + + Private column번호1 As Global.System.Data.DataColumn + + Private column번호2 As Global.System.Data.DataColumn + + Private column번호3 As Global.System.Data.DataColumn + + Private column번호4 As Global.System.Data.DataColumn + + Private column번호5 As Global.System.Data.DataColumn + + Private column장척 As Global.System.Data.DataColumn + + Private column시공년월 As Global.System.Data.DataColumn + + Private column시공자 As Global.System.Data.DataColumn + + Private columnDL명 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column감독자 As Global.System.Data.DataColumn + + Private column인쇄 As Global.System.Data.DataColumn + + Private column기입 As Global.System.Data.DataColumn + + Private column접지저항1 As Global.System.Data.DataColumn + + Private column접지저항2 As Global.System.Data.DataColumn + + Private column형식 As Global.System.Data.DataColumn + + Private column신규 As Global.System.Data.DataColumn + + Private column철거 As Global.System.Data.DataColumn + + Private column그림파일 As Global.System.Data.DataColumn + + Private column인입 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column구선로명 As Global.System.Data.DataColumn + + Private column구전주번호 As Global.System.Data.DataColumn + + Private column그림경로 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private column전주현행번호 As Global.System.Data.DataColumn + + Private column문자1 As Global.System.Data.DataColumn + + Private column문자2 As Global.System.Data.DataColumn + + Private column그림 As Global.System.Data.DataColumn + + Private column점검일자 As Global.System.Data.DataColumn + + Private columnCOS휴즈용량 As Global.System.Data.DataColumn + + Private column상표시찰1단 As Global.System.Data.DataColumn + + Private column상표시찰2단 As Global.System.Data.DataColumn + + Private column선로전방 As Global.System.Data.DataColumn + + Private column선로좌측 As Global.System.Data.DataColumn + + Private column선로우측 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "jjutable" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 구관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column구관리구 + End Get + End Property + + _ + Public ReadOnly Property 구전산번호Column() As Global.System.Data.DataColumn + Get + Return Me.column구전산번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전주번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호 + End Get + End Property + + _ + Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column선로명 + End Get + End Property + + _ + Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column번호1 + End Get + End Property + + _ + Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column번호2 + End Get + End Property + + _ + Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column번호3 + End Get + End Property + + _ + Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn + Get + Return Me.column번호4 + End Get + End Property + + _ + Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn + Get + Return Me.column번호5 + End Get + End Property + + _ + Public ReadOnly Property 장척Column() As Global.System.Data.DataColumn + Get + Return Me.column장척 + End Get + End Property + + _ + Public ReadOnly Property 시공년월Column() As Global.System.Data.DataColumn + Get + Return Me.column시공년월 + End Get + End Property + + _ + Public ReadOnly Property 시공자Column() As Global.System.Data.DataColumn + Get + Return Me.column시공자 + End Get + End Property + + _ + Public ReadOnly Property DL명Column() As Global.System.Data.DataColumn + Get + Return Me.columnDL명 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 감독자Column() As Global.System.Data.DataColumn + Get + Return Me.column감독자 + End Get + End Property + + _ + Public ReadOnly Property 인쇄Column() As Global.System.Data.DataColumn + Get + Return Me.column인쇄 + End Get + End Property + + _ + Public ReadOnly Property 기입Column() As Global.System.Data.DataColumn + Get + Return Me.column기입 + End Get + End Property + + _ + Public ReadOnly Property 접지저항1Column() As Global.System.Data.DataColumn + Get + Return Me.column접지저항1 + End Get + End Property + + _ + Public ReadOnly Property 접지저항2Column() As Global.System.Data.DataColumn + Get + Return Me.column접지저항2 + End Get + End Property + + _ + Public ReadOnly Property 형식Column() As Global.System.Data.DataColumn + Get + Return Me.column형식 + End Get + End Property + + _ + Public ReadOnly Property 신규Column() As Global.System.Data.DataColumn + Get + Return Me.column신규 + End Get + End Property + + _ + Public ReadOnly Property 철거Column() As Global.System.Data.DataColumn + Get + Return Me.column철거 + End Get + End Property + + _ + Public ReadOnly Property 그림파일Column() As Global.System.Data.DataColumn + Get + Return Me.column그림파일 + End Get + End Property + + _ + Public ReadOnly Property 인입Column() As Global.System.Data.DataColumn + Get + Return Me.column인입 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 구선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column구선로명 + End Get + End Property + + _ + Public ReadOnly Property 구전주번호Column() As Global.System.Data.DataColumn + Get + Return Me.column구전주번호 + End Get + End Property + + _ + Public ReadOnly Property 그림경로Column() As Global.System.Data.DataColumn + Get + Return Me.column그림경로 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property 전주현행번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전주현행번호 + End Get + End Property + + _ + Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn + Get + Return Me.column문자1 + End Get + End Property + + _ + Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn + Get + Return Me.column문자2 + End Get + End Property + + _ + Public ReadOnly Property 그림Column() As Global.System.Data.DataColumn + Get + Return Me.column그림 + End Get + End Property + + _ + Public ReadOnly Property 점검일자Column() As Global.System.Data.DataColumn + Get + Return Me.column점검일자 + End Get + End Property + + _ + Public ReadOnly Property COS휴즈용량Column() As Global.System.Data.DataColumn + Get + Return Me.columnCOS휴즈용량 + End Get + End Property + + _ + Public ReadOnly Property 상표시찰1단Column() As Global.System.Data.DataColumn + Get + Return Me.column상표시찰1단 + End Get + End Property + + _ + Public ReadOnly Property 상표시찰2단Column() As Global.System.Data.DataColumn + Get + Return Me.column상표시찰2단 + End Get + End Property + + _ + Public ReadOnly Property 선로전방Column() As Global.System.Data.DataColumn + Get + Return Me.column선로전방 + End Get + End Property + + _ + Public ReadOnly Property 선로좌측Column() As Global.System.Data.DataColumn + Get + Return Me.column선로좌측 + End Get + End Property + + _ + Public ReadOnly Property 선로우측Column() As Global.System.Data.DataColumn + Get + Return Me.column선로우측 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As jjutableRow + Get + Return CType(Me.Rows(index),jjutableRow) + End Get + End Property + + _ + Public Event jjutableRowChanging As jjutableRowChangeEventHandler + + _ + Public Event jjutableRowChanged As jjutableRowChangeEventHandler + + _ + Public Event jjutableRowDeleting As jjutableRowChangeEventHandler + + _ + Public Event jjutableRowDeleted As jjutableRowChangeEventHandler + + _ + Public Overloads Sub AddjjutableRow(ByVal row As jjutableRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddjjutableRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 구관리구 As String, _ + ByVal 구전산번호 As String, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 장척 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공자 As String, _ + ByVal DL명 As String, _ + ByVal 비고1 As String, _ + ByVal 감독자 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 기입 As Boolean, _ + ByVal 접지저항1 As String, _ + ByVal 접지저항2 As String, _ + ByVal 형식 As String, _ + ByVal 신규 As Boolean, _ + ByVal 철거 As Boolean, _ + ByVal 그림파일 As String, _ + ByVal 인입 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 구선로명 As String, _ + ByVal 구전주번호 As String, _ + ByVal 그림경로 As String, _ + ByVal 출력 As Boolean, _ + ByVal 전주현행번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 그림 As Boolean, _ + ByVal 점검일자 As String, _ + ByVal COS휴즈용량 As String, _ + ByVal 상표시찰1단 As String, _ + ByVal 상표시찰2단 As String, _ + ByVal 선로전방 As String, _ + ByVal 선로좌측 As String, _ + ByVal 선로우측 As String) As jjutableRow + Dim rowjjutableRow As jjutableRow = CType(Me.NewRow,jjutableRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 구관리구, 구전산번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 장척, 시공년월, 시공자, DL명, 비고1, 감독자, 인쇄, 기입, 접지저항1, 접지저항2, 형식, 신규, 철거, 그림파일, 인입, 정렬번호, 구선로명, 구전주번호, 그림경로, 출력, 전주현행번호, 문자1, 문자2, 그림, 점검일자, COS휴즈용량, 상표시찰1단, 상표시찰2단, 선로전방, 선로좌측, 선로우측} + rowjjutableRow.ItemArray = columnValuesArray + Me.Rows.Add(rowjjutableRow) + Return rowjjutableRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As jjutableRow + Return CType(Me.Rows.Find(New Object() {rowid}),jjutableRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As jjutableDataTable = CType(MyBase.Clone,jjutableDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New jjutableDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column구관리구 = MyBase.Columns("구관리구") + Me.column구전산번호 = MyBase.Columns("구전산번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전주번호 = MyBase.Columns("전주번호") + Me.column선로명 = MyBase.Columns("선로명") + Me.column번호1 = MyBase.Columns("번호1") + Me.column번호2 = MyBase.Columns("번호2") + Me.column번호3 = MyBase.Columns("번호3") + Me.column번호4 = MyBase.Columns("번호4") + Me.column번호5 = MyBase.Columns("번호5") + Me.column장척 = MyBase.Columns("장척") + Me.column시공년월 = MyBase.Columns("시공년월") + Me.column시공자 = MyBase.Columns("시공자") + Me.columnDL명 = MyBase.Columns("DL명") + Me.column비고1 = MyBase.Columns("비고1") + Me.column감독자 = MyBase.Columns("감독자") + Me.column인쇄 = MyBase.Columns("인쇄") + Me.column기입 = MyBase.Columns("기입") + Me.column접지저항1 = MyBase.Columns("접지저항1") + Me.column접지저항2 = MyBase.Columns("접지저항2") + Me.column형식 = MyBase.Columns("형식") + Me.column신규 = MyBase.Columns("신규") + Me.column철거 = MyBase.Columns("철거") + Me.column그림파일 = MyBase.Columns("그림파일") + Me.column인입 = MyBase.Columns("인입") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column구선로명 = MyBase.Columns("구선로명") + Me.column구전주번호 = MyBase.Columns("구전주번호") + Me.column그림경로 = MyBase.Columns("그림경로") + Me.column출력 = MyBase.Columns("출력") + Me.column전주현행번호 = MyBase.Columns("전주현행번호") + Me.column문자1 = MyBase.Columns("문자1") + Me.column문자2 = MyBase.Columns("문자2") + Me.column그림 = MyBase.Columns("그림") + Me.column점검일자 = MyBase.Columns("점검일자") + Me.columnCOS휴즈용량 = MyBase.Columns("COS휴즈용량") + Me.column상표시찰1단 = MyBase.Columns("상표시찰1단") + Me.column상표시찰2단 = MyBase.Columns("상표시찰2단") + Me.column선로전방 = MyBase.Columns("선로전방") + Me.column선로좌측 = MyBase.Columns("선로좌측") + Me.column선로우측 = MyBase.Columns("선로우측") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column구관리구 = New Global.System.Data.DataColumn("구관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column구관리구) + Me.column구전산번호 = New Global.System.Data.DataColumn("구전산번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column구전산번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전주번호 = New Global.System.Data.DataColumn("전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호) + Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로명) + Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호1) + Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호2) + Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호3) + Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호4) + Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호5) + Me.column장척 = New Global.System.Data.DataColumn("장척", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column장척) + Me.column시공년월 = New Global.System.Data.DataColumn("시공년월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공년월) + Me.column시공자 = New Global.System.Data.DataColumn("시공자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공자) + Me.columnDL명 = New Global.System.Data.DataColumn("DL명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDL명) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column감독자 = New Global.System.Data.DataColumn("감독자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column감독자) + Me.column인쇄 = New Global.System.Data.DataColumn("인쇄", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column인쇄) + Me.column기입 = New Global.System.Data.DataColumn("기입", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column기입) + Me.column접지저항1 = New Global.System.Data.DataColumn("접지저항1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column접지저항1) + Me.column접지저항2 = New Global.System.Data.DataColumn("접지저항2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column접지저항2) + Me.column형식 = New Global.System.Data.DataColumn("형식", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column형식) + Me.column신규 = New Global.System.Data.DataColumn("신규", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column신규) + Me.column철거 = New Global.System.Data.DataColumn("철거", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column철거) + Me.column그림파일 = New Global.System.Data.DataColumn("그림파일", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column그림파일) + Me.column인입 = New Global.System.Data.DataColumn("인입", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column인입) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column구선로명 = New Global.System.Data.DataColumn("구선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column구선로명) + Me.column구전주번호 = New Global.System.Data.DataColumn("구전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column구전주번호) + Me.column그림경로 = New Global.System.Data.DataColumn("그림경로", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column그림경로) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.column전주현행번호 = New Global.System.Data.DataColumn("전주현행번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주현행번호) + Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자1) + Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자2) + Me.column그림 = New Global.System.Data.DataColumn("그림", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column그림) + Me.column점검일자 = New Global.System.Data.DataColumn("점검일자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column점검일자) + Me.columnCOS휴즈용량 = New Global.System.Data.DataColumn("COS휴즈용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOS휴즈용량) + Me.column상표시찰1단 = New Global.System.Data.DataColumn("상표시찰1단", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column상표시찰1단) + Me.column상표시찰2단 = New Global.System.Data.DataColumn("상표시찰2단", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column상표시찰2단) + Me.column선로전방 = New Global.System.Data.DataColumn("선로전방", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로전방) + Me.column선로좌측 = New Global.System.Data.DataColumn("선로좌측", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로좌측) + Me.column선로우측 = New Global.System.Data.DataColumn("선로우측", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로우측) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column구관리구.DefaultValue = CType("",String) + Me.column구관리구.MaxLength = 50 + Me.column구전산번호.DefaultValue = CType("",String) + Me.column구전산번호.MaxLength = 50 + Me.column관리구.DefaultValue = CType("",String) + Me.column관리구.MaxLength = 50 + Me.column전주번호.DefaultValue = CType("",String) + Me.column전주번호.MaxLength = 50 + Me.column선로명.DefaultValue = CType("",String) + Me.column선로명.MaxLength = 50 + Me.column번호1.DefaultValue = CType("",String) + Me.column번호1.MaxLength = 30 + Me.column번호2.DefaultValue = CType("",String) + Me.column번호2.MaxLength = 30 + Me.column번호3.DefaultValue = CType("",String) + Me.column번호3.MaxLength = 50 + Me.column번호4.DefaultValue = CType("",String) + Me.column번호4.MaxLength = 50 + Me.column번호5.DefaultValue = CType("",String) + Me.column번호5.MaxLength = 50 + Me.column장척.DefaultValue = CType("",String) + Me.column장척.MaxLength = 50 + Me.column시공년월.DefaultValue = CType("",String) + Me.column시공년월.MaxLength = 50 + Me.column시공자.DefaultValue = CType("",String) + Me.column시공자.MaxLength = 30 + Me.columnDL명.DefaultValue = CType("",String) + Me.columnDL명.MaxLength = 50 + Me.column비고1.DefaultValue = CType("",String) + Me.column비고1.MaxLength = 20 + Me.column감독자.DefaultValue = CType("",String) + Me.column감독자.MaxLength = 50 + Me.column인쇄.DefaultValue = CType(false,Boolean) + Me.column기입.DefaultValue = CType(false,Boolean) + Me.column접지저항1.DefaultValue = CType("",String) + Me.column접지저항1.MaxLength = 50 + Me.column접지저항2.DefaultValue = CType("",String) + Me.column접지저항2.MaxLength = 50 + Me.column형식.DefaultValue = CType("",String) + Me.column형식.MaxLength = 50 + Me.column신규.DefaultValue = CType(false,Boolean) + Me.column철거.DefaultValue = CType(false,Boolean) + Me.column그림파일.DefaultValue = CType("",String) + Me.column그림파일.MaxLength = 255 + Me.column인입.DefaultValue = CType(false,Boolean) + Me.column정렬번호.DefaultValue = CType("",String) + Me.column정렬번호.MaxLength = 50 + Me.column구선로명.DefaultValue = CType("",String) + Me.column구선로명.MaxLength = 50 + Me.column구전주번호.DefaultValue = CType("",String) + Me.column구전주번호.MaxLength = 50 + Me.column그림경로.DefaultValue = CType("",String) + Me.column그림경로.MaxLength = 536870910 + Me.column출력.DefaultValue = CType(true,Boolean) + Me.column전주현행번호.DefaultValue = CType("",String) + Me.column전주현행번호.MaxLength = 30 + Me.column문자1.DefaultValue = CType("",String) + Me.column문자1.MaxLength = 50 + Me.column문자2.DefaultValue = CType("",String) + Me.column문자2.MaxLength = 50 + Me.column그림.DefaultValue = CType(false,Boolean) + Me.column점검일자.DefaultValue = CType("",String) + Me.column점검일자.MaxLength = 50 + Me.columnCOS휴즈용량.DefaultValue = CType("",String) + Me.columnCOS휴즈용량.MaxLength = 100 + Me.column상표시찰1단.DefaultValue = CType("",String) + Me.column상표시찰1단.MaxLength = 100 + Me.column상표시찰2단.DefaultValue = CType("",String) + Me.column상표시찰2단.MaxLength = 100 + Me.column선로전방.MaxLength = 255 + Me.column선로좌측.MaxLength = 255 + Me.column선로우측.MaxLength = 255 + End Sub + + _ + Public Function NewjjutableRow() As jjutableRow + Return CType(Me.NewRow,jjutableRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New jjutableRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(jjutableRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.jjutableRowChangedEvent) Is Nothing) Then + RaiseEvent jjutableRowChanged(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.jjutableRowChangingEvent) Is Nothing) Then + RaiseEvent jjutableRowChanging(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.jjutableRowDeletedEvent) Is Nothing) Then + RaiseEvent jjutableRowDeleted(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.jjutableRowDeletingEvent) Is Nothing) Then + RaiseEvent jjutableRowDeleting(Me, New jjutableRowChangeEvent(CType(e.Row,jjutableRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovejjutableRow(ByVal row As jjutableRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "jjutableDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_DeungDataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_DeungRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리번호1 As Global.System.Data.DataColumn + + Private column관리번호2 As Global.System.Data.DataColumn + + Private column관리번호3 As Global.System.Data.DataColumn + + Private column지점명 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private column문자1 As Global.System.Data.DataColumn + + Private column문자2 As Global.System.Data.DataColumn + + Private column고객번호1 As Global.System.Data.DataColumn + + Private column고객번호2 As Global.System.Data.DataColumn + + Private column고객번호3 As Global.System.Data.DataColumn + + Private column전산화번호1 As Global.System.Data.DataColumn + + Private column전산화번호2 As Global.System.Data.DataColumn + + Private column선로명 As Global.System.Data.DataColumn + + Private column전주번호1 As Global.System.Data.DataColumn + + Private column전주번호2 As Global.System.Data.DataColumn + + Private column전주번호3 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Detail_Deung" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column관리번호1 + End Get + End Property + + _ + Public ReadOnly Property 관리번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column관리번호2 + End Get + End Property + + _ + Public ReadOnly Property 관리번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column관리번호3 + End Get + End Property + + _ + Public ReadOnly Property 지점명Column() As Global.System.Data.DataColumn + Get + Return Me.column지점명 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn + Get + Return Me.column문자1 + End Get + End Property + + _ + Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn + Get + Return Me.column문자2 + End Get + End Property + + _ + Public ReadOnly Property 고객번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column고객번호1 + End Get + End Property + + _ + Public ReadOnly Property 고객번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column고객번호2 + End Get + End Property + + _ + Public ReadOnly Property 고객번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column고객번호3 + End Get + End Property + + _ + Public ReadOnly Property 전산화번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column전산화번호1 + End Get + End Property + + _ + Public ReadOnly Property 전산화번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column전산화번호2 + End Get + End Property + + _ + Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column선로명 + End Get + End Property + + _ + Public ReadOnly Property 전주번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호1 + End Get + End Property + + _ + Public ReadOnly Property 전주번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호2 + End Get + End Property + + _ + Public ReadOnly Property 전주번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호3 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_DeungRow + Get + Return CType(Me.Rows(index),Detail_DeungRow) + End Get + End Property + + _ + Public Event Detail_DeungRowChanging As Detail_DeungRowChangeEventHandler + + _ + Public Event Detail_DeungRowChanged As Detail_DeungRowChangeEventHandler + + _ + Public Event Detail_DeungRowDeleting As Detail_DeungRowChangeEventHandler + + _ + Public Event Detail_DeungRowDeleted As Detail_DeungRowChangeEventHandler + + _ + Public Overloads Sub AddDetail_DeungRow(ByVal row As Detail_DeungRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_DeungRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 관리번호3 As String, _ + ByVal 지점명 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 고객번호1 As String, _ + ByVal 고객번호2 As String, _ + ByVal 고객번호3 As String, _ + ByVal 전산화번호1 As String, _ + ByVal 전산화번호2 As String, _ + ByVal 선로명 As String, _ + ByVal 전주번호1 As String, _ + ByVal 전주번호2 As String, _ + ByVal 전주번호3 As String) As Detail_DeungRow + Dim rowDetail_DeungRow As Detail_DeungRow = CType(Me.NewRow,Detail_DeungRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, 출력, 문자1, 문자2, 고객번호1, 고객번호2, 고객번호3, 전산화번호1, 전산화번호2, 선로명, 전주번호1, 전주번호2, 전주번호3} + rowDetail_DeungRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_DeungRow) + Return rowDetail_DeungRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_DeungRow + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_DeungRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_DeungDataTable = CType(MyBase.Clone,Detail_DeungDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_DeungDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리번호1 = MyBase.Columns("관리번호1") + Me.column관리번호2 = MyBase.Columns("관리번호2") + Me.column관리번호3 = MyBase.Columns("관리번호3") + Me.column지점명 = MyBase.Columns("지점명") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + Me.column문자1 = MyBase.Columns("문자1") + Me.column문자2 = MyBase.Columns("문자2") + Me.column고객번호1 = MyBase.Columns("고객번호1") + Me.column고객번호2 = MyBase.Columns("고객번호2") + Me.column고객번호3 = MyBase.Columns("고객번호3") + Me.column전산화번호1 = MyBase.Columns("전산화번호1") + Me.column전산화번호2 = MyBase.Columns("전산화번호2") + Me.column선로명 = MyBase.Columns("선로명") + Me.column전주번호1 = MyBase.Columns("전주번호1") + Me.column전주번호2 = MyBase.Columns("전주번호2") + Me.column전주번호3 = MyBase.Columns("전주번호3") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리번호1 = New Global.System.Data.DataColumn("관리번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리번호1) + Me.column관리번호2 = New Global.System.Data.DataColumn("관리번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리번호2) + Me.column관리번호3 = New Global.System.Data.DataColumn("관리번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리번호3) + Me.column지점명 = New Global.System.Data.DataColumn("지점명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지점명) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자1) + Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자2) + Me.column고객번호1 = New Global.System.Data.DataColumn("고객번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column고객번호1) + Me.column고객번호2 = New Global.System.Data.DataColumn("고객번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column고객번호2) + Me.column고객번호3 = New Global.System.Data.DataColumn("고객번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column고객번호3) + Me.column전산화번호1 = New Global.System.Data.DataColumn("전산화번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산화번호1) + Me.column전산화번호2 = New Global.System.Data.DataColumn("전산화번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산화번호2) + Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로명) + Me.column전주번호1 = New Global.System.Data.DataColumn("전주번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호1) + Me.column전주번호2 = New Global.System.Data.DataColumn("전주번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호2) + Me.column전주번호3 = New Global.System.Data.DataColumn("전주번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호3) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column관리번호1.MaxLength = 8 + Me.column관리번호2.MaxLength = 2 + Me.column관리번호3.MaxLength = 5 + Me.column지점명.MaxLength = 20 + Me.column정렬번호.MaxLength = 50 + Me.column출력.DefaultValue = CType(true,Boolean) + Me.column문자1.MaxLength = 255 + Me.column문자2.MaxLength = 255 + Me.column고객번호1.MaxLength = 10 + Me.column고객번호2.MaxLength = 10 + Me.column고객번호3.MaxLength = 10 + Me.column전산화번호1.MaxLength = 50 + Me.column전산화번호2.MaxLength = 50 + Me.column선로명.MaxLength = 50 + Me.column전주번호1.MaxLength = 50 + Me.column전주번호2.MaxLength = 50 + Me.column전주번호3.MaxLength = 50 + End Sub + + _ + Public Function NewDetail_DeungRow() As Detail_DeungRow + Return CType(Me.NewRow,Detail_DeungRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_DeungRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_DeungRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_DeungRowChangedEvent) Is Nothing) Then + RaiseEvent Detail_DeungRowChanged(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_DeungRowChangingEvent) Is Nothing) Then + RaiseEvent Detail_DeungRowChanging(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_DeungRowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_DeungRowDeleted(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_DeungRowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_DeungRowDeleting(Me, New Detail_DeungRowChangeEvent(CType(e.Row,Detail_DeungRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_DeungRow(ByVal row As Detail_DeungRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_DeungDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_karoDataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_karoRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column지역명 As Global.System.Data.DataColumn + + Private column관리번호1 As Global.System.Data.DataColumn + + Private column관리번호2 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private column문자1 As Global.System.Data.DataColumn + + Private column문자2 As Global.System.Data.DataColumn + + Private column전화번호1 As Global.System.Data.DataColumn + + Private column전화번호2 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Detail_karo" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 지역명Column() As Global.System.Data.DataColumn + Get + Return Me.column지역명 + End Get + End Property + + _ + Public ReadOnly Property 관리번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column관리번호1 + End Get + End Property + + _ + Public ReadOnly Property 관리번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column관리번호2 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn + Get + Return Me.column문자1 + End Get + End Property + + _ + Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn + Get + Return Me.column문자2 + End Get + End Property + + _ + Public ReadOnly Property 전화번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column전화번호1 + End Get + End Property + + _ + Public ReadOnly Property 전화번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column전화번호2 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_karoRow + Get + Return CType(Me.Rows(index),Detail_karoRow) + End Get + End Property + + _ + Public Event Detail_karoRowChanging As Detail_karoRowChangeEventHandler + + _ + Public Event Detail_karoRowChanged As Detail_karoRowChangeEventHandler + + _ + Public Event Detail_karoRowDeleting As Detail_karoRowChangeEventHandler + + _ + Public Event Detail_karoRowDeleted As Detail_karoRowChangeEventHandler + + _ + Public Overloads Sub AddDetail_karoRow(ByVal row As Detail_karoRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_karoRow(ByVal rowid As System.Guid, ByVal 관리ID As Integer, ByVal 번호 As Integer, ByVal 지역명 As String, ByVal 관리번호1 As String, ByVal 관리번호2 As String, ByVal 정렬번호 As String, ByVal 출력 As Boolean, ByVal 문자1 As String, ByVal 문자2 As String, ByVal 전화번호1 As String, ByVal 전화번호2 As String) As Detail_karoRow + Dim rowDetail_karoRow As Detail_karoRow = CType(Me.NewRow,Detail_karoRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 지역명, 관리번호1, 관리번호2, 정렬번호, 출력, 문자1, 문자2, 전화번호1, 전화번호2} + rowDetail_karoRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_karoRow) + Return rowDetail_karoRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_karoRow + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_karoRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_karoDataTable = CType(MyBase.Clone,Detail_karoDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_karoDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column지역명 = MyBase.Columns("지역명") + Me.column관리번호1 = MyBase.Columns("관리번호1") + Me.column관리번호2 = MyBase.Columns("관리번호2") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + Me.column문자1 = MyBase.Columns("문자1") + Me.column문자2 = MyBase.Columns("문자2") + Me.column전화번호1 = MyBase.Columns("전화번호1") + Me.column전화번호2 = MyBase.Columns("전화번호2") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column지역명 = New Global.System.Data.DataColumn("지역명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column지역명) + Me.column관리번호1 = New Global.System.Data.DataColumn("관리번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리번호1) + Me.column관리번호2 = New Global.System.Data.DataColumn("관리번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리번호2) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자1) + Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자2) + Me.column전화번호1 = New Global.System.Data.DataColumn("전화번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전화번호1) + Me.column전화번호2 = New Global.System.Data.DataColumn("전화번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전화번호2) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column지역명.MaxLength = 255 + Me.column관리번호1.MaxLength = 255 + Me.column관리번호2.MaxLength = 255 + Me.column정렬번호.MaxLength = 50 + Me.column출력.DefaultValue = CType(true,Boolean) + Me.column문자1.MaxLength = 255 + Me.column문자2.MaxLength = 255 + Me.column전화번호1.MaxLength = 50 + Me.column전화번호2.MaxLength = 50 + End Sub + + _ + Public Function NewDetail_karoRow() As Detail_karoRow + Return CType(Me.NewRow,Detail_karoRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_karoRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_karoRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_karoRowChangedEvent) Is Nothing) Then + RaiseEvent Detail_karoRowChanged(Me, New Detail_karoRowChangeEvent(CType(e.Row,Detail_karoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_karoRowChangingEvent) Is Nothing) Then + RaiseEvent Detail_karoRowChanging(Me, New Detail_karoRowChangeEvent(CType(e.Row,Detail_karoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_karoRowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_karoRowDeleted(Me, New Detail_karoRowChangeEvent(CType(e.Row,Detail_karoRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_karoRowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_karoRowDeleting(Me, New Detail_karoRowChangeEvent(CType(e.Row,Detail_karoRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_karoRow(ByVal row As Detail_karoRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_karoDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_CableDataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_CableRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전산번호 As Global.System.Data.DataColumn + + Private columnHASS As Global.System.Data.DataColumn + + Private columnHADL As Global.System.Data.DataColumn + + Private columnHA구간 As Global.System.Data.DataColumn + + Private columnHBSS As Global.System.Data.DataColumn + + Private columnHBDL As Global.System.Data.DataColumn + + Private columnHB구간 As Global.System.Data.DataColumn + + Private columnS0번호1 As Global.System.Data.DataColumn + + Private columnS0번호2 As Global.System.Data.DataColumn + + Private columnS0번호3 As Global.System.Data.DataColumn + + Private columnS0번호4 As Global.System.Data.DataColumn + + Private columnS0SW명 As Global.System.Data.DataColumn + + Private columnS0수용가 As Global.System.Data.DataColumn + + Private columnS1번호1 As Global.System.Data.DataColumn + + Private columnS1번호2 As Global.System.Data.DataColumn + + Private columnS1번호3 As Global.System.Data.DataColumn + + Private columnS1번호4 As Global.System.Data.DataColumn + + Private columnS1SW명 As Global.System.Data.DataColumn + + Private columnS1위치 As Global.System.Data.DataColumn + + Private columnS2번호1 As Global.System.Data.DataColumn + + Private columnS2번호2 As Global.System.Data.DataColumn + + Private columnS2번호3 As Global.System.Data.DataColumn + + Private columnS2번호4 As Global.System.Data.DataColumn + + Private columnS2SW명 As Global.System.Data.DataColumn + + Private columnS2위치 As Global.System.Data.DataColumn + + Private columnS3번호1 As Global.System.Data.DataColumn + + Private columnS3번호2 As Global.System.Data.DataColumn + + Private columnS3번호3 As Global.System.Data.DataColumn + + Private columnS3번호4 As Global.System.Data.DataColumn + + Private columnS3SW명 As Global.System.Data.DataColumn + + Private columnS3위치 As Global.System.Data.DataColumn + + Private columnS4번호1 As Global.System.Data.DataColumn + + Private columnS4번호2 As Global.System.Data.DataColumn + + Private columnS4번호3 As Global.System.Data.DataColumn + + Private columnS4번호4 As Global.System.Data.DataColumn + + Private columnS4SW명 As Global.System.Data.DataColumn + + Private columnS4위치 As Global.System.Data.DataColumn + + Private column시공년월 As Global.System.Data.DataColumn + + Private column시공회사 As Global.System.Data.DataColumn + + Private column공사번호 As Global.System.Data.DataColumn + + Private column감독자 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column비고4 As Global.System.Data.DataColumn + + Private column비고5 As Global.System.Data.DataColumn + + Private column비고6 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private columnHA단자명 As Global.System.Data.DataColumn + + Private columnHB단자명 As Global.System.Data.DataColumn + + Private columnS0SS As Global.System.Data.DataColumn + + Private columnS0DL As Global.System.Data.DataColumn + + Private columnS1SS As Global.System.Data.DataColumn + + Private columnS1DL As Global.System.Data.DataColumn + + Private columnS2SS As Global.System.Data.DataColumn + + Private columnS2DL As Global.System.Data.DataColumn + + Private columnS3SS As Global.System.Data.DataColumn + + Private columnS3DL As Global.System.Data.DataColumn + + Private columnS4SS As Global.System.Data.DataColumn + + Private columnS4DL As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Detail_Cable" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전산번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전산번호 + End Get + End Property + + _ + Public ReadOnly Property HASSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHASS + End Get + End Property + + _ + Public ReadOnly Property HADLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHADL + End Get + End Property + + _ + Public ReadOnly Property HA구간Column() As Global.System.Data.DataColumn + Get + Return Me.columnHA구간 + End Get + End Property + + _ + Public ReadOnly Property HBSSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHBSS + End Get + End Property + + _ + Public ReadOnly Property HBDLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHBDL + End Get + End Property + + _ + Public ReadOnly Property HB구간Column() As Global.System.Data.DataColumn + Get + Return Me.columnHB구간 + End Get + End Property + + _ + Public ReadOnly Property S0번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0번호1 + End Get + End Property + + _ + Public ReadOnly Property S0번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0번호2 + End Get + End Property + + _ + Public ReadOnly Property S0번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0번호3 + End Get + End Property + + _ + Public ReadOnly Property S0번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0번호4 + End Get + End Property + + _ + Public ReadOnly Property S0SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0SW명 + End Get + End Property + + _ + Public ReadOnly Property S0수용가Column() As Global.System.Data.DataColumn + Get + Return Me.columnS0수용가 + End Get + End Property + + _ + Public ReadOnly Property S1번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호1 + End Get + End Property + + _ + Public ReadOnly Property S1번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호2 + End Get + End Property + + _ + Public ReadOnly Property S1번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호3 + End Get + End Property + + _ + Public ReadOnly Property S1번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호4 + End Get + End Property + + _ + Public ReadOnly Property S1SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1SW명 + End Get + End Property + + _ + Public ReadOnly Property S1위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1위치 + End Get + End Property + + _ + Public ReadOnly Property S2번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호1 + End Get + End Property + + _ + Public ReadOnly Property S2번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호2 + End Get + End Property + + _ + Public ReadOnly Property S2번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호3 + End Get + End Property + + _ + Public ReadOnly Property S2번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호4 + End Get + End Property + + _ + Public ReadOnly Property S2SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2SW명 + End Get + End Property + + _ + Public ReadOnly Property S2위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2위치 + End Get + End Property + + _ + Public ReadOnly Property S3번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호1 + End Get + End Property + + _ + Public ReadOnly Property S3번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호2 + End Get + End Property + + _ + Public ReadOnly Property S3번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호3 + End Get + End Property + + _ + Public ReadOnly Property S3번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호4 + End Get + End Property + + _ + Public ReadOnly Property S3SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3SW명 + End Get + End Property + + _ + Public ReadOnly Property S3위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3위치 + End Get + End Property + + _ + Public ReadOnly Property S4번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호1 + End Get + End Property + + _ + Public ReadOnly Property S4번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호2 + End Get + End Property + + _ + Public ReadOnly Property S4번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호3 + End Get + End Property + + _ + Public ReadOnly Property S4번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호4 + End Get + End Property + + _ + Public ReadOnly Property S4SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4SW명 + End Get + End Property + + _ + Public ReadOnly Property S4위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4위치 + End Get + End Property + + _ + Public ReadOnly Property 시공년월Column() As Global.System.Data.DataColumn + Get + Return Me.column시공년월 + End Get + End Property + + _ + Public ReadOnly Property 시공회사Column() As Global.System.Data.DataColumn + Get + Return Me.column시공회사 + End Get + End Property + + _ + Public ReadOnly Property 공사번호Column() As Global.System.Data.DataColumn + Get + Return Me.column공사번호 + End Get + End Property + + _ + Public ReadOnly Property 감독자Column() As Global.System.Data.DataColumn + Get + Return Me.column감독자 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn + Get + Return Me.column비고4 + End Get + End Property + + _ + Public ReadOnly Property 비고5Column() As Global.System.Data.DataColumn + Get + Return Me.column비고5 + End Get + End Property + + _ + Public ReadOnly Property 비고6Column() As Global.System.Data.DataColumn + Get + Return Me.column비고6 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property HA단자명Column() As Global.System.Data.DataColumn + Get + Return Me.columnHA단자명 + End Get + End Property + + _ + Public ReadOnly Property HB단자명Column() As Global.System.Data.DataColumn + Get + Return Me.columnHB단자명 + End Get + End Property + + _ + Public ReadOnly Property S0SSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS0SS + End Get + End Property + + _ + Public ReadOnly Property S0DLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS0DL + End Get + End Property + + _ + Public ReadOnly Property S1SSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS1SS + End Get + End Property + + _ + Public ReadOnly Property S1DLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS1DL + End Get + End Property + + _ + Public ReadOnly Property S2SSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS2SS + End Get + End Property + + _ + Public ReadOnly Property S2DLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS2DL + End Get + End Property + + _ + Public ReadOnly Property S3SSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS3SS + End Get + End Property + + _ + Public ReadOnly Property S3DLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS3DL + End Get + End Property + + _ + Public ReadOnly Property S4SSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS4SS + End Get + End Property + + _ + Public ReadOnly Property S4DLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnS4DL + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_CableRow + Get + Return CType(Me.Rows(index),Detail_CableRow) + End Get + End Property + + _ + Public Event Detail_CableRowChanging As Detail_CableRowChangeEventHandler + + _ + Public Event Detail_CableRowChanged As Detail_CableRowChangeEventHandler + + _ + Public Event Detail_CableRowDeleting As Detail_CableRowChangeEventHandler + + _ + Public Event Detail_CableRowDeleted As Detail_CableRowChangeEventHandler + + _ + Public Overloads Sub AddDetail_CableRow(ByVal row As Detail_CableRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_CableRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Double, _ + ByVal 번호 As Double, _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S0번호1 As String, _ + ByVal S0번호2 As String, _ + ByVal S0번호3 As String, _ + ByVal S0번호4 As String, _ + ByVal S0SW명 As String, _ + ByVal S0수용가 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal HA단자명 As String, _ + ByVal HB단자명 As String, _ + ByVal S0SS As String, _ + ByVal S0DL As String, _ + ByVal S1SS As String, _ + ByVal S1DL As String, _ + ByVal S2SS As String, _ + ByVal S2DL As String, _ + ByVal S3SS As String, _ + ByVal S3DL As String, _ + ByVal S4SS As String, _ + ByVal S4DL As String) As Detail_CableRow + Dim rowDetail_CableRow As Detail_CableRow = CType(Me.NewRow,Detail_CableRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리구, 전산번호, HASS, HADL, HA구간, HBSS, HBDL, HB구간, S0번호1, S0번호2, S0번호3, S0번호4, S0SW명, S0수용가, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, HA단자명, HB단자명, S0SS, S0DL, S1SS, S1DL, S2SS, S2DL, S3SS, S3DL, S4SS, S4DL} + rowDetail_CableRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_CableRow) + Return rowDetail_CableRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_CableRow + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_CableRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_CableDataTable = CType(MyBase.Clone,Detail_CableDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_CableDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전산번호 = MyBase.Columns("전산번호") + Me.columnHASS = MyBase.Columns("HASS") + Me.columnHADL = MyBase.Columns("HADL") + Me.columnHA구간 = MyBase.Columns("HA구간") + Me.columnHBSS = MyBase.Columns("HBSS") + Me.columnHBDL = MyBase.Columns("HBDL") + Me.columnHB구간 = MyBase.Columns("HB구간") + Me.columnS0번호1 = MyBase.Columns("S0번호1") + Me.columnS0번호2 = MyBase.Columns("S0번호2") + Me.columnS0번호3 = MyBase.Columns("S0번호3") + Me.columnS0번호4 = MyBase.Columns("S0번호4") + Me.columnS0SW명 = MyBase.Columns("S0SW명") + Me.columnS0수용가 = MyBase.Columns("S0수용가") + Me.columnS1번호1 = MyBase.Columns("S1번호1") + Me.columnS1번호2 = MyBase.Columns("S1번호2") + Me.columnS1번호3 = MyBase.Columns("S1번호3") + Me.columnS1번호4 = MyBase.Columns("S1번호4") + Me.columnS1SW명 = MyBase.Columns("S1SW명") + Me.columnS1위치 = MyBase.Columns("S1위치") + Me.columnS2번호1 = MyBase.Columns("S2번호1") + Me.columnS2번호2 = MyBase.Columns("S2번호2") + Me.columnS2번호3 = MyBase.Columns("S2번호3") + Me.columnS2번호4 = MyBase.Columns("S2번호4") + Me.columnS2SW명 = MyBase.Columns("S2SW명") + Me.columnS2위치 = MyBase.Columns("S2위치") + Me.columnS3번호1 = MyBase.Columns("S3번호1") + Me.columnS3번호2 = MyBase.Columns("S3번호2") + Me.columnS3번호3 = MyBase.Columns("S3번호3") + Me.columnS3번호4 = MyBase.Columns("S3번호4") + Me.columnS3SW명 = MyBase.Columns("S3SW명") + Me.columnS3위치 = MyBase.Columns("S3위치") + Me.columnS4번호1 = MyBase.Columns("S4번호1") + Me.columnS4번호2 = MyBase.Columns("S4번호2") + Me.columnS4번호3 = MyBase.Columns("S4번호3") + Me.columnS4번호4 = MyBase.Columns("S4번호4") + Me.columnS4SW명 = MyBase.Columns("S4SW명") + Me.columnS4위치 = MyBase.Columns("S4위치") + Me.column시공년월 = MyBase.Columns("시공년월") + Me.column시공회사 = MyBase.Columns("시공회사") + Me.column공사번호 = MyBase.Columns("공사번호") + Me.column감독자 = MyBase.Columns("감독자") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column비고4 = MyBase.Columns("비고4") + Me.column비고5 = MyBase.Columns("비고5") + Me.column비고6 = MyBase.Columns("비고6") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + Me.columnHA단자명 = MyBase.Columns("HA단자명") + Me.columnHB단자명 = MyBase.Columns("HB단자명") + Me.columnS0SS = MyBase.Columns("S0SS") + Me.columnS0DL = MyBase.Columns("S0DL") + Me.columnS1SS = MyBase.Columns("S1SS") + Me.columnS1DL = MyBase.Columns("S1DL") + Me.columnS2SS = MyBase.Columns("S2SS") + Me.columnS2DL = MyBase.Columns("S2DL") + Me.columnS3SS = MyBase.Columns("S3SS") + Me.columnS3DL = MyBase.Columns("S3DL") + Me.columnS4SS = MyBase.Columns("S4SS") + Me.columnS4DL = MyBase.Columns("S4DL") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전산번호 = New Global.System.Data.DataColumn("전산번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산번호) + Me.columnHASS = New Global.System.Data.DataColumn("HASS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHASS) + Me.columnHADL = New Global.System.Data.DataColumn("HADL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHADL) + Me.columnHA구간 = New Global.System.Data.DataColumn("HA구간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHA구간) + Me.columnHBSS = New Global.System.Data.DataColumn("HBSS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHBSS) + Me.columnHBDL = New Global.System.Data.DataColumn("HBDL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHBDL) + Me.columnHB구간 = New Global.System.Data.DataColumn("HB구간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHB구간) + Me.columnS0번호1 = New Global.System.Data.DataColumn("S0번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0번호1) + Me.columnS0번호2 = New Global.System.Data.DataColumn("S0번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0번호2) + Me.columnS0번호3 = New Global.System.Data.DataColumn("S0번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0번호3) + Me.columnS0번호4 = New Global.System.Data.DataColumn("S0번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0번호4) + Me.columnS0SW명 = New Global.System.Data.DataColumn("S0SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0SW명) + Me.columnS0수용가 = New Global.System.Data.DataColumn("S0수용가", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0수용가) + Me.columnS1번호1 = New Global.System.Data.DataColumn("S1번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호1) + Me.columnS1번호2 = New Global.System.Data.DataColumn("S1번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호2) + Me.columnS1번호3 = New Global.System.Data.DataColumn("S1번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호3) + Me.columnS1번호4 = New Global.System.Data.DataColumn("S1번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호4) + Me.columnS1SW명 = New Global.System.Data.DataColumn("S1SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1SW명) + Me.columnS1위치 = New Global.System.Data.DataColumn("S1위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1위치) + Me.columnS2번호1 = New Global.System.Data.DataColumn("S2번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호1) + Me.columnS2번호2 = New Global.System.Data.DataColumn("S2번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호2) + Me.columnS2번호3 = New Global.System.Data.DataColumn("S2번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호3) + Me.columnS2번호4 = New Global.System.Data.DataColumn("S2번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호4) + Me.columnS2SW명 = New Global.System.Data.DataColumn("S2SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2SW명) + Me.columnS2위치 = New Global.System.Data.DataColumn("S2위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2위치) + Me.columnS3번호1 = New Global.System.Data.DataColumn("S3번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호1) + Me.columnS3번호2 = New Global.System.Data.DataColumn("S3번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호2) + Me.columnS3번호3 = New Global.System.Data.DataColumn("S3번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호3) + Me.columnS3번호4 = New Global.System.Data.DataColumn("S3번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호4) + Me.columnS3SW명 = New Global.System.Data.DataColumn("S3SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3SW명) + Me.columnS3위치 = New Global.System.Data.DataColumn("S3위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3위치) + Me.columnS4번호1 = New Global.System.Data.DataColumn("S4번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호1) + Me.columnS4번호2 = New Global.System.Data.DataColumn("S4번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호2) + Me.columnS4번호3 = New Global.System.Data.DataColumn("S4번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호3) + Me.columnS4번호4 = New Global.System.Data.DataColumn("S4번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호4) + Me.columnS4SW명 = New Global.System.Data.DataColumn("S4SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4SW명) + Me.columnS4위치 = New Global.System.Data.DataColumn("S4위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4위치) + Me.column시공년월 = New Global.System.Data.DataColumn("시공년월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공년월) + Me.column시공회사 = New Global.System.Data.DataColumn("시공회사", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공회사) + Me.column공사번호 = New Global.System.Data.DataColumn("공사번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공사번호) + Me.column감독자 = New Global.System.Data.DataColumn("감독자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column감독자) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고4) + Me.column비고5 = New Global.System.Data.DataColumn("비고5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고5) + Me.column비고6 = New Global.System.Data.DataColumn("비고6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고6) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.columnHA단자명 = New Global.System.Data.DataColumn("HA단자명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHA단자명) + Me.columnHB단자명 = New Global.System.Data.DataColumn("HB단자명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHB단자명) + Me.columnS0SS = New Global.System.Data.DataColumn("S0SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0SS) + Me.columnS0DL = New Global.System.Data.DataColumn("S0DL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS0DL) + Me.columnS1SS = New Global.System.Data.DataColumn("S1SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1SS) + Me.columnS1DL = New Global.System.Data.DataColumn("S1DL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1DL) + Me.columnS2SS = New Global.System.Data.DataColumn("S2SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2SS) + Me.columnS2DL = New Global.System.Data.DataColumn("S2DL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2DL) + Me.columnS3SS = New Global.System.Data.DataColumn("S3SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3SS) + Me.columnS3DL = New Global.System.Data.DataColumn("S3DL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3DL) + Me.columnS4SS = New Global.System.Data.DataColumn("S4SS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4SS) + Me.columnS4DL = New Global.System.Data.DataColumn("S4DL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4DL) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column관리구.MaxLength = 20 + Me.column전산번호.MaxLength = 20 + Me.columnHASS.MaxLength = 20 + Me.columnHADL.MaxLength = 20 + Me.columnHA구간.MaxLength = 20 + Me.columnHBSS.MaxLength = 20 + Me.columnHBDL.MaxLength = 20 + Me.columnHB구간.MaxLength = 20 + Me.columnS0번호1.MaxLength = 20 + Me.columnS0번호2.MaxLength = 20 + Me.columnS0번호3.MaxLength = 20 + Me.columnS0번호4.MaxLength = 20 + Me.columnS0SW명.MaxLength = 20 + Me.columnS0수용가.MaxLength = 20 + Me.columnS1번호1.MaxLength = 20 + Me.columnS1번호2.MaxLength = 20 + Me.columnS1번호3.MaxLength = 20 + Me.columnS1번호4.MaxLength = 20 + Me.columnS1SW명.MaxLength = 20 + Me.columnS1위치.MaxLength = 20 + Me.columnS2번호1.MaxLength = 20 + Me.columnS2번호2.MaxLength = 20 + Me.columnS2번호3.MaxLength = 20 + Me.columnS2번호4.MaxLength = 20 + Me.columnS2SW명.MaxLength = 20 + Me.columnS2위치.MaxLength = 20 + Me.columnS3번호1.MaxLength = 20 + Me.columnS3번호2.MaxLength = 20 + Me.columnS3번호3.MaxLength = 20 + Me.columnS3번호4.MaxLength = 20 + Me.columnS3SW명.MaxLength = 20 + Me.columnS3위치.MaxLength = 20 + Me.columnS4번호1.MaxLength = 20 + Me.columnS4번호2.MaxLength = 20 + Me.columnS4번호3.MaxLength = 20 + Me.columnS4번호4.MaxLength = 20 + Me.columnS4SW명.MaxLength = 20 + Me.columnS4위치.MaxLength = 20 + Me.column시공년월.MaxLength = 20 + Me.column시공회사.MaxLength = 20 + Me.column공사번호.MaxLength = 20 + Me.column감독자.MaxLength = 20 + Me.column비고1.MaxLength = 50 + Me.column비고2.MaxLength = 50 + Me.column비고3.MaxLength = 50 + Me.column비고4.MaxLength = 50 + Me.column비고5.MaxLength = 50 + Me.column비고6.MaxLength = 50 + Me.column정렬번호.MaxLength = 50 + Me.columnHA단자명.MaxLength = 20 + Me.columnHB단자명.MaxLength = 20 + Me.columnS0SS.MaxLength = 20 + Me.columnS0DL.MaxLength = 20 + Me.columnS1SS.MaxLength = 20 + Me.columnS1DL.MaxLength = 20 + Me.columnS2SS.MaxLength = 20 + Me.columnS2DL.MaxLength = 20 + Me.columnS3SS.MaxLength = 20 + Me.columnS3DL.MaxLength = 20 + Me.columnS4SS.MaxLength = 20 + Me.columnS4DL.MaxLength = 20 + End Sub + + _ + Public Function NewDetail_CableRow() As Detail_CableRow + Return CType(Me.NewRow,Detail_CableRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_CableRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_CableRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_CableRowChangedEvent) Is Nothing) Then + RaiseEvent Detail_CableRowChanged(Me, New Detail_CableRowChangeEvent(CType(e.Row,Detail_CableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_CableRowChangingEvent) Is Nothing) Then + RaiseEvent Detail_CableRowChanging(Me, New Detail_CableRowChangeEvent(CType(e.Row,Detail_CableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_CableRowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_CableRowDeleted(Me, New Detail_CableRowChangeEvent(CType(e.Row,Detail_CableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_CableRowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_CableRowDeleting(Me, New Detail_CableRowChangeEvent(CType(e.Row,Detail_CableRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_CableRow(ByVal row As Detail_CableRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_CableDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_Cable2DataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_Cable2Row) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전산번호 As Global.System.Data.DataColumn + + Private columnHA단자명 As Global.System.Data.DataColumn + + Private columnHASS As Global.System.Data.DataColumn + + Private columnHADL As Global.System.Data.DataColumn + + Private columnHA구간 As Global.System.Data.DataColumn + + Private columnHB단자명 As Global.System.Data.DataColumn + + Private columnHBSS As Global.System.Data.DataColumn + + Private columnHBDL As Global.System.Data.DataColumn + + Private columnHB구간 As Global.System.Data.DataColumn + + Private columnS1번호1 As Global.System.Data.DataColumn + + Private columnS1번호2 As Global.System.Data.DataColumn + + Private columnS1번호3 As Global.System.Data.DataColumn + + Private columnS1번호4 As Global.System.Data.DataColumn + + Private columnS1SW명 As Global.System.Data.DataColumn + + Private columnS1위치 As Global.System.Data.DataColumn + + Private columnS2번호1 As Global.System.Data.DataColumn + + Private columnS2번호2 As Global.System.Data.DataColumn + + Private columnS2번호3 As Global.System.Data.DataColumn + + Private columnS2번호4 As Global.System.Data.DataColumn + + Private columnS2SW명 As Global.System.Data.DataColumn + + Private columnS2위치 As Global.System.Data.DataColumn + + Private columnS3번호1 As Global.System.Data.DataColumn + + Private columnS3번호2 As Global.System.Data.DataColumn + + Private columnS3번호3 As Global.System.Data.DataColumn + + Private columnS3번호4 As Global.System.Data.DataColumn + + Private columnS3SW명 As Global.System.Data.DataColumn + + Private columnS3위치 As Global.System.Data.DataColumn + + Private columnS4번호1 As Global.System.Data.DataColumn + + Private columnS4번호2 As Global.System.Data.DataColumn + + Private columnS4번호3 As Global.System.Data.DataColumn + + Private columnS4번호4 As Global.System.Data.DataColumn + + Private columnS4SW명 As Global.System.Data.DataColumn + + Private columnS4위치 As Global.System.Data.DataColumn + + Private column시공년월 As Global.System.Data.DataColumn + + Private column시공회사 As Global.System.Data.DataColumn + + Private column공사번호 As Global.System.Data.DataColumn + + Private column감독자 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column비고4 As Global.System.Data.DataColumn + + Private column비고5 As Global.System.Data.DataColumn + + Private column비고6 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Detail_Cable2" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전산번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전산번호 + End Get + End Property + + _ + Public ReadOnly Property HA단자명Column() As Global.System.Data.DataColumn + Get + Return Me.columnHA단자명 + End Get + End Property + + _ + Public ReadOnly Property HASSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHASS + End Get + End Property + + _ + Public ReadOnly Property HADLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHADL + End Get + End Property + + _ + Public ReadOnly Property HA구간Column() As Global.System.Data.DataColumn + Get + Return Me.columnHA구간 + End Get + End Property + + _ + Public ReadOnly Property HB단자명Column() As Global.System.Data.DataColumn + Get + Return Me.columnHB단자명 + End Get + End Property + + _ + Public ReadOnly Property HBSSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHBSS + End Get + End Property + + _ + Public ReadOnly Property HBDLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHBDL + End Get + End Property + + _ + Public ReadOnly Property HB구간Column() As Global.System.Data.DataColumn + Get + Return Me.columnHB구간 + End Get + End Property + + _ + Public ReadOnly Property S1번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호1 + End Get + End Property + + _ + Public ReadOnly Property S1번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호2 + End Get + End Property + + _ + Public ReadOnly Property S1번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호3 + End Get + End Property + + _ + Public ReadOnly Property S1번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1번호4 + End Get + End Property + + _ + Public ReadOnly Property S1SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1SW명 + End Get + End Property + + _ + Public ReadOnly Property S1위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS1위치 + End Get + End Property + + _ + Public ReadOnly Property S2번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호1 + End Get + End Property + + _ + Public ReadOnly Property S2번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호2 + End Get + End Property + + _ + Public ReadOnly Property S2번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호3 + End Get + End Property + + _ + Public ReadOnly Property S2번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2번호4 + End Get + End Property + + _ + Public ReadOnly Property S2SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2SW명 + End Get + End Property + + _ + Public ReadOnly Property S2위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS2위치 + End Get + End Property + + _ + Public ReadOnly Property S3번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호1 + End Get + End Property + + _ + Public ReadOnly Property S3번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호2 + End Get + End Property + + _ + Public ReadOnly Property S3번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호3 + End Get + End Property + + _ + Public ReadOnly Property S3번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3번호4 + End Get + End Property + + _ + Public ReadOnly Property S3SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3SW명 + End Get + End Property + + _ + Public ReadOnly Property S3위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS3위치 + End Get + End Property + + _ + Public ReadOnly Property S4번호1Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호1 + End Get + End Property + + _ + Public ReadOnly Property S4번호2Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호2 + End Get + End Property + + _ + Public ReadOnly Property S4번호3Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호3 + End Get + End Property + + _ + Public ReadOnly Property S4번호4Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4번호4 + End Get + End Property + + _ + Public ReadOnly Property S4SW명Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4SW명 + End Get + End Property + + _ + Public ReadOnly Property S4위치Column() As Global.System.Data.DataColumn + Get + Return Me.columnS4위치 + End Get + End Property + + _ + Public ReadOnly Property 시공년월Column() As Global.System.Data.DataColumn + Get + Return Me.column시공년월 + End Get + End Property + + _ + Public ReadOnly Property 시공회사Column() As Global.System.Data.DataColumn + Get + Return Me.column시공회사 + End Get + End Property + + _ + Public ReadOnly Property 공사번호Column() As Global.System.Data.DataColumn + Get + Return Me.column공사번호 + End Get + End Property + + _ + Public ReadOnly Property 감독자Column() As Global.System.Data.DataColumn + Get + Return Me.column감독자 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn + Get + Return Me.column비고4 + End Get + End Property + + _ + Public ReadOnly Property 비고5Column() As Global.System.Data.DataColumn + Get + Return Me.column비고5 + End Get + End Property + + _ + Public ReadOnly Property 비고6Column() As Global.System.Data.DataColumn + Get + Return Me.column비고6 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_Cable2Row + Get + Return CType(Me.Rows(index),Detail_Cable2Row) + End Get + End Property + + _ + Public Event Detail_Cable2RowChanging As Detail_Cable2RowChangeEventHandler + + _ + Public Event Detail_Cable2RowChanged As Detail_Cable2RowChangeEventHandler + + _ + Public Event Detail_Cable2RowDeleting As Detail_Cable2RowChangeEventHandler + + _ + Public Event Detail_Cable2RowDeleted As Detail_Cable2RowChangeEventHandler + + _ + Public Overloads Sub AddDetail_Cable2Row(ByVal row As Detail_Cable2Row) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_Cable2Row( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Double, _ + ByVal 번호 As Double, _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HA단자명 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HB단자명 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean) As Detail_Cable2Row + Dim rowDetail_Cable2Row As Detail_Cable2Row = CType(Me.NewRow,Detail_Cable2Row) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리구, 전산번호, HA단자명, HASS, HADL, HA구간, HB단자명, HBSS, HBDL, HB구간, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력} + rowDetail_Cable2Row.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_Cable2Row) + Return rowDetail_Cable2Row + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_Cable2Row + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_Cable2Row) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_Cable2DataTable = CType(MyBase.Clone,Detail_Cable2DataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_Cable2DataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전산번호 = MyBase.Columns("전산번호") + Me.columnHA단자명 = MyBase.Columns("HA단자명") + Me.columnHASS = MyBase.Columns("HASS") + Me.columnHADL = MyBase.Columns("HADL") + Me.columnHA구간 = MyBase.Columns("HA구간") + Me.columnHB단자명 = MyBase.Columns("HB단자명") + Me.columnHBSS = MyBase.Columns("HBSS") + Me.columnHBDL = MyBase.Columns("HBDL") + Me.columnHB구간 = MyBase.Columns("HB구간") + Me.columnS1번호1 = MyBase.Columns("S1번호1") + Me.columnS1번호2 = MyBase.Columns("S1번호2") + Me.columnS1번호3 = MyBase.Columns("S1번호3") + Me.columnS1번호4 = MyBase.Columns("S1번호4") + Me.columnS1SW명 = MyBase.Columns("S1SW명") + Me.columnS1위치 = MyBase.Columns("S1위치") + Me.columnS2번호1 = MyBase.Columns("S2번호1") + Me.columnS2번호2 = MyBase.Columns("S2번호2") + Me.columnS2번호3 = MyBase.Columns("S2번호3") + Me.columnS2번호4 = MyBase.Columns("S2번호4") + Me.columnS2SW명 = MyBase.Columns("S2SW명") + Me.columnS2위치 = MyBase.Columns("S2위치") + Me.columnS3번호1 = MyBase.Columns("S3번호1") + Me.columnS3번호2 = MyBase.Columns("S3번호2") + Me.columnS3번호3 = MyBase.Columns("S3번호3") + Me.columnS3번호4 = MyBase.Columns("S3번호4") + Me.columnS3SW명 = MyBase.Columns("S3SW명") + Me.columnS3위치 = MyBase.Columns("S3위치") + Me.columnS4번호1 = MyBase.Columns("S4번호1") + Me.columnS4번호2 = MyBase.Columns("S4번호2") + Me.columnS4번호3 = MyBase.Columns("S4번호3") + Me.columnS4번호4 = MyBase.Columns("S4번호4") + Me.columnS4SW명 = MyBase.Columns("S4SW명") + Me.columnS4위치 = MyBase.Columns("S4위치") + Me.column시공년월 = MyBase.Columns("시공년월") + Me.column시공회사 = MyBase.Columns("시공회사") + Me.column공사번호 = MyBase.Columns("공사번호") + Me.column감독자 = MyBase.Columns("감독자") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column비고4 = MyBase.Columns("비고4") + Me.column비고5 = MyBase.Columns("비고5") + Me.column비고6 = MyBase.Columns("비고6") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전산번호 = New Global.System.Data.DataColumn("전산번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산번호) + Me.columnHA단자명 = New Global.System.Data.DataColumn("HA단자명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHA단자명) + Me.columnHASS = New Global.System.Data.DataColumn("HASS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHASS) + Me.columnHADL = New Global.System.Data.DataColumn("HADL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHADL) + Me.columnHA구간 = New Global.System.Data.DataColumn("HA구간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHA구간) + Me.columnHB단자명 = New Global.System.Data.DataColumn("HB단자명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHB단자명) + Me.columnHBSS = New Global.System.Data.DataColumn("HBSS", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHBSS) + Me.columnHBDL = New Global.System.Data.DataColumn("HBDL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHBDL) + Me.columnHB구간 = New Global.System.Data.DataColumn("HB구간", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHB구간) + Me.columnS1번호1 = New Global.System.Data.DataColumn("S1번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호1) + Me.columnS1번호2 = New Global.System.Data.DataColumn("S1번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호2) + Me.columnS1번호3 = New Global.System.Data.DataColumn("S1번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호3) + Me.columnS1번호4 = New Global.System.Data.DataColumn("S1번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1번호4) + Me.columnS1SW명 = New Global.System.Data.DataColumn("S1SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1SW명) + Me.columnS1위치 = New Global.System.Data.DataColumn("S1위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS1위치) + Me.columnS2번호1 = New Global.System.Data.DataColumn("S2번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호1) + Me.columnS2번호2 = New Global.System.Data.DataColumn("S2번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호2) + Me.columnS2번호3 = New Global.System.Data.DataColumn("S2번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호3) + Me.columnS2번호4 = New Global.System.Data.DataColumn("S2번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2번호4) + Me.columnS2SW명 = New Global.System.Data.DataColumn("S2SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2SW명) + Me.columnS2위치 = New Global.System.Data.DataColumn("S2위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS2위치) + Me.columnS3번호1 = New Global.System.Data.DataColumn("S3번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호1) + Me.columnS3번호2 = New Global.System.Data.DataColumn("S3번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호2) + Me.columnS3번호3 = New Global.System.Data.DataColumn("S3번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호3) + Me.columnS3번호4 = New Global.System.Data.DataColumn("S3번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3번호4) + Me.columnS3SW명 = New Global.System.Data.DataColumn("S3SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3SW명) + Me.columnS3위치 = New Global.System.Data.DataColumn("S3위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS3위치) + Me.columnS4번호1 = New Global.System.Data.DataColumn("S4번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호1) + Me.columnS4번호2 = New Global.System.Data.DataColumn("S4번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호2) + Me.columnS4번호3 = New Global.System.Data.DataColumn("S4번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호3) + Me.columnS4번호4 = New Global.System.Data.DataColumn("S4번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4번호4) + Me.columnS4SW명 = New Global.System.Data.DataColumn("S4SW명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4SW명) + Me.columnS4위치 = New Global.System.Data.DataColumn("S4위치", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnS4위치) + Me.column시공년월 = New Global.System.Data.DataColumn("시공년월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공년월) + Me.column시공회사 = New Global.System.Data.DataColumn("시공회사", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공회사) + Me.column공사번호 = New Global.System.Data.DataColumn("공사번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column공사번호) + Me.column감독자 = New Global.System.Data.DataColumn("감독자", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column감독자) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고4) + Me.column비고5 = New Global.System.Data.DataColumn("비고5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고5) + Me.column비고6 = New Global.System.Data.DataColumn("비고6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고6) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column관리구.MaxLength = 20 + Me.column전산번호.MaxLength = 20 + Me.columnHA단자명.MaxLength = 20 + Me.columnHASS.MaxLength = 20 + Me.columnHADL.MaxLength = 20 + Me.columnHA구간.MaxLength = 20 + Me.columnHB단자명.MaxLength = 20 + Me.columnHBSS.MaxLength = 20 + Me.columnHBDL.MaxLength = 20 + Me.columnHB구간.MaxLength = 20 + Me.columnS1번호1.MaxLength = 20 + Me.columnS1번호2.MaxLength = 20 + Me.columnS1번호3.MaxLength = 20 + Me.columnS1번호4.MaxLength = 20 + Me.columnS1SW명.MaxLength = 20 + Me.columnS1위치.MaxLength = 20 + Me.columnS2번호1.MaxLength = 20 + Me.columnS2번호2.MaxLength = 20 + Me.columnS2번호3.MaxLength = 20 + Me.columnS2번호4.MaxLength = 20 + Me.columnS2SW명.MaxLength = 20 + Me.columnS2위치.MaxLength = 20 + Me.columnS3번호1.MaxLength = 20 + Me.columnS3번호2.MaxLength = 20 + Me.columnS3번호3.MaxLength = 20 + Me.columnS3번호4.MaxLength = 20 + Me.columnS3SW명.MaxLength = 20 + Me.columnS3위치.MaxLength = 20 + Me.columnS4번호1.MaxLength = 20 + Me.columnS4번호2.MaxLength = 20 + Me.columnS4번호3.MaxLength = 20 + Me.columnS4번호4.MaxLength = 20 + Me.columnS4SW명.MaxLength = 20 + Me.columnS4위치.MaxLength = 20 + Me.column시공년월.MaxLength = 20 + Me.column시공회사.MaxLength = 20 + Me.column공사번호.MaxLength = 20 + Me.column감독자.MaxLength = 20 + Me.column비고1.MaxLength = 50 + Me.column비고2.MaxLength = 50 + Me.column비고3.MaxLength = 50 + Me.column비고4.MaxLength = 50 + Me.column비고5.MaxLength = 50 + Me.column비고6.MaxLength = 50 + Me.column정렬번호.MaxLength = 50 + End Sub + + _ + Public Function NewDetail_Cable2Row() As Detail_Cable2Row + Return CType(Me.NewRow,Detail_Cable2Row) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_Cable2Row(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_Cable2Row) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_Cable2RowChangedEvent) Is Nothing) Then + RaiseEvent Detail_Cable2RowChanged(Me, New Detail_Cable2RowChangeEvent(CType(e.Row,Detail_Cable2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_Cable2RowChangingEvent) Is Nothing) Then + RaiseEvent Detail_Cable2RowChanging(Me, New Detail_Cable2RowChangeEvent(CType(e.Row,Detail_Cable2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_Cable2RowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_Cable2RowDeleted(Me, New Detail_Cable2RowChangeEvent(CType(e.Row,Detail_Cable2Row), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_Cable2RowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_Cable2RowDeleting(Me, New Detail_Cable2RowChangeEvent(CType(e.Row,Detail_Cable2Row), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_Cable2Row(ByVal row As Detail_Cable2Row) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_Cable2DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_CableLabelDataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_CableLabelRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column순번 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column비고4 As Global.System.Data.DataColumn + + Private column비고5 As Global.System.Data.DataColumn + + Private column비고6 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private columnN10 As Global.System.Data.DataColumn + + Private columnN1D As Global.System.Data.DataColumn + + Private columnN1S As Global.System.Data.DataColumn + + Private columnN1L As Global.System.Data.DataColumn + + Private columnN1H1 As Global.System.Data.DataColumn + + Private columnN1H2 As Global.System.Data.DataColumn + + Private columnN20 As Global.System.Data.DataColumn + + Private columnN2J As Global.System.Data.DataColumn + + Private columnN2K As Global.System.Data.DataColumn + + Private columnN2B As Global.System.Data.DataColumn + + Private columnN21 As Global.System.Data.DataColumn + + Private columnN22 As Global.System.Data.DataColumn + + Private columnN2C As Global.System.Data.DataColumn + + Private columnN30 As Global.System.Data.DataColumn + + Private columnN3J As Global.System.Data.DataColumn + + Private columnN3K As Global.System.Data.DataColumn + + Private columnN3B As Global.System.Data.DataColumn + + Private columnN31 As Global.System.Data.DataColumn + + Private columnN32 As Global.System.Data.DataColumn + + Private columnN3C As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Detail_CableLabel" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 순번Column() As Global.System.Data.DataColumn + Get + Return Me.column순번 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn + Get + Return Me.column비고4 + End Get + End Property + + _ + Public ReadOnly Property 비고5Column() As Global.System.Data.DataColumn + Get + Return Me.column비고5 + End Get + End Property + + _ + Public ReadOnly Property 비고6Column() As Global.System.Data.DataColumn + Get + Return Me.column비고6 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property N10Column() As Global.System.Data.DataColumn + Get + Return Me.columnN10 + End Get + End Property + + _ + Public ReadOnly Property N1DColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN1D + End Get + End Property + + _ + Public ReadOnly Property N1SColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN1S + End Get + End Property + + _ + Public ReadOnly Property N1LColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN1L + End Get + End Property + + _ + Public ReadOnly Property N1H1Column() As Global.System.Data.DataColumn + Get + Return Me.columnN1H1 + End Get + End Property + + _ + Public ReadOnly Property N1H2Column() As Global.System.Data.DataColumn + Get + Return Me.columnN1H2 + End Get + End Property + + _ + Public ReadOnly Property N20Column() As Global.System.Data.DataColumn + Get + Return Me.columnN20 + End Get + End Property + + _ + Public ReadOnly Property N2JColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN2J + End Get + End Property + + _ + Public ReadOnly Property N2KColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN2K + End Get + End Property + + _ + Public ReadOnly Property N2BColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN2B + End Get + End Property + + _ + Public ReadOnly Property N21Column() As Global.System.Data.DataColumn + Get + Return Me.columnN21 + End Get + End Property + + _ + Public ReadOnly Property N22Column() As Global.System.Data.DataColumn + Get + Return Me.columnN22 + End Get + End Property + + _ + Public ReadOnly Property N2CColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN2C + End Get + End Property + + _ + Public ReadOnly Property N30Column() As Global.System.Data.DataColumn + Get + Return Me.columnN30 + End Get + End Property + + _ + Public ReadOnly Property N3JColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN3J + End Get + End Property + + _ + Public ReadOnly Property N3KColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN3K + End Get + End Property + + _ + Public ReadOnly Property N3BColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN3B + End Get + End Property + + _ + Public ReadOnly Property N31Column() As Global.System.Data.DataColumn + Get + Return Me.columnN31 + End Get + End Property + + _ + Public ReadOnly Property N32Column() As Global.System.Data.DataColumn + Get + Return Me.columnN32 + End Get + End Property + + _ + Public ReadOnly Property N3CColumn() As Global.System.Data.DataColumn + Get + Return Me.columnN3C + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_CableLabelRow + Get + Return CType(Me.Rows(index),Detail_CableLabelRow) + End Get + End Property + + _ + Public Event Detail_CableLabelRowChanging As Detail_CableLabelRowChangeEventHandler + + _ + Public Event Detail_CableLabelRowChanged As Detail_CableLabelRowChangeEventHandler + + _ + Public Event Detail_CableLabelRowDeleting As Detail_CableLabelRowChangeEventHandler + + _ + Public Event Detail_CableLabelRowDeleted As Detail_CableLabelRowChangeEventHandler + + _ + Public Overloads Sub AddDetail_CableLabelRow(ByVal row As Detail_CableLabelRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_CableLabelRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Double, _ + ByVal 번호 As Double, _ + ByVal 순번 As Double, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal N10 As String, _ + ByVal N1D As String, _ + ByVal N1S As String, _ + ByVal N1L As String, _ + ByVal N1H1 As String, _ + ByVal N1H2 As String, _ + ByVal N20 As String, _ + ByVal N2J As String, _ + ByVal N2K As String, _ + ByVal N2B As String, _ + ByVal N21 As String, _ + ByVal N22 As String, _ + ByVal N2C As String, _ + ByVal N30 As String, _ + ByVal N3J As String, _ + ByVal N3K As String, _ + ByVal N3B As String, _ + ByVal N31 As String, _ + ByVal N32 As String, _ + ByVal N3C As String) As Detail_CableLabelRow + Dim rowDetail_CableLabelRow As Detail_CableLabelRow = CType(Me.NewRow,Detail_CableLabelRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 순번, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, N10, N1D, N1S, N1L, N1H1, N1H2, N20, N2J, N2K, N2B, N21, N22, N2C, N30, N3J, N3K, N3B, N31, N32, N3C} + rowDetail_CableLabelRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_CableLabelRow) + Return rowDetail_CableLabelRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_CableLabelRow + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_CableLabelRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_CableLabelDataTable = CType(MyBase.Clone,Detail_CableLabelDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_CableLabelDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column순번 = MyBase.Columns("순번") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column비고4 = MyBase.Columns("비고4") + Me.column비고5 = MyBase.Columns("비고5") + Me.column비고6 = MyBase.Columns("비고6") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + Me.columnN10 = MyBase.Columns("N10") + Me.columnN1D = MyBase.Columns("N1D") + Me.columnN1S = MyBase.Columns("N1S") + Me.columnN1L = MyBase.Columns("N1L") + Me.columnN1H1 = MyBase.Columns("N1H1") + Me.columnN1H2 = MyBase.Columns("N1H2") + Me.columnN20 = MyBase.Columns("N20") + Me.columnN2J = MyBase.Columns("N2J") + Me.columnN2K = MyBase.Columns("N2K") + Me.columnN2B = MyBase.Columns("N2B") + Me.columnN21 = MyBase.Columns("N21") + Me.columnN22 = MyBase.Columns("N22") + Me.columnN2C = MyBase.Columns("N2C") + Me.columnN30 = MyBase.Columns("N30") + Me.columnN3J = MyBase.Columns("N3J") + Me.columnN3K = MyBase.Columns("N3K") + Me.columnN3B = MyBase.Columns("N3B") + Me.columnN31 = MyBase.Columns("N31") + Me.columnN32 = MyBase.Columns("N32") + Me.columnN3C = MyBase.Columns("N3C") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column순번 = New Global.System.Data.DataColumn("순번", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column순번) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고4) + Me.column비고5 = New Global.System.Data.DataColumn("비고5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고5) + Me.column비고6 = New Global.System.Data.DataColumn("비고6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고6) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.columnN10 = New Global.System.Data.DataColumn("N10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN10) + Me.columnN1D = New Global.System.Data.DataColumn("N1D", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN1D) + Me.columnN1S = New Global.System.Data.DataColumn("N1S", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN1S) + Me.columnN1L = New Global.System.Data.DataColumn("N1L", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN1L) + Me.columnN1H1 = New Global.System.Data.DataColumn("N1H1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN1H1) + Me.columnN1H2 = New Global.System.Data.DataColumn("N1H2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN1H2) + Me.columnN20 = New Global.System.Data.DataColumn("N20", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN20) + Me.columnN2J = New Global.System.Data.DataColumn("N2J", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN2J) + Me.columnN2K = New Global.System.Data.DataColumn("N2K", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN2K) + Me.columnN2B = New Global.System.Data.DataColumn("N2B", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN2B) + Me.columnN21 = New Global.System.Data.DataColumn("N21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN21) + Me.columnN22 = New Global.System.Data.DataColumn("N22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN22) + Me.columnN2C = New Global.System.Data.DataColumn("N2C", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN2C) + Me.columnN30 = New Global.System.Data.DataColumn("N30", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN30) + Me.columnN3J = New Global.System.Data.DataColumn("N3J", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN3J) + Me.columnN3K = New Global.System.Data.DataColumn("N3K", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN3K) + Me.columnN3B = New Global.System.Data.DataColumn("N3B", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN3B) + Me.columnN31 = New Global.System.Data.DataColumn("N31", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN31) + Me.columnN32 = New Global.System.Data.DataColumn("N32", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN32) + Me.columnN3C = New Global.System.Data.DataColumn("N3C", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnN3C) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column비고1.DefaultValue = CType("",String) + Me.column비고1.MaxLength = 50 + Me.column비고2.DefaultValue = CType("",String) + Me.column비고2.MaxLength = 50 + Me.column비고3.DefaultValue = CType("",String) + Me.column비고3.MaxLength = 50 + Me.column비고4.DefaultValue = CType("",String) + Me.column비고4.MaxLength = 50 + Me.column비고5.DefaultValue = CType("",String) + Me.column비고5.MaxLength = 50 + Me.column비고6.DefaultValue = CType("",String) + Me.column비고6.MaxLength = 50 + Me.column정렬번호.DefaultValue = CType("",String) + Me.column정렬번호.MaxLength = 50 + Me.column출력.DefaultValue = CType(true,Boolean) + Me.columnN10.DefaultValue = CType("",String) + Me.columnN10.MaxLength = 20 + Me.columnN1D.DefaultValue = CType("",String) + Me.columnN1D.MaxLength = 20 + Me.columnN1S.DefaultValue = CType("",String) + Me.columnN1S.MaxLength = 20 + Me.columnN1L.DefaultValue = CType("",String) + Me.columnN1L.MaxLength = 20 + Me.columnN1H1.DefaultValue = CType("",String) + Me.columnN1H1.MaxLength = 20 + Me.columnN1H2.DefaultValue = CType("",String) + Me.columnN1H2.MaxLength = 20 + Me.columnN20.DefaultValue = CType("",String) + Me.columnN20.MaxLength = 20 + Me.columnN2J.DefaultValue = CType("",String) + Me.columnN2J.MaxLength = 20 + Me.columnN2K.DefaultValue = CType("",String) + Me.columnN2K.MaxLength = 20 + Me.columnN2B.DefaultValue = CType("",String) + Me.columnN2B.MaxLength = 20 + Me.columnN21.DefaultValue = CType("",String) + Me.columnN21.MaxLength = 20 + Me.columnN22.DefaultValue = CType("",String) + Me.columnN22.MaxLength = 20 + Me.columnN2C.DefaultValue = CType("",String) + Me.columnN2C.MaxLength = 20 + Me.columnN30.DefaultValue = CType("",String) + Me.columnN30.MaxLength = 20 + Me.columnN3J.DefaultValue = CType("",String) + Me.columnN3J.MaxLength = 20 + Me.columnN3K.DefaultValue = CType("",String) + Me.columnN3K.MaxLength = 20 + Me.columnN3B.DefaultValue = CType("",String) + Me.columnN3B.MaxLength = 20 + Me.columnN31.DefaultValue = CType("",String) + Me.columnN31.MaxLength = 20 + Me.columnN32.DefaultValue = CType("",String) + Me.columnN32.MaxLength = 20 + Me.columnN3C.DefaultValue = CType("",String) + Me.columnN3C.MaxLength = 20 + End Sub + + _ + Public Function NewDetail_CableLabelRow() As Detail_CableLabelRow + Return CType(Me.NewRow,Detail_CableLabelRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_CableLabelRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_CableLabelRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_CableLabelRowChangedEvent) Is Nothing) Then + RaiseEvent Detail_CableLabelRowChanged(Me, New Detail_CableLabelRowChangeEvent(CType(e.Row,Detail_CableLabelRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_CableLabelRowChangingEvent) Is Nothing) Then + RaiseEvent Detail_CableLabelRowChanging(Me, New Detail_CableLabelRowChangeEvent(CType(e.Row,Detail_CableLabelRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_CableLabelRowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_CableLabelRowDeleted(Me, New Detail_CableLabelRowChangeEvent(CType(e.Row,Detail_CableLabelRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_CableLabelRowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_CableLabelRowDeleting(Me, New Detail_CableLabelRowChangeEvent(CType(e.Row,Detail_CableLabelRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_CableLabelRow(ByVal row As Detail_CableLabelRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_CableLabelDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class Detail_kikiDataTable + Inherits Global.System.Data.TypedTableBase(Of Detail_kikiRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전주번호 As Global.System.Data.DataColumn + + Private column선로명 As Global.System.Data.DataColumn + + Private column번호1 As Global.System.Data.DataColumn + + Private column번호2 As Global.System.Data.DataColumn + + Private column번호3 As Global.System.Data.DataColumn + + Private column번호4 As Global.System.Data.DataColumn + + Private column번호5 As Global.System.Data.DataColumn + + Private column전주현행번호 As Global.System.Data.DataColumn + + Private column회선11 As Global.System.Data.DataColumn + + Private column회선12 As Global.System.Data.DataColumn + + Private column회선13 As Global.System.Data.DataColumn + + Private column회선14 As Global.System.Data.DataColumn + + Private column회선15 As Global.System.Data.DataColumn + + Private column회선21 As Global.System.Data.DataColumn + + Private column회선22 As Global.System.Data.DataColumn + + Private column회선23 As Global.System.Data.DataColumn + + Private column회선24 As Global.System.Data.DataColumn + + Private column회선25 As Global.System.Data.DataColumn + + Private column회선31 As Global.System.Data.DataColumn + + Private column회선32 As Global.System.Data.DataColumn + + Private column회선33 As Global.System.Data.DataColumn + + Private column회선34 As Global.System.Data.DataColumn + + Private column회선35 As Global.System.Data.DataColumn + + Private column회선36 As Global.System.Data.DataColumn + + Private column인쇄 As Global.System.Data.DataColumn + + Private column대규격 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column문자1 As Global.System.Data.DataColumn + + Private column문자2 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column비고4 As Global.System.Data.DataColumn + + Private column비고5 As Global.System.Data.DataColumn + + Private column비고6 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private column회선10 As Global.System.Data.DataColumn + + Private column회선20 As Global.System.Data.DataColumn + + Private column회선30 As Global.System.Data.DataColumn + + _ + Public Sub New() + Me.New(false) + End Sub + + _ + Public Sub New(ByVal initExpressions As Boolean) + MyBase.New + Me.TableName = "Detail_kiki" + Me.BeginInit + Me.InitClass + If (initExpressions = true) Then + Me.InitExpressions + End If + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전주번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전주번호 + End Get + End Property + + _ + Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column선로명 + End Get + End Property + + _ + Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column번호1 + End Get + End Property + + _ + Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column번호2 + End Get + End Property + + _ + Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column번호3 + End Get + End Property + + _ + Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn + Get + Return Me.column번호4 + End Get + End Property + + _ + Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn + Get + Return Me.column번호5 + End Get + End Property + + _ + Public ReadOnly Property 전주현행번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전주현행번호 + End Get + End Property + + _ + Public ReadOnly Property 회선11Column() As Global.System.Data.DataColumn + Get + Return Me.column회선11 + End Get + End Property + + _ + Public ReadOnly Property 회선12Column() As Global.System.Data.DataColumn + Get + Return Me.column회선12 + End Get + End Property + + _ + Public ReadOnly Property 회선13Column() As Global.System.Data.DataColumn + Get + Return Me.column회선13 + End Get + End Property + + _ + Public ReadOnly Property 회선14Column() As Global.System.Data.DataColumn + Get + Return Me.column회선14 + End Get + End Property + + _ + Public ReadOnly Property 회선15Column() As Global.System.Data.DataColumn + Get + Return Me.column회선15 + End Get + End Property + + _ + Public ReadOnly Property 회선21Column() As Global.System.Data.DataColumn + Get + Return Me.column회선21 + End Get + End Property + + _ + Public ReadOnly Property 회선22Column() As Global.System.Data.DataColumn + Get + Return Me.column회선22 + End Get + End Property + + _ + Public ReadOnly Property 회선23Column() As Global.System.Data.DataColumn + Get + Return Me.column회선23 + End Get + End Property + + _ + Public ReadOnly Property 회선24Column() As Global.System.Data.DataColumn + Get + Return Me.column회선24 + End Get + End Property + + _ + Public ReadOnly Property 회선25Column() As Global.System.Data.DataColumn + Get + Return Me.column회선25 + End Get + End Property + + _ + Public ReadOnly Property 회선31Column() As Global.System.Data.DataColumn + Get + Return Me.column회선31 + End Get + End Property + + _ + Public ReadOnly Property 회선32Column() As Global.System.Data.DataColumn + Get + Return Me.column회선32 + End Get + End Property + + _ + Public ReadOnly Property 회선33Column() As Global.System.Data.DataColumn + Get + Return Me.column회선33 + End Get + End Property + + _ + Public ReadOnly Property 회선34Column() As Global.System.Data.DataColumn + Get + Return Me.column회선34 + End Get + End Property + + _ + Public ReadOnly Property 회선35Column() As Global.System.Data.DataColumn + Get + Return Me.column회선35 + End Get + End Property + + _ + Public ReadOnly Property 회선36Column() As Global.System.Data.DataColumn + Get + Return Me.column회선36 + End Get + End Property + + _ + Public ReadOnly Property 인쇄Column() As Global.System.Data.DataColumn + Get + Return Me.column인쇄 + End Get + End Property + + _ + Public ReadOnly Property 대규격Column() As Global.System.Data.DataColumn + Get + Return Me.column대규격 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 문자1Column() As Global.System.Data.DataColumn + Get + Return Me.column문자1 + End Get + End Property + + _ + Public ReadOnly Property 문자2Column() As Global.System.Data.DataColumn + Get + Return Me.column문자2 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 비고4Column() As Global.System.Data.DataColumn + Get + Return Me.column비고4 + End Get + End Property + + _ + Public ReadOnly Property 비고5Column() As Global.System.Data.DataColumn + Get + Return Me.column비고5 + End Get + End Property + + _ + Public ReadOnly Property 비고6Column() As Global.System.Data.DataColumn + Get + Return Me.column비고6 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property 회선10Column() As Global.System.Data.DataColumn + Get + Return Me.column회선10 + End Get + End Property + + _ + Public ReadOnly Property 회선20Column() As Global.System.Data.DataColumn + Get + Return Me.column회선20 + End Get + End Property + + _ + Public ReadOnly Property 회선30Column() As Global.System.Data.DataColumn + Get + Return Me.column회선30 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As Detail_kikiRow + Get + Return CType(Me.Rows(index),Detail_kikiRow) + End Get + End Property + + _ + Public Event Detail_kikiRowChanging As Detail_kikiRowChangeEventHandler + + _ + Public Event Detail_kikiRowChanged As Detail_kikiRowChangeEventHandler + + _ + Public Event Detail_kikiRowDeleting As Detail_kikiRowChangeEventHandler + + _ + Public Event Detail_kikiRowDeleted As Detail_kikiRowChangeEventHandler + + _ + Public Overloads Sub AddDetail_kikiRow(ByVal row As Detail_kikiRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDetail_kikiRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Double, _ + ByVal 번호 As Double, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 전주현행번호 As String, _ + ByVal 회선11 As String, _ + ByVal 회선12 As String, _ + ByVal 회선13 As String, _ + ByVal 회선14 As String, _ + ByVal 회선15 As String, _ + ByVal 회선21 As String, _ + ByVal 회선22 As String, _ + ByVal 회선23 As String, _ + ByVal 회선24 As String, _ + ByVal 회선25 As String, _ + ByVal 회선31 As String, _ + ByVal 회선32 As String, _ + ByVal 회선33 As String, _ + ByVal 회선34 As String, _ + ByVal 회선35 As String, _ + ByVal 회선36 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 대규격 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 출력 As Boolean, _ + ByVal 회선10 As String, _ + ByVal 회선20 As String, _ + ByVal 회선30 As String) As Detail_kikiRow + Dim rowDetail_kikiRow As Detail_kikiRow = CType(Me.NewRow,Detail_kikiRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 전주현행번호, 회선11, 회선12, 회선13, 회선14, 회선15, 회선21, 회선22, 회선23, 회선24, 회선25, 회선31, 회선32, 회선33, 회선34, 회선35, 회선36, 인쇄, 대규격, 정렬번호, 문자1, 문자2, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 출력, 회선10, 회선20, 회선30} + rowDetail_kikiRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_kikiRow) + Return rowDetail_kikiRow + End Function + + _ + Public Overloads Function AddDetail_kikiRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Double, _ + ByVal 번호 As Double, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 전주현행번호 As String, _ + ByVal 회선11 As String, _ + ByVal 회선12 As String, _ + ByVal 회선13 As String, _ + ByVal 회선14 As String, _ + ByVal 회선15 As String, _ + ByVal 회선21 As String, _ + ByVal 회선22 As String, _ + ByVal 회선23 As String, _ + ByVal 회선24 As String, _ + ByVal 회선25 As String, _ + ByVal 회선31 As String, _ + ByVal 회선32 As String, _ + ByVal 회선33 As String, _ + ByVal 회선34 As String, _ + ByVal 회선35 As String, _ + ByVal 회선36 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 대규격 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 출력 As Boolean) As Detail_kikiRow + Dim rowDetail_kikiRow As Detail_kikiRow = CType(Me.NewRow,Detail_kikiRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 전주현행번호, 회선11, 회선12, 회선13, 회선14, 회선15, 회선21, 회선22, 회선23, 회선24, 회선25, 회선31, 회선32, 회선33, 회선34, 회선35, 회선36, 인쇄, 대규격, 정렬번호, 문자1, 문자2, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 출력, Nothing, Nothing, Nothing} + rowDetail_kikiRow.ItemArray = columnValuesArray + Me.Rows.Add(rowDetail_kikiRow) + Return rowDetail_kikiRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As Detail_kikiRow + Return CType(Me.Rows.Find(New Object() {rowid}),Detail_kikiRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As Detail_kikiDataTable = CType(MyBase.Clone,Detail_kikiDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New Detail_kikiDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전주번호 = MyBase.Columns("전주번호") + Me.column선로명 = MyBase.Columns("선로명") + Me.column번호1 = MyBase.Columns("번호1") + Me.column번호2 = MyBase.Columns("번호2") + Me.column번호3 = MyBase.Columns("번호3") + Me.column번호4 = MyBase.Columns("번호4") + Me.column번호5 = MyBase.Columns("번호5") + Me.column전주현행번호 = MyBase.Columns("전주현행번호") + Me.column회선11 = MyBase.Columns("회선11") + Me.column회선12 = MyBase.Columns("회선12") + Me.column회선13 = MyBase.Columns("회선13") + Me.column회선14 = MyBase.Columns("회선14") + Me.column회선15 = MyBase.Columns("회선15") + Me.column회선21 = MyBase.Columns("회선21") + Me.column회선22 = MyBase.Columns("회선22") + Me.column회선23 = MyBase.Columns("회선23") + Me.column회선24 = MyBase.Columns("회선24") + Me.column회선25 = MyBase.Columns("회선25") + Me.column회선31 = MyBase.Columns("회선31") + Me.column회선32 = MyBase.Columns("회선32") + Me.column회선33 = MyBase.Columns("회선33") + Me.column회선34 = MyBase.Columns("회선34") + Me.column회선35 = MyBase.Columns("회선35") + Me.column회선36 = MyBase.Columns("회선36") + Me.column인쇄 = MyBase.Columns("인쇄") + Me.column대규격 = MyBase.Columns("대규격") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column문자1 = MyBase.Columns("문자1") + Me.column문자2 = MyBase.Columns("문자2") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column비고4 = MyBase.Columns("비고4") + Me.column비고5 = MyBase.Columns("비고5") + Me.column비고6 = MyBase.Columns("비고6") + Me.column출력 = MyBase.Columns("출력") + Me.column회선10 = MyBase.Columns("회선10") + Me.column회선20 = MyBase.Columns("회선20") + Me.column회선30 = MyBase.Columns("회선30") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전주번호 = New Global.System.Data.DataColumn("전주번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주번호) + Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로명) + Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호1) + Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호2) + Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호3) + Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호4) + Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호5) + Me.column전주현행번호 = New Global.System.Data.DataColumn("전주현행번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전주현행번호) + Me.column회선11 = New Global.System.Data.DataColumn("회선11", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선11) + Me.column회선12 = New Global.System.Data.DataColumn("회선12", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선12) + Me.column회선13 = New Global.System.Data.DataColumn("회선13", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선13) + Me.column회선14 = New Global.System.Data.DataColumn("회선14", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선14) + Me.column회선15 = New Global.System.Data.DataColumn("회선15", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선15) + Me.column회선21 = New Global.System.Data.DataColumn("회선21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선21) + Me.column회선22 = New Global.System.Data.DataColumn("회선22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선22) + Me.column회선23 = New Global.System.Data.DataColumn("회선23", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선23) + Me.column회선24 = New Global.System.Data.DataColumn("회선24", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선24) + Me.column회선25 = New Global.System.Data.DataColumn("회선25", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선25) + Me.column회선31 = New Global.System.Data.DataColumn("회선31", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선31) + Me.column회선32 = New Global.System.Data.DataColumn("회선32", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선32) + Me.column회선33 = New Global.System.Data.DataColumn("회선33", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선33) + Me.column회선34 = New Global.System.Data.DataColumn("회선34", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선34) + Me.column회선35 = New Global.System.Data.DataColumn("회선35", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선35) + Me.column회선36 = New Global.System.Data.DataColumn("회선36", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선36) + Me.column인쇄 = New Global.System.Data.DataColumn("인쇄", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column인쇄) + Me.column대규격 = New Global.System.Data.DataColumn("대규격", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column대규격) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column문자1 = New Global.System.Data.DataColumn("문자1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자1) + Me.column문자2 = New Global.System.Data.DataColumn("문자2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column문자2) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column비고4 = New Global.System.Data.DataColumn("비고4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고4) + Me.column비고5 = New Global.System.Data.DataColumn("비고5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고5) + Me.column비고6 = New Global.System.Data.DataColumn("비고6", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고6) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.column회선10 = New Global.System.Data.DataColumn("회선10", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선10) + Me.column회선20 = New Global.System.Data.DataColumn("회선20", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선20) + Me.column회선30 = New Global.System.Data.DataColumn("회선30", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column회선30) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column관리ID.DefaultValue = CType(0R,Double) + Me.column번호.DefaultValue = CType(0R,Double) + Me.column관리구.DefaultValue = CType("",String) + Me.column관리구.MaxLength = 50 + Me.column전주번호.DefaultValue = CType("",String) + Me.column전주번호.MaxLength = 50 + Me.column선로명.DefaultValue = CType("",String) + Me.column선로명.MaxLength = 50 + Me.column번호1.DefaultValue = CType("",String) + Me.column번호1.MaxLength = 50 + Me.column번호2.DefaultValue = CType("",String) + Me.column번호2.MaxLength = 50 + Me.column번호3.DefaultValue = CType("",String) + Me.column번호3.MaxLength = 50 + Me.column번호4.DefaultValue = CType("",String) + Me.column번호4.MaxLength = 50 + Me.column번호5.DefaultValue = CType("",String) + Me.column번호5.MaxLength = 50 + Me.column전주현행번호.DefaultValue = CType("",String) + Me.column전주현행번호.MaxLength = 50 + Me.column회선11.DefaultValue = CType("",String) + Me.column회선11.MaxLength = 50 + Me.column회선12.DefaultValue = CType("",String) + Me.column회선12.MaxLength = 50 + Me.column회선13.DefaultValue = CType("",String) + Me.column회선13.MaxLength = 100 + Me.column회선14.DefaultValue = CType("",String) + Me.column회선14.MaxLength = 100 + Me.column회선15.DefaultValue = CType("",String) + Me.column회선15.MaxLength = 100 + Me.column회선21.DefaultValue = CType("",String) + Me.column회선21.MaxLength = 50 + Me.column회선22.DefaultValue = CType("",String) + Me.column회선22.MaxLength = 50 + Me.column회선23.DefaultValue = CType("",String) + Me.column회선23.MaxLength = 50 + Me.column회선24.DefaultValue = CType("",String) + Me.column회선24.MaxLength = 50 + Me.column회선25.DefaultValue = CType("",String) + Me.column회선25.MaxLength = 100 + Me.column회선31.DefaultValue = CType("",String) + Me.column회선31.MaxLength = 50 + Me.column회선32.DefaultValue = CType("",String) + Me.column회선32.MaxLength = 50 + Me.column회선33.DefaultValue = CType("",String) + Me.column회선33.MaxLength = 50 + Me.column회선34.DefaultValue = CType("",String) + Me.column회선34.MaxLength = 50 + Me.column회선35.DefaultValue = CType("",String) + Me.column회선35.MaxLength = 50 + Me.column회선36.DefaultValue = CType("",String) + Me.column회선36.MaxLength = 50 + Me.column인쇄.DefaultValue = CType(false,Boolean) + Me.column대규격.DefaultValue = CType(false,Boolean) + Me.column정렬번호.DefaultValue = CType("",String) + Me.column정렬번호.MaxLength = 50 + Me.column문자1.DefaultValue = CType("",String) + Me.column문자1.MaxLength = 50 + Me.column문자2.DefaultValue = CType("",String) + Me.column문자2.MaxLength = 50 + Me.column비고1.DefaultValue = CType("",String) + Me.column비고1.MaxLength = 50 + Me.column비고2.DefaultValue = CType("",String) + Me.column비고2.MaxLength = 50 + Me.column비고3.DefaultValue = CType("",String) + Me.column비고3.MaxLength = 50 + Me.column비고4.DefaultValue = CType("",String) + Me.column비고4.MaxLength = 50 + Me.column비고5.DefaultValue = CType("",String) + Me.column비고5.MaxLength = 50 + Me.column비고6.DefaultValue = CType("",String) + Me.column비고6.MaxLength = 50 + Me.column회선10.ReadOnly = true + Me.column회선10.DefaultValue = CType("",String) + Me.column회선20.ReadOnly = true + Me.column회선20.DefaultValue = CType("",String) + Me.column회선30.ReadOnly = true + Me.column회선30.DefaultValue = CType("",String) + End Sub + + _ + Public Function NewDetail_kikiRow() As Detail_kikiRow + Return CType(Me.NewRow,Detail_kikiRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New Detail_kikiRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(Detail_kikiRow) + End Function + + _ + Private Sub InitExpressions() + Me.회선10Column.Expression = "isnull(회선11,'')+isnull(회선12,'')+isnull(회선13,'')+isnull(회선14,'')+isnull(회선15,'')" + Me.회선20Column.Expression = "isnull(회선21,'')+isnull(회선22,'')+isnull(회선23,'')+isnull(회선24,'')+isnull(회선25,'')" + Me.회선30Column.Expression = "isnull(회선31,'')+isnull(회선32,'')+isnull(회선33,'')+isnull(회선34,'')+isnull(회선35,'')" + End Sub + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.Detail_kikiRowChangedEvent) Is Nothing) Then + RaiseEvent Detail_kikiRowChanged(Me, New Detail_kikiRowChangeEvent(CType(e.Row,Detail_kikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.Detail_kikiRowChangingEvent) Is Nothing) Then + RaiseEvent Detail_kikiRowChanging(Me, New Detail_kikiRowChangeEvent(CType(e.Row,Detail_kikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.Detail_kikiRowDeletedEvent) Is Nothing) Then + RaiseEvent Detail_kikiRowDeleted(Me, New Detail_kikiRowChangeEvent(CType(e.Row,Detail_kikiRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.Detail_kikiRowDeletingEvent) Is Nothing) Then + RaiseEvent Detail_kikiRowDeleting(Me, New Detail_kikiRowChangeEvent(CType(e.Row,Detail_kikiRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDetail_kikiRow(ByVal row As Detail_kikiRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "Detail_kikiDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class jjungtableDataTable + Inherits Global.System.Data.TypedTableBase(Of jjungtableRow) + + Private columnrowid As Global.System.Data.DataColumn + + Private column관리ID As Global.System.Data.DataColumn + + Private column번호 As Global.System.Data.DataColumn + + Private column관리구 As Global.System.Data.DataColumn + + Private column전산화번호 As Global.System.Data.DataColumn + + Private column선로명 As Global.System.Data.DataColumn + + Private column번호1 As Global.System.Data.DataColumn + + Private column번호2 As Global.System.Data.DataColumn + + Private column번호3 As Global.System.Data.DataColumn + + Private column번호4 As Global.System.Data.DataColumn + + Private column번호5 As Global.System.Data.DataColumn + + Private column비고1 As Global.System.Data.DataColumn + + Private column비고0 As Global.System.Data.DataColumn + + Private column비고2 As Global.System.Data.DataColumn + + Private column비고3 As Global.System.Data.DataColumn + + Private column변압기상 As Global.System.Data.DataColumn + + Private column변압기용량 As Global.System.Data.DataColumn + + Private column시공업체 As Global.System.Data.DataColumn + + Private column시공년월 As Global.System.Data.DataColumn + + Private column정렬번호 As Global.System.Data.DataColumn + + Private column출력 As Global.System.Data.DataColumn + + Private column관리구2 As Global.System.Data.DataColumn + + Private column전산번호2 As Global.System.Data.DataColumn + + Private column변압기명 As Global.System.Data.DataColumn + + Private column전원측 As Global.System.Data.DataColumn + + Private column부하측 As Global.System.Data.DataColumn + + Private column비고21 As Global.System.Data.DataColumn + + Private column비고22 As Global.System.Data.DataColumn + + Private column변압기선로 As Global.System.Data.DataColumn + + Private column제조년월 As Global.System.Data.DataColumn + + Private column제조회사 As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "jjungtable" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property rowidColumn() As Global.System.Data.DataColumn + Get + Return Me.columnrowid + End Get + End Property + + _ + Public ReadOnly Property 관리IDColumn() As Global.System.Data.DataColumn + Get + Return Me.column관리ID + End Get + End Property + + _ + Public ReadOnly Property 번호Column() As Global.System.Data.DataColumn + Get + Return Me.column번호 + End Get + End Property + + _ + Public ReadOnly Property 관리구Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구 + End Get + End Property + + _ + Public ReadOnly Property 전산화번호Column() As Global.System.Data.DataColumn + Get + Return Me.column전산화번호 + End Get + End Property + + _ + Public ReadOnly Property 선로명Column() As Global.System.Data.DataColumn + Get + Return Me.column선로명 + End Get + End Property + + _ + Public ReadOnly Property 번호1Column() As Global.System.Data.DataColumn + Get + Return Me.column번호1 + End Get + End Property + + _ + Public ReadOnly Property 번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column번호2 + End Get + End Property + + _ + Public ReadOnly Property 번호3Column() As Global.System.Data.DataColumn + Get + Return Me.column번호3 + End Get + End Property + + _ + Public ReadOnly Property 번호4Column() As Global.System.Data.DataColumn + Get + Return Me.column번호4 + End Get + End Property + + _ + Public ReadOnly Property 번호5Column() As Global.System.Data.DataColumn + Get + Return Me.column번호5 + End Get + End Property + + _ + Public ReadOnly Property 비고1Column() As Global.System.Data.DataColumn + Get + Return Me.column비고1 + End Get + End Property + + _ + Public ReadOnly Property 비고0Column() As Global.System.Data.DataColumn + Get + Return Me.column비고0 + End Get + End Property + + _ + Public ReadOnly Property 비고2Column() As Global.System.Data.DataColumn + Get + Return Me.column비고2 + End Get + End Property + + _ + Public ReadOnly Property 비고3Column() As Global.System.Data.DataColumn + Get + Return Me.column비고3 + End Get + End Property + + _ + Public ReadOnly Property 변압기상Column() As Global.System.Data.DataColumn + Get + Return Me.column변압기상 + End Get + End Property + + _ + Public ReadOnly Property 변압기용량Column() As Global.System.Data.DataColumn + Get + Return Me.column변압기용량 + End Get + End Property + + _ + Public ReadOnly Property 시공업체Column() As Global.System.Data.DataColumn + Get + Return Me.column시공업체 + End Get + End Property + + _ + Public ReadOnly Property 시공년월Column() As Global.System.Data.DataColumn + Get + Return Me.column시공년월 + End Get + End Property + + _ + Public ReadOnly Property 정렬번호Column() As Global.System.Data.DataColumn + Get + Return Me.column정렬번호 + End Get + End Property + + _ + Public ReadOnly Property 출력Column() As Global.System.Data.DataColumn + Get + Return Me.column출력 + End Get + End Property + + _ + Public ReadOnly Property 관리구2Column() As Global.System.Data.DataColumn + Get + Return Me.column관리구2 + End Get + End Property + + _ + Public ReadOnly Property 전산번호2Column() As Global.System.Data.DataColumn + Get + Return Me.column전산번호2 + End Get + End Property + + _ + Public ReadOnly Property 변압기명Column() As Global.System.Data.DataColumn + Get + Return Me.column변압기명 + End Get + End Property + + _ + Public ReadOnly Property 전원측Column() As Global.System.Data.DataColumn + Get + Return Me.column전원측 + End Get + End Property + + _ + Public ReadOnly Property 부하측Column() As Global.System.Data.DataColumn + Get + Return Me.column부하측 + End Get + End Property + + _ + Public ReadOnly Property 비고21Column() As Global.System.Data.DataColumn + Get + Return Me.column비고21 + End Get + End Property + + _ + Public ReadOnly Property 비고22Column() As Global.System.Data.DataColumn + Get + Return Me.column비고22 + End Get + End Property + + _ + Public ReadOnly Property 변압기선로Column() As Global.System.Data.DataColumn + Get + Return Me.column변압기선로 + End Get + End Property + + _ + Public ReadOnly Property 제조년월Column() As Global.System.Data.DataColumn + Get + Return Me.column제조년월 + End Get + End Property + + _ + Public ReadOnly Property 제조회사Column() As Global.System.Data.DataColumn + Get + Return Me.column제조회사 + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As jjungtableRow + Get + Return CType(Me.Rows(index),jjungtableRow) + End Get + End Property + + _ + Public Event jjungtableRowChanging As jjungtableRowChangeEventHandler + + _ + Public Event jjungtableRowChanged As jjungtableRowChangeEventHandler + + _ + Public Event jjungtableRowDeleting As jjungtableRowChangeEventHandler + + _ + Public Event jjungtableRowDeleted As jjungtableRowChangeEventHandler + + _ + Public Overloads Sub AddjjungtableRow(ByVal row As jjungtableRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddjjungtableRow( _ + ByVal rowid As System.Guid, _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 관리구 As String, _ + ByVal 전산화번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고0 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 변압기상 As String, _ + ByVal 변압기용량 As String, _ + ByVal 시공업체 As String, _ + ByVal 시공년월 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 관리구2 As String, _ + ByVal 전산번호2 As String, _ + ByVal 변압기명 As String, _ + ByVal 전원측 As String, _ + ByVal 부하측 As String, _ + ByVal 비고21 As String, _ + ByVal 비고22 As String, _ + ByVal 변압기선로 As String, _ + ByVal 제조년월 As String, _ + ByVal 제조회사 As String) As jjungtableRow + Dim rowjjungtableRow As jjungtableRow = CType(Me.NewRow,jjungtableRow) + Dim columnValuesArray() As Object = New Object() {rowid, 관리ID, 번호, 관리구, 전산화번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고0, 비고2, 비고3, 변압기상, 변압기용량, 시공업체, 시공년월, 정렬번호, 출력, 관리구2, 전산번호2, 변압기명, 전원측, 부하측, 비고21, 비고22, 변압기선로, 제조년월, 제조회사} + rowjjungtableRow.ItemArray = columnValuesArray + Me.Rows.Add(rowjjungtableRow) + Return rowjjungtableRow + End Function + + _ + Public Function FindByrowid(ByVal rowid As System.Guid) As jjungtableRow + Return CType(Me.Rows.Find(New Object() {rowid}),jjungtableRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As jjungtableDataTable = CType(MyBase.Clone,jjungtableDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New jjungtableDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnrowid = MyBase.Columns("rowid") + Me.column관리ID = MyBase.Columns("관리ID") + Me.column번호 = MyBase.Columns("번호") + Me.column관리구 = MyBase.Columns("관리구") + Me.column전산화번호 = MyBase.Columns("전산화번호") + Me.column선로명 = MyBase.Columns("선로명") + Me.column번호1 = MyBase.Columns("번호1") + Me.column번호2 = MyBase.Columns("번호2") + Me.column번호3 = MyBase.Columns("번호3") + Me.column번호4 = MyBase.Columns("번호4") + Me.column번호5 = MyBase.Columns("번호5") + Me.column비고1 = MyBase.Columns("비고1") + Me.column비고0 = MyBase.Columns("비고0") + Me.column비고2 = MyBase.Columns("비고2") + Me.column비고3 = MyBase.Columns("비고3") + Me.column변압기상 = MyBase.Columns("변압기상") + Me.column변압기용량 = MyBase.Columns("변압기용량") + Me.column시공업체 = MyBase.Columns("시공업체") + Me.column시공년월 = MyBase.Columns("시공년월") + Me.column정렬번호 = MyBase.Columns("정렬번호") + Me.column출력 = MyBase.Columns("출력") + Me.column관리구2 = MyBase.Columns("관리구2") + Me.column전산번호2 = MyBase.Columns("전산번호2") + Me.column변압기명 = MyBase.Columns("변압기명") + Me.column전원측 = MyBase.Columns("전원측") + Me.column부하측 = MyBase.Columns("부하측") + Me.column비고21 = MyBase.Columns("비고21") + Me.column비고22 = MyBase.Columns("비고22") + Me.column변압기선로 = MyBase.Columns("변압기선로") + Me.column제조년월 = MyBase.Columns("제조년월") + Me.column제조회사 = MyBase.Columns("제조회사") + End Sub + + _ + Private Sub InitClass() + Me.columnrowid = New Global.System.Data.DataColumn("rowid", GetType(Global.System.Guid), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnrowid) + Me.column관리ID = New Global.System.Data.DataColumn("관리ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리ID) + Me.column번호 = New Global.System.Data.DataColumn("번호", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호) + Me.column관리구 = New Global.System.Data.DataColumn("관리구", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구) + Me.column전산화번호 = New Global.System.Data.DataColumn("전산화번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산화번호) + Me.column선로명 = New Global.System.Data.DataColumn("선로명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column선로명) + Me.column번호1 = New Global.System.Data.DataColumn("번호1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호1) + Me.column번호2 = New Global.System.Data.DataColumn("번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호2) + Me.column번호3 = New Global.System.Data.DataColumn("번호3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호3) + Me.column번호4 = New Global.System.Data.DataColumn("번호4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호4) + Me.column번호5 = New Global.System.Data.DataColumn("번호5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column번호5) + Me.column비고1 = New Global.System.Data.DataColumn("비고1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고1) + Me.column비고0 = New Global.System.Data.DataColumn("비고0", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고0) + Me.column비고2 = New Global.System.Data.DataColumn("비고2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고2) + Me.column비고3 = New Global.System.Data.DataColumn("비고3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고3) + Me.column변압기상 = New Global.System.Data.DataColumn("변압기상", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column변압기상) + Me.column변압기용량 = New Global.System.Data.DataColumn("변압기용량", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column변압기용량) + Me.column시공업체 = New Global.System.Data.DataColumn("시공업체", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공업체) + Me.column시공년월 = New Global.System.Data.DataColumn("시공년월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column시공년월) + Me.column정렬번호 = New Global.System.Data.DataColumn("정렬번호", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column정렬번호) + Me.column출력 = New Global.System.Data.DataColumn("출력", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column출력) + Me.column관리구2 = New Global.System.Data.DataColumn("관리구2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column관리구2) + Me.column전산번호2 = New Global.System.Data.DataColumn("전산번호2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전산번호2) + Me.column변압기명 = New Global.System.Data.DataColumn("변압기명", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column변압기명) + Me.column전원측 = New Global.System.Data.DataColumn("전원측", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column전원측) + Me.column부하측 = New Global.System.Data.DataColumn("부하측", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column부하측) + Me.column비고21 = New Global.System.Data.DataColumn("비고21", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고21) + Me.column비고22 = New Global.System.Data.DataColumn("비고22", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column비고22) + Me.column변압기선로 = New Global.System.Data.DataColumn("변압기선로", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column변압기선로) + Me.column제조년월 = New Global.System.Data.DataColumn("제조년월", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column제조년월) + Me.column제조회사 = New Global.System.Data.DataColumn("제조회사", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.column제조회사) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnrowid}, true)) + Me.columnrowid.AllowDBNull = false + Me.columnrowid.Unique = true + Me.column관리구.DefaultValue = CType("",String) + Me.column관리구.MaxLength = 10 + Me.column전산화번호.DefaultValue = CType("",String) + Me.column전산화번호.MaxLength = 10 + Me.column선로명.DefaultValue = CType("",String) + Me.column선로명.MaxLength = 20 + Me.column번호1.DefaultValue = CType("",String) + Me.column번호1.MaxLength = 20 + Me.column번호2.DefaultValue = CType("",String) + Me.column번호2.MaxLength = 10 + Me.column번호3.DefaultValue = CType("",String) + Me.column번호3.MaxLength = 10 + Me.column번호4.DefaultValue = CType("",String) + Me.column번호4.MaxLength = 10 + Me.column번호5.DefaultValue = CType("",String) + Me.column번호5.MaxLength = 10 + Me.column비고1.DefaultValue = CType("",String) + Me.column비고1.MaxLength = 10 + Me.column비고0.DefaultValue = CType("",String) + Me.column비고0.MaxLength = 50 + Me.column비고2.DefaultValue = CType("",String) + Me.column비고2.MaxLength = 10 + Me.column비고3.DefaultValue = CType("",String) + Me.column비고3.MaxLength = 10 + Me.column변압기상.DefaultValue = CType("",String) + Me.column변압기상.MaxLength = 5 + Me.column변압기용량.DefaultValue = CType("",String) + Me.column변압기용량.MaxLength = 20 + Me.column시공업체.DefaultValue = CType("",String) + Me.column시공업체.MaxLength = 20 + Me.column시공년월.DefaultValue = CType("",String) + Me.column시공년월.MaxLength = 10 + Me.column정렬번호.DefaultValue = CType("히히히000000000",String) + Me.column정렬번호.MaxLength = 50 + Me.column출력.DefaultValue = CType(true,Boolean) + Me.column관리구2.DefaultValue = CType("",String) + Me.column관리구2.MaxLength = 20 + Me.column전산번호2.DefaultValue = CType("",String) + Me.column전산번호2.MaxLength = 20 + Me.column변압기명.DefaultValue = CType("",String) + Me.column변압기명.MaxLength = 50 + Me.column전원측.DefaultValue = CType("",String) + Me.column전원측.MaxLength = 50 + Me.column부하측.DefaultValue = CType("",String) + Me.column부하측.MaxLength = 50 + Me.column비고21.DefaultValue = CType("",String) + Me.column비고21.MaxLength = 50 + Me.column비고22.DefaultValue = CType("",String) + Me.column비고22.MaxLength = 50 + Me.column변압기선로.DefaultValue = CType("",String) + Me.column변압기선로.MaxLength = 50 + Me.column제조년월.MaxLength = 50 + Me.column제조회사.MaxLength = 50 + End Sub + + _ + Public Function NewjjungtableRow() As jjungtableRow + Return CType(Me.NewRow,jjungtableRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New jjungtableRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(jjungtableRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.jjungtableRowChangedEvent) Is Nothing) Then + RaiseEvent jjungtableRowChanged(Me, New jjungtableRowChangeEvent(CType(e.Row,jjungtableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.jjungtableRowChangingEvent) Is Nothing) Then + RaiseEvent jjungtableRowChanging(Me, New jjungtableRowChangeEvent(CType(e.Row,jjungtableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.jjungtableRowDeletedEvent) Is Nothing) Then + RaiseEvent jjungtableRowDeleted(Me, New jjungtableRowChangeEvent(CType(e.Row,jjungtableRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.jjungtableRowDeletingEvent) Is Nothing) Then + RaiseEvent jjungtableRowDeleting(Me, New jjungtableRowChangeEvent(CType(e.Row,jjungtableRow), e.Action)) + End If + End Sub + + _ + Public Sub RemovejjungtableRow(ByVal row As jjungtableRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As ireaDataSet = New ireaDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "jjungtableDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class MainTableRow + Inherits Global.System.Data.DataRow + + Private tableMainTable As MainTableDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableMainTable = CType(Me.Table,MainTableDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableMainTable.IDColumn),Integer) + End Get + Set + Me(Me.tableMainTable.IDColumn) = value + End Set + End Property + + _ + Public Property 날짜() As Date + Get + Try + Return CType(Me(Me.tableMainTable.날짜Column),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '날짜' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.날짜Column) = value + End Set + End Property + + _ + Public Property 거래처명() As String + Get + If Me.Is거래처명Null Then + Return String.Empty + Else + Return CType(Me(Me.tableMainTable.거래처명Column),String) + End If + End Get + Set + Me(Me.tableMainTable.거래처명Column) = value + End Set + End Property + + _ + Public Property 비고() As String + Get + If Me.Is비고Null Then + Return String.Empty + Else + Return CType(Me(Me.tableMainTable.비고Column),String) + End If + End Get + Set + Me(Me.tableMainTable.비고Column) = value + End Set + End Property + + _ + Public Property 총수량() As Integer + Get + Try + Return CType(Me(Me.tableMainTable.총수량Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '총수량' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.총수량Column) = value + End Set + End Property + + _ + Public Property 단가() As Integer + Get + Try + Return CType(Me(Me.tableMainTable.단가Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '단가' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.단가Column) = value + End Set + End Property + + _ + Public Property 금액() As Integer + Get + Try + Return CType(Me(Me.tableMainTable.금액Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '금액' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.금액Column) = value + End Set + End Property + + _ + Public Property 번호찰구분() As Integer + Get + Try + Return CType(Me(Me.tableMainTable.번호찰구분Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '번호찰구분' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.번호찰구분Column) = value + End Set + End Property + + _ + Public Property 시공자() As String + Get + Try + Return CType(Me(Me.tableMainTable.시공자Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '시공자' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.시공자Column) = value + End Set + End Property + + _ + Public Property 홈페이지() As String + Get + Try + Return CType(Me(Me.tableMainTable.홈페이지Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '홈페이지' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.홈페이지Column) = value + End Set + End Property + + _ + Public Property 관리() As String + Get + Try + Return CType(Me(Me.tableMainTable.관리Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '관리' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.관리Column) = value + End Set + End Property + + _ + Public Property 관리1() As String + Get + Try + Return CType(Me(Me.tableMainTable.관리1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '관리1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.관리1Column) = value + End Set + End Property + + _ + Public Property 관리2() As String + Get + Try + Return CType(Me(Me.tableMainTable.관리2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'MainTable' 테이블의 '관리2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableMainTable.관리2Column) = value + End Set + End Property + + _ + Public Function Is날짜Null() As Boolean + Return Me.IsNull(Me.tableMainTable.날짜Column) + End Function + + _ + Public Sub Set날짜Null() + Me(Me.tableMainTable.날짜Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is거래처명Null() As Boolean + Return Me.IsNull(Me.tableMainTable.거래처명Column) + End Function + + _ + Public Sub Set거래처명Null() + Me(Me.tableMainTable.거래처명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고Null() As Boolean + Return Me.IsNull(Me.tableMainTable.비고Column) + End Function + + _ + Public Sub Set비고Null() + Me(Me.tableMainTable.비고Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is총수량Null() As Boolean + Return Me.IsNull(Me.tableMainTable.총수량Column) + End Function + + _ + Public Sub Set총수량Null() + Me(Me.tableMainTable.총수량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is단가Null() As Boolean + Return Me.IsNull(Me.tableMainTable.단가Column) + End Function + + _ + Public Sub Set단가Null() + Me(Me.tableMainTable.단가Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is금액Null() As Boolean + Return Me.IsNull(Me.tableMainTable.금액Column) + End Function + + _ + Public Sub Set금액Null() + Me(Me.tableMainTable.금액Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호찰구분Null() As Boolean + Return Me.IsNull(Me.tableMainTable.번호찰구분Column) + End Function + + _ + Public Sub Set번호찰구분Null() + Me(Me.tableMainTable.번호찰구분Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공자Null() As Boolean + Return Me.IsNull(Me.tableMainTable.시공자Column) + End Function + + _ + Public Sub Set시공자Null() + Me(Me.tableMainTable.시공자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is홈페이지Null() As Boolean + Return Me.IsNull(Me.tableMainTable.홈페이지Column) + End Function + + _ + Public Sub Set홈페이지Null() + Me(Me.tableMainTable.홈페이지Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리Null() As Boolean + Return Me.IsNull(Me.tableMainTable.관리Column) + End Function + + _ + Public Sub Set관리Null() + Me(Me.tableMainTable.관리Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리1Null() As Boolean + Return Me.IsNull(Me.tableMainTable.관리1Column) + End Function + + _ + Public Sub Set관리1Null() + Me(Me.tableMainTable.관리1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리2Null() As Boolean + Return Me.IsNull(Me.tableMainTable.관리2Column) + End Function + + _ + Public Sub Set관리2Null() + Me(Me.tableMainTable.관리2Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class EtcTableRow + Inherits Global.System.Data.DataRow + + Private tableEtcTable As EtcTableDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableEtcTable = CType(Me.Table,EtcTableDataTable) + End Sub + + _ + Public Property 관리ID() As Integer + Get + Try + Return CType(Me(Me.tableEtcTable.관리IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'EtcTable' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableEtcTable.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Integer + Get + Try + Return CType(Me(Me.tableEtcTable.번호Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'EtcTable' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableEtcTable.번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + If Me.Is관리구Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.관리구Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.관리구Column) = value + End Set + End Property + + _ + Public Property 전주번호() As String + Get + If Me.Is전주번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.전주번호Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.전주번호Column) = value + End Set + End Property + + _ + Public Property 선로명() As String + Get + If Me.Is선로명Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.선로명Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.선로명Column) = value + End Set + End Property + + _ + Public Property 번호1() As String + Get + If Me.Is번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.번호1Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.번호1Column) = value + End Set + End Property + + _ + Public Property 번호2() As String + Get + If Me.Is번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.번호2Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.번호2Column) = value + End Set + End Property + + _ + Public Property 번호3() As String + Get + If Me.Is번호3Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.번호3Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.번호3Column) = value + End Set + End Property + + _ + Public Property 번호4() As String + Get + If Me.Is번호4Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.번호4Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.번호4Column) = value + End Set + End Property + + _ + Public Property 번호5() As String + Get + If Me.Is번호5Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.번호5Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.번호5Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + If Me.Is비고1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.비고1Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.비고1Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + If Me.Is비고2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.비고2Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + If Me.Is비고3Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.비고3Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.비고3Column) = value + End Set + End Property + + _ + Public Property 비고4() As String + Get + If Me.Is비고4Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.비고4Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.비고4Column) = value + End Set + End Property + + _ + Public Property 담당자() As String + Get + If Me.Is담당자Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.담당자Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.담당자Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tableEtcTable.정렬번호Column),String) + End If + End Get + Set + Me(Me.tableEtcTable.정렬번호Column) = value + End Set + End Property + + _ + Public Property 선택() As Boolean + Get + Try + Return CType(Me(Me.tableEtcTable.선택Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'EtcTable' 테이블의 '선택' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableEtcTable.선택Column) = value + End Set + End Property + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableEtcTable.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableEtcTable.rowidColumn) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableEtcTable.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'EtcTable' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableEtcTable.출력Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableEtcTable.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableEtcTable.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableEtcTable.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tableEtcTable.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.전주번호Column) + End Function + + _ + Public Sub Set전주번호Null() + Me(Me.tableEtcTable.전주번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로명Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.선로명Column) + End Function + + _ + Public Sub Set선로명Null() + Me(Me.tableEtcTable.선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호1Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호1Column) + End Function + + _ + Public Sub Set번호1Null() + Me(Me.tableEtcTable.번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호2Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호2Column) + End Function + + _ + Public Sub Set번호2Null() + Me(Me.tableEtcTable.번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호3Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호3Column) + End Function + + _ + Public Sub Set번호3Null() + Me(Me.tableEtcTable.번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호4Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호4Column) + End Function + + _ + Public Sub Set번호4Null() + Me(Me.tableEtcTable.번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호5Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.번호5Column) + End Function + + _ + Public Sub Set번호5Null() + Me(Me.tableEtcTable.번호5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tableEtcTable.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tableEtcTable.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tableEtcTable.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고4Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.비고4Column) + End Function + + _ + Public Sub Set비고4Null() + Me(Me.tableEtcTable.비고4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is담당자Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.담당자Column) + End Function + + _ + Public Sub Set담당자Null() + Me(Me.tableEtcTable.담당자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableEtcTable.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선택Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.선택Column) + End Function + + _ + Public Sub Set선택Null() + Me(Me.tableEtcTable.선택Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableEtcTable.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableEtcTable.출력Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class jjutableRow + Inherits Global.System.Data.DataRow + + Private tablejjutable As jjutableDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablejjutable = CType(Me.Table,jjutableDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tablejjutable.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tablejjutable.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Integer + Get + Try + Return CType(Me(Me.tablejjutable.관리IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjutable' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjutable.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Integer + Get + Try + Return CType(Me(Me.tablejjutable.번호Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjutable' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjutable.번호Column) = value + End Set + End Property + + _ + Public Property 구관리구() As String + Get + If Me.Is구관리구Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.구관리구Column),String) + End If + End Get + Set + Me(Me.tablejjutable.구관리구Column) = value + End Set + End Property + + _ + Public Property 구전산번호() As String + Get + If Me.Is구전산번호Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.구전산번호Column),String) + End If + End Get + Set + Me(Me.tablejjutable.구전산번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + If Me.Is관리구Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.관리구Column),String) + End If + End Get + Set + Me(Me.tablejjutable.관리구Column) = value + End Set + End Property + + _ + Public Property 전주번호() As String + Get + If Me.Is전주번호Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.전주번호Column),String) + End If + End Get + Set + Me(Me.tablejjutable.전주번호Column) = value + End Set + End Property + + _ + Public Property 선로명() As String + Get + If Me.Is선로명Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.선로명Column),String) + End If + End Get + Set + Me(Me.tablejjutable.선로명Column) = value + End Set + End Property + + _ + Public Property 번호1() As String + Get + If Me.Is번호1Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.번호1Column),String) + End If + End Get + Set + Me(Me.tablejjutable.번호1Column) = value + End Set + End Property + + _ + Public Property 번호2() As String + Get + If Me.Is번호2Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.번호2Column),String) + End If + End Get + Set + Me(Me.tablejjutable.번호2Column) = value + End Set + End Property + + _ + Public Property 번호3() As String + Get + If Me.Is번호3Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.번호3Column),String) + End If + End Get + Set + Me(Me.tablejjutable.번호3Column) = value + End Set + End Property + + _ + Public Property 번호4() As String + Get + If Me.Is번호4Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.번호4Column),String) + End If + End Get + Set + Me(Me.tablejjutable.번호4Column) = value + End Set + End Property + + _ + Public Property 번호5() As String + Get + If Me.Is번호5Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.번호5Column),String) + End If + End Get + Set + Me(Me.tablejjutable.번호5Column) = value + End Set + End Property + + _ + Public Property 장척() As String + Get + If Me.Is장척Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.장척Column),String) + End If + End Get + Set + Me(Me.tablejjutable.장척Column) = value + End Set + End Property + + _ + Public Property 시공년월() As String + Get + If Me.Is시공년월Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.시공년월Column),String) + End If + End Get + Set + Me(Me.tablejjutable.시공년월Column) = value + End Set + End Property + + _ + Public Property 시공자() As String + Get + If Me.Is시공자Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.시공자Column),String) + End If + End Get + Set + Me(Me.tablejjutable.시공자Column) = value + End Set + End Property + + _ + Public Property DL명() As String + Get + If Me.IsDL명Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.DL명Column),String) + End If + End Get + Set + Me(Me.tablejjutable.DL명Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + If Me.Is비고1Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.비고1Column),String) + End If + End Get + Set + Me(Me.tablejjutable.비고1Column) = value + End Set + End Property + + _ + Public Property 감독자() As String + Get + If Me.Is감독자Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.감독자Column),String) + End If + End Get + Set + Me(Me.tablejjutable.감독자Column) = value + End Set + End Property + + _ + Public Property 인쇄() As Boolean + Get + If Me.Is인쇄Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.인쇄Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.인쇄Column) = value + End Set + End Property + + _ + Public Property 기입() As Boolean + Get + If Me.Is기입Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.기입Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.기입Column) = value + End Set + End Property + + _ + Public Property 접지저항1() As String + Get + If Me.Is접지저항1Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.접지저항1Column),String) + End If + End Get + Set + Me(Me.tablejjutable.접지저항1Column) = value + End Set + End Property + + _ + Public Property 접지저항2() As String + Get + If Me.Is접지저항2Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.접지저항2Column),String) + End If + End Get + Set + Me(Me.tablejjutable.접지저항2Column) = value + End Set + End Property + + _ + Public Property 형식() As String + Get + If Me.Is형식Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.형식Column),String) + End If + End Get + Set + Me(Me.tablejjutable.형식Column) = value + End Set + End Property + + _ + Public Property 신규() As Boolean + Get + If Me.Is신규Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.신규Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.신규Column) = value + End Set + End Property + + _ + Public Property 철거() As Boolean + Get + If Me.Is철거Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.철거Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.철거Column) = value + End Set + End Property + + _ + Public Property 그림파일() As String + Get + If Me.Is그림파일Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.그림파일Column),String) + End If + End Get + Set + Me(Me.tablejjutable.그림파일Column) = value + End Set + End Property + + _ + Public Property 인입() As Boolean + Get + If Me.Is인입Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.인입Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.인입Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.정렬번호Column),String) + End If + End Get + Set + Me(Me.tablejjutable.정렬번호Column) = value + End Set + End Property + + _ + Public Property 구선로명() As String + Get + If Me.Is구선로명Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.구선로명Column),String) + End If + End Get + Set + Me(Me.tablejjutable.구선로명Column) = value + End Set + End Property + + _ + Public Property 구전주번호() As String + Get + If Me.Is구전주번호Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.구전주번호Column),String) + End If + End Get + Set + Me(Me.tablejjutable.구전주번호Column) = value + End Set + End Property + + _ + Public Property 그림경로() As String + Get + If Me.Is그림경로Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.그림경로Column),String) + End If + End Get + Set + Me(Me.tablejjutable.그림경로Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + If Me.Is출력Null Then + Return true + Else + Return CType(Me(Me.tablejjutable.출력Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.출력Column) = value + End Set + End Property + + _ + Public Property 전주현행번호() As String + Get + If Me.Is전주현행번호Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.전주현행번호Column),String) + End If + End Get + Set + Me(Me.tablejjutable.전주현행번호Column) = value + End Set + End Property + + _ + Public Property 문자1() As String + Get + If Me.Is문자1Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.문자1Column),String) + End If + End Get + Set + Me(Me.tablejjutable.문자1Column) = value + End Set + End Property + + _ + Public Property 문자2() As String + Get + If Me.Is문자2Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.문자2Column),String) + End If + End Get + Set + Me(Me.tablejjutable.문자2Column) = value + End Set + End Property + + _ + Public Property 그림() As Boolean + Get + If Me.Is그림Null Then + Return false + Else + Return CType(Me(Me.tablejjutable.그림Column),Boolean) + End If + End Get + Set + Me(Me.tablejjutable.그림Column) = value + End Set + End Property + + _ + Public Property 점검일자() As String + Get + If Me.Is점검일자Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.점검일자Column),String) + End If + End Get + Set + Me(Me.tablejjutable.점검일자Column) = value + End Set + End Property + + _ + Public Property COS휴즈용량() As String + Get + If Me.IsCOS휴즈용량Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.COS휴즈용량Column),String) + End If + End Get + Set + Me(Me.tablejjutable.COS휴즈용량Column) = value + End Set + End Property + + _ + Public Property 상표시찰1단() As String + Get + If Me.Is상표시찰1단Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.상표시찰1단Column),String) + End If + End Get + Set + Me(Me.tablejjutable.상표시찰1단Column) = value + End Set + End Property + + _ + Public Property 상표시찰2단() As String + Get + If Me.Is상표시찰2단Null Then + Return "" + Else + Return CType(Me(Me.tablejjutable.상표시찰2단Column),String) + End If + End Get + Set + Me(Me.tablejjutable.상표시찰2단Column) = value + End Set + End Property + + _ + Public Property 선로전방() As String + Get + If Me.Is선로전방Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjutable.선로전방Column),String) + End If + End Get + Set + Me(Me.tablejjutable.선로전방Column) = value + End Set + End Property + + _ + Public Property 선로좌측() As String + Get + If Me.Is선로좌측Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjutable.선로좌측Column),String) + End If + End Get + Set + Me(Me.tablejjutable.선로좌측Column) = value + End Set + End Property + + _ + Public Property 선로우측() As String + Get + If Me.Is선로우측Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjutable.선로우측Column),String) + End If + End Get + Set + Me(Me.tablejjutable.선로우측Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tablejjutable.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tablejjutable.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tablejjutable.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is구관리구Null() As Boolean + Return Me.IsNull(Me.tablejjutable.구관리구Column) + End Function + + _ + Public Sub Set구관리구Null() + Me(Me.tablejjutable.구관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is구전산번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.구전산번호Column) + End Function + + _ + Public Sub Set구전산번호Null() + Me(Me.tablejjutable.구전산번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tablejjutable.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tablejjutable.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.전주번호Column) + End Function + + _ + Public Sub Set전주번호Null() + Me(Me.tablejjutable.전주번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로명Null() As Boolean + Return Me.IsNull(Me.tablejjutable.선로명Column) + End Function + + _ + Public Sub Set선로명Null() + Me(Me.tablejjutable.선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호1Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호1Column) + End Function + + _ + Public Sub Set번호1Null() + Me(Me.tablejjutable.번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호2Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호2Column) + End Function + + _ + Public Sub Set번호2Null() + Me(Me.tablejjutable.번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호3Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호3Column) + End Function + + _ + Public Sub Set번호3Null() + Me(Me.tablejjutable.번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호4Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호4Column) + End Function + + _ + Public Sub Set번호4Null() + Me(Me.tablejjutable.번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호5Null() As Boolean + Return Me.IsNull(Me.tablejjutable.번호5Column) + End Function + + _ + Public Sub Set번호5Null() + Me(Me.tablejjutable.번호5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is장척Null() As Boolean + Return Me.IsNull(Me.tablejjutable.장척Column) + End Function + + _ + Public Sub Set장척Null() + Me(Me.tablejjutable.장척Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공년월Null() As Boolean + Return Me.IsNull(Me.tablejjutable.시공년월Column) + End Function + + _ + Public Sub Set시공년월Null() + Me(Me.tablejjutable.시공년월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공자Null() As Boolean + Return Me.IsNull(Me.tablejjutable.시공자Column) + End Function + + _ + Public Sub Set시공자Null() + Me(Me.tablejjutable.시공자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDL명Null() As Boolean + Return Me.IsNull(Me.tablejjutable.DL명Column) + End Function + + _ + Public Sub SetDL명Null() + Me(Me.tablejjutable.DL명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tablejjutable.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tablejjutable.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is감독자Null() As Boolean + Return Me.IsNull(Me.tablejjutable.감독자Column) + End Function + + _ + Public Sub Set감독자Null() + Me(Me.tablejjutable.감독자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is인쇄Null() As Boolean + Return Me.IsNull(Me.tablejjutable.인쇄Column) + End Function + + _ + Public Sub Set인쇄Null() + Me(Me.tablejjutable.인쇄Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is기입Null() As Boolean + Return Me.IsNull(Me.tablejjutable.기입Column) + End Function + + _ + Public Sub Set기입Null() + Me(Me.tablejjutable.기입Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is접지저항1Null() As Boolean + Return Me.IsNull(Me.tablejjutable.접지저항1Column) + End Function + + _ + Public Sub Set접지저항1Null() + Me(Me.tablejjutable.접지저항1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is접지저항2Null() As Boolean + Return Me.IsNull(Me.tablejjutable.접지저항2Column) + End Function + + _ + Public Sub Set접지저항2Null() + Me(Me.tablejjutable.접지저항2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is형식Null() As Boolean + Return Me.IsNull(Me.tablejjutable.형식Column) + End Function + + _ + Public Sub Set형식Null() + Me(Me.tablejjutable.형식Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is신규Null() As Boolean + Return Me.IsNull(Me.tablejjutable.신규Column) + End Function + + _ + Public Sub Set신규Null() + Me(Me.tablejjutable.신규Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is철거Null() As Boolean + Return Me.IsNull(Me.tablejjutable.철거Column) + End Function + + _ + Public Sub Set철거Null() + Me(Me.tablejjutable.철거Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is그림파일Null() As Boolean + Return Me.IsNull(Me.tablejjutable.그림파일Column) + End Function + + _ + Public Sub Set그림파일Null() + Me(Me.tablejjutable.그림파일Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is인입Null() As Boolean + Return Me.IsNull(Me.tablejjutable.인입Column) + End Function + + _ + Public Sub Set인입Null() + Me(Me.tablejjutable.인입Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tablejjutable.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is구선로명Null() As Boolean + Return Me.IsNull(Me.tablejjutable.구선로명Column) + End Function + + _ + Public Sub Set구선로명Null() + Me(Me.tablejjutable.구선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is구전주번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.구전주번호Column) + End Function + + _ + Public Sub Set구전주번호Null() + Me(Me.tablejjutable.구전주번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is그림경로Null() As Boolean + Return Me.IsNull(Me.tablejjutable.그림경로Column) + End Function + + _ + Public Sub Set그림경로Null() + Me(Me.tablejjutable.그림경로Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tablejjutable.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tablejjutable.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주현행번호Null() As Boolean + Return Me.IsNull(Me.tablejjutable.전주현행번호Column) + End Function + + _ + Public Sub Set전주현행번호Null() + Me(Me.tablejjutable.전주현행번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자1Null() As Boolean + Return Me.IsNull(Me.tablejjutable.문자1Column) + End Function + + _ + Public Sub Set문자1Null() + Me(Me.tablejjutable.문자1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자2Null() As Boolean + Return Me.IsNull(Me.tablejjutable.문자2Column) + End Function + + _ + Public Sub Set문자2Null() + Me(Me.tablejjutable.문자2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is그림Null() As Boolean + Return Me.IsNull(Me.tablejjutable.그림Column) + End Function + + _ + Public Sub Set그림Null() + Me(Me.tablejjutable.그림Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is점검일자Null() As Boolean + Return Me.IsNull(Me.tablejjutable.점검일자Column) + End Function + + _ + Public Sub Set점검일자Null() + Me(Me.tablejjutable.점검일자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOS휴즈용량Null() As Boolean + Return Me.IsNull(Me.tablejjutable.COS휴즈용량Column) + End Function + + _ + Public Sub SetCOS휴즈용량Null() + Me(Me.tablejjutable.COS휴즈용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is상표시찰1단Null() As Boolean + Return Me.IsNull(Me.tablejjutable.상표시찰1단Column) + End Function + + _ + Public Sub Set상표시찰1단Null() + Me(Me.tablejjutable.상표시찰1단Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is상표시찰2단Null() As Boolean + Return Me.IsNull(Me.tablejjutable.상표시찰2단Column) + End Function + + _ + Public Sub Set상표시찰2단Null() + Me(Me.tablejjutable.상표시찰2단Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로전방Null() As Boolean + Return Me.IsNull(Me.tablejjutable.선로전방Column) + End Function + + _ + Public Sub Set선로전방Null() + Me(Me.tablejjutable.선로전방Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로좌측Null() As Boolean + Return Me.IsNull(Me.tablejjutable.선로좌측Column) + End Function + + _ + Public Sub Set선로좌측Null() + Me(Me.tablejjutable.선로좌측Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로우측Null() As Boolean + Return Me.IsNull(Me.tablejjutable.선로우측Column) + End Function + + _ + Public Sub Set선로우측Null() + Me(Me.tablejjutable.선로우측Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_DeungRow + Inherits Global.System.Data.DataRow + + Private tableDetail_Deung As Detail_DeungDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_Deung = CType(Me.Table,Detail_DeungDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_Deung.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_Deung.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Integer + Get + Try + Return CType(Me(Me.tableDetail_Deung.관리IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Deung.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Integer + Get + Try + Return CType(Me(Me.tableDetail_Deung.번호Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Deung.번호Column) = value + End Set + End Property + + _ + Public Property 관리번호1() As String + Get + If Me.Is관리번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.관리번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.관리번호1Column) = value + End Set + End Property + + _ + Public Property 관리번호2() As String + Get + If Me.Is관리번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.관리번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.관리번호2Column) = value + End Set + End Property + + _ + Public Property 관리번호3() As String + Get + If Me.Is관리번호3Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.관리번호3Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.관리번호3Column) = value + End Set + End Property + + _ + Public Property 지점명() As String + Get + If Me.Is지점명Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.지점명Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.지점명Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.정렬번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_Deung.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Deung' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Deung.출력Column) = value + End Set + End Property + + _ + Public Property 문자1() As String + Get + If Me.Is문자1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.문자1Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.문자1Column) = value + End Set + End Property + + _ + Public Property 문자2() As String + Get + If Me.Is문자2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.문자2Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.문자2Column) = value + End Set + End Property + + _ + Public Property 고객번호1() As String + Get + If Me.Is고객번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.고객번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.고객번호1Column) = value + End Set + End Property + + _ + Public Property 고객번호2() As String + Get + If Me.Is고객번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.고객번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.고객번호2Column) = value + End Set + End Property + + _ + Public Property 고객번호3() As String + Get + If Me.Is고객번호3Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.고객번호3Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.고객번호3Column) = value + End Set + End Property + + _ + Public Property 전산화번호1() As String + Get + If Me.Is전산화번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.전산화번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.전산화번호1Column) = value + End Set + End Property + + _ + Public Property 전산화번호2() As String + Get + If Me.Is전산화번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.전산화번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.전산화번호2Column) = value + End Set + End Property + + _ + Public Property 선로명() As String + Get + If Me.Is선로명Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.선로명Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.선로명Column) = value + End Set + End Property + + _ + Public Property 전주번호1() As String + Get + If Me.Is전주번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.전주번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.전주번호1Column) = value + End Set + End Property + + _ + Public Property 전주번호2() As String + Get + If Me.Is전주번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.전주번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.전주번호2Column) = value + End Set + End Property + + _ + Public Property 전주번호3() As String + Get + If Me.Is전주번호3Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_Deung.전주번호3Column),String) + End If + End Get + Set + Me(Me.tableDetail_Deung.전주번호3Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_Deung.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_Deung.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.관리번호1Column) + End Function + + _ + Public Sub Set관리번호1Null() + Me(Me.tableDetail_Deung.관리번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.관리번호2Column) + End Function + + _ + Public Sub Set관리번호2Null() + Me(Me.tableDetail_Deung.관리번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.관리번호3Column) + End Function + + _ + Public Sub Set관리번호3Null() + Me(Me.tableDetail_Deung.관리번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지점명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.지점명Column) + End Function + + _ + Public Sub Set지점명Null() + Me(Me.tableDetail_Deung.지점명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_Deung.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_Deung.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.문자1Column) + End Function + + _ + Public Sub Set문자1Null() + Me(Me.tableDetail_Deung.문자1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.문자2Column) + End Function + + _ + Public Sub Set문자2Null() + Me(Me.tableDetail_Deung.문자2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is고객번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.고객번호1Column) + End Function + + _ + Public Sub Set고객번호1Null() + Me(Me.tableDetail_Deung.고객번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is고객번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.고객번호2Column) + End Function + + _ + Public Sub Set고객번호2Null() + Me(Me.tableDetail_Deung.고객번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is고객번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.고객번호3Column) + End Function + + _ + Public Sub Set고객번호3Null() + Me(Me.tableDetail_Deung.고객번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산화번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.전산화번호1Column) + End Function + + _ + Public Sub Set전산화번호1Null() + Me(Me.tableDetail_Deung.전산화번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산화번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.전산화번호2Column) + End Function + + _ + Public Sub Set전산화번호2Null() + Me(Me.tableDetail_Deung.전산화번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.선로명Column) + End Function + + _ + Public Sub Set선로명Null() + Me(Me.tableDetail_Deung.선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.전주번호1Column) + End Function + + _ + Public Sub Set전주번호1Null() + Me(Me.tableDetail_Deung.전주번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.전주번호2Column) + End Function + + _ + Public Sub Set전주번호2Null() + Me(Me.tableDetail_Deung.전주번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Deung.전주번호3Column) + End Function + + _ + Public Sub Set전주번호3Null() + Me(Me.tableDetail_Deung.전주번호3Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_karoRow + Inherits Global.System.Data.DataRow + + Private tableDetail_karo As Detail_karoDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_karo = CType(Me.Table,Detail_karoDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_karo.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_karo.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Integer + Get + Try + Return CType(Me(Me.tableDetail_karo.관리IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_karo' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_karo.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Integer + Get + Try + Return CType(Me(Me.tableDetail_karo.번호Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_karo' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_karo.번호Column) = value + End Set + End Property + + _ + Public Property 지역명() As String + Get + If Me.Is지역명Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.지역명Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.지역명Column) = value + End Set + End Property + + _ + Public Property 관리번호1() As String + Get + If Me.Is관리번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.관리번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.관리번호1Column) = value + End Set + End Property + + _ + Public Property 관리번호2() As String + Get + If Me.Is관리번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.관리번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.관리번호2Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.정렬번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_karo.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_karo' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_karo.출력Column) = value + End Set + End Property + + _ + Public Property 문자1() As String + Get + If Me.Is문자1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.문자1Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.문자1Column) = value + End Set + End Property + + _ + Public Property 문자2() As String + Get + If Me.Is문자2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.문자2Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.문자2Column) = value + End Set + End Property + + _ + Public Property 전화번호1() As String + Get + If Me.Is전화번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.전화번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.전화번호1Column) = value + End Set + End Property + + _ + Public Property 전화번호2() As String + Get + If Me.Is전화번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tableDetail_karo.전화번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_karo.전화번호2Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_karo.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_karo.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_karo.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is지역명Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.지역명Column) + End Function + + _ + Public Sub Set지역명Null() + Me(Me.tableDetail_karo.지역명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.관리번호1Column) + End Function + + _ + Public Sub Set관리번호1Null() + Me(Me.tableDetail_karo.관리번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.관리번호2Column) + End Function + + _ + Public Sub Set관리번호2Null() + Me(Me.tableDetail_karo.관리번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_karo.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_karo.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자1Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.문자1Column) + End Function + + _ + Public Sub Set문자1Null() + Me(Me.tableDetail_karo.문자1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자2Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.문자2Column) + End Function + + _ + Public Sub Set문자2Null() + Me(Me.tableDetail_karo.문자2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전화번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.전화번호1Column) + End Function + + _ + Public Sub Set전화번호1Null() + Me(Me.tableDetail_karo.전화번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전화번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_karo.전화번호2Column) + End Function + + _ + Public Sub Set전화번호2Null() + Me(Me.tableDetail_karo.전화번호2Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_CableRow + Inherits Global.System.Data.DataRow + + Private tableDetail_Cable As Detail_CableDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_Cable = CType(Me.Table,Detail_CableDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_Cable.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_Cable.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Double + Get + Try + Return CType(Me(Me.tableDetail_Cable.관리IDColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Double + Get + Try + Return CType(Me(Me.tableDetail_Cable.번호Column),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.관리구Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '관리구' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.관리구Column) = value + End Set + End Property + + _ + Public Property 전산번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.전산번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '전산번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.전산번호Column) = value + End Set + End Property + + _ + Public Property HASS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HASSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HASS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HASSColumn) = value + End Set + End Property + + _ + Public Property HADL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HADLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HADL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HADLColumn) = value + End Set + End Property + + _ + Public Property HA구간() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HA구간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HA구간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HA구간Column) = value + End Set + End Property + + _ + Public Property HBSS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HBSSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HBSS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HBSSColumn) = value + End Set + End Property + + _ + Public Property HBDL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HBDLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HBDL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HBDLColumn) = value + End Set + End Property + + _ + Public Property HB구간() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HB구간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HB구간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HB구간Column) = value + End Set + End Property + + _ + Public Property S0번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0번호1Column) = value + End Set + End Property + + _ + Public Property S0번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0번호2Column) = value + End Set + End Property + + _ + Public Property S0번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0번호3Column) = value + End Set + End Property + + _ + Public Property S0번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0번호4Column) = value + End Set + End Property + + _ + Public Property S0SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0SW명Column) = value + End Set + End Property + + _ + Public Property S0수용가() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0수용가Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0수용가' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0수용가Column) = value + End Set + End Property + + _ + Public Property S1번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1번호1Column) = value + End Set + End Property + + _ + Public Property S1번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1번호2Column) = value + End Set + End Property + + _ + Public Property S1번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1번호3Column) = value + End Set + End Property + + _ + Public Property S1번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1번호4Column) = value + End Set + End Property + + _ + Public Property S1SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1SW명Column) = value + End Set + End Property + + _ + Public Property S1위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1위치Column) = value + End Set + End Property + + _ + Public Property S2번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2번호1Column) = value + End Set + End Property + + _ + Public Property S2번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2번호2Column) = value + End Set + End Property + + _ + Public Property S2번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2번호3Column) = value + End Set + End Property + + _ + Public Property S2번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2번호4Column) = value + End Set + End Property + + _ + Public Property S2SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2SW명Column) = value + End Set + End Property + + _ + Public Property S2위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2위치Column) = value + End Set + End Property + + _ + Public Property S3번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3번호1Column) = value + End Set + End Property + + _ + Public Property S3번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3번호2Column) = value + End Set + End Property + + _ + Public Property S3번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3번호3Column) = value + End Set + End Property + + _ + Public Property S3번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3번호4Column) = value + End Set + End Property + + _ + Public Property S3SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3SW명Column) = value + End Set + End Property + + _ + Public Property S3위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3위치Column) = value + End Set + End Property + + _ + Public Property S4번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4번호1Column) = value + End Set + End Property + + _ + Public Property S4번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4번호2Column) = value + End Set + End Property + + _ + Public Property S4번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4번호3Column) = value + End Set + End Property + + _ + Public Property S4번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4번호4Column) = value + End Set + End Property + + _ + Public Property S4SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4SW명Column) = value + End Set + End Property + + _ + Public Property S4위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4위치Column) = value + End Set + End Property + + _ + Public Property 시공년월() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.시공년월Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '시공년월' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.시공년월Column) = value + End Set + End Property + + _ + Public Property 시공회사() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.시공회사Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '시공회사' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.시공회사Column) = value + End Set + End Property + + _ + Public Property 공사번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.공사번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '공사번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.공사번호Column) = value + End Set + End Property + + _ + Public Property 감독자() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.감독자Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '감독자' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.감독자Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고1Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고3Column) = value + End Set + End Property + + _ + Public Property 비고4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고4Column) = value + End Set + End Property + + _ + Public Property 비고5() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고5' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고5Column) = value + End Set + End Property + + _ + Public Property 비고6() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.비고6Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '비고6' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.비고6Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.정렬번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '정렬번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_Cable.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.출력Column) = value + End Set + End Property + + _ + Public Property HA단자명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HA단자명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HA단자명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HA단자명Column) = value + End Set + End Property + + _ + Public Property HB단자명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.HB단자명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'HB단자명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.HB단자명Column) = value + End Set + End Property + + _ + Public Property S0SS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0SSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0SS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0SSColumn) = value + End Set + End Property + + _ + Public Property S0DL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S0DLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S0DL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S0DLColumn) = value + End Set + End Property + + _ + Public Property S1SS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1SSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1SS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1SSColumn) = value + End Set + End Property + + _ + Public Property S1DL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S1DLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S1DL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S1DLColumn) = value + End Set + End Property + + _ + Public Property S2SS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2SSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2SS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2SSColumn) = value + End Set + End Property + + _ + Public Property S2DL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S2DLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S2DL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S2DLColumn) = value + End Set + End Property + + _ + Public Property S3SS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3SSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3SS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3SSColumn) = value + End Set + End Property + + _ + Public Property S3DL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S3DLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S3DL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S3DLColumn) = value + End Set + End Property + + _ + Public Property S4SS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4SSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4SS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4SSColumn) = value + End Set + End Property + + _ + Public Property S4DL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable.S4DLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable' 테이블의 'S4DL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable.S4DLColumn) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_Cable.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_Cable.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tableDetail_Cable.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.전산번호Column) + End Function + + _ + Public Sub Set전산번호Null() + Me(Me.tableDetail_Cable.전산번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHASSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HASSColumn) + End Function + + _ + Public Sub SetHASSNull() + Me(Me.tableDetail_Cable.HASSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHADLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HADLColumn) + End Function + + _ + Public Sub SetHADLNull() + Me(Me.tableDetail_Cable.HADLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHA구간Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HA구간Column) + End Function + + _ + Public Sub SetHA구간Null() + Me(Me.tableDetail_Cable.HA구간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHBSSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HBSSColumn) + End Function + + _ + Public Sub SetHBSSNull() + Me(Me.tableDetail_Cable.HBSSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHBDLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HBDLColumn) + End Function + + _ + Public Sub SetHBDLNull() + Me(Me.tableDetail_Cable.HBDLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHB구간Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HB구간Column) + End Function + + _ + Public Sub SetHB구간Null() + Me(Me.tableDetail_Cable.HB구간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0번호1Column) + End Function + + _ + Public Sub SetS0번호1Null() + Me(Me.tableDetail_Cable.S0번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0번호2Column) + End Function + + _ + Public Sub SetS0번호2Null() + Me(Me.tableDetail_Cable.S0번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0번호3Column) + End Function + + _ + Public Sub SetS0번호3Null() + Me(Me.tableDetail_Cable.S0번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0번호4Column) + End Function + + _ + Public Sub SetS0번호4Null() + Me(Me.tableDetail_Cable.S0번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0SW명Column) + End Function + + _ + Public Sub SetS0SW명Null() + Me(Me.tableDetail_Cable.S0SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0수용가Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0수용가Column) + End Function + + _ + Public Sub SetS0수용가Null() + Me(Me.tableDetail_Cable.S0수용가Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1번호1Column) + End Function + + _ + Public Sub SetS1번호1Null() + Me(Me.tableDetail_Cable.S1번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1번호2Column) + End Function + + _ + Public Sub SetS1번호2Null() + Me(Me.tableDetail_Cable.S1번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1번호3Column) + End Function + + _ + Public Sub SetS1번호3Null() + Me(Me.tableDetail_Cable.S1번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1번호4Column) + End Function + + _ + Public Sub SetS1번호4Null() + Me(Me.tableDetail_Cable.S1번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1SW명Column) + End Function + + _ + Public Sub SetS1SW명Null() + Me(Me.tableDetail_Cable.S1SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1위치Column) + End Function + + _ + Public Sub SetS1위치Null() + Me(Me.tableDetail_Cable.S1위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2번호1Column) + End Function + + _ + Public Sub SetS2번호1Null() + Me(Me.tableDetail_Cable.S2번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2번호2Column) + End Function + + _ + Public Sub SetS2번호2Null() + Me(Me.tableDetail_Cable.S2번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2번호3Column) + End Function + + _ + Public Sub SetS2번호3Null() + Me(Me.tableDetail_Cable.S2번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2번호4Column) + End Function + + _ + Public Sub SetS2번호4Null() + Me(Me.tableDetail_Cable.S2번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2SW명Column) + End Function + + _ + Public Sub SetS2SW명Null() + Me(Me.tableDetail_Cable.S2SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2위치Column) + End Function + + _ + Public Sub SetS2위치Null() + Me(Me.tableDetail_Cable.S2위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3번호1Column) + End Function + + _ + Public Sub SetS3번호1Null() + Me(Me.tableDetail_Cable.S3번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3번호2Column) + End Function + + _ + Public Sub SetS3번호2Null() + Me(Me.tableDetail_Cable.S3번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3번호3Column) + End Function + + _ + Public Sub SetS3번호3Null() + Me(Me.tableDetail_Cable.S3번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3번호4Column) + End Function + + _ + Public Sub SetS3번호4Null() + Me(Me.tableDetail_Cable.S3번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3SW명Column) + End Function + + _ + Public Sub SetS3SW명Null() + Me(Me.tableDetail_Cable.S3SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3위치Column) + End Function + + _ + Public Sub SetS3위치Null() + Me(Me.tableDetail_Cable.S3위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4번호1Column) + End Function + + _ + Public Sub SetS4번호1Null() + Me(Me.tableDetail_Cable.S4번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4번호2Column) + End Function + + _ + Public Sub SetS4번호2Null() + Me(Me.tableDetail_Cable.S4번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4번호3Column) + End Function + + _ + Public Sub SetS4번호3Null() + Me(Me.tableDetail_Cable.S4번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4번호4Column) + End Function + + _ + Public Sub SetS4번호4Null() + Me(Me.tableDetail_Cable.S4번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4SW명Column) + End Function + + _ + Public Sub SetS4SW명Null() + Me(Me.tableDetail_Cable.S4SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4위치Column) + End Function + + _ + Public Sub SetS4위치Null() + Me(Me.tableDetail_Cable.S4위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공년월Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.시공년월Column) + End Function + + _ + Public Sub Set시공년월Null() + Me(Me.tableDetail_Cable.시공년월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공회사Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.시공회사Column) + End Function + + _ + Public Sub Set시공회사Null() + Me(Me.tableDetail_Cable.시공회사Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공사번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.공사번호Column) + End Function + + _ + Public Sub Set공사번호Null() + Me(Me.tableDetail_Cable.공사번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is감독자Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.감독자Column) + End Function + + _ + Public Sub Set감독자Null() + Me(Me.tableDetail_Cable.감독자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tableDetail_Cable.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tableDetail_Cable.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tableDetail_Cable.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고4Column) + End Function + + _ + Public Sub Set비고4Null() + Me(Me.tableDetail_Cable.비고4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고5Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고5Column) + End Function + + _ + Public Sub Set비고5Null() + Me(Me.tableDetail_Cable.비고5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고6Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.비고6Column) + End Function + + _ + Public Sub Set비고6Null() + Me(Me.tableDetail_Cable.비고6Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_Cable.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_Cable.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHA단자명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HA단자명Column) + End Function + + _ + Public Sub SetHA단자명Null() + Me(Me.tableDetail_Cable.HA단자명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHB단자명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.HB단자명Column) + End Function + + _ + Public Sub SetHB단자명Null() + Me(Me.tableDetail_Cable.HB단자명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0SSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0SSColumn) + End Function + + _ + Public Sub SetS0SSNull() + Me(Me.tableDetail_Cable.S0SSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS0DLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S0DLColumn) + End Function + + _ + Public Sub SetS0DLNull() + Me(Me.tableDetail_Cable.S0DLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1SSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1SSColumn) + End Function + + _ + Public Sub SetS1SSNull() + Me(Me.tableDetail_Cable.S1SSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1DLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S1DLColumn) + End Function + + _ + Public Sub SetS1DLNull() + Me(Me.tableDetail_Cable.S1DLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2SSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2SSColumn) + End Function + + _ + Public Sub SetS2SSNull() + Me(Me.tableDetail_Cable.S2SSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2DLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S2DLColumn) + End Function + + _ + Public Sub SetS2DLNull() + Me(Me.tableDetail_Cable.S2DLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3SSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3SSColumn) + End Function + + _ + Public Sub SetS3SSNull() + Me(Me.tableDetail_Cable.S3SSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3DLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S3DLColumn) + End Function + + _ + Public Sub SetS3DLNull() + Me(Me.tableDetail_Cable.S3DLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4SSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4SSColumn) + End Function + + _ + Public Sub SetS4SSNull() + Me(Me.tableDetail_Cable.S4SSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4DLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable.S4DLColumn) + End Function + + _ + Public Sub SetS4DLNull() + Me(Me.tableDetail_Cable.S4DLColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_Cable2Row + Inherits Global.System.Data.DataRow + + Private tableDetail_Cable2 As Detail_Cable2DataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_Cable2 = CType(Me.Table,Detail_Cable2DataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_Cable2.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_Cable2.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Double + Get + Try + Return CType(Me(Me.tableDetail_Cable2.관리IDColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Double + Get + Try + Return CType(Me(Me.tableDetail_Cable2.번호Column),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.관리구Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '관리구' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.관리구Column) = value + End Set + End Property + + _ + Public Property 전산번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.전산번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '전산번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.전산번호Column) = value + End Set + End Property + + _ + Public Property HA단자명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HA단자명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HA단자명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HA단자명Column) = value + End Set + End Property + + _ + Public Property HASS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HASSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HASS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HASSColumn) = value + End Set + End Property + + _ + Public Property HADL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HADLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HADL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HADLColumn) = value + End Set + End Property + + _ + Public Property HA구간() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HA구간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HA구간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HA구간Column) = value + End Set + End Property + + _ + Public Property HB단자명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HB단자명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HB단자명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HB단자명Column) = value + End Set + End Property + + _ + Public Property HBSS() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HBSSColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HBSS' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HBSSColumn) = value + End Set + End Property + + _ + Public Property HBDL() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HBDLColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HBDL' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HBDLColumn) = value + End Set + End Property + + _ + Public Property HB구간() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.HB구간Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'HB구간' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.HB구간Column) = value + End Set + End Property + + _ + Public Property S1번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1번호1Column) = value + End Set + End Property + + _ + Public Property S1번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1번호2Column) = value + End Set + End Property + + _ + Public Property S1번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1번호3Column) = value + End Set + End Property + + _ + Public Property S1번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1번호4Column) = value + End Set + End Property + + _ + Public Property S1SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1SW명Column) = value + End Set + End Property + + _ + Public Property S1위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S1위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S1위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S1위치Column) = value + End Set + End Property + + _ + Public Property S2번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2번호1Column) = value + End Set + End Property + + _ + Public Property S2번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2번호2Column) = value + End Set + End Property + + _ + Public Property S2번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2번호3Column) = value + End Set + End Property + + _ + Public Property S2번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2번호4Column) = value + End Set + End Property + + _ + Public Property S2SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2SW명Column) = value + End Set + End Property + + _ + Public Property S2위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S2위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S2위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S2위치Column) = value + End Set + End Property + + _ + Public Property S3번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3번호1Column) = value + End Set + End Property + + _ + Public Property S3번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3번호2Column) = value + End Set + End Property + + _ + Public Property S3번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3번호3Column) = value + End Set + End Property + + _ + Public Property S3번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3번호4Column) = value + End Set + End Property + + _ + Public Property S3SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3SW명Column) = value + End Set + End Property + + _ + Public Property S3위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S3위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S3위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S3위치Column) = value + End Set + End Property + + _ + Public Property S4번호1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4번호1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4번호1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4번호1Column) = value + End Set + End Property + + _ + Public Property S4번호2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4번호2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4번호2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4번호2Column) = value + End Set + End Property + + _ + Public Property S4번호3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4번호3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4번호3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4번호3Column) = value + End Set + End Property + + _ + Public Property S4번호4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4번호4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4번호4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4번호4Column) = value + End Set + End Property + + _ + Public Property S4SW명() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4SW명Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4SW명' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4SW명Column) = value + End Set + End Property + + _ + Public Property S4위치() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.S4위치Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 'S4위치' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.S4위치Column) = value + End Set + End Property + + _ + Public Property 시공년월() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.시공년월Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '시공년월' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.시공년월Column) = value + End Set + End Property + + _ + Public Property 시공회사() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.시공회사Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '시공회사' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.시공회사Column) = value + End Set + End Property + + _ + Public Property 공사번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.공사번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '공사번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.공사번호Column) = value + End Set + End Property + + _ + Public Property 감독자() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.감독자Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '감독자' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.감독자Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고1' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고1Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고2' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고3' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고3Column) = value + End Set + End Property + + _ + Public Property 비고4() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고4Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고4' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고4Column) = value + End Set + End Property + + _ + Public Property 비고5() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고5Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고5' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고5Column) = value + End Set + End Property + + _ + Public Property 비고6() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.비고6Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '비고6' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.비고6Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + Try + Return CType(Me(Me.tableDetail_Cable2.정렬번호Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '정렬번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_Cable2.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_Cable2' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_Cable2.출력Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_Cable2.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_Cable2.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tableDetail_Cable2.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.전산번호Column) + End Function + + _ + Public Sub Set전산번호Null() + Me(Me.tableDetail_Cable2.전산번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHA단자명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HA단자명Column) + End Function + + _ + Public Sub SetHA단자명Null() + Me(Me.tableDetail_Cable2.HA단자명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHASSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HASSColumn) + End Function + + _ + Public Sub SetHASSNull() + Me(Me.tableDetail_Cable2.HASSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHADLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HADLColumn) + End Function + + _ + Public Sub SetHADLNull() + Me(Me.tableDetail_Cable2.HADLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHA구간Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HA구간Column) + End Function + + _ + Public Sub SetHA구간Null() + Me(Me.tableDetail_Cable2.HA구간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHB단자명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HB단자명Column) + End Function + + _ + Public Sub SetHB단자명Null() + Me(Me.tableDetail_Cable2.HB단자명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHBSSNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HBSSColumn) + End Function + + _ + Public Sub SetHBSSNull() + Me(Me.tableDetail_Cable2.HBSSColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHBDLNull() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HBDLColumn) + End Function + + _ + Public Sub SetHBDLNull() + Me(Me.tableDetail_Cable2.HBDLColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsHB구간Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.HB구간Column) + End Function + + _ + Public Sub SetHB구간Null() + Me(Me.tableDetail_Cable2.HB구간Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1번호1Column) + End Function + + _ + Public Sub SetS1번호1Null() + Me(Me.tableDetail_Cable2.S1번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1번호2Column) + End Function + + _ + Public Sub SetS1번호2Null() + Me(Me.tableDetail_Cable2.S1번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1번호3Column) + End Function + + _ + Public Sub SetS1번호3Null() + Me(Me.tableDetail_Cable2.S1번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1번호4Column) + End Function + + _ + Public Sub SetS1번호4Null() + Me(Me.tableDetail_Cable2.S1번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1SW명Column) + End Function + + _ + Public Sub SetS1SW명Null() + Me(Me.tableDetail_Cable2.S1SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS1위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S1위치Column) + End Function + + _ + Public Sub SetS1위치Null() + Me(Me.tableDetail_Cable2.S1위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2번호1Column) + End Function + + _ + Public Sub SetS2번호1Null() + Me(Me.tableDetail_Cable2.S2번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2번호2Column) + End Function + + _ + Public Sub SetS2번호2Null() + Me(Me.tableDetail_Cable2.S2번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2번호3Column) + End Function + + _ + Public Sub SetS2번호3Null() + Me(Me.tableDetail_Cable2.S2번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2번호4Column) + End Function + + _ + Public Sub SetS2번호4Null() + Me(Me.tableDetail_Cable2.S2번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2SW명Column) + End Function + + _ + Public Sub SetS2SW명Null() + Me(Me.tableDetail_Cable2.S2SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS2위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S2위치Column) + End Function + + _ + Public Sub SetS2위치Null() + Me(Me.tableDetail_Cable2.S2위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3번호1Column) + End Function + + _ + Public Sub SetS3번호1Null() + Me(Me.tableDetail_Cable2.S3번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3번호2Column) + End Function + + _ + Public Sub SetS3번호2Null() + Me(Me.tableDetail_Cable2.S3번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3번호3Column) + End Function + + _ + Public Sub SetS3번호3Null() + Me(Me.tableDetail_Cable2.S3번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3번호4Column) + End Function + + _ + Public Sub SetS3번호4Null() + Me(Me.tableDetail_Cable2.S3번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3SW명Column) + End Function + + _ + Public Sub SetS3SW명Null() + Me(Me.tableDetail_Cable2.S3SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS3위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S3위치Column) + End Function + + _ + Public Sub SetS3위치Null() + Me(Me.tableDetail_Cable2.S3위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4번호1Column) + End Function + + _ + Public Sub SetS4번호1Null() + Me(Me.tableDetail_Cable2.S4번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4번호2Column) + End Function + + _ + Public Sub SetS4번호2Null() + Me(Me.tableDetail_Cable2.S4번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4번호3Column) + End Function + + _ + Public Sub SetS4번호3Null() + Me(Me.tableDetail_Cable2.S4번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4번호4Column) + End Function + + _ + Public Sub SetS4번호4Null() + Me(Me.tableDetail_Cable2.S4번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4SW명Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4SW명Column) + End Function + + _ + Public Sub SetS4SW명Null() + Me(Me.tableDetail_Cable2.S4SW명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsS4위치Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.S4위치Column) + End Function + + _ + Public Sub SetS4위치Null() + Me(Me.tableDetail_Cable2.S4위치Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공년월Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.시공년월Column) + End Function + + _ + Public Sub Set시공년월Null() + Me(Me.tableDetail_Cable2.시공년월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공회사Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.시공회사Column) + End Function + + _ + Public Sub Set시공회사Null() + Me(Me.tableDetail_Cable2.시공회사Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is공사번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.공사번호Column) + End Function + + _ + Public Sub Set공사번호Null() + Me(Me.tableDetail_Cable2.공사번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is감독자Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.감독자Column) + End Function + + _ + Public Sub Set감독자Null() + Me(Me.tableDetail_Cable2.감독자Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tableDetail_Cable2.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tableDetail_Cable2.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tableDetail_Cable2.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고4Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고4Column) + End Function + + _ + Public Sub Set비고4Null() + Me(Me.tableDetail_Cable2.비고4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고5Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고5Column) + End Function + + _ + Public Sub Set비고5Null() + Me(Me.tableDetail_Cable2.비고5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고6Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.비고6Column) + End Function + + _ + Public Sub Set비고6Null() + Me(Me.tableDetail_Cable2.비고6Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_Cable2.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_Cable2.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_Cable2.출력Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_CableLabelRow + Inherits Global.System.Data.DataRow + + Private tableDetail_CableLabel As Detail_CableLabelDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_CableLabel = CType(Me.Table,Detail_CableLabelDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_CableLabel.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_CableLabel.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Double + Get + Try + Return CType(Me(Me.tableDetail_CableLabel.관리IDColumn),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_CableLabel' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_CableLabel.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Double + Get + Try + Return CType(Me(Me.tableDetail_CableLabel.번호Column),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_CableLabel' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_CableLabel.번호Column) = value + End Set + End Property + + _ + Public Property 순번() As Double + Get + Try + Return CType(Me(Me.tableDetail_CableLabel.순번Column),Double) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_CableLabel' 테이블의 '순번' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_CableLabel.순번Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + If Me.Is비고1Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고1Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고1Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + If Me.Is비고2Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고2Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + If Me.Is비고3Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고3Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고3Column) = value + End Set + End Property + + _ + Public Property 비고4() As String + Get + If Me.Is비고4Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고4Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고4Column) = value + End Set + End Property + + _ + Public Property 비고5() As String + Get + If Me.Is비고5Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고5Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고5Column) = value + End Set + End Property + + _ + Public Property 비고6() As String + Get + If Me.Is비고6Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.비고6Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.비고6Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.정렬번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_CableLabel.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_CableLabel' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_CableLabel.출력Column) = value + End Set + End Property + + _ + Public Property N10() As String + Get + If Me.IsN10Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N10Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N10Column) = value + End Set + End Property + + _ + Public Property N1D() As String + Get + If Me.IsN1DNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N1DColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N1DColumn) = value + End Set + End Property + + _ + Public Property N1S() As String + Get + If Me.IsN1SNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N1SColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N1SColumn) = value + End Set + End Property + + _ + Public Property N1L() As String + Get + If Me.IsN1LNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N1LColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N1LColumn) = value + End Set + End Property + + _ + Public Property N1H1() As String + Get + If Me.IsN1H1Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N1H1Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N1H1Column) = value + End Set + End Property + + _ + Public Property N1H2() As String + Get + If Me.IsN1H2Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N1H2Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N1H2Column) = value + End Set + End Property + + _ + Public Property N20() As String + Get + If Me.IsN20Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N20Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N20Column) = value + End Set + End Property + + _ + Public Property N2J() As String + Get + If Me.IsN2JNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N2JColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N2JColumn) = value + End Set + End Property + + _ + Public Property N2K() As String + Get + If Me.IsN2KNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N2KColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N2KColumn) = value + End Set + End Property + + _ + Public Property N2B() As String + Get + If Me.IsN2BNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N2BColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N2BColumn) = value + End Set + End Property + + _ + Public Property N21() As String + Get + If Me.IsN21Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N21Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N21Column) = value + End Set + End Property + + _ + Public Property N22() As String + Get + If Me.IsN22Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N22Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N22Column) = value + End Set + End Property + + _ + Public Property N2C() As String + Get + If Me.IsN2CNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N2CColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N2CColumn) = value + End Set + End Property + + _ + Public Property N30() As String + Get + If Me.IsN30Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N30Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N30Column) = value + End Set + End Property + + _ + Public Property N3J() As String + Get + If Me.IsN3JNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N3JColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N3JColumn) = value + End Set + End Property + + _ + Public Property N3K() As String + Get + If Me.IsN3KNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N3KColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N3KColumn) = value + End Set + End Property + + _ + Public Property N3B() As String + Get + If Me.IsN3BNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N3BColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N3BColumn) = value + End Set + End Property + + _ + Public Property N31() As String + Get + If Me.IsN31Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N31Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N31Column) = value + End Set + End Property + + _ + Public Property N32() As String + Get + If Me.IsN32Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N32Column),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N32Column) = value + End Set + End Property + + _ + Public Property N3C() As String + Get + If Me.IsN3CNull Then + Return "" + Else + Return CType(Me(Me.tableDetail_CableLabel.N3CColumn),String) + End If + End Get + Set + Me(Me.tableDetail_CableLabel.N3CColumn) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_CableLabel.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_CableLabel.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is순번Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.순번Column) + End Function + + _ + Public Sub Set순번Null() + Me(Me.tableDetail_CableLabel.순번Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tableDetail_CableLabel.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tableDetail_CableLabel.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tableDetail_CableLabel.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고4Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고4Column) + End Function + + _ + Public Sub Set비고4Null() + Me(Me.tableDetail_CableLabel.비고4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고5Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고5Column) + End Function + + _ + Public Sub Set비고5Null() + Me(Me.tableDetail_CableLabel.비고5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고6Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.비고6Column) + End Function + + _ + Public Sub Set비고6Null() + Me(Me.tableDetail_CableLabel.비고6Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_CableLabel.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_CableLabel.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN10Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N10Column) + End Function + + _ + Public Sub SetN10Null() + Me(Me.tableDetail_CableLabel.N10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN1DNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N1DColumn) + End Function + + _ + Public Sub SetN1DNull() + Me(Me.tableDetail_CableLabel.N1DColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN1SNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N1SColumn) + End Function + + _ + Public Sub SetN1SNull() + Me(Me.tableDetail_CableLabel.N1SColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN1LNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N1LColumn) + End Function + + _ + Public Sub SetN1LNull() + Me(Me.tableDetail_CableLabel.N1LColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN1H1Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N1H1Column) + End Function + + _ + Public Sub SetN1H1Null() + Me(Me.tableDetail_CableLabel.N1H1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN1H2Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N1H2Column) + End Function + + _ + Public Sub SetN1H2Null() + Me(Me.tableDetail_CableLabel.N1H2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN20Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N20Column) + End Function + + _ + Public Sub SetN20Null() + Me(Me.tableDetail_CableLabel.N20Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN2JNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N2JColumn) + End Function + + _ + Public Sub SetN2JNull() + Me(Me.tableDetail_CableLabel.N2JColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN2KNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N2KColumn) + End Function + + _ + Public Sub SetN2KNull() + Me(Me.tableDetail_CableLabel.N2KColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN2BNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N2BColumn) + End Function + + _ + Public Sub SetN2BNull() + Me(Me.tableDetail_CableLabel.N2BColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN21Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N21Column) + End Function + + _ + Public Sub SetN21Null() + Me(Me.tableDetail_CableLabel.N21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN22Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N22Column) + End Function + + _ + Public Sub SetN22Null() + Me(Me.tableDetail_CableLabel.N22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN2CNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N2CColumn) + End Function + + _ + Public Sub SetN2CNull() + Me(Me.tableDetail_CableLabel.N2CColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN30Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N30Column) + End Function + + _ + Public Sub SetN30Null() + Me(Me.tableDetail_CableLabel.N30Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN3JNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N3JColumn) + End Function + + _ + Public Sub SetN3JNull() + Me(Me.tableDetail_CableLabel.N3JColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN3KNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N3KColumn) + End Function + + _ + Public Sub SetN3KNull() + Me(Me.tableDetail_CableLabel.N3KColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN3BNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N3BColumn) + End Function + + _ + Public Sub SetN3BNull() + Me(Me.tableDetail_CableLabel.N3BColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN31Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N31Column) + End Function + + _ + Public Sub SetN31Null() + Me(Me.tableDetail_CableLabel.N31Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN32Null() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N32Column) + End Function + + _ + Public Sub SetN32Null() + Me(Me.tableDetail_CableLabel.N32Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsN3CNull() As Boolean + Return Me.IsNull(Me.tableDetail_CableLabel.N3CColumn) + End Function + + _ + Public Sub SetN3CNull() + Me(Me.tableDetail_CableLabel.N3CColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class Detail_kikiRow + Inherits Global.System.Data.DataRow + + Private tableDetail_kiki As Detail_kikiDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDetail_kiki = CType(Me.Table,Detail_kikiDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tableDetail_kiki.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tableDetail_kiki.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Double + Get + If Me.Is관리IDNull Then + Return 0R + Else + Return CType(Me(Me.tableDetail_kiki.관리IDColumn),Double) + End If + End Get + Set + Me(Me.tableDetail_kiki.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Double + Get + If Me.Is번호Null Then + Return 0R + Else + Return CType(Me(Me.tableDetail_kiki.번호Column),Double) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + If Me.Is관리구Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.관리구Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.관리구Column) = value + End Set + End Property + + _ + Public Property 전주번호() As String + Get + If Me.Is전주번호Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.전주번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.전주번호Column) = value + End Set + End Property + + _ + Public Property 선로명() As String + Get + If Me.Is선로명Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.선로명Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.선로명Column) = value + End Set + End Property + + _ + Public Property 번호1() As String + Get + If Me.Is번호1Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.번호1Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호1Column) = value + End Set + End Property + + _ + Public Property 번호2() As String + Get + If Me.Is번호2Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.번호2Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호2Column) = value + End Set + End Property + + _ + Public Property 번호3() As String + Get + If Me.Is번호3Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.번호3Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호3Column) = value + End Set + End Property + + _ + Public Property 번호4() As String + Get + If Me.Is번호4Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.번호4Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호4Column) = value + End Set + End Property + + _ + Public Property 번호5() As String + Get + If Me.Is번호5Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.번호5Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.번호5Column) = value + End Set + End Property + + _ + Public Property 전주현행번호() As String + Get + If Me.Is전주현행번호Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.전주현행번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.전주현행번호Column) = value + End Set + End Property + + _ + Public Property 회선11() As String + Get + If Me.Is회선11Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선11Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선11Column) = value + End Set + End Property + + _ + Public Property 회선12() As String + Get + If Me.Is회선12Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선12Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선12Column) = value + End Set + End Property + + _ + Public Property 회선13() As String + Get + If Me.Is회선13Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선13Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선13Column) = value + End Set + End Property + + _ + Public Property 회선14() As String + Get + If Me.Is회선14Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선14Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선14Column) = value + End Set + End Property + + _ + Public Property 회선15() As String + Get + If Me.Is회선15Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선15Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선15Column) = value + End Set + End Property + + _ + Public Property 회선21() As String + Get + If Me.Is회선21Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선21Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선21Column) = value + End Set + End Property + + _ + Public Property 회선22() As String + Get + If Me.Is회선22Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선22Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선22Column) = value + End Set + End Property + + _ + Public Property 회선23() As String + Get + If Me.Is회선23Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선23Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선23Column) = value + End Set + End Property + + _ + Public Property 회선24() As String + Get + If Me.Is회선24Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선24Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선24Column) = value + End Set + End Property + + _ + Public Property 회선25() As String + Get + If Me.Is회선25Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선25Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선25Column) = value + End Set + End Property + + _ + Public Property 회선31() As String + Get + If Me.Is회선31Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선31Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선31Column) = value + End Set + End Property + + _ + Public Property 회선32() As String + Get + If Me.Is회선32Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선32Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선32Column) = value + End Set + End Property + + _ + Public Property 회선33() As String + Get + If Me.Is회선33Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선33Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선33Column) = value + End Set + End Property + + _ + Public Property 회선34() As String + Get + If Me.Is회선34Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선34Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선34Column) = value + End Set + End Property + + _ + Public Property 회선35() As String + Get + If Me.Is회선35Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선35Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선35Column) = value + End Set + End Property + + _ + Public Property 회선36() As String + Get + If Me.Is회선36Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선36Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선36Column) = value + End Set + End Property + + _ + Public Property 인쇄() As Boolean + Get + If Me.Is인쇄Null Then + Return false + Else + Return CType(Me(Me.tableDetail_kiki.인쇄Column),Boolean) + End If + End Get + Set + Me(Me.tableDetail_kiki.인쇄Column) = value + End Set + End Property + + _ + Public Property 대규격() As Boolean + Get + If Me.Is대규격Null Then + Return false + Else + Return CType(Me(Me.tableDetail_kiki.대규격Column),Boolean) + End If + End Get + Set + Me(Me.tableDetail_kiki.대규격Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.정렬번호Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.정렬번호Column) = value + End Set + End Property + + _ + Public Property 문자1() As String + Get + If Me.Is문자1Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.문자1Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.문자1Column) = value + End Set + End Property + + _ + Public Property 문자2() As String + Get + If Me.Is문자2Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.문자2Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.문자2Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + If Me.Is비고1Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고1Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고1Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + If Me.Is비고2Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고2Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + If Me.Is비고3Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고3Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고3Column) = value + End Set + End Property + + _ + Public Property 비고4() As String + Get + If Me.Is비고4Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고4Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고4Column) = value + End Set + End Property + + _ + Public Property 비고5() As String + Get + If Me.Is비고5Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고5Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고5Column) = value + End Set + End Property + + _ + Public Property 비고6() As String + Get + If Me.Is비고6Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.비고6Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.비고6Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + Try + Return CType(Me(Me.tableDetail_kiki.출력Column),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'Detail_kiki' 테이블의 '출력' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tableDetail_kiki.출력Column) = value + End Set + End Property + + _ + Public Property 회선10() As String + Get + If Me.Is회선10Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선10Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선10Column) = value + End Set + End Property + + _ + Public Property 회선20() As String + Get + If Me.Is회선20Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선20Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선20Column) = value + End Set + End Property + + _ + Public Property 회선30() As String + Get + If Me.Is회선30Null Then + Return "" + Else + Return CType(Me(Me.tableDetail_kiki.회선30Column),String) + End If + End Get + Set + Me(Me.tableDetail_kiki.회선30Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tableDetail_kiki.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tableDetail_kiki.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tableDetail_kiki.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.전주번호Column) + End Function + + _ + Public Sub Set전주번호Null() + Me(Me.tableDetail_kiki.전주번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로명Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.선로명Column) + End Function + + _ + Public Sub Set선로명Null() + Me(Me.tableDetail_kiki.선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호1Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호1Column) + End Function + + _ + Public Sub Set번호1Null() + Me(Me.tableDetail_kiki.번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호2Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호2Column) + End Function + + _ + Public Sub Set번호2Null() + Me(Me.tableDetail_kiki.번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호3Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호3Column) + End Function + + _ + Public Sub Set번호3Null() + Me(Me.tableDetail_kiki.번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호4Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호4Column) + End Function + + _ + Public Sub Set번호4Null() + Me(Me.tableDetail_kiki.번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호5Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.번호5Column) + End Function + + _ + Public Sub Set번호5Null() + Me(Me.tableDetail_kiki.번호5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전주현행번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.전주현행번호Column) + End Function + + _ + Public Sub Set전주현행번호Null() + Me(Me.tableDetail_kiki.전주현행번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선11Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선11Column) + End Function + + _ + Public Sub Set회선11Null() + Me(Me.tableDetail_kiki.회선11Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선12Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선12Column) + End Function + + _ + Public Sub Set회선12Null() + Me(Me.tableDetail_kiki.회선12Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선13Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선13Column) + End Function + + _ + Public Sub Set회선13Null() + Me(Me.tableDetail_kiki.회선13Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선14Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선14Column) + End Function + + _ + Public Sub Set회선14Null() + Me(Me.tableDetail_kiki.회선14Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선15Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선15Column) + End Function + + _ + Public Sub Set회선15Null() + Me(Me.tableDetail_kiki.회선15Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선21Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선21Column) + End Function + + _ + Public Sub Set회선21Null() + Me(Me.tableDetail_kiki.회선21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선22Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선22Column) + End Function + + _ + Public Sub Set회선22Null() + Me(Me.tableDetail_kiki.회선22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선23Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선23Column) + End Function + + _ + Public Sub Set회선23Null() + Me(Me.tableDetail_kiki.회선23Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선24Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선24Column) + End Function + + _ + Public Sub Set회선24Null() + Me(Me.tableDetail_kiki.회선24Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선25Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선25Column) + End Function + + _ + Public Sub Set회선25Null() + Me(Me.tableDetail_kiki.회선25Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선31Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선31Column) + End Function + + _ + Public Sub Set회선31Null() + Me(Me.tableDetail_kiki.회선31Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선32Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선32Column) + End Function + + _ + Public Sub Set회선32Null() + Me(Me.tableDetail_kiki.회선32Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선33Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선33Column) + End Function + + _ + Public Sub Set회선33Null() + Me(Me.tableDetail_kiki.회선33Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선34Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선34Column) + End Function + + _ + Public Sub Set회선34Null() + Me(Me.tableDetail_kiki.회선34Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선35Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선35Column) + End Function + + _ + Public Sub Set회선35Null() + Me(Me.tableDetail_kiki.회선35Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선36Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선36Column) + End Function + + _ + Public Sub Set회선36Null() + Me(Me.tableDetail_kiki.회선36Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is인쇄Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.인쇄Column) + End Function + + _ + Public Sub Set인쇄Null() + Me(Me.tableDetail_kiki.인쇄Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is대규격Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.대규격Column) + End Function + + _ + Public Sub Set대규격Null() + Me(Me.tableDetail_kiki.대규격Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tableDetail_kiki.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자1Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.문자1Column) + End Function + + _ + Public Sub Set문자1Null() + Me(Me.tableDetail_kiki.문자1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is문자2Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.문자2Column) + End Function + + _ + Public Sub Set문자2Null() + Me(Me.tableDetail_kiki.문자2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tableDetail_kiki.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tableDetail_kiki.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tableDetail_kiki.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고4Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고4Column) + End Function + + _ + Public Sub Set비고4Null() + Me(Me.tableDetail_kiki.비고4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고5Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고5Column) + End Function + + _ + Public Sub Set비고5Null() + Me(Me.tableDetail_kiki.비고5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고6Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.비고6Column) + End Function + + _ + Public Sub Set비고6Null() + Me(Me.tableDetail_kiki.비고6Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tableDetail_kiki.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선10Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선10Column) + End Function + + _ + Public Sub Set회선10Null() + Me(Me.tableDetail_kiki.회선10Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선20Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선20Column) + End Function + + _ + Public Sub Set회선20Null() + Me(Me.tableDetail_kiki.회선20Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is회선30Null() As Boolean + Return Me.IsNull(Me.tableDetail_kiki.회선30Column) + End Function + + _ + Public Sub Set회선30Null() + Me(Me.tableDetail_kiki.회선30Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class jjungtableRow + Inherits Global.System.Data.DataRow + + Private tablejjungtable As jjungtableDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tablejjungtable = CType(Me.Table,jjungtableDataTable) + End Sub + + _ + Public Property rowid() As System.Guid + Get + Return CType(Me(Me.tablejjungtable.rowidColumn),Global.System.Guid) + End Get + Set + Me(Me.tablejjungtable.rowidColumn) = value + End Set + End Property + + _ + Public Property 관리ID() As Integer + Get + Try + Return CType(Me(Me.tablejjungtable.관리IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjungtable' 테이블의 '관리ID' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjungtable.관리IDColumn) = value + End Set + End Property + + _ + Public Property 번호() As Integer + Get + Try + Return CType(Me(Me.tablejjungtable.번호Column),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjungtable' 테이블의 '번호' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjungtable.번호Column) = value + End Set + End Property + + _ + Public Property 관리구() As String + Get + If Me.Is관리구Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.관리구Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.관리구Column) = value + End Set + End Property + + _ + Public Property 전산화번호() As String + Get + If Me.Is전산화번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.전산화번호Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.전산화번호Column) = value + End Set + End Property + + _ + Public Property 선로명() As String + Get + If Me.Is선로명Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.선로명Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.선로명Column) = value + End Set + End Property + + _ + Public Property 번호1() As String + Get + If Me.Is번호1Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.번호1Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.번호1Column) = value + End Set + End Property + + _ + Public Property 번호2() As String + Get + If Me.Is번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.번호2Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.번호2Column) = value + End Set + End Property + + _ + Public Property 번호3() As String + Get + If Me.Is번호3Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.번호3Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.번호3Column) = value + End Set + End Property + + _ + Public Property 번호4() As String + Get + If Me.Is번호4Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.번호4Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.번호4Column) = value + End Set + End Property + + _ + Public Property 번호5() As String + Get + If Me.Is번호5Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.번호5Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.번호5Column) = value + End Set + End Property + + _ + Public Property 비고1() As String + Get + If Me.Is비고1Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고1Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고1Column) = value + End Set + End Property + + _ + Public Property 비고0() As String + Get + If Me.Is비고0Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고0Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고0Column) = value + End Set + End Property + + _ + Public Property 비고2() As String + Get + If Me.Is비고2Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고2Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고2Column) = value + End Set + End Property + + _ + Public Property 비고3() As String + Get + If Me.Is비고3Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고3Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고3Column) = value + End Set + End Property + + _ + Public Property 변압기상() As String + Get + If Me.Is변압기상Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.변압기상Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.변압기상Column) = value + End Set + End Property + + _ + Public Property 변압기용량() As String + Get + If Me.Is변압기용량Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.변압기용량Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.변압기용량Column) = value + End Set + End Property + + _ + Public Property 시공업체() As String + Get + If Me.Is시공업체Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.시공업체Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.시공업체Column) = value + End Set + End Property + + _ + Public Property 시공년월() As String + Get + If Me.Is시공년월Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.시공년월Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.시공년월Column) = value + End Set + End Property + + _ + Public Property 정렬번호() As String + Get + If Me.Is정렬번호Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.정렬번호Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.정렬번호Column) = value + End Set + End Property + + _ + Public Property 출력() As Boolean + Get + If Me.Is출력Null Then + Return true + Else + Return CType(Me(Me.tablejjungtable.출력Column),Boolean) + End If + End Get + Set + Me(Me.tablejjungtable.출력Column) = value + End Set + End Property + + _ + Public Property 관리구2() As String + Get + If Me.Is관리구2Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.관리구2Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.관리구2Column) = value + End Set + End Property + + _ + Public Property 전산번호2() As String + Get + If Me.Is전산번호2Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.전산번호2Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.전산번호2Column) = value + End Set + End Property + + _ + Public Property 변압기명() As String + Get + If Me.Is변압기명Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.변압기명Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.변압기명Column) = value + End Set + End Property + + _ + Public Property 전원측() As String + Get + If Me.Is전원측Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.전원측Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.전원측Column) = value + End Set + End Property + + _ + Public Property 부하측() As String + Get + If Me.Is부하측Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.부하측Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.부하측Column) = value + End Set + End Property + + _ + Public Property 비고21() As String + Get + If Me.Is비고21Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고21Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고21Column) = value + End Set + End Property + + _ + Public Property 비고22() As String + Get + If Me.Is비고22Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.비고22Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.비고22Column) = value + End Set + End Property + + _ + Public Property 변압기선로() As String + Get + If Me.Is변압기선로Null Then + Return String.Empty + Else + Return CType(Me(Me.tablejjungtable.변압기선로Column),String) + End If + End Get + Set + Me(Me.tablejjungtable.변압기선로Column) = value + End Set + End Property + + _ + Public Property 제조년월() As String + Get + Try + Return CType(Me(Me.tablejjungtable.제조년월Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjungtable' 테이블의 '제조년월' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjungtable.제조년월Column) = value + End Set + End Property + + _ + Public Property 제조회사() As String + Get + Try + Return CType(Me(Me.tablejjungtable.제조회사Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("'jjungtable' 테이블의 '제조회사' 열의 값이 DBNull입니다.", e) + End Try + End Get + Set + Me(Me.tablejjungtable.제조회사Column) = value + End Set + End Property + + _ + Public Function Is관리IDNull() As Boolean + Return Me.IsNull(Me.tablejjungtable.관리IDColumn) + End Function + + _ + Public Sub Set관리IDNull() + Me(Me.tablejjungtable.관리IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호Column) + End Function + + _ + Public Sub Set번호Null() + Me(Me.tablejjungtable.번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.관리구Column) + End Function + + _ + Public Sub Set관리구Null() + Me(Me.tablejjungtable.관리구Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산화번호Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.전산화번호Column) + End Function + + _ + Public Sub Set전산화번호Null() + Me(Me.tablejjungtable.전산화번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is선로명Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.선로명Column) + End Function + + _ + Public Sub Set선로명Null() + Me(Me.tablejjungtable.선로명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호1Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호1Column) + End Function + + _ + Public Sub Set번호1Null() + Me(Me.tablejjungtable.번호1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호2Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호2Column) + End Function + + _ + Public Sub Set번호2Null() + Me(Me.tablejjungtable.번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호3Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호3Column) + End Function + + _ + Public Sub Set번호3Null() + Me(Me.tablejjungtable.번호3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호4Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호4Column) + End Function + + _ + Public Sub Set번호4Null() + Me(Me.tablejjungtable.번호4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is번호5Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.번호5Column) + End Function + + _ + Public Sub Set번호5Null() + Me(Me.tablejjungtable.번호5Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고1Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고1Column) + End Function + + _ + Public Sub Set비고1Null() + Me(Me.tablejjungtable.비고1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고0Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고0Column) + End Function + + _ + Public Sub Set비고0Null() + Me(Me.tablejjungtable.비고0Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고2Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고2Column) + End Function + + _ + Public Sub Set비고2Null() + Me(Me.tablejjungtable.비고2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고3Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고3Column) + End Function + + _ + Public Sub Set비고3Null() + Me(Me.tablejjungtable.비고3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is변압기상Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.변압기상Column) + End Function + + _ + Public Sub Set변압기상Null() + Me(Me.tablejjungtable.변압기상Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is변압기용량Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.변압기용량Column) + End Function + + _ + Public Sub Set변압기용량Null() + Me(Me.tablejjungtable.변압기용량Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공업체Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.시공업체Column) + End Function + + _ + Public Sub Set시공업체Null() + Me(Me.tablejjungtable.시공업체Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is시공년월Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.시공년월Column) + End Function + + _ + Public Sub Set시공년월Null() + Me(Me.tablejjungtable.시공년월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is정렬번호Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.정렬번호Column) + End Function + + _ + Public Sub Set정렬번호Null() + Me(Me.tablejjungtable.정렬번호Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is출력Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.출력Column) + End Function + + _ + Public Sub Set출력Null() + Me(Me.tablejjungtable.출력Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is관리구2Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.관리구2Column) + End Function + + _ + Public Sub Set관리구2Null() + Me(Me.tablejjungtable.관리구2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전산번호2Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.전산번호2Column) + End Function + + _ + Public Sub Set전산번호2Null() + Me(Me.tablejjungtable.전산번호2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is변압기명Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.변압기명Column) + End Function + + _ + Public Sub Set변압기명Null() + Me(Me.tablejjungtable.변압기명Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is전원측Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.전원측Column) + End Function + + _ + Public Sub Set전원측Null() + Me(Me.tablejjungtable.전원측Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is부하측Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.부하측Column) + End Function + + _ + Public Sub Set부하측Null() + Me(Me.tablejjungtable.부하측Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고21Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고21Column) + End Function + + _ + Public Sub Set비고21Null() + Me(Me.tablejjungtable.비고21Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is비고22Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.비고22Column) + End Function + + _ + Public Sub Set비고22Null() + Me(Me.tablejjungtable.비고22Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is변압기선로Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.변압기선로Column) + End Function + + _ + Public Sub Set변압기선로Null() + Me(Me.tablejjungtable.변압기선로Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is제조년월Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.제조년월Column) + End Function + + _ + Public Sub Set제조년월Null() + Me(Me.tablejjungtable.제조년월Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is제조회사Null() As Boolean + Return Me.IsNull(Me.tablejjungtable.제조회사Column) + End Function + + _ + Public Sub Set제조회사Null() + Me(Me.tablejjungtable.제조회사Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class MainTableRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As MainTableRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As MainTableRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As MainTableRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class EtcTableRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As EtcTableRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As EtcTableRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As EtcTableRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class jjutableRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As jjutableRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As jjutableRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As jjutableRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_DeungRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_DeungRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_DeungRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_DeungRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_karoRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_karoRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_karoRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_karoRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_CableRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_CableRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_CableRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_CableRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_Cable2RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_Cable2Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_Cable2Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_Cable2Row + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_CableLabelRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_CableLabelRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_CableLabelRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_CableLabelRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class Detail_kikiRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As Detail_kikiRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As Detail_kikiRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As Detail_kikiRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class jjungtableRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As jjungtableRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As jjungtableRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As jjungtableRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace ireaDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class MainTableTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "MainTable" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("날짜", "날짜") + tableMapping.ColumnMappings.Add("거래처명", "거래처명") + tableMapping.ColumnMappings.Add("비고", "비고") + tableMapping.ColumnMappings.Add("총수량", "총수량") + tableMapping.ColumnMappings.Add("단가", "단가") + tableMapping.ColumnMappings.Add("금액", "금액") + tableMapping.ColumnMappings.Add("번호찰구분", "번호찰구분") + tableMapping.ColumnMappings.Add("시공자", "시공자") + tableMapping.ColumnMappings.Add("홈페이지", "홈페이지") + tableMapping.ColumnMappings.Add("관리", "관리") + tableMapping.ColumnMappings.Add("관리1", "관리1") + tableMapping.ColumnMappings.Add("관리2", "관리2") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `전주관리` WHERE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` = ?))"& _ + " AND ((? = 1 AND `거래처명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NULL) "& _ + "OR (`비고` = ?)) AND ((? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AND `단"& _ + "가` IS NULL) OR (`단가` = ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND ((? "& _ + "= 1 AND `번호찰구분` IS NULL) OR (`번호찰구분` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시"& _ + "공자` = ?)) AND ((? = 1 AND `홈페이지` IS NULL) OR (`홈페이지` = ?)) AND ((? = 1 AND `관리` "& _ + "IS NULL) OR (`관리` = ?)) AND ((? = 1 AND `관리1` IS NULL) OR (`관리1` = ?)) AND ((? ="& _ + " 1 AND `관리2` IS NULL) OR (`관리2` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_날짜", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_거래처명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_홈페이지", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_홈페이지", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `전주관리` (`ID`, `날짜`, `거래처명`, `비고`, `총수량`, `단가`, `금액`, `번호찰구분`, `시공자`, "& _ + "`홈페이지`, `관리`, `관리1`, `관리2`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("홈페이지", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `전주관리` SET `ID` = ?, `날짜` = ?, `거래처명` = ?, `비고` = ?, `총수량` = ?, `단가` = ?, "& _ + "`금액` = ?, `번호찰구분` = ?, `시공자` = ?, `홈페이지` = ?, `관리` = ?, `관리1` = ?, `관리2` = ? WHE"& _ + "RE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` = ?)) AND ((? = 1 AND `거래처"& _ + "명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NULL) OR (`비고` = ?)) AND (("& _ + "? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AND `단가` IS NULL) OR (`단가` "& _ + "= ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND ((? = 1 AND `번호찰구분` IS NU"& _ + "LL) OR (`번호찰구분` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1"& _ + " AND `홈페이지` IS NULL) OR (`홈페이지` = ?)) AND ((? = 1 AND `관리` IS NULL) OR (`관리` = ?"& _ + ")) AND ((? = 1 AND `관리1` IS NULL) OR (`관리1` = ?)) AND ((? = 1 AND `관리2` IS NULL)"& _ + " OR (`관리2` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("홈페이지", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_날짜", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_날짜", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "날짜", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_거래처명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_거래처명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "거래처명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_총수량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "총수량", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_단가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "단가", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_금액", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "금액", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호찰구분", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호찰구분", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_홈페이지", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_홈페이지", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "홈페이지", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, 시공자, 홈페이지, 관리, 관리1, 관리2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 전"& _ + "주관리"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 날짜" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.MainTableDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As ireaDataSet.MainTableDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As ireaDataSet.MainTableDataTable = New ireaDataSet.MainTableDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.MainTableDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "MainTable") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_ID As Global.System.Nullable(Of Integer), ByVal Original_날짜 As Global.System.Nullable(Of Date), ByVal Original_거래처명 As String, ByVal Original_비고 As String, ByVal Original_총수량 As Global.System.Nullable(Of Integer), ByVal Original_단가 As Global.System.Nullable(Of Integer), ByVal Original_금액 As Global.System.Nullable(Of Integer), ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer), ByVal Original_시공자 As String, ByVal Original_홈페이지 As String, ByVal Original_관리 As String, ByVal Original_관리1 As String, ByVal Original_관리2 As String) As Integer + If (Original_ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_날짜.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_날짜.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_거래처명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_거래처명,String) + End If + If (Original_비고 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_비고,String) + End If + If (Original_총수량.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_총수량.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_단가.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_단가.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_금액.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_금액.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_번호찰구분.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_번호찰구분.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_시공자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_시공자,String) + End If + If (Original_홈페이지 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_홈페이지,String) + End If + If (Original_관리 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_관리,String) + End If + If (Original_관리1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_관리1,String) + End If + If (Original_관리2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_관리2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal ID As Global.System.Nullable(Of Integer), ByVal 날짜 As Global.System.Nullable(Of Date), ByVal 거래처명 As String, ByVal 비고 As String, ByVal 총수량 As Global.System.Nullable(Of Integer), ByVal 단가 As Global.System.Nullable(Of Integer), ByVal 금액 As Global.System.Nullable(Of Integer), ByVal 번호찰구분 As Global.System.Nullable(Of Integer), ByVal 시공자 As String, ByVal 홈페이지 As String, ByVal 관리 As String, ByVal 관리1 As String, ByVal 관리2 As String) As Integer + If (ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (날짜.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(날짜.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (거래처명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(거래처명,String) + End If + If (비고 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(비고,String) + End If + If (총수량.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(총수량.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (단가.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(단가.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (금액.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(금액.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (번호찰구분.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(번호찰구분.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (시공자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(시공자,String) + End If + If (홈페이지 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(홈페이지,String) + End If + If (관리 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(관리,String) + End If + If (관리1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(관리1,String) + End If + If (관리2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(관리2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal ID As Global.System.Nullable(Of Integer), _ + ByVal 날짜 As Global.System.Nullable(Of Date), _ + ByVal 거래처명 As String, _ + ByVal 비고 As String, _ + ByVal 총수량 As Global.System.Nullable(Of Integer), _ + ByVal 단가 As Global.System.Nullable(Of Integer), _ + ByVal 금액 As Global.System.Nullable(Of Integer), _ + ByVal 번호찰구분 As Global.System.Nullable(Of Integer), _ + ByVal 시공자 As String, _ + ByVal 홈페이지 As String, _ + ByVal 관리 As String, _ + ByVal 관리1 As String, _ + ByVal 관리2 As String, _ + ByVal Original_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_날짜 As Global.System.Nullable(Of Date), _ + ByVal Original_거래처명 As String, _ + ByVal Original_비고 As String, _ + ByVal Original_총수량 As Global.System.Nullable(Of Integer), _ + ByVal Original_단가 As Global.System.Nullable(Of Integer), _ + ByVal Original_금액 As Global.System.Nullable(Of Integer), _ + ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer), _ + ByVal Original_시공자 As String, _ + ByVal Original_홈페이지 As String, _ + ByVal Original_관리 As String, _ + ByVal Original_관리1 As String, _ + ByVal Original_관리2 As String) As Integer + If (ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (날짜.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(날짜.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (거래처명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(거래처명,String) + End If + If (비고 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(비고,String) + End If + If (총수량.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(총수량.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (단가.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(단가.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (금액.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(금액.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (번호찰구분.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(번호찰구분.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (시공자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(시공자,String) + End If + If (홈페이지 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(홈페이지,String) + End If + If (관리 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(관리,String) + End If + If (관리1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(관리1,String) + End If + If (관리2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(관리2,String) + End If + If (Original_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + If (Original_날짜.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_날짜.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (Original_거래처명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_거래처명,String) + End If + If (Original_비고 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_비고,String) + End If + If (Original_총수량.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_총수량.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_단가.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_단가.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + If (Original_금액.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_금액.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + If (Original_번호찰구분.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_번호찰구분.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + End If + If (Original_시공자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_시공자,String) + End If + If (Original_홈페이지 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_홈페이지,String) + End If + If (Original_관리 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_관리,String) + End If + If (Original_관리1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_관리1,String) + End If + If (Original_관리2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_관리2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 날짜 As Global.System.Nullable(Of Date), _ + ByVal 거래처명 As String, _ + ByVal 비고 As String, _ + ByVal 총수량 As Global.System.Nullable(Of Integer), _ + ByVal 단가 As Global.System.Nullable(Of Integer), _ + ByVal 금액 As Global.System.Nullable(Of Integer), _ + ByVal 번호찰구분 As Global.System.Nullable(Of Integer), _ + ByVal 시공자 As String, _ + ByVal 홈페이지 As String, _ + ByVal 관리 As String, _ + ByVal 관리1 As String, _ + ByVal 관리2 As String, _ + ByVal Original_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_날짜 As Global.System.Nullable(Of Date), _ + ByVal Original_거래처명 As String, _ + ByVal Original_비고 As String, _ + ByVal Original_총수량 As Global.System.Nullable(Of Integer), _ + ByVal Original_단가 As Global.System.Nullable(Of Integer), _ + ByVal Original_금액 As Global.System.Nullable(Of Integer), _ + ByVal Original_번호찰구분 As Global.System.Nullable(Of Integer), _ + ByVal Original_시공자 As String, _ + ByVal Original_홈페이지 As String, _ + ByVal Original_관리 As String, _ + ByVal Original_관리1 As String, _ + ByVal Original_관리2 As String) As Integer + Return Me.Update(Original_ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, 시공자, 홈페이지, 관리, 관리1, 관리2, Original_ID, Original_날짜, Original_거래처명, Original_비고, Original_총수량, Original_단가, Original_금액, Original_번호찰구분, Original_시공자, Original_홈페이지, Original_관리, Original_관리1, Original_관리2) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class EtcTableTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "EtcTable" + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전주번호", "전주번호") + tableMapping.ColumnMappings.Add("선로명", "선로명") + tableMapping.ColumnMappings.Add("번호1", "번호1") + tableMapping.ColumnMappings.Add("번호2", "번호2") + tableMapping.ColumnMappings.Add("번호3", "번호3") + tableMapping.ColumnMappings.Add("번호4", "번호4") + tableMapping.ColumnMappings.Add("번호5", "번호5") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("비고4", "비고4") + tableMapping.ColumnMappings.Add("담당자", "담당자") + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `기타세부` WHERE (((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = "& _ + "1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)"& _ + ") AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL"& _ + ") OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND"& _ + " `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) A"& _ + "ND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR "& _ + "(`번호5` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2"& _ + "` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND (("& _ + "? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `담당자` IS NULL) OR (`담당자"& _ + "` = ?)) AND (`rowid` = ?) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ("& _ + "(? = 1 AND `출력` IS NULL) OR (`출력` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_담당자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_담당자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `기타세부` (`관리ID`, `번호`, `관리구`, `전주번호`, `선로명`, `번호1`, `번호2`, `번호3`, `번호4"& _ + "`, `번호5`, `비고1`, `비고2`, `비고3`, `비고4`, `담당자`, `rowid`, `정렬번호`, `출력`) VALUES (?, ?"& _ + ", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("담당자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `기타세부` SET `관리ID` = ?, `번호` = ?, `관리구` = ?, `전주번호` = ?, `선로명` = ?, `번호1` ="& _ + " ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?,"& _ + " `비고4` = ?, `담당자` = ?, `rowid` = ?, `정렬번호` = ?, `출력` = ? WHERE (((? = 1 AND `관리I"& _ + "D` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND (("& _ + "? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주"& _ + "번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` I"& _ + "S NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? ="& _ + " 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` ="& _ + " ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `비고1` IS NUL"& _ + "L) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AN"& _ + "D `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) "& _ + "AND ((? = 1 AND `담당자` IS NULL) OR (`담당자` = ?)) AND (`rowid` = ?) AND ((? = 1 AND"& _ + " `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("담당자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_담당자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_담당자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "담당자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고2, 비고3, 비고4, 담당"& _ + "자, rowid, 정렬번호, 출력"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 기타세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.EtcTableDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.EtcTableDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.EtcTableDataTable = New ireaDataSet.EtcTableDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.EtcTableDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "EtcTable") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_담당자 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_번호5,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_비고4,String) + End If + If (Original_담당자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_담당자,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 담당자 As String, _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean) As Integer + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(번호.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(번호5,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(비고4,String) + End If + If (담당자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(담당자,String) + End If + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(15).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(17).Value = CType(출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 담당자 As String, _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_담당자 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(번호5,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(비고4,String) + End If + If (담당자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(담당자,String) + End If + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(출력,Boolean) + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_번호5,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_비고4,String) + End If + If (Original_담당자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_담당자,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 담당자 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_담당자 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + Return Me.Update(관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고2, 비고3, 비고4, 담당자, Original_rowid, 정렬번호, 출력, Original_관리ID, Original_번호, Original_관리구, Original_전주번호, Original_선로명, Original_번호1, Original_번호2, Original_번호3, Original_번호4, Original_번호5, Original_비고1, Original_비고2, Original_비고3, Original_비고4, Original_담당자, Original_rowid, Original_정렬번호, Original_출력) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class jjutableTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "jjutable" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("구관리구", "구관리구") + tableMapping.ColumnMappings.Add("구전산번호", "구전산번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전주번호", "전주번호") + tableMapping.ColumnMappings.Add("선로명", "선로명") + tableMapping.ColumnMappings.Add("번호1", "번호1") + tableMapping.ColumnMappings.Add("번호2", "번호2") + tableMapping.ColumnMappings.Add("번호3", "번호3") + tableMapping.ColumnMappings.Add("번호4", "번호4") + tableMapping.ColumnMappings.Add("번호5", "번호5") + tableMapping.ColumnMappings.Add("장척", "장척") + tableMapping.ColumnMappings.Add("시공년월", "시공년월") + tableMapping.ColumnMappings.Add("시공자", "시공자") + tableMapping.ColumnMappings.Add("DL명", "DL명") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("감독자", "감독자") + tableMapping.ColumnMappings.Add("인쇄", "인쇄") + tableMapping.ColumnMappings.Add("기입", "기입") + tableMapping.ColumnMappings.Add("접지저항1", "접지저항1") + tableMapping.ColumnMappings.Add("접지저항2", "접지저항2") + tableMapping.ColumnMappings.Add("형식", "형식") + tableMapping.ColumnMappings.Add("신규", "신규") + tableMapping.ColumnMappings.Add("철거", "철거") + tableMapping.ColumnMappings.Add("그림파일", "그림파일") + tableMapping.ColumnMappings.Add("인입", "인입") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("구선로명", "구선로명") + tableMapping.ColumnMappings.Add("구전주번호", "구전주번호") + tableMapping.ColumnMappings.Add("그림경로", "그림경로") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("전주현행번호", "전주현행번호") + tableMapping.ColumnMappings.Add("문자1", "문자1") + tableMapping.ColumnMappings.Add("문자2", "문자2") + tableMapping.ColumnMappings.Add("그림", "그림") + tableMapping.ColumnMappings.Add("점검일자", "점검일자") + tableMapping.ColumnMappings.Add("COS휴즈용량", "COS휴즈용량") + tableMapping.ColumnMappings.Add("상표시찰1단", "상표시찰1단") + tableMapping.ColumnMappings.Add("상표시찰2단", "상표시찰2단") + tableMapping.ColumnMappings.Add("선로전방", "선로전방") + tableMapping.ColumnMappings.Add("선로좌측", "선로좌측") + tableMapping.ColumnMappings.Add("선로우측", "선로우측") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `전주세부` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID"& _ + "` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `구관리구` IS N"& _ + "ULL) OR (`구관리구` = ?)) AND ((? = 1 AND `구전산번호` IS NULL) OR (`구전산번호` = ?)) AND ((?"& _ + " = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번"& _ + "호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS"& _ + " NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = "& _ + "1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = "& _ + "?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `점검일자` IS NUL"& _ + "L) OR (`점검일자` = ?)) AND ((? = 1 AND `장척` IS NULL) OR (`장척` = ?)) AND ((? = 1 AND"& _ + " `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?))"& _ + " AND ((? = 1 AND `DL명` IS NULL) OR (`DL명` = ?)) AND ((? = 1 AND `비고1` IS NULL) O"& _ + "R (`비고1` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `인"& _ + "쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `기입` IS NULL) OR (`기입` = ?)) AND ((? "& _ + "= 1 AND `접지저항1` IS NULL) OR (`접지저항1` = ?)) AND ((? = 1 AND `접지저항2` IS NULL) OR ("& _ + "`접지저항2` = ?)) AND ((? = 1 AND `형식` IS NULL) OR (`형식` = ?)) AND ((? = 1 AND `신규` "& _ + "IS NULL) OR (`신규` = ?)) AND ((? = 1 AND `철거` IS NULL) OR (`철거` = ?)) AND ((? = 1"& _ + " AND `그림파일` IS NULL) OR (`그림파일` = ?)) AND ((? = 1 AND `인입` IS NULL) OR (`인입` = ?"& _ + ")) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `구선로명` IS NU"& _ + "LL) OR (`구선로명` = ?)) AND ((? = 1 AND `구전주번호` IS NULL) OR (`구전주번호` = ?)) AND ((? "& _ + "= 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행"& _ + "번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` I"& _ + "S NULL) OR (`문자2` = ?)) AND ((? = 1 AND `그림` IS NULL) OR (`그림` = ?)) AND ((? = 1"& _ + " AND `COS휴즈용량` IS NULL) OR (`COS휴즈용량` = ?)) AND ((? = 1 AND `상표시찰1단` IS NULL) OR"& _ + " (`상표시찰1단` = ?)) AND ((? = 1 AND `상표시찰2단` IS NULL) OR (`상표시찰2단` = ?)) AND ((? = "& _ + "1 AND `선로전방` IS NULL) OR (`선로전방` = ?)) AND ((? = 1 AND `선로좌측` IS NULL) OR (`선로좌측"& _ + "` = ?)) AND ((? = 1 AND `선로우측` IS NULL) OR (`선로우측` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_점검일자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_점검일자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_장척", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_장척", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_DL명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DL명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인쇄", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_기입", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_기입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_접지저항1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_접지저항1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_접지저항2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_접지저항2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_형식", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_형식", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_신규", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_신규", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_철거", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_철거", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_그림파일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_그림파일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인입", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주현행번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_그림", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_그림", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_COS휴즈용량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_COS휴즈용량", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_상표시찰1단", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_상표시찰1단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_상표시찰2단", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_상표시찰2단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로전방", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로전방", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로좌측", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로좌측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로우측", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로우측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `전주세부` (`rowid`, `관리ID`, `번호`, `구관리구`, `구전산번호`, `관리구`, `전주번호`, `선로명`,"& _ + " `번호1`, `번호2`, `번호3`, `번호4`, `번호5`, `점검일자`, `장척`, `시공년월`, `시공자`, `DL명`, `비고1`, `"& _ + "감독자`, `인쇄`, `기입`, `접지저항1`, `접지저항2`, `형식`, `신규`, `철거`, `그림파일`, `인입`, `정렬번호`, `구선로"& _ + "명`, `구전주번호`, `그림경로`, `출력`, `전주현행번호`, `문자1`, `문자2`, `그림`, `COS휴즈용량`, `상표시찰1단`, `상"& _ + "표시찰2단`, `선로전방`, `선로좌측`, `선로우측`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?"& _ + ", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, "& _ + "?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("점검일자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("장척", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("DL명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("기입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("접지저항1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("접지저항2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("형식", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("신규", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("철거", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림파일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림경로", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림경로", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("COS휴즈용량", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("상표시찰1단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("상표시찰2단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로전방", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로좌측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로우측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `전주세부` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `구관리구` = ?, `구전산번호` = ?, `관리"& _ + "구` = ?, `전주번호` = ?, `선로명` = ?, `번호1` = ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5`"& _ + " = ?, `점검일자` = ?, `장척` = ?, `시공년월` = ?, `시공자` = ?, `DL명` = ?, `비고1` = ?, `감독자` ="& _ + " ?, `인쇄` = ?, `기입` = ?, `접지저항1` = ?, `접지저항2` = ?, `형식` = ?, `신규` = ?, `철거` = ?, "& _ + "`그림파일` = ?, `인입` = ?, `정렬번호` = ?, `구선로명` = ?, `구전주번호` = ?, `그림경로` = ?, `출력` = ?,"& _ + " `전주현행번호` = ?, `문자1` = ?, `문자2` = ?, `그림` = ?, `COS휴즈용량` = ?, `상표시찰1단` = ?, `상표시"& _ + "찰2단` = ?, `선로전방` = ?, `선로좌측` = ?, `선로우측` = ? WHERE ((`rowid` = ?) AND ((? = 1 AN"& _ + "D `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) "& _ + "AND ((? = 1 AND `구관리구` IS NULL) OR (`구관리구` = ?)) AND ((? = 1 AND `구전산번호` IS NULL"& _ + ") OR (`구전산번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 A"& _ + "ND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?"& _ + ")) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL)"& _ + " OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND "& _ + "`번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AN"& _ + "D ((? = 1 AND `점검일자` IS NULL) OR (`점검일자` = ?)) AND ((? = 1 AND `장척` IS NULL) OR "& _ + "(`장척` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공"& _ + "자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `DL명` IS NULL) OR (`DL명` = ?)) AND ("& _ + "(? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독"& _ + "자` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `기입` IS NU"& _ + "LL) OR (`기입` = ?)) AND ((? = 1 AND `접지저항1` IS NULL) OR (`접지저항1` = ?)) AND ((? = "& _ + "1 AND `접지저항2` IS NULL) OR (`접지저항2` = ?)) AND ((? = 1 AND `형식` IS NULL) OR (`형식` "& _ + "= ?)) AND ((? = 1 AND `신규` IS NULL) OR (`신규` = ?)) AND ((? = 1 AND `철거` IS NULL)"& _ + " OR (`철거` = ?)) AND ((? = 1 AND `그림파일` IS NULL) OR (`그림파일` = ?)) AND ((? = 1 AND"& _ + " `인입` IS NULL) OR (`인입` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) A"& _ + "ND ((? = 1 AND `구선로명` IS NULL) OR (`구선로명` = ?)) AND ((? = 1 AND `구전주번호` IS NULL)"& _ + " OR (`구전주번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND "& _ + "`전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = "& _ + "?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `그림` IS NULL)"& _ + " OR (`그림` = ?)) AND ((? = 1 AND `COS휴즈용량` IS NULL) OR (`COS휴즈용량` = ?)) AND ((? ="& _ + " 1 AND `상표시찰1단` IS NULL) OR (`상표시찰1단` = ?)) AND ((? = 1 AND `상표시찰2단` IS NULL) OR"& _ + " (`상표시찰2단` = ?)) AND ((? = 1 AND `선로전방` IS NULL) OR (`선로전방` = ?)) AND ((? = 1 AN"& _ + "D `선로좌측` IS NULL) OR (`선로좌측` = ?)) AND ((? = 1 AND `선로우측` IS NULL) OR (`선로우측` = "& _ + "?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("점검일자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("장척", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("DL명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("기입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("접지저항1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("접지저항2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("형식", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("신규", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("철거", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림파일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("구전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림경로", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림경로", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("그림", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("COS휴즈용량", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("상표시찰1단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("상표시찰2단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로전방", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로좌측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로우측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_점검일자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_점검일자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "점검일자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_장척", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_장척", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "장척", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_DL명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_DL명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "DL명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인쇄", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_기입", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_기입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "기입", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_접지저항1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_접지저항1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_접지저항2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_접지저항2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "접지저항2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_형식", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_형식", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "형식", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_신규", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_신규", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "신규", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_철거", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_철거", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "철거", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_그림파일", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_그림파일", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림파일", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인입", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인입", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인입", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_구전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_구전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "구전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주현행번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_그림", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_그림", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "그림", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_COS휴즈용량", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_COS휴즈용량", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "COS휴즈용량", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_상표시찰1단", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_상표시찰1단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰1단", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_상표시찰2단", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_상표시찰2단", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "상표시찰2단", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로전방", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로전방", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로전방", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로좌측", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로좌측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로좌측", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로우측", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로우측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로우측", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 구관리구, 구전산번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " 점검일자, 장척, 시공년월, 시공자, DL명, 비고1, 감독자, 인쇄, 기입, 접지저항1, 접지저항2, 형식, 신규,"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 철거, 그림파일, 인입, 정렬번호, 구선로명, 구전주번호, 그림경로, 출력, 전주현행번호, 문자1, 문자2, 그"& _ + "림, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COS휴즈용량, 상표시찰1단, 상표시찰2단, 선로전방, 선로좌측, 선로우측"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 전주세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WH"& _ + "ERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.jjutableDataTable, ByVal 관리ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Integer) As ireaDataSet.jjutableDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID,Integer) + Dim dataTable As ireaDataSet.jjutableDataTable = New ireaDataSet.jjutableDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.jjutableDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "jjutable") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Integer, _ + ByVal Original_번호 As Integer, _ + ByVal Original_구관리구 As String, _ + ByVal Original_구전산번호 As String, _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_점검일자 As String, _ + ByVal Original_장척 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공자 As String, _ + ByVal Original_DL명 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_기입 As Boolean, _ + ByVal Original_접지저항1 As String, _ + ByVal Original_접지저항2 As String, _ + ByVal Original_형식 As String, _ + ByVal Original_신규 As Boolean, _ + ByVal Original_철거 As Boolean, _ + ByVal Original_그림파일 As String, _ + ByVal Original_인입 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_구선로명 As String, _ + ByVal Original_구전주번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_그림 As Boolean, _ + ByVal Original_COS휴즈용량 As String, _ + ByVal Original_상표시찰1단 As String, _ + ByVal Original_상표시찰2단 As String, _ + ByVal Original_선로전방 As String, _ + ByVal Original_선로좌측 As String, _ + ByVal Original_선로우측 As String) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID,Integer) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호,Integer) + If (Original_구관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_구관리구,String) + End If + If (Original_구전산번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_구전산번호,String) + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_번호5,String) + End If + If (Original_점검일자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_점검일자,String) + End If + If (Original_장척 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_장척,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_시공년월,String) + End If + If (Original_시공자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_시공자,String) + End If + If (Original_DL명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_DL명,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_비고1,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_감독자,String) + End If + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_인쇄,Boolean) + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_기입,Boolean) + If (Original_접지저항1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_접지저항1,String) + End If + If (Original_접지저항2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_접지저항2,String) + End If + If (Original_형식 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_형식,String) + End If + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_신규,Boolean) + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_철거,Boolean) + If (Original_그림파일 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_그림파일,String) + End If + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_인입,Boolean) + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_정렬번호,String) + End If + If (Original_구선로명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_구선로명,String) + End If + If (Original_구전주번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_구전주번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_출력,Boolean) + If (Original_전주현행번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_전주현행번호,String) + End If + If (Original_문자1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_문자2,String) + End If + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_그림,Boolean) + If (Original_COS휴즈용량 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_COS휴즈용량,String) + End If + If (Original_상표시찰1단 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_상표시찰1단,String) + End If + If (Original_상표시찰2단 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_상표시찰2단,String) + End If + If (Original_선로전방 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_선로전방,String) + End If + If (Original_선로좌측 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_선로좌측,String) + End If + If (Original_선로우측 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_선로우측,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 구관리구 As String, _ + ByVal 구전산번호 As String, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 점검일자 As String, _ + ByVal 장척 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공자 As String, _ + ByVal DL명 As String, _ + ByVal 비고1 As String, _ + ByVal 감독자 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 기입 As Boolean, _ + ByVal 접지저항1 As String, _ + ByVal 접지저항2 As String, _ + ByVal 형식 As String, _ + ByVal 신규 As Boolean, _ + ByVal 철거 As Boolean, _ + ByVal 그림파일 As String, _ + ByVal 인입 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 구선로명 As String, _ + ByVal 구전주번호 As String, _ + ByVal 그림경로 As String, _ + ByVal 출력 As Boolean, _ + ByVal 전주현행번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 그림 As Boolean, _ + ByVal COS휴즈용량 As String, _ + ByVal 상표시찰1단 As String, _ + ByVal 상표시찰2단 As String, _ + ByVal 선로전방 As String, _ + ByVal 선로좌측 As String, _ + ByVal 선로우측 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호,Integer) + If (구관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(구관리구,String) + End If + If (구전산번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(구전산번호,String) + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(번호5,String) + End If + If (점검일자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(점검일자,String) + End If + If (장척 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(장척,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(시공년월,String) + End If + If (시공자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(시공자,String) + End If + If (DL명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(DL명,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(비고1,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(감독자,String) + End If + Me.Adapter.InsertCommand.Parameters(20).Value = CType(인쇄,Boolean) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(기입,Boolean) + If (접지저항1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(접지저항1,String) + End If + If (접지저항2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(접지저항2,String) + End If + If (형식 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(형식,String) + End If + Me.Adapter.InsertCommand.Parameters(25).Value = CType(신규,Boolean) + Me.Adapter.InsertCommand.Parameters(26).Value = CType(철거,Boolean) + If (그림파일 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(그림파일,String) + End If + Me.Adapter.InsertCommand.Parameters(28).Value = CType(인입,Boolean) + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(정렬번호,String) + End If + If (구선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(구선로명,String) + End If + If (구전주번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(구전주번호,String) + End If + If (그림경로 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(그림경로,String) + End If + Me.Adapter.InsertCommand.Parameters(33).Value = CType(출력,Boolean) + If (전주현행번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(34).Value = CType(전주현행번호,String) + End If + If (문자1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(36).Value = CType(문자2,String) + End If + Me.Adapter.InsertCommand.Parameters(37).Value = CType(그림,Boolean) + If (COS휴즈용량 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(38).Value = CType(COS휴즈용량,String) + End If + If (상표시찰1단 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(39).Value = CType(상표시찰1단,String) + End If + If (상표시찰2단 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(40).Value = CType(상표시찰2단,String) + End If + If (선로전방 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(41).Value = CType(선로전방,String) + End If + If (선로좌측 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(42).Value = CType(선로좌측,String) + End If + If (선로우측 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(43).Value = CType(선로우측,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 구관리구 As String, _ + ByVal 구전산번호 As String, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 점검일자 As String, _ + ByVal 장척 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공자 As String, _ + ByVal DL명 As String, _ + ByVal 비고1 As String, _ + ByVal 감독자 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 기입 As Boolean, _ + ByVal 접지저항1 As String, _ + ByVal 접지저항2 As String, _ + ByVal 형식 As String, _ + ByVal 신규 As Boolean, _ + ByVal 철거 As Boolean, _ + ByVal 그림파일 As String, _ + ByVal 인입 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 구선로명 As String, _ + ByVal 구전주번호 As String, _ + ByVal 그림경로 As String, _ + ByVal 출력 As Boolean, _ + ByVal 전주현행번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 그림 As Boolean, _ + ByVal COS휴즈용량 As String, _ + ByVal 상표시찰1단 As String, _ + ByVal 상표시찰2단 As String, _ + ByVal 선로전방 As String, _ + ByVal 선로좌측 As String, _ + ByVal 선로우측 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Integer, _ + ByVal Original_번호 As Integer, _ + ByVal Original_구관리구 As String, _ + ByVal Original_구전산번호 As String, _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_점검일자 As String, _ + ByVal Original_장척 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공자 As String, _ + ByVal Original_DL명 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_기입 As Boolean, _ + ByVal Original_접지저항1 As String, _ + ByVal Original_접지저항2 As String, _ + ByVal Original_형식 As String, _ + ByVal Original_신규 As Boolean, _ + ByVal Original_철거 As Boolean, _ + ByVal Original_그림파일 As String, _ + ByVal Original_인입 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_구선로명 As String, _ + ByVal Original_구전주번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_그림 As Boolean, _ + ByVal Original_COS휴즈용량 As String, _ + ByVal Original_상표시찰1단 As String, _ + ByVal Original_상표시찰2단 As String, _ + ByVal Original_선로전방 As String, _ + ByVal Original_선로좌측 As String, _ + ByVal Original_선로우측 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호,Integer) + If (구관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(구관리구,String) + End If + If (구전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(구전산번호,String) + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(번호5,String) + End If + If (점검일자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(점검일자,String) + End If + If (장척 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(장척,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(시공년월,String) + End If + If (시공자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(시공자,String) + End If + If (DL명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(DL명,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(비고1,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(감독자,String) + End If + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(인쇄,Boolean) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(기입,Boolean) + If (접지저항1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(접지저항1,String) + End If + If (접지저항2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(접지저항2,String) + End If + If (형식 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(형식,String) + End If + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(신규,Boolean) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(철거,Boolean) + If (그림파일 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(그림파일,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(인입,Boolean) + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(정렬번호,String) + End If + If (구선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(구선로명,String) + End If + If (구전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(구전주번호,String) + End If + If (그림경로 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(그림경로,String) + End If + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(출력,Boolean) + If (전주현행번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(전주현행번호,String) + End If + If (문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(문자2,String) + End If + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(그림,Boolean) + If (COS휴즈용량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(COS휴즈용량,String) + End If + If (상표시찰1단 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(상표시찰1단,String) + End If + If (상표시찰2단 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(상표시찰2단,String) + End If + If (선로전방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(선로전방,String) + End If + If (선로좌측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(선로좌측,String) + End If + If (선로우측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(선로우측,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_관리ID,Integer) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_번호,Integer) + If (Original_구관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_구관리구,String) + End If + If (Original_구전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_구전산번호,String) + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_번호5,String) + End If + If (Original_점검일자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_점검일자,String) + End If + If (Original_장척 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_장척,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_시공년월,String) + End If + If (Original_시공자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_시공자,String) + End If + If (Original_DL명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_DL명,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_비고1,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_감독자,String) + End If + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_인쇄,Boolean) + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_기입,Boolean) + If (Original_접지저항1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_접지저항1,String) + End If + If (Original_접지저항2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_접지저항2,String) + End If + If (Original_형식 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_형식,String) + End If + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_신규,Boolean) + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_철거,Boolean) + If (Original_그림파일 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(98).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_그림파일,String) + End If + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_인입,Boolean) + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_정렬번호,String) + End If + If (Original_구선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_구선로명,String) + End If + If (Original_구전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_구전주번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_출력,Boolean) + If (Original_전주현행번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_전주현행번호,String) + End If + If (Original_문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_문자2,String) + End If + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_그림,Boolean) + If (Original_COS휴즈용량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(118).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_COS휴즈용량,String) + End If + If (Original_상표시찰1단 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(119).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(120).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(119).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(Original_상표시찰1단,String) + End If + If (Original_상표시찰2단 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(121).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(122).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(121).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(Original_상표시찰2단,String) + End If + If (Original_선로전방 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(123).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(124).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(123).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(Original_선로전방,String) + End If + If (Original_선로좌측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(125).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(126).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(125).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(Original_선로좌측,String) + End If + If (Original_선로우측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(127).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(128).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(127).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(Original_선로우측,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Integer, _ + ByVal 번호 As Integer, _ + ByVal 구관리구 As String, _ + ByVal 구전산번호 As String, _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 점검일자 As String, _ + ByVal 장척 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공자 As String, _ + ByVal DL명 As String, _ + ByVal 비고1 As String, _ + ByVal 감독자 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 기입 As Boolean, _ + ByVal 접지저항1 As String, _ + ByVal 접지저항2 As String, _ + ByVal 형식 As String, _ + ByVal 신규 As Boolean, _ + ByVal 철거 As Boolean, _ + ByVal 그림파일 As String, _ + ByVal 인입 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 구선로명 As String, _ + ByVal 구전주번호 As String, _ + ByVal 그림경로 As String, _ + ByVal 출력 As Boolean, _ + ByVal 전주현행번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 그림 As Boolean, _ + ByVal COS휴즈용량 As String, _ + ByVal 상표시찰1단 As String, _ + ByVal 상표시찰2단 As String, _ + ByVal 선로전방 As String, _ + ByVal 선로좌측 As String, _ + ByVal 선로우측 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Integer, _ + ByVal Original_번호 As Integer, _ + ByVal Original_구관리구 As String, _ + ByVal Original_구전산번호 As String, _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_점검일자 As String, _ + ByVal Original_장척 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공자 As String, _ + ByVal Original_DL명 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_기입 As Boolean, _ + ByVal Original_접지저항1 As String, _ + ByVal Original_접지저항2 As String, _ + ByVal Original_형식 As String, _ + ByVal Original_신규 As Boolean, _ + ByVal Original_철거 As Boolean, _ + ByVal Original_그림파일 As String, _ + ByVal Original_인입 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_구선로명 As String, _ + ByVal Original_구전주번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_그림 As Boolean, _ + ByVal Original_COS휴즈용량 As String, _ + ByVal Original_상표시찰1단 As String, _ + ByVal Original_상표시찰2단 As String, _ + ByVal Original_선로전방 As String, _ + ByVal Original_선로좌측 As String, _ + ByVal Original_선로우측 As String) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 구관리구, 구전산번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 점검일자, 장척, 시공년월, 시공자, DL명, 비고1, 감독자, 인쇄, 기입, 접지저항1, 접지저항2, 형식, 신규, 철거, 그림파일, 인입, 정렬번호, 구선로명, 구전주번호, 그림경로, 출력, 전주현행번호, 문자1, 문자2, 그림, COS휴즈용량, 상표시찰1단, 상표시찰2단, 선로전방, 선로좌측, 선로우측, Original_rowid, Original_관리ID, Original_번호, Original_구관리구, Original_구전산번호, Original_관리구, Original_전주번호, Original_선로명, Original_번호1, Original_번호2, Original_번호3, Original_번호4, Original_번호5, Original_점검일자, Original_장척, Original_시공년월, Original_시공자, Original_DL명, Original_비고1, Original_감독자, Original_인쇄, Original_기입, Original_접지저항1, Original_접지저항2, Original_형식, Original_신규, Original_철거, Original_그림파일, Original_인입, Original_정렬번호, Original_구선로명, Original_구전주번호, Original_출력, Original_전주현행번호, Original_문자1, Original_문자2, Original_그림, Original_COS휴즈용량, Original_상표시찰1단, Original_상표시찰2단, Original_선로전방, Original_선로좌측, Original_선로우측) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_DeungTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_Deung" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리번호1", "관리번호1") + tableMapping.ColumnMappings.Add("관리번호2", "관리번호2") + tableMapping.ColumnMappings.Add("관리번호3", "관리번호3") + tableMapping.ColumnMappings.Add("지점명", "지점명") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("문자1", "문자1") + tableMapping.ColumnMappings.Add("문자2", "문자2") + tableMapping.ColumnMappings.Add("고객번호1", "고객번호1") + tableMapping.ColumnMappings.Add("고객번호2", "고객번호2") + tableMapping.ColumnMappings.Add("고객번호3", "고객번호3") + tableMapping.ColumnMappings.Add("전산화번호1", "전산화번호1") + tableMapping.ColumnMappings.Add("전산화번호2", "전산화번호2") + tableMapping.ColumnMappings.Add("선로명", "선로명") + tableMapping.ColumnMappings.Add("전주번호1", "전주번호1") + tableMapping.ColumnMappings.Add("전주번호2", "전주번호2") + tableMapping.ColumnMappings.Add("전주번호3", "전주번호3") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_Deung` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) O"& _ + "R (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리"& _ + "번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?"& _ + ")) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관리번호3` = ?)) AND ((? = 1 AND `지점명` IS N"& _ + "ULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = "& _ + "1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)"& _ + ") AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `고객번호1` IS NULL"& _ + ") OR (`고객번호1` = ?)) AND ((? = 1 AND `고객번호2` IS NULL) OR (`고객번호2` = ?)) AND ((? ="& _ + " 1 AND `고객번호3` IS NULL) OR (`고객번호3` = ?)) AND ((? = 1 AND `전산화번호1` IS NULL) OR ("& _ + "`전산화번호1` = ?)) AND ((? = 1 AND `전산화번호2` IS NULL) OR (`전산화번호2` = ?)) AND ((? = 1 "& _ + "AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `전주번호1` IS NULL) OR (`전주번호1` "& _ + "= ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? = 1 AND `전주번호3`"& _ + " IS NULL) OR (`전주번호3` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지점명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산화번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산화번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Deung` (`rowid`, `관리ID`, `번호`, `관리번호1`, `관리번호2`, `관리번호3`, `지점"& _ + "명`, `정렬번호`, `출력`, `문자1`, `문자2`, `고객번호1`, `고객번호2`, `고객번호3`, `전산화번호1`, `전산화번호2`, `"& _ + "선로명`, `전주번호1`, `전주번호2`, `전주번호3`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, "& _ + "?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_Deung` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리번호1` = ?, `관리번호2`"& _ + " = ?, `관리번호3` = ?, `지점명` = ?, `정렬번호` = ?, `출력` = ?, `문자1` = ?, `문자2` = ?, `고객번호1"& _ + "` = ?, `고객번호2` = ?, `고객번호3` = ?, `전산화번호1` = ?, `전산화번호2` = ?, `선로명` = ?, `전주번호1` "& _ + "= ?, `전주번호2` = ?, `전주번호3` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NUL"& _ + "L) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND"& _ + " `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2`"& _ + " = ?)) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관리번호3` = ?)) AND ((? = 1 AND `지점명` "& _ + "IS NULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND (("& _ + "? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` "& _ + "= ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `고객번호1` IS "& _ + "NULL) OR (`고객번호1` = ?)) AND ((? = 1 AND `고객번호2` IS NULL) OR (`고객번호2` = ?)) AND ("& _ + "(? = 1 AND `고객번호3` IS NULL) OR (`고객번호3` = ?)) AND ((? = 1 AND `전산화번호1` IS NULL) "& _ + "OR (`전산화번호1` = ?)) AND ((? = 1 AND `전산화번호2` IS NULL) OR (`전산화번호2` = ?)) AND ((? "& _ + "= 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `전주번호1` IS NULL) OR (`전주번"& _ + "호1` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? = 1 AND `전주"& _ + "번호3` IS NULL) OR (`전주번호3` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지점명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지점명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지점명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_고객번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_고객번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "고객번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산화번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산화번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, 출력, 문자1, 문자2, 고객번호1, 고객번"& _ + "호2, 고객번호3, 전산화번호1, 전산화번호2, 선로명, 전주번호1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 전주번호2, 전주번호3"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM D"& _ + "etail_Deung"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_DeungDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_DeungDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_DeungDataTable = New ireaDataSet.Detail_DeungDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_DeungDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_Deung") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리번호1 As String, _ + ByVal Original_관리번호2 As String, _ + ByVal Original_관리번호3 As String, _ + ByVal Original_지점명 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_고객번호1 As String, _ + ByVal Original_고객번호2 As String, _ + ByVal Original_고객번호3 As String, _ + ByVal Original_전산화번호1 As String, _ + ByVal Original_전산화번호2 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_전주번호1 As String, _ + ByVal Original_전주번호2 As String, _ + ByVal Original_전주번호3 As String) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_관리번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_관리번호1,String) + End If + If (Original_관리번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_관리번호2,String) + End If + If (Original_관리번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_관리번호3,String) + End If + If (Original_지점명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_지점명,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_출력,Boolean) + If (Original_문자1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_문자2,String) + End If + If (Original_고객번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_고객번호1,String) + End If + If (Original_고객번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_고객번호2,String) + End If + If (Original_고객번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_고객번호3,String) + End If + If (Original_전산화번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_전산화번호1,String) + End If + If (Original_전산화번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_전산화번호2,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_선로명,String) + End If + If (Original_전주번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_전주번호1,String) + End If + If (Original_전주번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_전주번호2,String) + End If + If (Original_전주번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_전주번호3,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 관리번호3 As String, _ + ByVal 지점명 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 고객번호1 As String, _ + ByVal 고객번호2 As String, _ + ByVal 고객번호3 As String, _ + ByVal 전산화번호1 As String, _ + ByVal 전산화번호2 As String, _ + ByVal 선로명 As String, _ + ByVal 전주번호1 As String, _ + ByVal 전주번호2 As String, _ + ByVal 전주번호3 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(관리번호1,String) + End If + If (관리번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(관리번호2,String) + End If + If (관리번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(관리번호3,String) + End If + If (지점명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(지점명,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(출력,Boolean) + If (문자1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(문자2,String) + End If + If (고객번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(고객번호1,String) + End If + If (고객번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(고객번호2,String) + End If + If (고객번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(고객번호3,String) + End If + If (전산화번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(전산화번호1,String) + End If + If (전산화번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(전산화번호2,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(선로명,String) + End If + If (전주번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(전주번호1,String) + End If + If (전주번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(전주번호2,String) + End If + If (전주번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(전주번호3,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 관리번호3 As String, _ + ByVal 지점명 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 고객번호1 As String, _ + ByVal 고객번호2 As String, _ + ByVal 고객번호3 As String, _ + ByVal 전산화번호1 As String, _ + ByVal 전산화번호2 As String, _ + ByVal 선로명 As String, _ + ByVal 전주번호1 As String, _ + ByVal 전주번호2 As String, _ + ByVal 전주번호3 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리번호1 As String, _ + ByVal Original_관리번호2 As String, _ + ByVal Original_관리번호3 As String, _ + ByVal Original_지점명 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_고객번호1 As String, _ + ByVal Original_고객번호2 As String, _ + ByVal Original_고객번호3 As String, _ + ByVal Original_전산화번호1 As String, _ + ByVal Original_전산화번호2 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_전주번호1 As String, _ + ByVal Original_전주번호2 As String, _ + ByVal Original_전주번호3 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(관리번호1,String) + End If + If (관리번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(관리번호2,String) + End If + If (관리번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(관리번호3,String) + End If + If (지점명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(지점명,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(출력,Boolean) + If (문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(문자2,String) + End If + If (고객번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(고객번호1,String) + End If + If (고객번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(고객번호2,String) + End If + If (고객번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(고객번호3,String) + End If + If (전산화번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(전산화번호1,String) + End If + If (전산화번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(전산화번호2,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(선로명,String) + End If + If (전주번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(전주번호1,String) + End If + If (전주번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(전주번호2,String) + End If + If (전주번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(전주번호3,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + End If + If (Original_관리번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_관리번호1,String) + End If + If (Original_관리번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_관리번호2,String) + End If + If (Original_관리번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_관리번호3,String) + End If + If (Original_지점명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_지점명,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_출력,Boolean) + If (Original_문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_문자2,String) + End If + If (Original_고객번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_고객번호1,String) + End If + If (Original_고객번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_고객번호2,String) + End If + If (Original_고객번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_고객번호3,String) + End If + If (Original_전산화번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_전산화번호1,String) + End If + If (Original_전산화번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_전산화번호2,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_선로명,String) + End If + If (Original_전주번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_전주번호1,String) + End If + If (Original_전주번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_전주번호2,String) + End If + If (Original_전주번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_전주번호3,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 관리번호3 As String, _ + ByVal 지점명 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 고객번호1 As String, _ + ByVal 고객번호2 As String, _ + ByVal 고객번호3 As String, _ + ByVal 전산화번호1 As String, _ + ByVal 전산화번호2 As String, _ + ByVal 선로명 As String, _ + ByVal 전주번호1 As String, _ + ByVal 전주번호2 As String, _ + ByVal 전주번호3 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_관리번호1 As String, _ + ByVal Original_관리번호2 As String, _ + ByVal Original_관리번호3 As String, _ + ByVal Original_지점명 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_고객번호1 As String, _ + ByVal Original_고객번호2 As String, _ + ByVal Original_고객번호3 As String, _ + ByVal Original_전산화번호1 As String, _ + ByVal Original_전산화번호2 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_전주번호1 As String, _ + ByVal Original_전주번호2 As String, _ + ByVal Original_전주번호3 As String) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, 출력, 문자1, 문자2, 고객번호1, 고객번호2, 고객번호3, 전산화번호1, 전산화번호2, 선로명, 전주번호1, 전주번호2, 전주번호3, Original_rowid, Original_관리ID, Original_번호, Original_관리번호1, Original_관리번호2, Original_관리번호3, Original_지점명, Original_정렬번호, Original_출력, Original_문자1, Original_문자2, Original_고객번호1, Original_고객번호2, Original_고객번호3, Original_전산화번호1, Original_전산화번호2, Original_선로명, Original_전주번호1, Original_전주번호2, Original_전주번호3) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_karoTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_karo" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("지역명", "지역명") + tableMapping.ColumnMappings.Add("관리번호1", "관리번호1") + tableMapping.ColumnMappings.Add("관리번호2", "관리번호2") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("문자1", "문자1") + tableMapping.ColumnMappings.Add("문자2", "문자2") + tableMapping.ColumnMappings.Add("전화번호1", "전화번호1") + tableMapping.ColumnMappings.Add("전화번호2", "전화번호2") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_karo` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR"& _ + " (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `지역명"& _ + "` IS NULL) OR (`지역명` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AN"& _ + "D ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `전화번호1` IS NULL"& _ + ") OR (`전화번호1` = ?)) AND ((? = 1 AND `전화번호2` IS NULL) OR (`전화번호2` = ?)) AND ((? ="& _ + " 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` ="& _ + " ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NUL"& _ + "L) OR (`문자2` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지역명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지역명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전화번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전화번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_karo` (`rowid`, `관리ID`, `번호`, `지역명`, `관리번호1`, `관리번호2`, `전화번호1"& _ + "`, `전화번호2`, `정렬번호`, `출력`, `문자1`, `문자2`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,"& _ + " ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지역명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_karo` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `지역명` = ?, `관리번호1` = "& _ + "?, `관리번호2` = ?, `전화번호1` = ?, `전화번호2` = ?, `정렬번호` = ?, `출력` = ?, `문자1` = ?, `문자2`"& _ + " = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ("& _ + "(? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `지역명` IS NULL) OR (`지역명`"& _ + " = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2"& _ + "` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `전화번호1` IS NULL) OR (`전화번호1` = ?)) "& _ + "AND ((? = 1 AND `전화번호2` IS NULL) OR (`전화번호2` = ?)) AND ((? = 1 AND `정렬번호` IS NUL"& _ + "L) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND"& _ + " `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("지역명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_지역명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_지역명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "지역명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전화번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전화번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전화번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전화번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전화번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 지역명, 관리번호1, 관리번호2, 전화번호1, 전화번호2, 정렬번호, 출력, 문자1, 문자2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FRO"& _ + "M Detail_karo"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_karoDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.Detail_karoDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_karoDataTable = New ireaDataSet.Detail_karoDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_karoDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_karo") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), ByVal Original_관리ID As Global.System.Nullable(Of Integer), ByVal Original_번호 As Global.System.Nullable(Of Integer), ByVal Original_지역명 As String, ByVal Original_관리번호1 As String, ByVal Original_관리번호2 As String, ByVal Original_전화번호1 As String, ByVal Original_전화번호2 As String, ByVal Original_정렬번호 As String, ByVal Original_출력 As Boolean, ByVal Original_문자1 As String, ByVal Original_문자2 As String) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_지역명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_지역명,String) + End If + If (Original_관리번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_관리번호1,String) + End If + If (Original_관리번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_관리번호2,String) + End If + If (Original_전화번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_전화번호1,String) + End If + If (Original_전화번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_전화번호2,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_출력,Boolean) + If (Original_문자1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_문자2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal rowid As Global.System.Nullable(Of Global.System.Guid), ByVal 관리ID As Global.System.Nullable(Of Integer), ByVal 번호 As Global.System.Nullable(Of Integer), ByVal 지역명 As String, ByVal 관리번호1 As String, ByVal 관리번호2 As String, ByVal 전화번호1 As String, ByVal 전화번호2 As String, ByVal 정렬번호 As String, ByVal 출력 As Boolean, ByVal 문자1 As String, ByVal 문자2 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (지역명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(지역명,String) + End If + If (관리번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(관리번호1,String) + End If + If (관리번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(관리번호2,String) + End If + If (전화번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(전화번호1,String) + End If + If (전화번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(전화번호2,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(출력,Boolean) + If (문자1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(문자2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 지역명 As String, _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 전화번호1 As String, _ + ByVal 전화번호2 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_지역명 As String, _ + ByVal Original_관리번호1 As String, _ + ByVal Original_관리번호2 As String, _ + ByVal Original_전화번호1 As String, _ + ByVal Original_전화번호2 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (지역명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(지역명,String) + End If + If (관리번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(관리번호1,String) + End If + If (관리번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(관리번호2,String) + End If + If (전화번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(전화번호1,String) + End If + If (전화번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(전화번호2,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(출력,Boolean) + If (문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(문자2,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (Original_지역명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_지역명,String) + End If + If (Original_관리번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_관리번호1,String) + End If + If (Original_관리번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_관리번호2,String) + End If + If (Original_전화번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_전화번호1,String) + End If + If (Original_전화번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_전화번호2,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_출력,Boolean) + If (Original_문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_문자2,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 지역명 As String, _ + ByVal 관리번호1 As String, _ + ByVal 관리번호2 As String, _ + ByVal 전화번호1 As String, _ + ByVal 전화번호2 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Integer), _ + ByVal Original_번호 As Global.System.Nullable(Of Integer), _ + ByVal Original_지역명 As String, _ + ByVal Original_관리번호1 As String, _ + ByVal Original_관리번호2 As String, _ + ByVal Original_전화번호1 As String, _ + ByVal Original_전화번호2 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 지역명, 관리번호1, 관리번호2, 전화번호1, 전화번호2, 정렬번호, 출력, 문자1, 문자2, Original_rowid, Original_관리ID, Original_번호, Original_지역명, Original_관리번호1, Original_관리번호2, Original_전화번호1, Original_전화번호2, Original_정렬번호, Original_출력, Original_문자1, Original_문자2) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_CableTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_Cable" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전산번호", "전산번호") + tableMapping.ColumnMappings.Add("HASS", "HASS") + tableMapping.ColumnMappings.Add("HADL", "HADL") + tableMapping.ColumnMappings.Add("HA구간", "HA구간") + tableMapping.ColumnMappings.Add("HBSS", "HBSS") + tableMapping.ColumnMappings.Add("HBDL", "HBDL") + tableMapping.ColumnMappings.Add("HB구간", "HB구간") + tableMapping.ColumnMappings.Add("S0번호1", "S0번호1") + tableMapping.ColumnMappings.Add("S0번호2", "S0번호2") + tableMapping.ColumnMappings.Add("S0번호3", "S0번호3") + tableMapping.ColumnMappings.Add("S0번호4", "S0번호4") + tableMapping.ColumnMappings.Add("S0SW명", "S0SW명") + tableMapping.ColumnMappings.Add("S0수용가", "S0수용가") + tableMapping.ColumnMappings.Add("S1번호1", "S1번호1") + tableMapping.ColumnMappings.Add("S1번호2", "S1번호2") + tableMapping.ColumnMappings.Add("S1번호3", "S1번호3") + tableMapping.ColumnMappings.Add("S1번호4", "S1번호4") + tableMapping.ColumnMappings.Add("S1SW명", "S1SW명") + tableMapping.ColumnMappings.Add("S1위치", "S1위치") + tableMapping.ColumnMappings.Add("S2번호1", "S2번호1") + tableMapping.ColumnMappings.Add("S2번호2", "S2번호2") + tableMapping.ColumnMappings.Add("S2번호3", "S2번호3") + tableMapping.ColumnMappings.Add("S2번호4", "S2번호4") + tableMapping.ColumnMappings.Add("S2SW명", "S2SW명") + tableMapping.ColumnMappings.Add("S2위치", "S2위치") + tableMapping.ColumnMappings.Add("S3번호1", "S3번호1") + tableMapping.ColumnMappings.Add("S3번호2", "S3번호2") + tableMapping.ColumnMappings.Add("S3번호3", "S3번호3") + tableMapping.ColumnMappings.Add("S3번호4", "S3번호4") + tableMapping.ColumnMappings.Add("S3SW명", "S3SW명") + tableMapping.ColumnMappings.Add("S3위치", "S3위치") + tableMapping.ColumnMappings.Add("S4번호1", "S4번호1") + tableMapping.ColumnMappings.Add("S4번호2", "S4번호2") + tableMapping.ColumnMappings.Add("S4번호3", "S4번호3") + tableMapping.ColumnMappings.Add("S4번호4", "S4번호4") + tableMapping.ColumnMappings.Add("S4SW명", "S4SW명") + tableMapping.ColumnMappings.Add("S4위치", "S4위치") + tableMapping.ColumnMappings.Add("시공년월", "시공년월") + tableMapping.ColumnMappings.Add("시공회사", "시공회사") + tableMapping.ColumnMappings.Add("공사번호", "공사번호") + tableMapping.ColumnMappings.Add("감독자", "감독자") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("비고4", "비고4") + tableMapping.ColumnMappings.Add("비고5", "비고5") + tableMapping.ColumnMappings.Add("비고6", "비고6") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("HA단자명", "HA단자명") + tableMapping.ColumnMappings.Add("HB단자명", "HB단자명") + tableMapping.ColumnMappings.Add("S0SS", "S0SS") + tableMapping.ColumnMappings.Add("S0DL", "S0DL") + tableMapping.ColumnMappings.Add("S1SS", "S1SS") + tableMapping.ColumnMappings.Add("S1DL", "S1DL") + tableMapping.ColumnMappings.Add("S2SS", "S2SS") + tableMapping.ColumnMappings.Add("S2DL", "S2DL") + tableMapping.ColumnMappings.Add("S3SS", "S3SS") + tableMapping.ColumnMappings.Add("S3DL", "S3DL") + tableMapping.ColumnMappings.Add("S4SS", "S4SS") + tableMapping.ColumnMappings.Add("S4DL", "S4DL") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_Cable` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) O"& _ + "R (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리"& _ + "구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND"& _ + " ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR"& _ + " (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND "& _ + "`HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)"& _ + ") AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S0번호1` IS NU"& _ + "LL) OR (`S0번호1` = ?)) AND ((? = 1 AND `S0번호2` IS NULL) OR (`S0번호2` = ?)) AND ((?"& _ + " = 1 AND `S0번호3` IS NULL) OR (`S0번호3` = ?)) AND ((? = 1 AND `S0번호4` IS NULL) OR "& _ + "(`S0번호4` = ?)) AND ((? = 1 AND `S0SW명` IS NULL) OR (`S0SW명` = ?)) AND ((? = 1 AN"& _ + "D `S0수용가` IS NULL) OR (`S0수용가` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1"& _ + "` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호"& _ + "3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?))"& _ + " AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NU"& _ + "LL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? "& _ + "= 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR ("& _ + "`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND"& _ + " `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` ="& _ + " ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` "& _ + "IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AN"& _ + "D ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL"& _ + ") OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1"& _ + " AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4"& _ + "번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S"& _ + "4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = "& _ + "?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS N"& _ + "ULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? ="& _ + " 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자`"& _ + " = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS N"& _ + "ULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 "& _ + "AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)"& _ + ") AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL)"& _ + " OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `"& _ + "HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` ="& _ + " ?)) AND ((? = 1 AND `S0SS` IS NULL) OR (`S0SS` = ?)) AND ((? = 1 AND `S0DL` IS "& _ + "NULL) OR (`S0DL` = ?)) AND ((? = 1 AND `S1SS` IS NULL) OR (`S1SS` = ?)) AND ((? "& _ + "= 1 AND `S1DL` IS NULL) OR (`S1DL` = ?)) AND ((? = 1 AND `S2SS` IS NULL) OR (`S2"& _ + "SS` = ?)) AND ((? = 1 AND `S2DL` IS NULL) OR (`S2DL` = ?)) AND ((? = 1 AND `S3SS"& _ + "` IS NULL) OR (`S3SS` = ?)) AND ((? = 1 AND `S3DL` IS NULL) OR (`S3DL` = ?)) AND"& _ + " ((? = 1 AND `S4SS` IS NULL) OR (`S4SS` = ?)) AND ((? = 1 AND `S4DL` IS NULL) OR"& _ + " (`S4DL` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HASS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HADL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBSS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBDL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0수용가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0수용가", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공회사", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_공사번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Cable` (`rowid`, `관리ID`, `번호`, `관리구`, `전산번호`, `HASS`, `HADL`,"& _ + " `HA구간`, `HBSS`, `HBDL`, `HB구간`, `S0번호1`, `S0번호2`, `S0번호3`, `S0번호4`, `S0SW명`, `S"& _ + "0수용가`, `S1번호1`, `S1번호2`, `S1번호3`, `S1번호4`, `S1SW명`, `S1위치`, `S2번호1`, `S2번호2`, `S"& _ + "2번호3`, `S2번호4`, `S2SW명`, `S2위치`, `S3번호1`, `S3번호2`, `S3번호3`, `S3번호4`, `S3SW명`, `S"& _ + "3위치`, `S4번호1`, `S4번호2`, `S4번호3`, `S4번호4`, `S4SW명`, `S4위치`, `시공년월`, `시공회사`, `공사번호"& _ + "`, `감독자`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `정렬번호`, `출력`, `HA단자명`, `HB단자"& _ + "명`, `S0SS`, `S0DL`, `S1SS`, `S1DL`, `S2SS`, `S2DL`, `S3SS`, `S3DL`, `S4SS`, `S4D"& _ + "L`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,"& _ + " ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?"& _ + ", ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0수용가", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_Cable` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전산번호` = "& _ + "?, `HASS` = ?, `HADL` = ?, `HA구간` = ?, `HBSS` = ?, `HBDL` = ?, `HB구간` = ?, `S0번호"& _ + "1` = ?, `S0번호2` = ?, `S0번호3` = ?, `S0번호4` = ?, `S0SW명` = ?, `S0수용가` = ?, `S1번호1`"& _ + " = ?, `S1번호2` = ?, `S1번호3` = ?, `S1번호4` = ?, `S1SW명` = ?, `S1위치` = ?, `S2번호1` = "& _ + "?, `S2번호2` = ?, `S2번호3` = ?, `S2번호4` = ?, `S2SW명` = ?, `S2위치` = ?, `S3번호1` = ?, "& _ + "`S3번호2` = ?, `S3번호3` = ?, `S3번호4` = ?, `S3SW명` = ?, `S3위치` = ?, `S4번호1` = ?, `S4"& _ + "번호2` = ?, `S4번호3` = ?, `S4번호4` = ?, `S4SW명` = ?, `S4위치` = ?, `시공년월` = ?, `시공회사` "& _ + "= ?, `공사번호` = ?, `감독자` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = "& _ + "?, `비고6` = ?, `정렬번호` = ?, `출력` = ?, `HA단자명` = ?, `HB단자명` = ?, `S0SS` = ?, `S0DL`"& _ + " = ?, `S1SS` = ?, `S1DL` = ?, `S2SS` = ?, `S2DL` = ?, `S3SS` = ?, `S3DL` = ?, `S"& _ + "4SS` = ?, `S4DL` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관"& _ + "리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS"& _ + " NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? "& _ + "= 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HA"& _ + "DL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HBSS"& _ + "` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND"& _ + " ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S0번호1` IS NULL) O"& _ + "R (`S0번호1` = ?)) AND ((? = 1 AND `S0번호2` IS NULL) OR (`S0번호2` = ?)) AND ((? = 1 "& _ + "AND `S0번호3` IS NULL) OR (`S0번호3` = ?)) AND ((? = 1 AND `S0번호4` IS NULL) OR (`S0번"& _ + "호4` = ?)) AND ((? = 1 AND `S0SW명` IS NULL) OR (`S0SW명` = ?)) AND ((? = 1 AND `S0"& _ + "수용가` IS NULL) OR (`S0수용가` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?"& _ + ")) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS"& _ + " NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND "& _ + "((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) O"& _ + "R (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 A"& _ + "ND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호"& _ + "3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2S"& _ + "W명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) "& _ + "AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NU"& _ + "LL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((?"& _ + " = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR "& _ + "(`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND "& _ + "`S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` "& _ + "= ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4`"& _ + " IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) A"& _ + "ND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) "& _ + "OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AN"& _ + "D `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)"& _ + ") AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) "& _ + "OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `"& _ + "비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND"& _ + " ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR ("& _ + "`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `HA단자명"& _ + "` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) "& _ + "AND ((? = 1 AND `S0SS` IS NULL) OR (`S0SS` = ?)) AND ((? = 1 AND `S0DL` IS NULL)"& _ + " OR (`S0DL` = ?)) AND ((? = 1 AND `S1SS` IS NULL) OR (`S1SS` = ?)) AND ((? = 1 A"& _ + "ND `S1DL` IS NULL) OR (`S1DL` = ?)) AND ((? = 1 AND `S2SS` IS NULL) OR (`S2SS` ="& _ + " ?)) AND ((? = 1 AND `S2DL` IS NULL) OR (`S2DL` = ?)) AND ((? = 1 AND `S3SS` IS "& _ + "NULL) OR (`S3SS` = ?)) AND ((? = 1 AND `S3DL` IS NULL) OR (`S3DL` = ?)) AND ((? "& _ + "= 1 AND `S4SS` IS NULL) OR (`S4SS` = ?)) AND ((? = 1 AND `S4DL` IS NULL) OR (`S4"& _ + "DL` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0수용가", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S0DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HASS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HADL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBSS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBDL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0수용가", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0수용가", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0수용가", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공회사", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_공사번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S0DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S0DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S0DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4DL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4DL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4DL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 관리구, 전산번호, HASS, HADL, HA구간, HBSS, HBDL, HB구간, S0번호1, S0"& _ + "번호2, S0번호3, S0번호4, S0SW명, S0수용가, S1번호1, S1번호2, S1번호3, S1번호4, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S1"& _ + "SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, "& _ + "S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S4위치, 시공년월, 시공회"& _ + "사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, HA단자명, HB단자명, S0SS, S0DL, "& _ + "S1SS, S1DL, S2SS, S2DL, S3SS, S3DL, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S4SS, S4DL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Detail"& _ + "_Cable"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(15,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_CableDataTable, ByVal 관리ID As Global.System.Nullable(Of Decimal)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Decimal)) As ireaDataSet.Detail_CableDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_CableDataTable = New ireaDataSet.Detail_CableDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_CableDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_Cable") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S0번호1 As String, _ + ByVal Original_S0번호2 As String, _ + ByVal Original_S0번호3 As String, _ + ByVal Original_S0번호4 As String, _ + ByVal Original_S0SW명 As String, _ + ByVal Original_S0수용가 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_S0SS As String, _ + ByVal Original_S0DL As String, _ + ByVal Original_S1SS As String, _ + ByVal Original_S1DL As String, _ + ByVal Original_S2SS As String, _ + ByVal Original_S2DL As String, _ + ByVal Original_S3SS As String, _ + ByVal Original_S3DL As String, _ + ByVal Original_S4SS As String, _ + ByVal Original_S4DL As String) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_관리구,String) + End If + If (Original_전산번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_전산번호,String) + End If + If (Original_HASS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_HASS,String) + End If + If (Original_HADL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_HADL,String) + End If + If (Original_HA구간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_HA구간,String) + End If + If (Original_HBSS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_HBSS,String) + End If + If (Original_HBDL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_HBDL,String) + End If + If (Original_HB구간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_HB구간,String) + End If + If (Original_S0번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_S0번호1,String) + End If + If (Original_S0번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_S0번호2,String) + End If + If (Original_S0번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_S0번호3,String) + End If + If (Original_S0번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_S0번호4,String) + End If + If (Original_S0SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_S0SW명,String) + End If + If (Original_S0수용가 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_S0수용가,String) + End If + If (Original_S1번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_S1번호1,String) + End If + If (Original_S1번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_S1번호2,String) + End If + If (Original_S1번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_S1번호3,String) + End If + If (Original_S1번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_S1번호4,String) + End If + If (Original_S1SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_S1SW명,String) + End If + If (Original_S1위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_S1위치,String) + End If + If (Original_S2번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_S2번호1,String) + End If + If (Original_S2번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_S2번호2,String) + End If + If (Original_S2번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_S2번호3,String) + End If + If (Original_S2번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_S2번호4,String) + End If + If (Original_S2SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_S2SW명,String) + End If + If (Original_S2위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_S2위치,String) + End If + If (Original_S3번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_S3번호1,String) + End If + If (Original_S3번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_S3번호2,String) + End If + If (Original_S3번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_S3번호3,String) + End If + If (Original_S3번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_S3번호4,String) + End If + If (Original_S3SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_S3SW명,String) + End If + If (Original_S3위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_S3위치,String) + End If + If (Original_S4번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_S4번호1,String) + End If + If (Original_S4번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_S4번호2,String) + End If + If (Original_S4번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_S4번호3,String) + End If + If (Original_S4번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_S4번호4,String) + End If + If (Original_S4SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_S4SW명,String) + End If + If (Original_S4위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_S4위치,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_시공년월,String) + End If + If (Original_시공회사 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_시공회사,String) + End If + If (Original_공사번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_공사번호,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_감독자,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(95).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(96).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(97).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(98).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(97).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(98).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(99).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(100).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(99).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(100).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(101).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(102).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(101).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(102).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(103).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(104).Value = CType(Original_출력,Boolean) + If (Original_HA단자명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(105).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(106).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(105).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(106).Value = CType(Original_HA단자명,String) + End If + If (Original_HB단자명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(107).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(108).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(107).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(108).Value = CType(Original_HB단자명,String) + End If + If (Original_S0SS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(109).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(110).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(109).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(110).Value = CType(Original_S0SS,String) + End If + If (Original_S0DL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(111).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(112).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(111).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(112).Value = CType(Original_S0DL,String) + End If + If (Original_S1SS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(113).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(114).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(113).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(114).Value = CType(Original_S1SS,String) + End If + If (Original_S1DL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(115).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(116).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(115).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(116).Value = CType(Original_S1DL,String) + End If + If (Original_S2SS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(117).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(118).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(117).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(118).Value = CType(Original_S2SS,String) + End If + If (Original_S2DL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(119).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(120).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(119).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(120).Value = CType(Original_S2DL,String) + End If + If (Original_S3SS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(121).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(122).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(121).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(122).Value = CType(Original_S3SS,String) + End If + If (Original_S3DL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(123).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(124).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(123).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(124).Value = CType(Original_S3DL,String) + End If + If (Original_S4SS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(125).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(126).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(125).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(126).Value = CType(Original_S4SS,String) + End If + If (Original_S4DL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(127).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(128).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(127).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(128).Value = CType(Original_S4DL,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S0번호1 As String, _ + ByVal S0번호2 As String, _ + ByVal S0번호3 As String, _ + ByVal S0번호4 As String, _ + ByVal S0SW명 As String, _ + ByVal S0수용가 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal HA단자명 As String, _ + ByVal HB단자명 As String, _ + ByVal S0SS As String, _ + ByVal S0DL As String, _ + ByVal S1SS As String, _ + ByVal S1DL As String, _ + ByVal S2SS As String, _ + ByVal S2DL As String, _ + ByVal S3SS As String, _ + ByVal S3DL As String, _ + ByVal S4SS As String, _ + ByVal S4DL As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(전산번호,String) + End If + If (HASS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(HASS,String) + End If + If (HADL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(HADL,String) + End If + If (HA구간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(HA구간,String) + End If + If (HBSS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(HBSS,String) + End If + If (HBDL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(HBDL,String) + End If + If (HB구간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(HB구간,String) + End If + If (S0번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(S0번호1,String) + End If + If (S0번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(S0번호2,String) + End If + If (S0번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(S0번호3,String) + End If + If (S0번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(S0번호4,String) + End If + If (S0SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(S0SW명,String) + End If + If (S0수용가 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(S0수용가,String) + End If + If (S1번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(S1번호1,String) + End If + If (S1번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(S1번호2,String) + End If + If (S1번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(S1번호3,String) + End If + If (S1번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(S1번호4,String) + End If + If (S1SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(S1SW명,String) + End If + If (S1위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(S1위치,String) + End If + If (S2번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(S2번호1,String) + End If + If (S2번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(S2번호2,String) + End If + If (S2번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(S2번호3,String) + End If + If (S2번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(S2번호4,String) + End If + If (S2SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(S2SW명,String) + End If + If (S2위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(S2위치,String) + End If + If (S3번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(S3번호1,String) + End If + If (S3번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(S3번호2,String) + End If + If (S3번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(S3번호3,String) + End If + If (S3번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(S3번호4,String) + End If + If (S3SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(S3SW명,String) + End If + If (S3위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(34).Value = CType(S3위치,String) + End If + If (S4번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(S4번호1,String) + End If + If (S4번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(36).Value = CType(S4번호2,String) + End If + If (S4번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(37).Value = CType(S4번호3,String) + End If + If (S4번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(38).Value = CType(S4번호4,String) + End If + If (S4SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(39).Value = CType(S4SW명,String) + End If + If (S4위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(40).Value = CType(S4위치,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(41).Value = CType(시공년월,String) + End If + If (시공회사 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(42).Value = CType(시공회사,String) + End If + If (공사번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(43).Value = CType(공사번호,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(44).Value = CType(감독자,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(45).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(46).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(47).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(48).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(49).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(50).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(51).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(51).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(52).Value = CType(출력,Boolean) + If (HA단자명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(53).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(53).Value = CType(HA단자명,String) + End If + If (HB단자명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(54).Value = CType(HB단자명,String) + End If + If (S0SS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(55).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(55).Value = CType(S0SS,String) + End If + If (S0DL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(56).Value = CType(S0DL,String) + End If + If (S1SS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(57).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(57).Value = CType(S1SS,String) + End If + If (S1DL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(58).Value = CType(S1DL,String) + End If + If (S2SS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(59).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(59).Value = CType(S2SS,String) + End If + If (S2DL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(60).Value = CType(S2DL,String) + End If + If (S3SS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(61).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(61).Value = CType(S3SS,String) + End If + If (S3DL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(62).Value = CType(S3DL,String) + End If + If (S4SS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(63).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(63).Value = CType(S4SS,String) + End If + If (S4DL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(64).Value = CType(S4DL,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S0번호1 As String, _ + ByVal S0번호2 As String, _ + ByVal S0번호3 As String, _ + ByVal S0번호4 As String, _ + ByVal S0SW명 As String, _ + ByVal S0수용가 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal HA단자명 As String, _ + ByVal HB단자명 As String, _ + ByVal S0SS As String, _ + ByVal S0DL As String, _ + ByVal S1SS As String, _ + ByVal S1DL As String, _ + ByVal S2SS As String, _ + ByVal S2DL As String, _ + ByVal S3SS As String, _ + ByVal S3DL As String, _ + ByVal S4SS As String, _ + ByVal S4DL As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S0번호1 As String, _ + ByVal Original_S0번호2 As String, _ + ByVal Original_S0번호3 As String, _ + ByVal Original_S0번호4 As String, _ + ByVal Original_S0SW명 As String, _ + ByVal Original_S0수용가 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_S0SS As String, _ + ByVal Original_S0DL As String, _ + ByVal Original_S1SS As String, _ + ByVal Original_S1DL As String, _ + ByVal Original_S2SS As String, _ + ByVal Original_S2DL As String, _ + ByVal Original_S3SS As String, _ + ByVal Original_S3DL As String, _ + ByVal Original_S4SS As String, _ + ByVal Original_S4DL As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(전산번호,String) + End If + If (HASS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HASS,String) + End If + If (HADL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(HADL,String) + End If + If (HA구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(HA구간,String) + End If + If (HBSS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(HBSS,String) + End If + If (HBDL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(HBDL,String) + End If + If (HB구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(HB구간,String) + End If + If (S0번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(S0번호1,String) + End If + If (S0번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(S0번호2,String) + End If + If (S0번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(S0번호3,String) + End If + If (S0번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(S0번호4,String) + End If + If (S0SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(S0SW명,String) + End If + If (S0수용가 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(S0수용가,String) + End If + If (S1번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(S1번호1,String) + End If + If (S1번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(S1번호2,String) + End If + If (S1번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(S1번호3,String) + End If + If (S1번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(S1번호4,String) + End If + If (S1SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(S1SW명,String) + End If + If (S1위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(S1위치,String) + End If + If (S2번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(S2번호1,String) + End If + If (S2번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(S2번호2,String) + End If + If (S2번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(S2번호3,String) + End If + If (S2번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(S2번호4,String) + End If + If (S2SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(S2SW명,String) + End If + If (S2위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(S2위치,String) + End If + If (S3번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(S3번호1,String) + End If + If (S3번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(S3번호2,String) + End If + If (S3번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(S3번호3,String) + End If + If (S3번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(S3번호4,String) + End If + If (S3SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(S3SW명,String) + End If + If (S3위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(S3위치,String) + End If + If (S4번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(S4번호1,String) + End If + If (S4번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(S4번호2,String) + End If + If (S4번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(S4번호3,String) + End If + If (S4번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(S4번호4,String) + End If + If (S4SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(S4SW명,String) + End If + If (S4위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(S4위치,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(시공년월,String) + End If + If (시공회사 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(시공회사,String) + End If + If (공사번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(공사번호,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(감독자,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(출력,Boolean) + If (HA단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(HA단자명,String) + End If + If (HB단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(HB단자명,String) + End If + If (S0SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(S0SS,String) + End If + If (S0DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(S0DL,String) + End If + If (S1SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(S1SS,String) + End If + If (S1DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(S1DL,String) + End If + If (S2SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(S2SS,String) + End If + If (S2DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(S2DL,String) + End If + If (S3SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(S3SS,String) + End If + If (S3DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(S3DL,String) + End If + If (S4SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(S4SS,String) + End If + If (S4DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(S4DL,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_관리구,String) + End If + If (Original_전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_전산번호,String) + End If + If (Original_HASS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_HASS,String) + End If + If (Original_HADL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_HADL,String) + End If + If (Original_HA구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_HA구간,String) + End If + If (Original_HBSS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_HBSS,String) + End If + If (Original_HBDL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_HBDL,String) + End If + If (Original_HB구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_HB구간,String) + End If + If (Original_S0번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_S0번호1,String) + End If + If (Original_S0번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_S0번호2,String) + End If + If (Original_S0번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_S0번호3,String) + End If + If (Original_S0번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_S0번호4,String) + End If + If (Original_S0SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_S0SW명,String) + End If + If (Original_S0수용가 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_S0수용가,String) + End If + If (Original_S1번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_S1번호1,String) + End If + If (Original_S1번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_S1번호2,String) + End If + If (Original_S1번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_S1번호3,String) + End If + If (Original_S1번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_S1번호4,String) + End If + If (Original_S1SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_S1SW명,String) + End If + If (Original_S1위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_S1위치,String) + End If + If (Original_S2번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_S2번호1,String) + End If + If (Original_S2번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_S2번호2,String) + End If + If (Original_S2번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_S2번호3,String) + End If + If (Original_S2번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_S2번호4,String) + End If + If (Original_S2SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_S2SW명,String) + End If + If (Original_S2위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_S2위치,String) + End If + If (Original_S3번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_S3번호1,String) + End If + If (Original_S3번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_S3번호2,String) + End If + If (Original_S3번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_S3번호3,String) + End If + If (Original_S3번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_S3번호4,String) + End If + If (Original_S3SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_S3SW명,String) + End If + If (Original_S3위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_S3위치,String) + End If + If (Original_S4번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_S4번호1,String) + End If + If (Original_S4번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_S4번호2,String) + End If + If (Original_S4번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_S4번호3,String) + End If + If (Original_S4번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(140).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(140).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(141).Value = CType(Original_S4번호4,String) + End If + If (Original_S4SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(142).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(142).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_S4SW명,String) + End If + If (Original_S4위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(144).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(145).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(144).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(145).Value = CType(Original_S4위치,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(146).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(147).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(146).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(147).Value = CType(Original_시공년월,String) + End If + If (Original_시공회사 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(148).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(149).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(148).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(149).Value = CType(Original_시공회사,String) + End If + If (Original_공사번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(150).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(151).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(150).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(151).Value = CType(Original_공사번호,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(152).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(153).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(152).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(153).Value = CType(Original_감독자,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(154).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(155).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(154).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(155).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(156).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(157).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(156).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(157).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(158).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(159).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(158).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(159).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(160).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(161).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(160).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(161).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(162).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(163).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(162).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(163).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(164).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(165).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(164).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(165).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(166).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(167).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(166).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(167).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(168).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(169).Value = CType(Original_출력,Boolean) + If (Original_HA단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(170).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(171).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(170).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(171).Value = CType(Original_HA단자명,String) + End If + If (Original_HB단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(172).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(173).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(172).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(173).Value = CType(Original_HB단자명,String) + End If + If (Original_S0SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(174).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(175).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(174).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(175).Value = CType(Original_S0SS,String) + End If + If (Original_S0DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(176).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(177).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(176).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(177).Value = CType(Original_S0DL,String) + End If + If (Original_S1SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(178).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(179).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(178).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(179).Value = CType(Original_S1SS,String) + End If + If (Original_S1DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(180).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(181).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(180).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(181).Value = CType(Original_S1DL,String) + End If + If (Original_S2SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(182).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(183).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(182).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(183).Value = CType(Original_S2SS,String) + End If + If (Original_S2DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(184).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(185).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(184).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(185).Value = CType(Original_S2DL,String) + End If + If (Original_S3SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(186).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(187).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(186).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(187).Value = CType(Original_S3SS,String) + End If + If (Original_S3DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(188).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(189).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(188).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(189).Value = CType(Original_S3DL,String) + End If + If (Original_S4SS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(190).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(191).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(190).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(191).Value = CType(Original_S4SS,String) + End If + If (Original_S4DL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(192).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(193).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(192).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(193).Value = CType(Original_S4DL,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S0번호1 As String, _ + ByVal S0번호2 As String, _ + ByVal S0번호3 As String, _ + ByVal S0번호4 As String, _ + ByVal S0SW명 As String, _ + ByVal S0수용가 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal HA단자명 As String, _ + ByVal HB단자명 As String, _ + ByVal S0SS As String, _ + ByVal S0DL As String, _ + ByVal S1SS As String, _ + ByVal S1DL As String, _ + ByVal S2SS As String, _ + ByVal S2DL As String, _ + ByVal S3SS As String, _ + ByVal S3DL As String, _ + ByVal S4SS As String, _ + ByVal S4DL As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S0번호1 As String, _ + ByVal Original_S0번호2 As String, _ + ByVal Original_S0번호3 As String, _ + ByVal Original_S0번호4 As String, _ + ByVal Original_S0SW명 As String, _ + ByVal Original_S0수용가 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_S0SS As String, _ + ByVal Original_S0DL As String, _ + ByVal Original_S1SS As String, _ + ByVal Original_S1DL As String, _ + ByVal Original_S2SS As String, _ + ByVal Original_S2DL As String, _ + ByVal Original_S3SS As String, _ + ByVal Original_S3DL As String, _ + ByVal Original_S4SS As String, _ + ByVal Original_S4DL As String) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 관리구, 전산번호, HASS, HADL, HA구간, HBSS, HBDL, HB구간, S0번호1, S0번호2, S0번호3, S0번호4, S0SW명, S0수용가, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, HA단자명, HB단자명, S0SS, S0DL, S1SS, S1DL, S2SS, S2DL, S3SS, S3DL, S4SS, S4DL, Original_rowid, Original_관리ID, Original_번호, Original_관리구, Original_전산번호, Original_HASS, Original_HADL, Original_HA구간, Original_HBSS, Original_HBDL, Original_HB구간, Original_S0번호1, Original_S0번호2, Original_S0번호3, Original_S0번호4, Original_S0SW명, Original_S0수용가, Original_S1번호1, Original_S1번호2, Original_S1번호3, Original_S1번호4, Original_S1SW명, Original_S1위치, Original_S2번호1, Original_S2번호2, Original_S2번호3, Original_S2번호4, Original_S2SW명, Original_S2위치, Original_S3번호1, Original_S3번호2, Original_S3번호3, Original_S3번호4, Original_S3SW명, Original_S3위치, Original_S4번호1, Original_S4번호2, Original_S4번호3, Original_S4번호4, Original_S4SW명, Original_S4위치, Original_시공년월, Original_시공회사, Original_공사번호, Original_감독자, Original_비고1, Original_비고2, Original_비고3, Original_비고4, Original_비고5, Original_비고6, Original_정렬번호, Original_출력, Original_HA단자명, Original_HB단자명, Original_S0SS, Original_S0DL, Original_S1SS, Original_S1DL, Original_S2SS, Original_S2DL, Original_S3SS, Original_S3DL, Original_S4SS, Original_S4DL) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_Cable2TableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_Cable2" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전산번호", "전산번호") + tableMapping.ColumnMappings.Add("HA단자명", "HA단자명") + tableMapping.ColumnMappings.Add("HASS", "HASS") + tableMapping.ColumnMappings.Add("HADL", "HADL") + tableMapping.ColumnMappings.Add("HA구간", "HA구간") + tableMapping.ColumnMappings.Add("HB단자명", "HB단자명") + tableMapping.ColumnMappings.Add("HBSS", "HBSS") + tableMapping.ColumnMappings.Add("HBDL", "HBDL") + tableMapping.ColumnMappings.Add("HB구간", "HB구간") + tableMapping.ColumnMappings.Add("S1번호1", "S1번호1") + tableMapping.ColumnMappings.Add("S1번호2", "S1번호2") + tableMapping.ColumnMappings.Add("S1번호3", "S1번호3") + tableMapping.ColumnMappings.Add("S1번호4", "S1번호4") + tableMapping.ColumnMappings.Add("S1SW명", "S1SW명") + tableMapping.ColumnMappings.Add("S1위치", "S1위치") + tableMapping.ColumnMappings.Add("S2번호1", "S2번호1") + tableMapping.ColumnMappings.Add("S2번호2", "S2번호2") + tableMapping.ColumnMappings.Add("S2번호3", "S2번호3") + tableMapping.ColumnMappings.Add("S2번호4", "S2번호4") + tableMapping.ColumnMappings.Add("S2SW명", "S2SW명") + tableMapping.ColumnMappings.Add("S2위치", "S2위치") + tableMapping.ColumnMappings.Add("S3번호1", "S3번호1") + tableMapping.ColumnMappings.Add("S3번호2", "S3번호2") + tableMapping.ColumnMappings.Add("S3번호3", "S3번호3") + tableMapping.ColumnMappings.Add("S3번호4", "S3번호4") + tableMapping.ColumnMappings.Add("S3SW명", "S3SW명") + tableMapping.ColumnMappings.Add("S3위치", "S3위치") + tableMapping.ColumnMappings.Add("S4번호1", "S4번호1") + tableMapping.ColumnMappings.Add("S4번호2", "S4번호2") + tableMapping.ColumnMappings.Add("S4번호3", "S4번호3") + tableMapping.ColumnMappings.Add("S4번호4", "S4번호4") + tableMapping.ColumnMappings.Add("S4SW명", "S4SW명") + tableMapping.ColumnMappings.Add("S4위치", "S4위치") + tableMapping.ColumnMappings.Add("시공년월", "시공년월") + tableMapping.ColumnMappings.Add("시공회사", "시공회사") + tableMapping.ColumnMappings.Add("공사번호", "공사번호") + tableMapping.ColumnMappings.Add("감독자", "감독자") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("비고4", "비고4") + tableMapping.ColumnMappings.Add("비고5", "비고5") + tableMapping.ColumnMappings.Add("비고6", "비고6") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_Cable2` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) "& _ + "OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관"& _ + "리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AN"& _ + "D ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HASS` IS NULL)"& _ + " OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HADL` = ?)) AND ((? = 1 A"& _ + "ND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명`"& _ + " = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` I"& _ + "S NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND (("& _ + "? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR"& _ + " (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 A"& _ + "ND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW"& _ + "명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1"& _ + "` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) "& _ + "AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NU"& _ + "LL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((?"& _ + " = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`"& _ + "S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND "& _ + "`S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` "& _ + "= ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` "& _ + "IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND"& _ + " ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL)"& _ + " OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = "& _ + "1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4"& _ + "위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사"& _ + "` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND"& _ + " ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`"& _ + "비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` "& _ + "IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? "& _ + "= 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` "& _ + "= ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS N"& _ + "ULL) OR (`출력` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HASS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HADL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBSS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBDL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공회사", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_공사번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_Cable2` (`rowid`, `관리ID`, `번호`, `관리구`, `전산번호`, `HA단자명`, `HASS"& _ + "`, `HADL`, `HA구간`, `HB단자명`, `HBSS`, `HBDL`, `HB구간`, `S1번호1`, `S1번호2`, `S1번호3`, `"& _ + "S1번호4`, `S1SW명`, `S1위치`, `S2번호1`, `S2번호2`, `S2번호3`, `S2번호4`, `S2SW명`, `S2위치`, `S"& _ + "3번호1`, `S3번호2`, `S3번호3`, `S3번호4`, `S3SW명`, `S3위치`, `S4번호1`, `S4번호2`, `S4번호3`, `S"& _ + "4번호4`, `S4SW명`, `S4위치`, `시공년월`, `시공회사`, `공사번호`, `감독자`, `비고1`, `비고2`, `비고3`, `비고4"& _ + "`, `비고5`, `비고6`, `정렬번호`, `출력`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,"& _ + " ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?"& _ + ", ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_Cable2` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전산번호` ="& _ + " ?, `HA단자명` = ?, `HASS` = ?, `HADL` = ?, `HA구간` = ?, `HB단자명` = ?, `HBSS` = ?, `H"& _ + "BDL` = ?, `HB구간` = ?, `S1번호1` = ?, `S1번호2` = ?, `S1번호3` = ?, `S1번호4` = ?, `S1SW명"& _ + "` = ?, `S1위치` = ?, `S2번호1` = ?, `S2번호2` = ?, `S2번호3` = ?, `S2번호4` = ?, `S2SW명` ="& _ + " ?, `S2위치` = ?, `S3번호1` = ?, `S3번호2` = ?, `S3번호3` = ?, `S3번호4` = ?, `S3SW명` = ?,"& _ + " `S3위치` = ?, `S4번호1` = ?, `S4번호2` = ?, `S4번호3` = ?, `S4번호4` = ?, `S4SW명` = ?, `S"& _ + "4위치` = ?, `시공년월` = ?, `시공회사` = ?, `공사번호` = ?, `감독자` = ?, `비고1` = ?, `비고2` = ?, `"& _ + "비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `정렬번호` = ?, `출력` = ? WHERE ((`rowid` "& _ + "= ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NU"& _ + "LL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AN"& _ + "D `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` "& _ + "= ?)) AND ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS"& _ + " NULL) OR (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((?"& _ + " = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR ("& _ + "`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `H"& _ + "B구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)"& _ + ") AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS "& _ + "NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ("& _ + "(? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR"& _ + " (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AN"& _ + "D `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3"& _ + "` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW"& _ + "명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) A"& _ + "ND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NUL"& _ + "L) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? "& _ + "= 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR ("& _ + "`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `"& _ + "S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` ="& _ + " ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` "& _ + "IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AN"& _ + "D ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) O"& _ + "R (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND"& _ + " `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?))"& _ + " AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) O"& _ + "R (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비"& _ + "고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND "& _ + "((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`"& _ + "정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전산번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전산번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HASS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HASS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HASS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HADL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HADL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HADL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HA구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HA구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HA구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB단자명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB단자명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB단자명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBSS", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBSS", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBSS", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HBDL", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HBDL", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HBDL", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_HB구간", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_HB구간", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "HB구간", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S1위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S1위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S1위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S2위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S2위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S2위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S3위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S3위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S3위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4SW명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4SW명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4SW명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_S4위치", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_S4위치", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "S4위치", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공년월", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_시공회사", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_시공회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공회사", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_공사번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_공사번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "공사번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_감독자", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_감독자", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "감독자", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 관리구, 전산번호, HA단자명, HASS, HADL, HA구간, HB단자명, HBSS, HBDL, H"& _ + "B구간, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" S2번"& _ + "호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S"& _ + "4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 감독자, 비고1, 비고2, 비고3,"& _ + " 비고4, 비고5, 비고6, 정렬번호, 출력"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Detail_Cable2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬"& _ + "번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(15,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_Cable2DataTable, ByVal 관리ID As Global.System.Nullable(Of Decimal)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Decimal)) As ireaDataSet.Detail_Cable2DataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_Cable2DataTable = New ireaDataSet.Detail_Cable2DataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_Cable2DataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_Cable2") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_관리구,String) + End If + If (Original_전산번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_전산번호,String) + End If + If (Original_HA단자명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_HA단자명,String) + End If + If (Original_HASS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_HASS,String) + End If + If (Original_HADL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_HADL,String) + End If + If (Original_HA구간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_HA구간,String) + End If + If (Original_HB단자명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_HB단자명,String) + End If + If (Original_HBSS Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_HBSS,String) + End If + If (Original_HBDL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_HBDL,String) + End If + If (Original_HB구간 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_HB구간,String) + End If + If (Original_S1번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_S1번호1,String) + End If + If (Original_S1번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_S1번호2,String) + End If + If (Original_S1번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_S1번호3,String) + End If + If (Original_S1번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_S1번호4,String) + End If + If (Original_S1SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_S1SW명,String) + End If + If (Original_S1위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_S1위치,String) + End If + If (Original_S2번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_S2번호1,String) + End If + If (Original_S2번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_S2번호2,String) + End If + If (Original_S2번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_S2번호3,String) + End If + If (Original_S2번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_S2번호4,String) + End If + If (Original_S2SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_S2SW명,String) + End If + If (Original_S2위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_S2위치,String) + End If + If (Original_S3번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_S3번호1,String) + End If + If (Original_S3번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_S3번호2,String) + End If + If (Original_S3번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_S3번호3,String) + End If + If (Original_S3번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_S3번호4,String) + End If + If (Original_S3SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_S3SW명,String) + End If + If (Original_S3위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_S3위치,String) + End If + If (Original_S4번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_S4번호1,String) + End If + If (Original_S4번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_S4번호2,String) + End If + If (Original_S4번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_S4번호3,String) + End If + If (Original_S4번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_S4번호4,String) + End If + If (Original_S4SW명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_S4SW명,String) + End If + If (Original_S4위치 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_S4위치,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_시공년월,String) + End If + If (Original_시공회사 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_시공회사,String) + End If + If (Original_공사번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_공사번호,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_감독자,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(82).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(84).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(86).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(88).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(90).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(92).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(93).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(94).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(93).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(94).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(95).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(96).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HA단자명 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HB단자명 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(전산번호,String) + End If + If (HA단자명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(HA단자명,String) + End If + If (HASS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(HASS,String) + End If + If (HADL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(HADL,String) + End If + If (HA구간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(HA구간,String) + End If + If (HB단자명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(HB단자명,String) + End If + If (HBSS Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(HBSS,String) + End If + If (HBDL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(HBDL,String) + End If + If (HB구간 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(HB구간,String) + End If + If (S1번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(S1번호1,String) + End If + If (S1번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(S1번호2,String) + End If + If (S1번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(S1번호3,String) + End If + If (S1번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(S1번호4,String) + End If + If (S1SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(S1SW명,String) + End If + If (S1위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(S1위치,String) + End If + If (S2번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(S2번호1,String) + End If + If (S2번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(S2번호2,String) + End If + If (S2번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(S2번호3,String) + End If + If (S2번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(S2번호4,String) + End If + If (S2SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(S2SW명,String) + End If + If (S2위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(S2위치,String) + End If + If (S3번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(S3번호1,String) + End If + If (S3번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(S3번호2,String) + End If + If (S3번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(S3번호3,String) + End If + If (S3번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(S3번호4,String) + End If + If (S3SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(S3SW명,String) + End If + If (S3위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(S3위치,String) + End If + If (S4번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(S4번호1,String) + End If + If (S4번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(S4번호2,String) + End If + If (S4번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(S4번호3,String) + End If + If (S4번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(34).Value = CType(S4번호4,String) + End If + If (S4SW명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(S4SW명,String) + End If + If (S4위치 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(36).Value = CType(S4위치,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(37).Value = CType(시공년월,String) + End If + If (시공회사 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(38).Value = CType(시공회사,String) + End If + If (공사번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(39).Value = CType(공사번호,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(40).Value = CType(감독자,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(41).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(42).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(43).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(44).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(45).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(46).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(47).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(48).Value = CType(출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HA단자명 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HB단자명 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(전산번호,String) + End If + If (HA단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(HA단자명,String) + End If + If (HASS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(HASS,String) + End If + If (HADL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(HADL,String) + End If + If (HA구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(HA구간,String) + End If + If (HB단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(HB단자명,String) + End If + If (HBSS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(HBSS,String) + End If + If (HBDL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(HBDL,String) + End If + If (HB구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(HB구간,String) + End If + If (S1번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(S1번호1,String) + End If + If (S1번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(S1번호2,String) + End If + If (S1번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(S1번호3,String) + End If + If (S1번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(S1번호4,String) + End If + If (S1SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(S1SW명,String) + End If + If (S1위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(S1위치,String) + End If + If (S2번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(S2번호1,String) + End If + If (S2번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(S2번호2,String) + End If + If (S2번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(S2번호3,String) + End If + If (S2번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(S2번호4,String) + End If + If (S2SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(S2SW명,String) + End If + If (S2위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(S2위치,String) + End If + If (S3번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(S3번호1,String) + End If + If (S3번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(S3번호2,String) + End If + If (S3번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(S3번호3,String) + End If + If (S3번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(S3번호4,String) + End If + If (S3SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(S3SW명,String) + End If + If (S3위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(S3위치,String) + End If + If (S4번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(S4번호1,String) + End If + If (S4번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(S4번호2,String) + End If + If (S4번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(S4번호3,String) + End If + If (S4번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(S4번호4,String) + End If + If (S4SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(S4SW명,String) + End If + If (S4위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(S4위치,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(시공년월,String) + End If + If (시공회사 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(시공회사,String) + End If + If (공사번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(공사번호,String) + End If + If (감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(감독자,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(출력,Boolean) + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_관리구,String) + End If + If (Original_전산번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_전산번호,String) + End If + If (Original_HA단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_HA단자명,String) + End If + If (Original_HASS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_HASS,String) + End If + If (Original_HADL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_HADL,String) + End If + If (Original_HA구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_HA구간,String) + End If + If (Original_HB단자명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_HB단자명,String) + End If + If (Original_HBSS Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_HBSS,String) + End If + If (Original_HBDL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_HBDL,String) + End If + If (Original_HB구간 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_HB구간,String) + End If + If (Original_S1번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_S1번호1,String) + End If + If (Original_S1번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_S1번호2,String) + End If + If (Original_S1번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_S1번호3,String) + End If + If (Original_S1번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_S1번호4,String) + End If + If (Original_S1SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_S1SW명,String) + End If + If (Original_S1위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_S1위치,String) + End If + If (Original_S2번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_S2번호1,String) + End If + If (Original_S2번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_S2번호2,String) + End If + If (Original_S2번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_S2번호3,String) + End If + If (Original_S2번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_S2번호4,String) + End If + If (Original_S2SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_S2SW명,String) + End If + If (Original_S2위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_S2위치,String) + End If + If (Original_S3번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_S3번호1,String) + End If + If (Original_S3번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_S3번호2,String) + End If + If (Original_S3번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_S3번호3,String) + End If + If (Original_S3번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_S3번호4,String) + End If + If (Original_S3SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_S3SW명,String) + End If + If (Original_S3위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_S3위치,String) + End If + If (Original_S4번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_S4번호1,String) + End If + If (Original_S4번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_S4번호2,String) + End If + If (Original_S4번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_S4번호3,String) + End If + If (Original_S4번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_S4번호4,String) + End If + If (Original_S4SW명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_S4SW명,String) + End If + If (Original_S4위치 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_S4위치,String) + End If + If (Original_시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(122).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(123).Value = CType(Original_시공년월,String) + End If + If (Original_시공회사 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(124).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(125).Value = CType(Original_시공회사,String) + End If + If (Original_공사번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(126).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(127).Value = CType(Original_공사번호,String) + End If + If (Original_감독자 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(128).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(129).Value = CType(Original_감독자,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(130).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(131).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(132).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(133).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(134).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(135).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(136).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(137).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(138).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(139).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(140).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(141).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(140).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(141).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(142).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(143).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(142).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(143).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(144).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(145).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전산번호 As String, _ + ByVal HA단자명 As String, _ + ByVal HASS As String, _ + ByVal HADL As String, _ + ByVal HA구간 As String, _ + ByVal HB단자명 As String, _ + ByVal HBSS As String, _ + ByVal HBDL As String, _ + ByVal HB구간 As String, _ + ByVal S1번호1 As String, _ + ByVal S1번호2 As String, _ + ByVal S1번호3 As String, _ + ByVal S1번호4 As String, _ + ByVal S1SW명 As String, _ + ByVal S1위치 As String, _ + ByVal S2번호1 As String, _ + ByVal S2번호2 As String, _ + ByVal S2번호3 As String, _ + ByVal S2번호4 As String, _ + ByVal S2SW명 As String, _ + ByVal S2위치 As String, _ + ByVal S3번호1 As String, _ + ByVal S3번호2 As String, _ + ByVal S3번호3 As String, _ + ByVal S3번호4 As String, _ + ByVal S3SW명 As String, _ + ByVal S3위치 As String, _ + ByVal S4번호1 As String, _ + ByVal S4번호2 As String, _ + ByVal S4번호3 As String, _ + ByVal S4번호4 As String, _ + ByVal S4SW명 As String, _ + ByVal S4위치 As String, _ + ByVal 시공년월 As String, _ + ByVal 시공회사 As String, _ + ByVal 공사번호 As String, _ + ByVal 감독자 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전산번호 As String, _ + ByVal Original_HA단자명 As String, _ + ByVal Original_HASS As String, _ + ByVal Original_HADL As String, _ + ByVal Original_HA구간 As String, _ + ByVal Original_HB단자명 As String, _ + ByVal Original_HBSS As String, _ + ByVal Original_HBDL As String, _ + ByVal Original_HB구간 As String, _ + ByVal Original_S1번호1 As String, _ + ByVal Original_S1번호2 As String, _ + ByVal Original_S1번호3 As String, _ + ByVal Original_S1번호4 As String, _ + ByVal Original_S1SW명 As String, _ + ByVal Original_S1위치 As String, _ + ByVal Original_S2번호1 As String, _ + ByVal Original_S2번호2 As String, _ + ByVal Original_S2번호3 As String, _ + ByVal Original_S2번호4 As String, _ + ByVal Original_S2SW명 As String, _ + ByVal Original_S2위치 As String, _ + ByVal Original_S3번호1 As String, _ + ByVal Original_S3번호2 As String, _ + ByVal Original_S3번호3 As String, _ + ByVal Original_S3번호4 As String, _ + ByVal Original_S3SW명 As String, _ + ByVal Original_S3위치 As String, _ + ByVal Original_S4번호1 As String, _ + ByVal Original_S4번호2 As String, _ + ByVal Original_S4번호3 As String, _ + ByVal Original_S4번호4 As String, _ + ByVal Original_S4SW명 As String, _ + ByVal Original_S4위치 As String, _ + ByVal Original_시공년월 As String, _ + ByVal Original_시공회사 As String, _ + ByVal Original_공사번호 As String, _ + ByVal Original_감독자 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 관리구, 전산번호, HA단자명, HASS, HADL, HA구간, HB단자명, HBSS, HBDL, HB구간, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, Original_rowid, Original_관리ID, Original_번호, Original_관리구, Original_전산번호, Original_HA단자명, Original_HASS, Original_HADL, Original_HA구간, Original_HB단자명, Original_HBSS, Original_HBDL, Original_HB구간, Original_S1번호1, Original_S1번호2, Original_S1번호3, Original_S1번호4, Original_S1SW명, Original_S1위치, Original_S2번호1, Original_S2번호2, Original_S2번호3, Original_S2번호4, Original_S2SW명, Original_S2위치, Original_S3번호1, Original_S3번호2, Original_S3번호3, Original_S3번호4, Original_S3SW명, Original_S3위치, Original_S4번호1, Original_S4번호2, Original_S4번호3, Original_S4번호4, Original_S4SW명, Original_S4위치, Original_시공년월, Original_시공회사, Original_공사번호, Original_감독자, Original_비고1, Original_비고2, Original_비고3, Original_비고4, Original_비고5, Original_비고6, Original_정렬번호, Original_출력) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_CableLabelTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_CableLabel" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("순번", "순번") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("비고4", "비고4") + tableMapping.ColumnMappings.Add("비고5", "비고5") + tableMapping.ColumnMappings.Add("비고6", "비고6") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("N10", "N10") + tableMapping.ColumnMappings.Add("N1D", "N1D") + tableMapping.ColumnMappings.Add("N1S", "N1S") + tableMapping.ColumnMappings.Add("N1L", "N1L") + tableMapping.ColumnMappings.Add("N1H1", "N1H1") + tableMapping.ColumnMappings.Add("N1H2", "N1H2") + tableMapping.ColumnMappings.Add("N20", "N20") + tableMapping.ColumnMappings.Add("N2J", "N2J") + tableMapping.ColumnMappings.Add("N2K", "N2K") + tableMapping.ColumnMappings.Add("N2B", "N2B") + tableMapping.ColumnMappings.Add("N21", "N21") + tableMapping.ColumnMappings.Add("N22", "N22") + tableMapping.ColumnMappings.Add("N2C", "N2C") + tableMapping.ColumnMappings.Add("N30", "N30") + tableMapping.ColumnMappings.Add("N3J", "N3J") + tableMapping.ColumnMappings.Add("N3K", "N3K") + tableMapping.ColumnMappings.Add("N3B", "N3B") + tableMapping.ColumnMappings.Add("N31", "N31") + tableMapping.ColumnMappings.Add("N32", "N32") + tableMapping.ColumnMappings.Add("N3C", "N3C") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Detail_CableLabel` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NU"& _ + "LL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AN"& _ + "D `순번` IS NULL) OR (`순번` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AN"& _ + "D ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR ("& _ + "`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5`"& _ + " IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((?"& _ + " = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력`"& _ + " = ?)) AND ((? = 1 AND `N10` IS NULL) OR (`N10` = ?)) AND ((? = 1 AND `N1D` IS N"& _ + "ULL) OR (`N1D` = ?)) AND ((? = 1 AND `N1S` IS NULL) OR (`N1S` = ?)) AND ((? = 1 "& _ + "AND `N1L` IS NULL) OR (`N1L` = ?)) AND ((? = 1 AND `N1H1` IS NULL) OR (`N1H1` = "& _ + "?)) AND ((? = 1 AND `N1H2` IS NULL) OR (`N1H2` = ?)) AND ((? = 1 AND `N20` IS NU"& _ + "LL) OR (`N20` = ?)) AND ((? = 1 AND `N2J` IS NULL) OR (`N2J` = ?)) AND ((? = 1 A"& _ + "ND `N2K` IS NULL) OR (`N2K` = ?)) AND ((? = 1 AND `N2B` IS NULL) OR (`N2B` = ?))"& _ + " AND ((? = 1 AND `N21` IS NULL) OR (`N21` = ?)) AND ((? = 1 AND `N22` IS NULL) O"& _ + "R (`N22` = ?)) AND ((? = 1 AND `N2C` IS NULL) OR (`N2C` = ?)) AND ((? = 1 AND `N"& _ + "30` IS NULL) OR (`N30` = ?)) AND ((? = 1 AND `N3J` IS NULL) OR (`N3J` = ?)) AND "& _ + "((? = 1 AND `N3K` IS NULL) OR (`N3K` = ?)) AND ((? = 1 AND `N3B` IS NULL) OR (`N"& _ + "3B` = ?)) AND ((? = 1 AND `N31` IS NULL) OR (`N31` = ?)) AND ((? = 1 AND `N32` I"& _ + "S NULL) OR (`N32` = ?)) AND ((? = 1 AND `N3C` IS NULL) OR (`N3C` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_순번", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_순번", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N10", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N10", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1D", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1D", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1S", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1S", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1L", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1L", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1H1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1H1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1H2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1H2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N20", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N20", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2J", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2K", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2B", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N21", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N22", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2C", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N30", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N30", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3J", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3K", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3B", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N31", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N32", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3C", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Detail_CableLabel` (`rowid`, `관리ID`, `번호`, `순번`, `비고1`, `비고2`, `비고3`"& _ + ", `비고4`, `비고5`, `비고6`, `정렬번호`, `출력`, `N10`, `N1D`, `N1S`, `N1L`, `N1H1`, `N1H2`,"& _ + " `N20`, `N2J`, `N2K`, `N2B`, `N21`, `N22`, `N2C`, `N30`, `N3J`, `N3K`, `N3B`, `N"& _ + "31`, `N32`, `N3C`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,"& _ + " ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("순번", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N10", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1D", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1S", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1L", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1H1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1H2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N20", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N30", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Detail_CableLabel` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `순번` = ?, `비고1`"& _ + " = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `정렬번호` = ?, `출력` = "& _ + "?, `N10` = ?, `N1D` = ?, `N1S` = ?, `N1L` = ?, `N1H1` = ?, `N1H2` = ?, `N20` = ?"& _ + ", `N2J` = ?, `N2K` = ?, `N2B` = ?, `N21` = ?, `N22` = ?, `N2C` = ?, `N30` = ?, `"& _ + "N3J` = ?, `N3K` = ?, `N3B` = ?, `N31` = ?, `N32` = ?, `N3C` = ? WHERE ((`rowid` "& _ + "= ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NU"& _ + "LL) OR (`번호` = ?)) AND ((? = 1 AND `순번` IS NULL) OR (`순번` = ?)) AND ((? = 1 AND "& _ + "`비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AN"& _ + "D ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR ("& _ + "`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6`"& _ + " IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ("& _ + "(? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `N10` IS NULL) OR (`N10`"& _ + " = ?)) AND ((? = 1 AND `N1D` IS NULL) OR (`N1D` = ?)) AND ((? = 1 AND `N1S` IS N"& _ + "ULL) OR (`N1S` = ?)) AND ((? = 1 AND `N1L` IS NULL) OR (`N1L` = ?)) AND ((? = 1 "& _ + "AND `N1H1` IS NULL) OR (`N1H1` = ?)) AND ((? = 1 AND `N1H2` IS NULL) OR (`N1H2` "& _ + "= ?)) AND ((? = 1 AND `N20` IS NULL) OR (`N20` = ?)) AND ((? = 1 AND `N2J` IS NU"& _ + "LL) OR (`N2J` = ?)) AND ((? = 1 AND `N2K` IS NULL) OR (`N2K` = ?)) AND ((? = 1 A"& _ + "ND `N2B` IS NULL) OR (`N2B` = ?)) AND ((? = 1 AND `N21` IS NULL) OR (`N21` = ?))"& _ + " AND ((? = 1 AND `N22` IS NULL) OR (`N22` = ?)) AND ((? = 1 AND `N2C` IS NULL) O"& _ + "R (`N2C` = ?)) AND ((? = 1 AND `N30` IS NULL) OR (`N30` = ?)) AND ((? = 1 AND `N"& _ + "3J` IS NULL) OR (`N3J` = ?)) AND ((? = 1 AND `N3K` IS NULL) OR (`N3K` = ?)) AND "& _ + "((? = 1 AND `N3B` IS NULL) OR (`N3B` = ?)) AND ((? = 1 AND `N31` IS NULL) OR (`N"& _ + "31` = ?)) AND ((? = 1 AND `N32` IS NULL) OR (`N32` = ?)) AND ((? = 1 AND `N3C` I"& _ + "S NULL) OR (`N3C` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("순번", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N10", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1D", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1S", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1L", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1H1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N1H2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N20", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N2C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N30", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("N3C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_순번", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_순번", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "순번", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N10", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N10", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N10", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1D", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1D", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1D", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1S", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1S", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1S", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1L", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1L", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1L", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1H1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1H1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N1H2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N1H2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N1H2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N20", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N20", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N20", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2J", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2J", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2K", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2K", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2B", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2B", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N21", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N21", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N22", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N22", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N2C", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N2C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N2C", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N30", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N30", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N30", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3J", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3J", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3J", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3K", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3K", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3K", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3B", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3B", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3B", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N31", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N31", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N32", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N32", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_N3C", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_N3C", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "N3C", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 순번, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, N10, N1D, N1"& _ + "S, N1L, N1H1, N1H2, N20, N2J, N2K, N2B, N21, N22, N2C, N30, N3J, N3K, N3B, N31, "& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" N32, N3C"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Detail_CableLabel"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER "& _ + "BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(15,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_CableLabelDataTable, ByVal 관리ID As Global.System.Nullable(Of Decimal)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Decimal)) As ireaDataSet.Detail_CableLabelDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_CableLabelDataTable = New ireaDataSet.Detail_CableLabelDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_CableLabelDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_CableLabel") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_순번 As Global.System.Nullable(Of Double), _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_N10 As String, _ + ByVal Original_N1D As String, _ + ByVal Original_N1S As String, _ + ByVal Original_N1L As String, _ + ByVal Original_N1H1 As String, _ + ByVal Original_N1H2 As String, _ + ByVal Original_N20 As String, _ + ByVal Original_N2J As String, _ + ByVal Original_N2K As String, _ + ByVal Original_N2B As String, _ + ByVal Original_N21 As String, _ + ByVal Original_N22 As String, _ + ByVal Original_N2C As String, _ + ByVal Original_N30 As String, _ + ByVal Original_N3J As String, _ + ByVal Original_N3K As String, _ + ByVal Original_N3B As String, _ + ByVal Original_N31 As String, _ + ByVal Original_N32 As String, _ + ByVal Original_N3C As String) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_순번.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_순번.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_출력,Boolean) + If (Original_N10 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_N10,String) + End If + If (Original_N1D Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_N1D,String) + End If + If (Original_N1S Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_N1S,String) + End If + If (Original_N1L Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_N1L,String) + End If + If (Original_N1H1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_N1H1,String) + End If + If (Original_N1H2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_N1H2,String) + End If + If (Original_N20 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_N20,String) + End If + If (Original_N2J Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_N2J,String) + End If + If (Original_N2K Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_N2K,String) + End If + If (Original_N2B Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_N2B,String) + End If + If (Original_N21 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_N21,String) + End If + If (Original_N22 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_N22,String) + End If + If (Original_N2C Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_N2C,String) + End If + If (Original_N30 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_N30,String) + End If + If (Original_N3J Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_N3J,String) + End If + If (Original_N3K Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_N3K,String) + End If + If (Original_N3B Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_N3B,String) + End If + If (Original_N31 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_N31,String) + End If + If (Original_N32 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_N32,String) + End If + If (Original_N3C Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_N3C,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 순번 As Global.System.Nullable(Of Double), _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal N10 As String, _ + ByVal N1D As String, _ + ByVal N1S As String, _ + ByVal N1L As String, _ + ByVal N1H1 As String, _ + ByVal N1H2 As String, _ + ByVal N20 As String, _ + ByVal N2J As String, _ + ByVal N2K As String, _ + ByVal N2B As String, _ + ByVal N21 As String, _ + ByVal N22 As String, _ + ByVal N2C As String, _ + ByVal N30 As String, _ + ByVal N3J As String, _ + ByVal N3K As String, _ + ByVal N3B As String, _ + ByVal N31 As String, _ + ByVal N32 As String, _ + ByVal N3C As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (순번.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(순번.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(출력,Boolean) + If (N10 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(N10,String) + End If + If (N1D Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(N1D,String) + End If + If (N1S Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(N1S,String) + End If + If (N1L Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(N1L,String) + End If + If (N1H1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(N1H1,String) + End If + If (N1H2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(N1H2,String) + End If + If (N20 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(N20,String) + End If + If (N2J Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(N2J,String) + End If + If (N2K Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(N2K,String) + End If + If (N2B Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(N2B,String) + End If + If (N21 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(N21,String) + End If + If (N22 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(N22,String) + End If + If (N2C Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(N2C,String) + End If + If (N30 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(N30,String) + End If + If (N3J Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(N3J,String) + End If + If (N3K Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(N3K,String) + End If + If (N3B Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(N3B,String) + End If + If (N31 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(N31,String) + End If + If (N32 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(N32,String) + End If + If (N3C Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(N3C,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 순번 As Global.System.Nullable(Of Double), _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal N10 As String, _ + ByVal N1D As String, _ + ByVal N1S As String, _ + ByVal N1L As String, _ + ByVal N1H1 As String, _ + ByVal N1H2 As String, _ + ByVal N20 As String, _ + ByVal N2J As String, _ + ByVal N2K As String, _ + ByVal N2B As String, _ + ByVal N21 As String, _ + ByVal N22 As String, _ + ByVal N2C As String, _ + ByVal N30 As String, _ + ByVal N3J As String, _ + ByVal N3K As String, _ + ByVal N3B As String, _ + ByVal N31 As String, _ + ByVal N32 As String, _ + ByVal N3C As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_순번 As Global.System.Nullable(Of Double), _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_N10 As String, _ + ByVal Original_N1D As String, _ + ByVal Original_N1S As String, _ + ByVal Original_N1L As String, _ + ByVal Original_N1H1 As String, _ + ByVal Original_N1H2 As String, _ + ByVal Original_N20 As String, _ + ByVal Original_N2J As String, _ + ByVal Original_N2K As String, _ + ByVal Original_N2B As String, _ + ByVal Original_N21 As String, _ + ByVal Original_N22 As String, _ + ByVal Original_N2C As String, _ + ByVal Original_N30 As String, _ + ByVal Original_N3J As String, _ + ByVal Original_N3K As String, _ + ByVal Original_N3B As String, _ + ByVal Original_N31 As String, _ + ByVal Original_N32 As String, _ + ByVal Original_N3C As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (순번.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(순번.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(비고6,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(출력,Boolean) + If (N10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(N10,String) + End If + If (N1D Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(N1D,String) + End If + If (N1S Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(N1S,String) + End If + If (N1L Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(N1L,String) + End If + If (N1H1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(N1H1,String) + End If + If (N1H2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(N1H2,String) + End If + If (N20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(N20,String) + End If + If (N2J Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(N2J,String) + End If + If (N2K Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(N2K,String) + End If + If (N2B Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(N2B,String) + End If + If (N21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(N21,String) + End If + If (N22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(N22,String) + End If + If (N2C Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(N2C,String) + End If + If (N30 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(N30,String) + End If + If (N3J Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(N3J,String) + End If + If (N3K Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(N3K,String) + End If + If (N3B Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(N3B,String) + End If + If (N31 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(N31,String) + End If + If (N32 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(N32,String) + End If + If (N3C Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(N3C,String) + End If + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + End If + If (Original_순번.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_순번.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_비고6,String) + End If + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_출력,Boolean) + If (Original_N10 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_N10,String) + End If + If (Original_N1D Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_N1D,String) + End If + If (Original_N1S Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_N1S,String) + End If + If (Original_N1L Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_N1L,String) + End If + If (Original_N1H1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_N1H1,String) + End If + If (Original_N1H2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_N1H2,String) + End If + If (Original_N20 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_N20,String) + End If + If (Original_N2J Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_N2J,String) + End If + If (Original_N2K Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_N2K,String) + End If + If (Original_N2B Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_N2B,String) + End If + If (Original_N21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_N21,String) + End If + If (Original_N22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_N22,String) + End If + If (Original_N2C Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_N2C,String) + End If + If (Original_N30 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_N30,String) + End If + If (Original_N3J Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_N3J,String) + End If + If (Original_N3K Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_N3K,String) + End If + If (Original_N3B Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_N3B,String) + End If + If (Original_N31 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_N31,String) + End If + If (Original_N32 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_N32,String) + End If + If (Original_N3C Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_N3C,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 순번 As Global.System.Nullable(Of Double), _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal N10 As String, _ + ByVal N1D As String, _ + ByVal N1S As String, _ + ByVal N1L As String, _ + ByVal N1H1 As String, _ + ByVal N1H2 As String, _ + ByVal N20 As String, _ + ByVal N2J As String, _ + ByVal N2K As String, _ + ByVal N2B As String, _ + ByVal N21 As String, _ + ByVal N22 As String, _ + ByVal N2C As String, _ + ByVal N30 As String, _ + ByVal N3J As String, _ + ByVal N3K As String, _ + ByVal N3B As String, _ + ByVal N31 As String, _ + ByVal N32 As String, _ + ByVal N3C As String, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_순번 As Global.System.Nullable(Of Double), _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_출력 As Boolean, _ + ByVal Original_N10 As String, _ + ByVal Original_N1D As String, _ + ByVal Original_N1S As String, _ + ByVal Original_N1L As String, _ + ByVal Original_N1H1 As String, _ + ByVal Original_N1H2 As String, _ + ByVal Original_N20 As String, _ + ByVal Original_N2J As String, _ + ByVal Original_N2K As String, _ + ByVal Original_N2B As String, _ + ByVal Original_N21 As String, _ + ByVal Original_N22 As String, _ + ByVal Original_N2C As String, _ + ByVal Original_N30 As String, _ + ByVal Original_N3J As String, _ + ByVal Original_N3K As String, _ + ByVal Original_N3B As String, _ + ByVal Original_N31 As String, _ + ByVal Original_N32 As String, _ + ByVal Original_N3C As String) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 순번, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, N10, N1D, N1S, N1L, N1H1, N1H2, N20, N2J, N2K, N2B, N21, N22, N2C, N30, N3J, N3K, N3B, N31, N32, N3C, Original_rowid, Original_관리ID, Original_번호, Original_순번, Original_비고1, Original_비고2, Original_비고3, Original_비고4, Original_비고5, Original_비고6, Original_정렬번호, Original_출력, Original_N10, Original_N1D, Original_N1S, Original_N1L, Original_N1H1, Original_N1H2, Original_N20, Original_N2J, Original_N2K, Original_N2B, Original_N21, Original_N22, Original_N2C, Original_N30, Original_N3J, Original_N3K, Original_N3B, Original_N31, Original_N32, Original_N3C) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class Detail_kikiTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Detail_kiki" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전주번호", "전주번호") + tableMapping.ColumnMappings.Add("선로명", "선로명") + tableMapping.ColumnMappings.Add("번호1", "번호1") + tableMapping.ColumnMappings.Add("번호2", "번호2") + tableMapping.ColumnMappings.Add("번호3", "번호3") + tableMapping.ColumnMappings.Add("번호4", "번호4") + tableMapping.ColumnMappings.Add("번호5", "번호5") + tableMapping.ColumnMappings.Add("전주현행번호", "전주현행번호") + tableMapping.ColumnMappings.Add("회선11", "회선11") + tableMapping.ColumnMappings.Add("회선12", "회선12") + tableMapping.ColumnMappings.Add("회선13", "회선13") + tableMapping.ColumnMappings.Add("회선14", "회선14") + tableMapping.ColumnMappings.Add("회선15", "회선15") + tableMapping.ColumnMappings.Add("회선21", "회선21") + tableMapping.ColumnMappings.Add("회선22", "회선22") + tableMapping.ColumnMappings.Add("회선23", "회선23") + tableMapping.ColumnMappings.Add("회선24", "회선24") + tableMapping.ColumnMappings.Add("회선25", "회선25") + tableMapping.ColumnMappings.Add("회선31", "회선31") + tableMapping.ColumnMappings.Add("회선32", "회선32") + tableMapping.ColumnMappings.Add("회선33", "회선33") + tableMapping.ColumnMappings.Add("회선34", "회선34") + tableMapping.ColumnMappings.Add("회선35", "회선35") + tableMapping.ColumnMappings.Add("회선36", "회선36") + tableMapping.ColumnMappings.Add("인쇄", "인쇄") + tableMapping.ColumnMappings.Add("대규격", "대규격") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("문자1", "문자1") + tableMapping.ColumnMappings.Add("문자2", "문자2") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("비고4", "비고4") + tableMapping.ColumnMappings.Add("비고5", "비고5") + tableMapping.ColumnMappings.Add("비고6", "비고6") + tableMapping.ColumnMappings.Add("출력", "출력") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `기기세부` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID"& _ + "` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NU"& _ + "LL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1"& _ + " AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?"& _ + ")) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL)"& _ + " OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND "& _ + "`번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = "& _ + "?)) AND ((? = 1 AND `회선11` IS NULL) OR (`회선11` = ?)) AND ((? = 1 AND `회선12` IS N"& _ + "ULL) OR (`회선12` = ?)) AND ((? = 1 AND `회선13` IS NULL) OR (`회선13` = ?)) AND ((? ="& _ + " 1 AND `회선14` IS NULL) OR (`회선14` = ?)) AND ((? = 1 AND `회선15` IS NULL) OR (`회선1"& _ + "5` = ?)) AND ((? = 1 AND `회선21` IS NULL) OR (`회선21` = ?)) AND ((? = 1 AND `회선22`"& _ + " IS NULL) OR (`회선22` = ?)) AND ((? = 1 AND `회선23` IS NULL) OR (`회선23` = ?)) AND "& _ + "((? = 1 AND `회선24` IS NULL) OR (`회선24` = ?)) AND ((? = 1 AND `회선25` IS NULL) OR "& _ + "(`회선25` = ?)) AND ((? = 1 AND `회선31` IS NULL) OR (`회선31` = ?)) AND ((? = 1 AND `"& _ + "회선32` IS NULL) OR (`회선32` = ?)) AND ((? = 1 AND `회선33` IS NULL) OR (`회선33` = ?))"& _ + " AND ((? = 1 AND `회선34` IS NULL) OR (`회선34` = ?)) AND ((? = 1 AND `회선35` IS NULL"& _ + ") OR (`회선35` = ?)) AND ((? = 1 AND `회선36` IS NULL) OR (`회선36` = ?)) AND ((? = 1 "& _ + "AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `대규격` IS NULL) OR (`대규격` = ?)) "& _ + "AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) "& _ + "OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `"& _ + "비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND"& _ + " ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`"& _ + "비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` "& _ + "IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주현행번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선11", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선11", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선12", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선12", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선13", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선13", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선14", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선14", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선15", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선15", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선21", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선22", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선23", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선23", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선24", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선24", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선25", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선25", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선31", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선32", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선33", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선33", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선34", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선34", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선35", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선35", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선36", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선36", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인쇄", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_대규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_대규격", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `기기세부` (`rowid`, `관리ID`, `번호`, `관리구`, `전주번호`, `선로명`, `번호1`, `번호2`, `번"& _ + "호3`, `번호4`, `번호5`, `전주현행번호`, `회선11`, `회선12`, `회선13`, `회선14`, `회선15`, `회선21`, `회선"& _ + "22`, `회선23`, `회선24`, `회선25`, `회선31`, `회선32`, `회선33`, `회선34`, `회선35`, `회선36`, `인쇄"& _ + "`, `대규격`, `정렬번호`, `문자1`, `문자2`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `출력`) "& _ + "VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, "& _ + "?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선11", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선12", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선13", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선14", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선15", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선23", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선24", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선25", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선33", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선34", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선35", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선36", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("대규격", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `기기세부` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전주번호` = ?, `선로명`"& _ + " = ?, `번호1` = ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5` = ?, `전주현행번호` = ?, `회선11"& _ + "` = ?, `회선12` = ?, `회선13` = ?, `회선14` = ?, `회선15` = ?, `회선21` = ?, `회선22` = ?, `"& _ + "회선23` = ?, `회선24` = ?, `회선25` = ?, `회선31` = ?, `회선32` = ?, `회선33` = ?, `회선34` = "& _ + "?, `회선35` = ?, `회선36` = ?, `인쇄` = ?, `대규격` = ?, `정렬번호` = ?, `문자1` = ?, `문자2` = ?"& _ + ", `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `출력` = ? WHE"& _ + "RE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 A"& _ + "ND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) A"& _ + "ND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) O"& _ + "R (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번"& _ + "호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND "& _ + "((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번"& _ + "호5` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `"& _ + "회선11` IS NULL) OR (`회선11` = ?)) AND ((? = 1 AND `회선12` IS NULL) OR (`회선12` = ?))"& _ + " AND ((? = 1 AND `회선13` IS NULL) OR (`회선13` = ?)) AND ((? = 1 AND `회선14` IS NULL"& _ + ") OR (`회선14` = ?)) AND ((? = 1 AND `회선15` IS NULL) OR (`회선15` = ?)) AND ((? = 1 "& _ + "AND `회선21` IS NULL) OR (`회선21` = ?)) AND ((? = 1 AND `회선22` IS NULL) OR (`회선22` "& _ + "= ?)) AND ((? = 1 AND `회선23` IS NULL) OR (`회선23` = ?)) AND ((? = 1 AND `회선24` IS"& _ + " NULL) OR (`회선24` = ?)) AND ((? = 1 AND `회선25` IS NULL) OR (`회선25` = ?)) AND ((?"& _ + " = 1 AND `회선31` IS NULL) OR (`회선31` = ?)) AND ((? = 1 AND `회선32` IS NULL) OR (`회"& _ + "선32` = ?)) AND ((? = 1 AND `회선33` IS NULL) OR (`회선33` = ?)) AND ((? = 1 AND `회선3"& _ + "4` IS NULL) OR (`회선34` = ?)) AND ((? = 1 AND `회선35` IS NULL) OR (`회선35` = ?)) AN"& _ + "D ((? = 1 AND `회선36` IS NULL) OR (`회선36` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR "& _ + "(`인쇄` = ?)) AND ((? = 1 AND `대규격` IS NULL) OR (`대규격` = ?)) AND ((? = 1 AND `정렬번호"& _ + "` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ("& _ + "(? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고"& _ + "1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS"& _ + " NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = "& _ + "1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = "& _ + "?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선11", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선12", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선13", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선14", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선15", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선23", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선24", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선25", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선33", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선34", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선35", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("회선36", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("대규격", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_관리구", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_선로명", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_번호5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_전주현행번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_전주현행번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전주현행번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선11", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선11", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선11", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선12", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선12", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선12", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선13", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선13", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선13", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선14", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선14", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선14", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선15", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선15", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선15", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선21", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선21", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선22", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선22", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선23", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선23", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선23", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선24", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선24", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선24", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선25", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선25", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선25", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선31", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선31", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선31", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선32", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선32", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선32", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선33", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선33", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선33", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선34", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선34", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선34", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선35", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선35", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선35", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_회선36", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_회선36", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "회선36", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_인쇄", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_인쇄", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "인쇄", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_대규격", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_대규격", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "대규격", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_정렬번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_문자2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_문자2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "문자2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고1", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고2", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고3", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고4", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고4", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고5", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고5", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_비고6", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_비고6", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고6", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_출력", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 전주현행번호, 회선11, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 회선12, 회선13, 회선14, 회선15, 회선21, 회선22, 회선23, 회선24, 회선25, 회선31, 회선32"& _ + ", 회선33, 회선34, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 회선35, 회선36, 인쇄, 대규격, 정렬번호, 문자1, 문자2, 비고1, 비고2, 비고"& _ + "3, 비고4, 비고5, 비고6, 출력"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 기기세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Double], 0, Global.System.Data.ParameterDirection.Input, CType(15,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.Detail_kikiDataTable, ByVal 관리ID As Global.System.Nullable(Of Decimal)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Decimal)) As ireaDataSet.Detail_kikiDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.Detail_kikiDataTable = New ireaDataSet.Detail_kikiDataTable(true) + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.Detail_kikiDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "Detail_kiki") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_회선11 As String, _ + ByVal Original_회선12 As String, _ + ByVal Original_회선13 As String, _ + ByVal Original_회선14 As String, _ + ByVal Original_회선15 As String, _ + ByVal Original_회선21 As String, _ + ByVal Original_회선22 As String, _ + ByVal Original_회선23 As String, _ + ByVal Original_회선24 As String, _ + ByVal Original_회선25 As String, _ + ByVal Original_회선31 As String, _ + ByVal Original_회선32 As String, _ + ByVal Original_회선33 As String, _ + ByVal Original_회선34 As String, _ + ByVal Original_회선35 As String, _ + ByVal Original_회선36 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_대규격 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (Original_rowid.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_번호5,String) + End If + If (Original_전주현행번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_전주현행번호,String) + End If + If (Original_회선11 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_회선11,String) + End If + If (Original_회선12 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_회선12,String) + End If + If (Original_회선13 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_회선13,String) + End If + If (Original_회선14 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_회선14,String) + End If + If (Original_회선15 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_회선15,String) + End If + If (Original_회선21 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_회선21,String) + End If + If (Original_회선22 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_회선22,String) + End If + If (Original_회선23 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_회선23,String) + End If + If (Original_회선24 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_회선24,String) + End If + If (Original_회선25 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_회선25,String) + End If + If (Original_회선31 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_회선31,String) + End If + If (Original_회선32 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_회선32,String) + End If + If (Original_회선33 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_회선33,String) + End If + If (Original_회선34 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_회선34,String) + End If + If (Original_회선35 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_회선35,String) + End If + If (Original_회선36 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_회선36,String) + End If + Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_인쇄,Boolean) + Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_대규격,Boolean) + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_정렬번호,String) + End If + If (Original_문자1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_문자2,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_비고6,String) + End If + Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 전주현행번호 As String, _ + ByVal 회선11 As String, _ + ByVal 회선12 As String, _ + ByVal 회선13 As String, _ + ByVal 회선14 As String, _ + ByVal 회선15 As String, _ + ByVal 회선21 As String, _ + ByVal 회선22 As String, _ + ByVal 회선23 As String, _ + ByVal 회선24 As String, _ + ByVal 회선25 As String, _ + ByVal 회선31 As String, _ + ByVal 회선32 As String, _ + ByVal 회선33 As String, _ + ByVal 회선34 As String, _ + ByVal 회선35 As String, _ + ByVal 회선36 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 대규격 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 출력 As Boolean) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(번호5,String) + End If + If (전주현행번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(전주현행번호,String) + End If + If (회선11 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(회선11,String) + End If + If (회선12 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(회선12,String) + End If + If (회선13 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(회선13,String) + End If + If (회선14 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(회선14,String) + End If + If (회선15 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(회선15,String) + End If + If (회선21 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(회선21,String) + End If + If (회선22 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(회선22,String) + End If + If (회선23 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(회선23,String) + End If + If (회선24 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(20).Value = CType(회선24,String) + End If + If (회선25 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(회선25,String) + End If + If (회선31 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(회선31,String) + End If + If (회선32 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(회선32,String) + End If + If (회선33 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(회선33,String) + End If + If (회선34 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(회선34,String) + End If + If (회선35 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(회선35,String) + End If + If (회선36 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(회선36,String) + End If + Me.Adapter.InsertCommand.Parameters(28).Value = CType(인쇄,Boolean) + Me.Adapter.InsertCommand.Parameters(29).Value = CType(대규격,Boolean) + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(정렬번호,String) + End If + If (문자1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(31).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(32).Value = CType(문자2,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(33).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(34).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(35).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(36).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(37).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(38).Value = CType(비고6,String) + End If + Me.Adapter.InsertCommand.Parameters(39).Value = CType(출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 전주현행번호 As String, _ + ByVal 회선11 As String, _ + ByVal 회선12 As String, _ + ByVal 회선13 As String, _ + ByVal 회선14 As String, _ + ByVal 회선15 As String, _ + ByVal 회선21 As String, _ + ByVal 회선22 As String, _ + ByVal 회선23 As String, _ + ByVal 회선24 As String, _ + ByVal 회선25 As String, _ + ByVal 회선31 As String, _ + ByVal 회선32 As String, _ + ByVal 회선33 As String, _ + ByVal 회선34 As String, _ + ByVal 회선35 As String, _ + ByVal 회선36 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 대규격 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_회선11 As String, _ + ByVal Original_회선12 As String, _ + ByVal Original_회선13 As String, _ + ByVal Original_회선14 As String, _ + ByVal Original_회선15 As String, _ + ByVal Original_회선21 As String, _ + ByVal Original_회선22 As String, _ + ByVal Original_회선23 As String, _ + ByVal Original_회선24 As String, _ + ByVal Original_회선25 As String, _ + ByVal Original_회선31 As String, _ + ByVal Original_회선32 As String, _ + ByVal Original_회선33 As String, _ + ByVal Original_회선34 As String, _ + ByVal Original_회선35 As String, _ + ByVal Original_회선36 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_대규격 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_출력 As Boolean) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(전주번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(번호5,String) + End If + If (전주현행번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(전주현행번호,String) + End If + If (회선11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(회선11,String) + End If + If (회선12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(회선12,String) + End If + If (회선13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(회선13,String) + End If + If (회선14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(회선14,String) + End If + If (회선15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(회선15,String) + End If + If (회선21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(회선21,String) + End If + If (회선22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(회선22,String) + End If + If (회선23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(회선23,String) + End If + If (회선24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(회선24,String) + End If + If (회선25 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(회선25,String) + End If + If (회선31 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(회선31,String) + End If + If (회선32 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(회선32,String) + End If + If (회선33 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(회선33,String) + End If + If (회선34 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(회선34,String) + End If + If (회선35 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(회선35,String) + End If + If (회선36 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(회선36,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(인쇄,Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(대규격,Boolean) + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(정렬번호,String) + End If + If (문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(문자1,String) + End If + If (문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(문자2,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(비고1,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(비고3,String) + End If + If (비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(비고4,String) + End If + If (비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(비고5,String) + End If + If (비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(비고6,String) + End If + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(출력,Boolean) + If (Original_rowid.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_rowid.Value,System.Guid) + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value + End If + If (Original_관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_관리ID.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value + End If + If (Original_번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_번호.Value,Double) + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + End If + If (Original_관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_관리구,String) + End If + If (Original_전주번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_전주번호,String) + End If + If (Original_선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_선로명,String) + End If + If (Original_번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_번호1,String) + End If + If (Original_번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_번호2,String) + End If + If (Original_번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_번호3,String) + End If + If (Original_번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(Original_번호4,String) + End If + If (Original_번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(Original_번호5,String) + End If + If (Original_전주현행번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_전주현행번호,String) + End If + If (Original_회선11 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(63).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(64).Value = CType(Original_회선11,String) + End If + If (Original_회선12 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(65).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(66).Value = CType(Original_회선12,String) + End If + If (Original_회선13 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(67).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(68).Value = CType(Original_회선13,String) + End If + If (Original_회선14 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(69).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(70).Value = CType(Original_회선14,String) + End If + If (Original_회선15 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(71).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(72).Value = CType(Original_회선15,String) + End If + If (Original_회선21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(73).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(74).Value = CType(Original_회선21,String) + End If + If (Original_회선22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(75).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(76).Value = CType(Original_회선22,String) + End If + If (Original_회선23 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(77).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_회선23,String) + End If + If (Original_회선24 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(79).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(80).Value = CType(Original_회선24,String) + End If + If (Original_회선25 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(81).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(82).Value = CType(Original_회선25,String) + End If + If (Original_회선31 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(84).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(83).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(84).Value = CType(Original_회선31,String) + End If + If (Original_회선32 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(86).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(85).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(86).Value = CType(Original_회선32,String) + End If + If (Original_회선33 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(87).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(88).Value = CType(Original_회선33,String) + End If + If (Original_회선34 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(89).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(90).Value = CType(Original_회선34,String) + End If + If (Original_회선35 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(91).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(92).Value = CType(Original_회선35,String) + End If + If (Original_회선36 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(94).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(93).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(94).Value = CType(Original_회선36,String) + End If + Me.Adapter.UpdateCommand.Parameters(95).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(96).Value = CType(Original_인쇄,Boolean) + Me.Adapter.UpdateCommand.Parameters(97).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(98).Value = CType(Original_대규격,Boolean) + If (Original_정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(100).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(99).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(100).Value = CType(Original_정렬번호,String) + End If + If (Original_문자1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(102).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(101).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(102).Value = CType(Original_문자1,String) + End If + If (Original_문자2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(104).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(103).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(104).Value = CType(Original_문자2,String) + End If + If (Original_비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(106).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(105).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(106).Value = CType(Original_비고1,String) + End If + If (Original_비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(108).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(107).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(108).Value = CType(Original_비고2,String) + End If + If (Original_비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(110).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(109).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(110).Value = CType(Original_비고3,String) + End If + If (Original_비고4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(112).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(111).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(112).Value = CType(Original_비고4,String) + End If + If (Original_비고5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(114).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(113).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(114).Value = CType(Original_비고5,String) + End If + If (Original_비고6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(116).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(115).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(116).Value = CType(Original_비고6,String) + End If + Me.Adapter.UpdateCommand.Parameters(117).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(118).Value = CType(Original_출력,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Double), _ + ByVal 번호 As Global.System.Nullable(Of Double), _ + ByVal 관리구 As String, _ + ByVal 전주번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 전주현행번호 As String, _ + ByVal 회선11 As String, _ + ByVal 회선12 As String, _ + ByVal 회선13 As String, _ + ByVal 회선14 As String, _ + ByVal 회선15 As String, _ + ByVal 회선21 As String, _ + ByVal 회선22 As String, _ + ByVal 회선23 As String, _ + ByVal 회선24 As String, _ + ByVal 회선25 As String, _ + ByVal 회선31 As String, _ + ByVal 회선32 As String, _ + ByVal 회선33 As String, _ + ByVal 회선34 As String, _ + ByVal 회선35 As String, _ + ByVal 회선36 As String, _ + ByVal 인쇄 As Boolean, _ + ByVal 대규격 As Boolean, _ + ByVal 정렬번호 As String, _ + ByVal 문자1 As String, _ + ByVal 문자2 As String, _ + ByVal 비고1 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 비고4 As String, _ + ByVal 비고5 As String, _ + ByVal 비고6 As String, _ + ByVal 출력 As Boolean, _ + ByVal Original_rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal Original_관리ID As Global.System.Nullable(Of Double), _ + ByVal Original_번호 As Global.System.Nullable(Of Double), _ + ByVal Original_관리구 As String, _ + ByVal Original_전주번호 As String, _ + ByVal Original_선로명 As String, _ + ByVal Original_번호1 As String, _ + ByVal Original_번호2 As String, _ + ByVal Original_번호3 As String, _ + ByVal Original_번호4 As String, _ + ByVal Original_번호5 As String, _ + ByVal Original_전주현행번호 As String, _ + ByVal Original_회선11 As String, _ + ByVal Original_회선12 As String, _ + ByVal Original_회선13 As String, _ + ByVal Original_회선14 As String, _ + ByVal Original_회선15 As String, _ + ByVal Original_회선21 As String, _ + ByVal Original_회선22 As String, _ + ByVal Original_회선23 As String, _ + ByVal Original_회선24 As String, _ + ByVal Original_회선25 As String, _ + ByVal Original_회선31 As String, _ + ByVal Original_회선32 As String, _ + ByVal Original_회선33 As String, _ + ByVal Original_회선34 As String, _ + ByVal Original_회선35 As String, _ + ByVal Original_회선36 As String, _ + ByVal Original_인쇄 As Boolean, _ + ByVal Original_대규격 As Boolean, _ + ByVal Original_정렬번호 As String, _ + ByVal Original_문자1 As String, _ + ByVal Original_문자2 As String, _ + ByVal Original_비고1 As String, _ + ByVal Original_비고2 As String, _ + ByVal Original_비고3 As String, _ + ByVal Original_비고4 As String, _ + ByVal Original_비고5 As String, _ + ByVal Original_비고6 As String, _ + ByVal Original_출력 As Boolean) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 전주현행번호, 회선11, 회선12, 회선13, 회선14, 회선15, 회선21, 회선22, 회선23, 회선24, 회선25, 회선31, 회선32, 회선33, 회선34, 회선35, 회선36, 인쇄, 대규격, 정렬번호, 문자1, 문자2, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 출력, Original_rowid, Original_관리ID, Original_번호, Original_관리구, Original_전주번호, Original_선로명, Original_번호1, Original_번호2, Original_번호3, Original_번호4, Original_번호5, Original_전주현행번호, Original_회선11, Original_회선12, Original_회선13, Original_회선14, Original_회선15, Original_회선21, Original_회선22, Original_회선23, Original_회선24, Original_회선25, Original_회선31, Original_회선32, Original_회선33, Original_회선34, Original_회선35, Original_회선36, Original_인쇄, Original_대규격, Original_정렬번호, Original_문자1, Original_문자2, Original_비고1, Original_비고2, Original_비고3, Original_비고4, Original_비고5, Original_비고6, Original_출력) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class jjungtableTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "jjungtable" + tableMapping.ColumnMappings.Add("rowid", "rowid") + tableMapping.ColumnMappings.Add("관리ID", "관리ID") + tableMapping.ColumnMappings.Add("번호", "번호") + tableMapping.ColumnMappings.Add("관리구", "관리구") + tableMapping.ColumnMappings.Add("전산화번호", "전산화번호") + tableMapping.ColumnMappings.Add("선로명", "선로명") + tableMapping.ColumnMappings.Add("번호1", "번호1") + tableMapping.ColumnMappings.Add("번호2", "번호2") + tableMapping.ColumnMappings.Add("번호3", "번호3") + tableMapping.ColumnMappings.Add("번호4", "번호4") + tableMapping.ColumnMappings.Add("번호5", "번호5") + tableMapping.ColumnMappings.Add("비고1", "비고1") + tableMapping.ColumnMappings.Add("비고0", "비고0") + tableMapping.ColumnMappings.Add("비고2", "비고2") + tableMapping.ColumnMappings.Add("비고3", "비고3") + tableMapping.ColumnMappings.Add("변압기상", "변압기상") + tableMapping.ColumnMappings.Add("변압기용량", "변압기용량") + tableMapping.ColumnMappings.Add("시공업체", "시공업체") + tableMapping.ColumnMappings.Add("시공년월", "시공년월") + tableMapping.ColumnMappings.Add("정렬번호", "정렬번호") + tableMapping.ColumnMappings.Add("출력", "출력") + tableMapping.ColumnMappings.Add("관리구2", "관리구2") + tableMapping.ColumnMappings.Add("전산번호2", "전산번호2") + tableMapping.ColumnMappings.Add("변압기명", "변압기명") + tableMapping.ColumnMappings.Add("전원측", "전원측") + tableMapping.ColumnMappings.Add("부하측", "부하측") + tableMapping.ColumnMappings.Add("비고21", "비고21") + tableMapping.ColumnMappings.Add("비고22", "비고22") + tableMapping.ColumnMappings.Add("변압기선로", "변압기선로") + tableMapping.ColumnMappings.Add("제조년월", "제조년월") + tableMapping.ColumnMappings.Add("제조회사", "제조회사") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM 지중세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (rowid = ?)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `지중세부` (`rowid`, `관리ID`, `번호`, `관리구`, `전산화번호`, `선로명`, `번호1`, `번호2`, `"& _ + "번호3`, `번호4`, `번호5`, `비고1`, `비고0`, `비고2`, `비고3`, `변압기상`, `변압기용량`, `시공업체`, `시공년월`,"& _ + " `정렬번호`, `출력`, `관리구2`, `전산번호2`, `변압기명`, `전원측`, `부하측`, `비고21`, `비고22`, `변압기선로`, `"& _ + "제조년월`, `제조회사`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, "& _ + "?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고0", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고0", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기상", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기상", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기용량", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기용량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공업체", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공업체", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호2", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기명", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전원측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전원측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("부하측", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "부하측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고21", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고22", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기선로", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기선로", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("제조년월", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "제조년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("제조회사", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "제조회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE 지중세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET rowid = ?, 관리ID = ?, 번호 = ?, 관리구 = ?, 전산화번호 = ?, 선로명 = ?,"& _ + " 번호1 = ?, 번호2 = ?, 번호3 = ?, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 번호4 = ?, 번호5 = ?, 비고1 = ?, 비고0 = ?,"& _ + " 비고2 = ?, 비고3 = ?, 변압기상 = ?, 변압기용량 = ?, 시공업체 = ?, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 시공년월 = ?, 정렬번"& _ + "호 = ?, 출력 = ?, 관리구2 = ?, 전산번호2 = ?, 변압기명 = ?, 전원측 = ?, 부하측 = ?, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " 비고21 = ?, 비고22 = ?, 변압기선로 = ?, 제조년월 = ?, 제조회사 = ?"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (rowid = ?)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산화번호", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산화번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("선로명", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "선로명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호1", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호2", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호3", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호4", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호4", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("번호5", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "번호5", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고1", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고1", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고0", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고0", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고2", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고3", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고3", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기상", Global.System.Data.OleDb.OleDbType.WChar, 5, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기상", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기용량", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기용량", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공업체", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공업체", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("시공년월", Global.System.Data.OleDb.OleDbType.WChar, 10, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "시공년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("정렬번호", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "정렬번호", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("출력", Global.System.Data.OleDb.OleDbType.[Boolean], 2, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "출력", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리구2", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리구2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전산번호2", Global.System.Data.OleDb.OleDbType.WChar, 20, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전산번호2", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기명", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기명", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("전원측", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "전원측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("부하측", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "부하측", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고21", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고21", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("비고22", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "비고22", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("변압기선로", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "변압기선로", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("제조년월", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "제조년월", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("제조회사", Global.System.Data.OleDb.OleDbType.WChar, 50, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "제조회사", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_rowid", Global.System.Data.OleDb.OleDbType.Guid, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "rowid", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.EpoleNet.My.MySettings.Default.ireaConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT rowid, 관리ID, 번호, 관리구, 전산화번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고0, 비고2,"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 비고3, 변압기상, 변압기용량, 시공업체, 시공년월, 정렬번호, 출력, 관리구2, 전산번호2, 변압기명, 전원측"& _ + ", "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 부하측, 비고21, 비고22, 변압기선로, 제조년월, 제조회사"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM 지중세부"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (관리"& _ + "ID = ?)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 정렬번호, 번호" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("관리ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "관리ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As ireaDataSet.jjungtableDataTable, ByVal 관리ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal 관리ID As Global.System.Nullable(Of Integer)) As ireaDataSet.jjungtableDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (관리ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As ireaDataSet.jjungtableDataTable = New ireaDataSet.jjungtableDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As ireaDataSet.jjungtableDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As ireaDataSet) As Integer + Return Me.Adapter.Update(dataSet, "jjungtable") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal rowid As Object) As Integer + If (rowid Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(rowid,Object) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert( _ + ByVal rowid As Global.System.Nullable(Of Global.System.Guid), _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전산화번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고0 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 변압기상 As String, _ + ByVal 변압기용량 As String, _ + ByVal 시공업체 As String, _ + ByVal 시공년월 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 관리구2 As String, _ + ByVal 전산번호2 As String, _ + ByVal 변압기명 As String, _ + ByVal 전원측 As String, _ + ByVal 부하측 As String, _ + ByVal 비고21 As String, _ + ByVal 비고22 As String, _ + ByVal 변압기선로 As String, _ + ByVal 제조년월 As String, _ + ByVal 제조회사 As String) As Integer + If (rowid.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(rowid.Value,System.Guid) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (관리ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산화번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(전산화번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(번호5,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(비고1,String) + End If + If (비고0 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(비고0,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(비고3,String) + End If + If (변압기상 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(변압기상,String) + End If + If (변압기용량 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(16).Value = CType(변압기용량,String) + End If + If (시공업체 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(시공업체,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(시공년월,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(정렬번호,String) + End If + Me.Adapter.InsertCommand.Parameters(20).Value = CType(출력,Boolean) + If (관리구2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(21).Value = CType(관리구2,String) + End If + If (전산번호2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(전산번호2,String) + End If + If (변압기명 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(변압기명,String) + End If + If (전원측 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(전원측,String) + End If + If (부하측 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(25).Value = CType(부하측,String) + End If + If (비고21 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(26).Value = CType(비고21,String) + End If + If (비고22 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(27).Value = CType(비고22,String) + End If + If (변압기선로 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(28).Value = CType(변압기선로,String) + End If + If (제조년월 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(29).Value = CType(제조년월,String) + End If + If (제조회사 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(30).Value = CType(제조회사,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal rowid As Object, _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전산화번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고0 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 변압기상 As String, _ + ByVal 변압기용량 As String, _ + ByVal 시공업체 As String, _ + ByVal 시공년월 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 관리구2 As String, _ + ByVal 전산번호2 As String, _ + ByVal 변압기명 As String, _ + ByVal 전원측 As String, _ + ByVal 부하측 As String, _ + ByVal 비고21 As String, _ + ByVal 비고22 As String, _ + ByVal 변압기선로 As String, _ + ByVal 제조년월 As String, _ + ByVal 제조회사 As String, _ + ByVal Original_rowid As Object) As Integer + If (rowid Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(rowid,Object) + End If + If (관리ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(관리ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (번호.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(번호.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (관리구 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(관리구,String) + End If + If (전산화번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(전산화번호,String) + End If + If (선로명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(선로명,String) + End If + If (번호1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(번호1,String) + End If + If (번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(번호2,String) + End If + If (번호3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(번호3,String) + End If + If (번호4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(번호4,String) + End If + If (번호5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(번호5,String) + End If + If (비고1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(비고1,String) + End If + If (비고0 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(비고0,String) + End If + If (비고2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(비고2,String) + End If + If (비고3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(비고3,String) + End If + If (변압기상 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(변압기상,String) + End If + If (변압기용량 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(변압기용량,String) + End If + If (시공업체 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(시공업체,String) + End If + If (시공년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(시공년월,String) + End If + If (정렬번호 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(정렬번호,String) + End If + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(출력,Boolean) + If (관리구2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(관리구2,String) + End If + If (전산번호2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(전산번호2,String) + End If + If (변압기명 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(변압기명,String) + End If + If (전원측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(전원측,String) + End If + If (부하측 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(부하측,String) + End If + If (비고21 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(비고21,String) + End If + If (비고22 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(비고22,String) + End If + If (변압기선로 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(변압기선로,String) + End If + If (제조년월 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(제조년월,String) + End If + If (제조회사 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(제조회사,String) + End If + If (Original_rowid Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_rowid,Object) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal 관리ID As Global.System.Nullable(Of Integer), _ + ByVal 번호 As Global.System.Nullable(Of Integer), _ + ByVal 관리구 As String, _ + ByVal 전산화번호 As String, _ + ByVal 선로명 As String, _ + ByVal 번호1 As String, _ + ByVal 번호2 As String, _ + ByVal 번호3 As String, _ + ByVal 번호4 As String, _ + ByVal 번호5 As String, _ + ByVal 비고1 As String, _ + ByVal 비고0 As String, _ + ByVal 비고2 As String, _ + ByVal 비고3 As String, _ + ByVal 변압기상 As String, _ + ByVal 변압기용량 As String, _ + ByVal 시공업체 As String, _ + ByVal 시공년월 As String, _ + ByVal 정렬번호 As String, _ + ByVal 출력 As Boolean, _ + ByVal 관리구2 As String, _ + ByVal 전산번호2 As String, _ + ByVal 변압기명 As String, _ + ByVal 전원측 As String, _ + ByVal 부하측 As String, _ + ByVal 비고21 As String, _ + ByVal 비고22 As String, _ + ByVal 변압기선로 As String, _ + ByVal 제조년월 As String, _ + ByVal 제조회사 As String, _ + ByVal Original_rowid As Object) As Integer + Return Me.Update(Original_rowid, 관리ID, 번호, 관리구, 전산화번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고0, 비고2, 비고3, 변압기상, 변압기용량, 시공업체, 시공년월, 정렬번호, 출력, 관리구2, 전산번호2, 변압기명, 전원측, 부하측, 비고21, 비고22, 변압기선로, 제조년월, 제조회사, Original_rowid) + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _mainTableTableAdapter As MainTableTableAdapter + + Private _etcTableTableAdapter As EtcTableTableAdapter + + Private _jjutableTableAdapter As jjutableTableAdapter + + Private _detail_DeungTableAdapter As Detail_DeungTableAdapter + + Private _detail_karoTableAdapter As Detail_karoTableAdapter + + Private _detail_CableTableAdapter As Detail_CableTableAdapter + + Private _detail_Cable2TableAdapter As Detail_Cable2TableAdapter + + Private _detail_CableLabelTableAdapter As Detail_CableLabelTableAdapter + + Private _detail_kikiTableAdapter As Detail_kikiTableAdapter + + Private _jjungtableTableAdapter As jjungtableTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property MainTableTableAdapter() As MainTableTableAdapter + Get + Return Me._mainTableTableAdapter + End Get + Set + Me._mainTableTableAdapter = value + End Set + End Property + + _ + Public Property EtcTableTableAdapter() As EtcTableTableAdapter + Get + Return Me._etcTableTableAdapter + End Get + Set + Me._etcTableTableAdapter = value + End Set + End Property + + _ + Public Property jjutableTableAdapter() As jjutableTableAdapter + Get + Return Me._jjutableTableAdapter + End Get + Set + Me._jjutableTableAdapter = value + End Set + End Property + + _ + Public Property Detail_DeungTableAdapter() As Detail_DeungTableAdapter + Get + Return Me._detail_DeungTableAdapter + End Get + Set + Me._detail_DeungTableAdapter = value + End Set + End Property + + _ + Public Property Detail_karoTableAdapter() As Detail_karoTableAdapter + Get + Return Me._detail_karoTableAdapter + End Get + Set + Me._detail_karoTableAdapter = value + End Set + End Property + + _ + Public Property Detail_CableTableAdapter() As Detail_CableTableAdapter + Get + Return Me._detail_CableTableAdapter + End Get + Set + Me._detail_CableTableAdapter = value + End Set + End Property + + _ + Public Property Detail_Cable2TableAdapter() As Detail_Cable2TableAdapter + Get + Return Me._detail_Cable2TableAdapter + End Get + Set + Me._detail_Cable2TableAdapter = value + End Set + End Property + + _ + Public Property Detail_CableLabelTableAdapter() As Detail_CableLabelTableAdapter + Get + Return Me._detail_CableLabelTableAdapter + End Get + Set + Me._detail_CableLabelTableAdapter = value + End Set + End Property + + _ + Public Property Detail_kikiTableAdapter() As Detail_kikiTableAdapter + Get + Return Me._detail_kikiTableAdapter + End Get + Set + Me._detail_kikiTableAdapter = value + End Set + End Property + + _ + Public Property jjungtableTableAdapter() As jjungtableTableAdapter + Get + Return Me._jjungtableTableAdapter + End Get + Set + Me._jjungtableTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._mainTableTableAdapter) Is Nothing) _ + AndAlso (Not (Me._mainTableTableAdapter.Connection) Is Nothing)) Then + Return Me._mainTableTableAdapter.Connection + End If + If ((Not (Me._etcTableTableAdapter) Is Nothing) _ + AndAlso (Not (Me._etcTableTableAdapter.Connection) Is Nothing)) Then + Return Me._etcTableTableAdapter.Connection + End If + If ((Not (Me._jjutableTableAdapter) Is Nothing) _ + AndAlso (Not (Me._jjutableTableAdapter.Connection) Is Nothing)) Then + Return Me._jjutableTableAdapter.Connection + End If + If ((Not (Me._detail_DeungTableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_DeungTableAdapter.Connection) Is Nothing)) Then + Return Me._detail_DeungTableAdapter.Connection + End If + If ((Not (Me._detail_karoTableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_karoTableAdapter.Connection) Is Nothing)) Then + Return Me._detail_karoTableAdapter.Connection + End If + If ((Not (Me._detail_CableTableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_CableTableAdapter.Connection) Is Nothing)) Then + Return Me._detail_CableTableAdapter.Connection + End If + If ((Not (Me._detail_Cable2TableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_Cable2TableAdapter.Connection) Is Nothing)) Then + Return Me._detail_Cable2TableAdapter.Connection + End If + If ((Not (Me._detail_CableLabelTableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_CableLabelTableAdapter.Connection) Is Nothing)) Then + Return Me._detail_CableLabelTableAdapter.Connection + End If + If ((Not (Me._detail_kikiTableAdapter) Is Nothing) _ + AndAlso (Not (Me._detail_kikiTableAdapter.Connection) Is Nothing)) Then + Return Me._detail_kikiTableAdapter.Connection + End If + If ((Not (Me._jjungtableTableAdapter) Is Nothing) _ + AndAlso (Not (Me._jjungtableTableAdapter.Connection) Is Nothing)) Then + Return Me._jjungtableTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As ireaDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.MainTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._mainTableTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.EtcTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._etcTableTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.jjutable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._jjutableTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_Deung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_DeungTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_karo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_karoTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_CableTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_Cable2TableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_CableLabel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_CableLabelTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Detail_kiki.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._detail_kikiTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.jjungtable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._jjungtableTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As ireaDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.MainTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._mainTableTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.EtcTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._etcTableTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.jjutable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._jjutableTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_Deung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_DeungTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_karo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_karoTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_CableTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_Cable2TableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_CableLabel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_CableLabelTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Detail_kiki.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._detail_kikiTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.jjungtable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._jjungtableTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As ireaDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.jjungtable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._jjungtableTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_kiki.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_kikiTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_CableLabel.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_CableLabelTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable2.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_Cable2TableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_Cable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_CableTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_karo.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_karoTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Detail_Deung.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._detail_DeungTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.jjutable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._jjutableTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.EtcTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._etcTableTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.MainTable.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._mainTableTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As ireaDataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._mainTableTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._mainTableTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._etcTableTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._etcTableTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._jjutableTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._jjutableTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_DeungTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_DeungTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_karoTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_karoTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_CableTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_CableTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_Cable2TableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_Cable2TableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_CableLabelTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_CableLabelTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._detail_kikiTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._detail_kikiTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + If ((Not (Me._jjungtableTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._jjungtableTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("TableAdapterManager에서 관리하는 모든 TableAdapter에는 동일한 연결 문자열을 사용해야 합니다.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager에 연결 정보가 없습니다. 각 TableAdapterManager TableAdapter 속성을 올바른 Tabl"& _ + "eAdapter 인스턴스로 설정하십시오.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("트랜잭션을 시작할 수 없습니다. 현재 데이터 연결에서 트랜잭션이 지원되지 않거나 현재 상태에서 트랜잭션을 시작할 수 없습니다.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + revertConnections.Add(Me._mainTableTableAdapter, Me._mainTableTableAdapter.Connection) + Me._mainTableTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._mainTableTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._mainTableTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._mainTableTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._mainTableTableAdapter.Adapter) + End If + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + revertConnections.Add(Me._etcTableTableAdapter, Me._etcTableTableAdapter.Connection) + Me._etcTableTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._etcTableTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._etcTableTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._etcTableTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._etcTableTableAdapter.Adapter) + End If + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + revertConnections.Add(Me._jjutableTableAdapter, Me._jjutableTableAdapter.Connection) + Me._jjutableTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._jjutableTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._jjutableTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._jjutableTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._jjutableTableAdapter.Adapter) + End If + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_DeungTableAdapter, Me._detail_DeungTableAdapter.Connection) + Me._detail_DeungTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_DeungTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_DeungTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_DeungTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_DeungTableAdapter.Adapter) + End If + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_karoTableAdapter, Me._detail_karoTableAdapter.Connection) + Me._detail_karoTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_karoTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_karoTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_karoTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_karoTableAdapter.Adapter) + End If + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_CableTableAdapter, Me._detail_CableTableAdapter.Connection) + Me._detail_CableTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_CableTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_CableTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_CableTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_CableTableAdapter.Adapter) + End If + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_Cable2TableAdapter, Me._detail_Cable2TableAdapter.Connection) + Me._detail_Cable2TableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_Cable2TableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_Cable2TableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_Cable2TableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_Cable2TableAdapter.Adapter) + End If + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_CableLabelTableAdapter, Me._detail_CableLabelTableAdapter.Connection) + Me._detail_CableLabelTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_CableLabelTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_CableLabelTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_CableLabelTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_CableLabelTableAdapter.Adapter) + End If + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + revertConnections.Add(Me._detail_kikiTableAdapter, Me._detail_kikiTableAdapter.Connection) + Me._detail_kikiTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._detail_kikiTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._detail_kikiTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._detail_kikiTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._detail_kikiTableAdapter.Adapter) + End If + End If + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + revertConnections.Add(Me._jjungtableTableAdapter, Me._jjungtableTableAdapter.Connection) + Me._jjungtableTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._jjungtableTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._jjungtableTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._jjungtableTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._jjungtableTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._mainTableTableAdapter) Is Nothing) Then + Me._mainTableTableAdapter.Connection = CType(revertConnections(Me._mainTableTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._mainTableTableAdapter.Transaction = Nothing + End If + If (Not (Me._etcTableTableAdapter) Is Nothing) Then + Me._etcTableTableAdapter.Connection = CType(revertConnections(Me._etcTableTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._etcTableTableAdapter.Transaction = Nothing + End If + If (Not (Me._jjutableTableAdapter) Is Nothing) Then + Me._jjutableTableAdapter.Connection = CType(revertConnections(Me._jjutableTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._jjutableTableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_DeungTableAdapter) Is Nothing) Then + Me._detail_DeungTableAdapter.Connection = CType(revertConnections(Me._detail_DeungTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_DeungTableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_karoTableAdapter) Is Nothing) Then + Me._detail_karoTableAdapter.Connection = CType(revertConnections(Me._detail_karoTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_karoTableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_CableTableAdapter) Is Nothing) Then + Me._detail_CableTableAdapter.Connection = CType(revertConnections(Me._detail_CableTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_CableTableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_Cable2TableAdapter) Is Nothing) Then + Me._detail_Cable2TableAdapter.Connection = CType(revertConnections(Me._detail_Cable2TableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_Cable2TableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_CableLabelTableAdapter) Is Nothing) Then + Me._detail_CableLabelTableAdapter.Connection = CType(revertConnections(Me._detail_CableLabelTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_CableLabelTableAdapter.Transaction = Nothing + End If + If (Not (Me._detail_kikiTableAdapter) Is Nothing) Then + Me._detail_kikiTableAdapter.Connection = CType(revertConnections(Me._detail_kikiTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._detail_kikiTableAdapter.Transaction = Nothing + End If + If (Not (Me._jjungtableTableAdapter) Is Nothing) Then + Me._jjungtableTableAdapter.Connection = CType(revertConnections(Me._jjungtableTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._jjungtableTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/Epole/데이터셋/ireaDataSet.xsc b/Epole/데이터셋/ireaDataSet.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/Epole/데이터셋/ireaDataSet.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/ireaDataSet.xsd b/Epole/데이터셋/ireaDataSet.xsd new file mode 100644 index 0000000..07bff6a --- /dev/null +++ b/Epole/데이터셋/ireaDataSet.xsd @@ -0,0 +1,4632 @@ + + + + + + + + + + + + + + + DELETE FROM `전주관리` WHERE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` = ?)) AND ((? = 1 AND `거래처명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NULL) OR (`비고` = ?)) AND ((? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AND `단가` IS NULL) OR (`단가` = ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND ((? = 1 AND `번호찰구분` IS NULL) OR (`번호찰구분` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `홈페이지` IS NULL) OR (`홈페이지` = ?)) AND ((? = 1 AND `관리` IS NULL) OR (`관리` = ?)) AND ((? = 1 AND `관리1` IS NULL) OR (`관리1` = ?)) AND ((? = 1 AND `관리2` IS NULL) OR (`관리2` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `전주관리` (`ID`, `날짜`, `거래처명`, `비고`, `총수량`, `단가`, `금액`, `번호찰구분`, `시공자`, `홈페이지`, `관리`, `관리1`, `관리2`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + SELECT ID, 날짜, 거래처명, 비고, 총수량, 단가, 금액, 번호찰구분, 시공자, 홈페이지, 관리, 관리1, 관리2 +FROM 전주관리 +ORDER BY 날짜 + + + + + + UPDATE `전주관리` SET `ID` = ?, `날짜` = ?, `거래처명` = ?, `비고` = ?, `총수량` = ?, `단가` = ?, `금액` = ?, `번호찰구분` = ?, `시공자` = ?, `홈페이지` = ?, `관리` = ?, `관리1` = ?, `관리2` = ? WHERE ((`ID` = ?) AND ((? = 1 AND `날짜` IS NULL) OR (`날짜` = ?)) AND ((? = 1 AND `거래처명` IS NULL) OR (`거래처명` = ?)) AND ((? = 1 AND `비고` IS NULL) OR (`비고` = ?)) AND ((? = 1 AND `총수량` IS NULL) OR (`총수량` = ?)) AND ((? = 1 AND `단가` IS NULL) OR (`단가` = ?)) AND ((? = 1 AND `금액` IS NULL) OR (`금액` = ?)) AND ((? = 1 AND `번호찰구분` IS NULL) OR (`번호찰구분` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `홈페이지` IS NULL) OR (`홈페이지` = ?)) AND ((? = 1 AND `관리` IS NULL) OR (`관리` = ?)) AND ((? = 1 AND `관리1` IS NULL) OR (`관리1` = ?)) AND ((? = 1 AND `관리2` IS NULL) OR (`관리2` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `기타세부` WHERE (((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `담당자` IS NULL) OR (`담당자` = ?)) AND (`rowid` = ?) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `기타세부` (`관리ID`, `번호`, `관리구`, `전주번호`, `선로명`, `번호1`, `번호2`, `번호3`, `번호4`, `번호5`, `비고1`, `비고2`, `비고3`, `비고4`, `담당자`, `rowid`, `정렬번호`, `출력`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + SELECT 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고2, 비고3, 비고4, 담당자, rowid, 정렬번호, 출력 +FROM 기타세부 +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `기타세부` SET `관리ID` = ?, `번호` = ?, `관리구` = ?, `전주번호` = ?, `선로명` = ?, `번호1` = ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `담당자` = ?, `rowid` = ?, `정렬번호` = ?, `출력` = ? WHERE (((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `담당자` IS NULL) OR (`담당자` = ?)) AND (`rowid` = ?) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `전주세부` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `구관리구` IS NULL) OR (`구관리구` = ?)) AND ((? = 1 AND `구전산번호` IS NULL) OR (`구전산번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `점검일자` IS NULL) OR (`점검일자` = ?)) AND ((? = 1 AND `장척` IS NULL) OR (`장척` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `DL명` IS NULL) OR (`DL명` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `기입` IS NULL) OR (`기입` = ?)) AND ((? = 1 AND `접지저항1` IS NULL) OR (`접지저항1` = ?)) AND ((? = 1 AND `접지저항2` IS NULL) OR (`접지저항2` = ?)) AND ((? = 1 AND `형식` IS NULL) OR (`형식` = ?)) AND ((? = 1 AND `신규` IS NULL) OR (`신규` = ?)) AND ((? = 1 AND `철거` IS NULL) OR (`철거` = ?)) AND ((? = 1 AND `그림파일` IS NULL) OR (`그림파일` = ?)) AND ((? = 1 AND `인입` IS NULL) OR (`인입` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `구선로명` IS NULL) OR (`구선로명` = ?)) AND ((? = 1 AND `구전주번호` IS NULL) OR (`구전주번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `그림` IS NULL) OR (`그림` = ?)) AND ((? = 1 AND `COS휴즈용량` IS NULL) OR (`COS휴즈용량` = ?)) AND ((? = 1 AND `상표시찰1단` IS NULL) OR (`상표시찰1단` = ?)) AND ((? = 1 AND `상표시찰2단` IS NULL) OR (`상표시찰2단` = ?)) AND ((? = 1 AND `선로전방` IS NULL) OR (`선로전방` = ?)) AND ((? = 1 AND `선로좌측` IS NULL) OR (`선로좌측` = ?)) AND ((? = 1 AND `선로우측` IS NULL) OR (`선로우측` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `전주세부` (`rowid`, `관리ID`, `번호`, `구관리구`, `구전산번호`, `관리구`, `전주번호`, `선로명`, `번호1`, `번호2`, `번호3`, `번호4`, `번호5`, `점검일자`, `장척`, `시공년월`, `시공자`, `DL명`, `비고1`, `감독자`, `인쇄`, `기입`, `접지저항1`, `접지저항2`, `형식`, `신규`, `철거`, `그림파일`, `인입`, `정렬번호`, `구선로명`, `구전주번호`, `그림경로`, `출력`, `전주현행번호`, `문자1`, `문자2`, `그림`, `COS휴즈용량`, `상표시찰1단`, `상표시찰2단`, `선로전방`, `선로좌측`, `선로우측`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 구관리구, 구전산번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, + 점검일자, 장척, 시공년월, 시공자, DL명, 비고1, 감독자, 인쇄, 기입, 접지저항1, 접지저항2, 형식, 신규, + 철거, 그림파일, 인입, 정렬번호, 구선로명, 구전주번호, 그림경로, 출력, 전주현행번호, 문자1, 문자2, 그림, + COS휴즈용량, 상표시찰1단, 상표시찰2단, 선로전방, 선로좌측, 선로우측 +FROM 전주세부 +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `전주세부` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `구관리구` = ?, `구전산번호` = ?, `관리구` = ?, `전주번호` = ?, `선로명` = ?, `번호1` = ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5` = ?, `점검일자` = ?, `장척` = ?, `시공년월` = ?, `시공자` = ?, `DL명` = ?, `비고1` = ?, `감독자` = ?, `인쇄` = ?, `기입` = ?, `접지저항1` = ?, `접지저항2` = ?, `형식` = ?, `신규` = ?, `철거` = ?, `그림파일` = ?, `인입` = ?, `정렬번호` = ?, `구선로명` = ?, `구전주번호` = ?, `그림경로` = ?, `출력` = ?, `전주현행번호` = ?, `문자1` = ?, `문자2` = ?, `그림` = ?, `COS휴즈용량` = ?, `상표시찰1단` = ?, `상표시찰2단` = ?, `선로전방` = ?, `선로좌측` = ?, `선로우측` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `구관리구` IS NULL) OR (`구관리구` = ?)) AND ((? = 1 AND `구전산번호` IS NULL) OR (`구전산번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `점검일자` IS NULL) OR (`점검일자` = ?)) AND ((? = 1 AND `장척` IS NULL) OR (`장척` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공자` IS NULL) OR (`시공자` = ?)) AND ((? = 1 AND `DL명` IS NULL) OR (`DL명` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `기입` IS NULL) OR (`기입` = ?)) AND ((? = 1 AND `접지저항1` IS NULL) OR (`접지저항1` = ?)) AND ((? = 1 AND `접지저항2` IS NULL) OR (`접지저항2` = ?)) AND ((? = 1 AND `형식` IS NULL) OR (`형식` = ?)) AND ((? = 1 AND `신규` IS NULL) OR (`신규` = ?)) AND ((? = 1 AND `철거` IS NULL) OR (`철거` = ?)) AND ((? = 1 AND `그림파일` IS NULL) OR (`그림파일` = ?)) AND ((? = 1 AND `인입` IS NULL) OR (`인입` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `구선로명` IS NULL) OR (`구선로명` = ?)) AND ((? = 1 AND `구전주번호` IS NULL) OR (`구전주번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `그림` IS NULL) OR (`그림` = ?)) AND ((? = 1 AND `COS휴즈용량` IS NULL) OR (`COS휴즈용량` = ?)) AND ((? = 1 AND `상표시찰1단` IS NULL) OR (`상표시찰1단` = ?)) AND ((? = 1 AND `상표시찰2단` IS NULL) OR (`상표시찰2단` = ?)) AND ((? = 1 AND `선로전방` IS NULL) OR (`선로전방` = ?)) AND ((? = 1 AND `선로좌측` IS NULL) OR (`선로좌측` = ?)) AND ((? = 1 AND `선로우측` IS NULL) OR (`선로우측` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `Detail_Deung` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관리번호3` = ?)) AND ((? = 1 AND `지점명` IS NULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `고객번호1` IS NULL) OR (`고객번호1` = ?)) AND ((? = 1 AND `고객번호2` IS NULL) OR (`고객번호2` = ?)) AND ((? = 1 AND `고객번호3` IS NULL) OR (`고객번호3` = ?)) AND ((? = 1 AND `전산화번호1` IS NULL) OR (`전산화번호1` = ?)) AND ((? = 1 AND `전산화번호2` IS NULL) OR (`전산화번호2` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `전주번호1` IS NULL) OR (`전주번호1` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? = 1 AND `전주번호3` IS NULL) OR (`전주번호3` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Detail_Deung` (`rowid`, `관리ID`, `번호`, `관리번호1`, `관리번호2`, `관리번호3`, `지점명`, `정렬번호`, `출력`, `문자1`, `문자2`, `고객번호1`, `고객번호2`, `고객번호3`, `전산화번호1`, `전산화번호2`, `선로명`, `전주번호1`, `전주번호2`, `전주번호3`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 관리번호1, 관리번호2, 관리번호3, 지점명, 정렬번호, 출력, 문자1, 문자2, 고객번호1, 고객번호2, 고객번호3, 전산화번호1, 전산화번호2, 선로명, 전주번호1, + 전주번호2, 전주번호3 +FROM Detail_Deung +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `Detail_Deung` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리번호1` = ?, `관리번호2` = ?, `관리번호3` = ?, `지점명` = ?, `정렬번호` = ?, `출력` = ?, `문자1` = ?, `문자2` = ?, `고객번호1` = ?, `고객번호2` = ?, `고객번호3` = ?, `전산화번호1` = ?, `전산화번호2` = ?, `선로명` = ?, `전주번호1` = ?, `전주번호2` = ?, `전주번호3` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `관리번호3` IS NULL) OR (`관리번호3` = ?)) AND ((? = 1 AND `지점명` IS NULL) OR (`지점명` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `고객번호1` IS NULL) OR (`고객번호1` = ?)) AND ((? = 1 AND `고객번호2` IS NULL) OR (`고객번호2` = ?)) AND ((? = 1 AND `고객번호3` IS NULL) OR (`고객번호3` = ?)) AND ((? = 1 AND `전산화번호1` IS NULL) OR (`전산화번호1` = ?)) AND ((? = 1 AND `전산화번호2` IS NULL) OR (`전산화번호2` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `전주번호1` IS NULL) OR (`전주번호1` = ?)) AND ((? = 1 AND `전주번호2` IS NULL) OR (`전주번호2` = ?)) AND ((? = 1 AND `전주번호3` IS NULL) OR (`전주번호3` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `Detail_karo` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `지역명` IS NULL) OR (`지역명` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `전화번호1` IS NULL) OR (`전화번호1` = ?)) AND ((? = 1 AND `전화번호2` IS NULL) OR (`전화번호2` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Detail_karo` (`rowid`, `관리ID`, `번호`, `지역명`, `관리번호1`, `관리번호2`, `전화번호1`, `전화번호2`, `정렬번호`, `출력`, `문자1`, `문자2`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 지역명, 관리번호1, 관리번호2, 전화번호1, 전화번호2, 정렬번호, 출력, 문자1, 문자2 +FROM Detail_karo +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `Detail_karo` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `지역명` = ?, `관리번호1` = ?, `관리번호2` = ?, `전화번호1` = ?, `전화번호2` = ?, `정렬번호` = ?, `출력` = ?, `문자1` = ?, `문자2` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `지역명` IS NULL) OR (`지역명` = ?)) AND ((? = 1 AND `관리번호1` IS NULL) OR (`관리번호1` = ?)) AND ((? = 1 AND `관리번호2` IS NULL) OR (`관리번호2` = ?)) AND ((? = 1 AND `전화번호1` IS NULL) OR (`전화번호1` = ?)) AND ((? = 1 AND `전화번호2` IS NULL) OR (`전화번호2` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `Detail_Cable` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S0번호1` IS NULL) OR (`S0번호1` = ?)) AND ((? = 1 AND `S0번호2` IS NULL) OR (`S0번호2` = ?)) AND ((? = 1 AND `S0번호3` IS NULL) OR (`S0번호3` = ?)) AND ((? = 1 AND `S0번호4` IS NULL) OR (`S0번호4` = ?)) AND ((? = 1 AND `S0SW명` IS NULL) OR (`S0SW명` = ?)) AND ((? = 1 AND `S0수용가` IS NULL) OR (`S0수용가` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) AND ((? = 1 AND `S0SS` IS NULL) OR (`S0SS` = ?)) AND ((? = 1 AND `S0DL` IS NULL) OR (`S0DL` = ?)) AND ((? = 1 AND `S1SS` IS NULL) OR (`S1SS` = ?)) AND ((? = 1 AND `S1DL` IS NULL) OR (`S1DL` = ?)) AND ((? = 1 AND `S2SS` IS NULL) OR (`S2SS` = ?)) AND ((? = 1 AND `S2DL` IS NULL) OR (`S2DL` = ?)) AND ((? = 1 AND `S3SS` IS NULL) OR (`S3SS` = ?)) AND ((? = 1 AND `S3DL` IS NULL) OR (`S3DL` = ?)) AND ((? = 1 AND `S4SS` IS NULL) OR (`S4SS` = ?)) AND ((? = 1 AND `S4DL` IS NULL) OR (`S4DL` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Detail_Cable` (`rowid`, `관리ID`, `번호`, `관리구`, `전산번호`, `HASS`, `HADL`, `HA구간`, `HBSS`, `HBDL`, `HB구간`, `S0번호1`, `S0번호2`, `S0번호3`, `S0번호4`, `S0SW명`, `S0수용가`, `S1번호1`, `S1번호2`, `S1번호3`, `S1번호4`, `S1SW명`, `S1위치`, `S2번호1`, `S2번호2`, `S2번호3`, `S2번호4`, `S2SW명`, `S2위치`, `S3번호1`, `S3번호2`, `S3번호3`, `S3번호4`, `S3SW명`, `S3위치`, `S4번호1`, `S4번호2`, `S4번호3`, `S4번호4`, `S4SW명`, `S4위치`, `시공년월`, `시공회사`, `공사번호`, `감독자`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `정렬번호`, `출력`, `HA단자명`, `HB단자명`, `S0SS`, `S0DL`, `S1SS`, `S1DL`, `S2SS`, `S2DL`, `S3SS`, `S3DL`, `S4SS`, `S4DL`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 관리구, 전산번호, HASS, HADL, HA구간, HBSS, HBDL, HB구간, S0번호1, S0번호2, S0번호3, S0번호4, S0SW명, S0수용가, S1번호1, S1번호2, S1번호3, S1번호4, + S1SW명, S1위치, S2번호1, S2번호2, S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, + S4위치, 시공년월, 시공회사, 공사번호, 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, HA단자명, HB단자명, S0SS, S0DL, S1SS, S1DL, S2SS, S2DL, S3SS, S3DL, + S4SS, S4DL +FROM Detail_Cable +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `Detail_Cable` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전산번호` = ?, `HASS` = ?, `HADL` = ?, `HA구간` = ?, `HBSS` = ?, `HBDL` = ?, `HB구간` = ?, `S0번호1` = ?, `S0번호2` = ?, `S0번호3` = ?, `S0번호4` = ?, `S0SW명` = ?, `S0수용가` = ?, `S1번호1` = ?, `S1번호2` = ?, `S1번호3` = ?, `S1번호4` = ?, `S1SW명` = ?, `S1위치` = ?, `S2번호1` = ?, `S2번호2` = ?, `S2번호3` = ?, `S2번호4` = ?, `S2SW명` = ?, `S2위치` = ?, `S3번호1` = ?, `S3번호2` = ?, `S3번호3` = ?, `S3번호4` = ?, `S3SW명` = ?, `S3위치` = ?, `S4번호1` = ?, `S4번호2` = ?, `S4번호3` = ?, `S4번호4` = ?, `S4SW명` = ?, `S4위치` = ?, `시공년월` = ?, `시공회사` = ?, `공사번호` = ?, `감독자` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `정렬번호` = ?, `출력` = ?, `HA단자명` = ?, `HB단자명` = ?, `S0SS` = ?, `S0DL` = ?, `S1SS` = ?, `S1DL` = ?, `S2SS` = ?, `S2DL` = ?, `S3SS` = ?, `S3DL` = ?, `S4SS` = ?, `S4DL` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S0번호1` IS NULL) OR (`S0번호1` = ?)) AND ((? = 1 AND `S0번호2` IS NULL) OR (`S0번호2` = ?)) AND ((? = 1 AND `S0번호3` IS NULL) OR (`S0번호3` = ?)) AND ((? = 1 AND `S0번호4` IS NULL) OR (`S0번호4` = ?)) AND ((? = 1 AND `S0SW명` IS NULL) OR (`S0SW명` = ?)) AND ((? = 1 AND `S0수용가` IS NULL) OR (`S0수용가` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) AND ((? = 1 AND `S0SS` IS NULL) OR (`S0SS` = ?)) AND ((? = 1 AND `S0DL` IS NULL) OR (`S0DL` = ?)) AND ((? = 1 AND `S1SS` IS NULL) OR (`S1SS` = ?)) AND ((? = 1 AND `S1DL` IS NULL) OR (`S1DL` = ?)) AND ((? = 1 AND `S2SS` IS NULL) OR (`S2SS` = ?)) AND ((? = 1 AND `S2DL` IS NULL) OR (`S2DL` = ?)) AND ((? = 1 AND `S3SS` IS NULL) OR (`S3SS` = ?)) AND ((? = 1 AND `S3DL` IS NULL) OR (`S3DL` = ?)) AND ((? = 1 AND `S4SS` IS NULL) OR (`S4SS` = ?)) AND ((? = 1 AND `S4DL` IS NULL) OR (`S4DL` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `Detail_Cable2` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Detail_Cable2` (`rowid`, `관리ID`, `번호`, `관리구`, `전산번호`, `HA단자명`, `HASS`, `HADL`, `HA구간`, `HB단자명`, `HBSS`, `HBDL`, `HB구간`, `S1번호1`, `S1번호2`, `S1번호3`, `S1번호4`, `S1SW명`, `S1위치`, `S2번호1`, `S2번호2`, `S2번호3`, `S2번호4`, `S2SW명`, `S2위치`, `S3번호1`, `S3번호2`, `S3번호3`, `S3번호4`, `S3SW명`, `S3위치`, `S4번호1`, `S4번호2`, `S4번호3`, `S4번호4`, `S4SW명`, `S4위치`, `시공년월`, `시공회사`, `공사번호`, `감독자`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `정렬번호`, `출력`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 관리구, 전산번호, HA단자명, HASS, HADL, HA구간, HB단자명, HBSS, HBDL, HB구간, S1번호1, S1번호2, S1번호3, S1번호4, S1SW명, S1위치, S2번호1, S2번호2, + S2번호3, S2번호4, S2SW명, S2위치, S3번호1, S3번호2, S3번호3, S3번호4, S3SW명, S3위치, S4번호1, S4번호2, S4번호3, S4번호4, S4SW명, S4위치, 시공년월, 시공회사, 공사번호, + 감독자, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력 +FROM Detail_Cable2 +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `Detail_Cable2` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전산번호` = ?, `HA단자명` = ?, `HASS` = ?, `HADL` = ?, `HA구간` = ?, `HB단자명` = ?, `HBSS` = ?, `HBDL` = ?, `HB구간` = ?, `S1번호1` = ?, `S1번호2` = ?, `S1번호3` = ?, `S1번호4` = ?, `S1SW명` = ?, `S1위치` = ?, `S2번호1` = ?, `S2번호2` = ?, `S2번호3` = ?, `S2번호4` = ?, `S2SW명` = ?, `S2위치` = ?, `S3번호1` = ?, `S3번호2` = ?, `S3번호3` = ?, `S3번호4` = ?, `S3SW명` = ?, `S3위치` = ?, `S4번호1` = ?, `S4번호2` = ?, `S4번호3` = ?, `S4번호4` = ?, `S4SW명` = ?, `S4위치` = ?, `시공년월` = ?, `시공회사` = ?, `공사번호` = ?, `감독자` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `정렬번호` = ?, `출력` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전산번호` IS NULL) OR (`전산번호` = ?)) AND ((? = 1 AND `HA단자명` IS NULL) OR (`HA단자명` = ?)) AND ((? = 1 AND `HASS` IS NULL) OR (`HASS` = ?)) AND ((? = 1 AND `HADL` IS NULL) OR (`HADL` = ?)) AND ((? = 1 AND `HA구간` IS NULL) OR (`HA구간` = ?)) AND ((? = 1 AND `HB단자명` IS NULL) OR (`HB단자명` = ?)) AND ((? = 1 AND `HBSS` IS NULL) OR (`HBSS` = ?)) AND ((? = 1 AND `HBDL` IS NULL) OR (`HBDL` = ?)) AND ((? = 1 AND `HB구간` IS NULL) OR (`HB구간` = ?)) AND ((? = 1 AND `S1번호1` IS NULL) OR (`S1번호1` = ?)) AND ((? = 1 AND `S1번호2` IS NULL) OR (`S1번호2` = ?)) AND ((? = 1 AND `S1번호3` IS NULL) OR (`S1번호3` = ?)) AND ((? = 1 AND `S1번호4` IS NULL) OR (`S1번호4` = ?)) AND ((? = 1 AND `S1SW명` IS NULL) OR (`S1SW명` = ?)) AND ((? = 1 AND `S1위치` IS NULL) OR (`S1위치` = ?)) AND ((? = 1 AND `S2번호1` IS NULL) OR (`S2번호1` = ?)) AND ((? = 1 AND `S2번호2` IS NULL) OR (`S2번호2` = ?)) AND ((? = 1 AND `S2번호3` IS NULL) OR (`S2번호3` = ?)) AND ((? = 1 AND `S2번호4` IS NULL) OR (`S2번호4` = ?)) AND ((? = 1 AND `S2SW명` IS NULL) OR (`S2SW명` = ?)) AND ((? = 1 AND `S2위치` IS NULL) OR (`S2위치` = ?)) AND ((? = 1 AND `S3번호1` IS NULL) OR (`S3번호1` = ?)) AND ((? = 1 AND `S3번호2` IS NULL) OR (`S3번호2` = ?)) AND ((? = 1 AND `S3번호3` IS NULL) OR (`S3번호3` = ?)) AND ((? = 1 AND `S3번호4` IS NULL) OR (`S3번호4` = ?)) AND ((? = 1 AND `S3SW명` IS NULL) OR (`S3SW명` = ?)) AND ((? = 1 AND `S3위치` IS NULL) OR (`S3위치` = ?)) AND ((? = 1 AND `S4번호1` IS NULL) OR (`S4번호1` = ?)) AND ((? = 1 AND `S4번호2` IS NULL) OR (`S4번호2` = ?)) AND ((? = 1 AND `S4번호3` IS NULL) OR (`S4번호3` = ?)) AND ((? = 1 AND `S4번호4` IS NULL) OR (`S4번호4` = ?)) AND ((? = 1 AND `S4SW명` IS NULL) OR (`S4SW명` = ?)) AND ((? = 1 AND `S4위치` IS NULL) OR (`S4위치` = ?)) AND ((? = 1 AND `시공년월` IS NULL) OR (`시공년월` = ?)) AND ((? = 1 AND `시공회사` IS NULL) OR (`시공회사` = ?)) AND ((? = 1 AND `공사번호` IS NULL) OR (`공사번호` = ?)) AND ((? = 1 AND `감독자` IS NULL) OR (`감독자` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `Detail_CableLabel` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `순번` IS NULL) OR (`순번` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `N10` IS NULL) OR (`N10` = ?)) AND ((? = 1 AND `N1D` IS NULL) OR (`N1D` = ?)) AND ((? = 1 AND `N1S` IS NULL) OR (`N1S` = ?)) AND ((? = 1 AND `N1L` IS NULL) OR (`N1L` = ?)) AND ((? = 1 AND `N1H1` IS NULL) OR (`N1H1` = ?)) AND ((? = 1 AND `N1H2` IS NULL) OR (`N1H2` = ?)) AND ((? = 1 AND `N20` IS NULL) OR (`N20` = ?)) AND ((? = 1 AND `N2J` IS NULL) OR (`N2J` = ?)) AND ((? = 1 AND `N2K` IS NULL) OR (`N2K` = ?)) AND ((? = 1 AND `N2B` IS NULL) OR (`N2B` = ?)) AND ((? = 1 AND `N21` IS NULL) OR (`N21` = ?)) AND ((? = 1 AND `N22` IS NULL) OR (`N22` = ?)) AND ((? = 1 AND `N2C` IS NULL) OR (`N2C` = ?)) AND ((? = 1 AND `N30` IS NULL) OR (`N30` = ?)) AND ((? = 1 AND `N3J` IS NULL) OR (`N3J` = ?)) AND ((? = 1 AND `N3K` IS NULL) OR (`N3K` = ?)) AND ((? = 1 AND `N3B` IS NULL) OR (`N3B` = ?)) AND ((? = 1 AND `N31` IS NULL) OR (`N31` = ?)) AND ((? = 1 AND `N32` IS NULL) OR (`N32` = ?)) AND ((? = 1 AND `N3C` IS NULL) OR (`N3C` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Detail_CableLabel` (`rowid`, `관리ID`, `번호`, `순번`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `정렬번호`, `출력`, `N10`, `N1D`, `N1S`, `N1L`, `N1H1`, `N1H2`, `N20`, `N2J`, `N2K`, `N2B`, `N21`, `N22`, `N2C`, `N30`, `N3J`, `N3K`, `N3B`, `N31`, `N32`, `N3C`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 순번, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 정렬번호, 출력, N10, N1D, N1S, N1L, N1H1, N1H2, N20, N2J, N2K, N2B, N21, N22, N2C, N30, N3J, N3K, N3B, N31, + N32, N3C +FROM Detail_CableLabel +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `Detail_CableLabel` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `순번` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `정렬번호` = ?, `출력` = ?, `N10` = ?, `N1D` = ?, `N1S` = ?, `N1L` = ?, `N1H1` = ?, `N1H2` = ?, `N20` = ?, `N2J` = ?, `N2K` = ?, `N2B` = ?, `N21` = ?, `N22` = ?, `N2C` = ?, `N30` = ?, `N3J` = ?, `N3K` = ?, `N3B` = ?, `N31` = ?, `N32` = ?, `N3C` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `순번` IS NULL) OR (`순번` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?)) AND ((? = 1 AND `N10` IS NULL) OR (`N10` = ?)) AND ((? = 1 AND `N1D` IS NULL) OR (`N1D` = ?)) AND ((? = 1 AND `N1S` IS NULL) OR (`N1S` = ?)) AND ((? = 1 AND `N1L` IS NULL) OR (`N1L` = ?)) AND ((? = 1 AND `N1H1` IS NULL) OR (`N1H1` = ?)) AND ((? = 1 AND `N1H2` IS NULL) OR (`N1H2` = ?)) AND ((? = 1 AND `N20` IS NULL) OR (`N20` = ?)) AND ((? = 1 AND `N2J` IS NULL) OR (`N2J` = ?)) AND ((? = 1 AND `N2K` IS NULL) OR (`N2K` = ?)) AND ((? = 1 AND `N2B` IS NULL) OR (`N2B` = ?)) AND ((? = 1 AND `N21` IS NULL) OR (`N21` = ?)) AND ((? = 1 AND `N22` IS NULL) OR (`N22` = ?)) AND ((? = 1 AND `N2C` IS NULL) OR (`N2C` = ?)) AND ((? = 1 AND `N30` IS NULL) OR (`N30` = ?)) AND ((? = 1 AND `N3J` IS NULL) OR (`N3J` = ?)) AND ((? = 1 AND `N3K` IS NULL) OR (`N3K` = ?)) AND ((? = 1 AND `N3B` IS NULL) OR (`N3B` = ?)) AND ((? = 1 AND `N31` IS NULL) OR (`N31` = ?)) AND ((? = 1 AND `N32` IS NULL) OR (`N32` = ?)) AND ((? = 1 AND `N3C` IS NULL) OR (`N3C` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM `기기세부` WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `회선11` IS NULL) OR (`회선11` = ?)) AND ((? = 1 AND `회선12` IS NULL) OR (`회선12` = ?)) AND ((? = 1 AND `회선13` IS NULL) OR (`회선13` = ?)) AND ((? = 1 AND `회선14` IS NULL) OR (`회선14` = ?)) AND ((? = 1 AND `회선15` IS NULL) OR (`회선15` = ?)) AND ((? = 1 AND `회선21` IS NULL) OR (`회선21` = ?)) AND ((? = 1 AND `회선22` IS NULL) OR (`회선22` = ?)) AND ((? = 1 AND `회선23` IS NULL) OR (`회선23` = ?)) AND ((? = 1 AND `회선24` IS NULL) OR (`회선24` = ?)) AND ((? = 1 AND `회선25` IS NULL) OR (`회선25` = ?)) AND ((? = 1 AND `회선31` IS NULL) OR (`회선31` = ?)) AND ((? = 1 AND `회선32` IS NULL) OR (`회선32` = ?)) AND ((? = 1 AND `회선33` IS NULL) OR (`회선33` = ?)) AND ((? = 1 AND `회선34` IS NULL) OR (`회선34` = ?)) AND ((? = 1 AND `회선35` IS NULL) OR (`회선35` = ?)) AND ((? = 1 AND `회선36` IS NULL) OR (`회선36` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `대규격` IS NULL) OR (`대규격` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `기기세부` (`rowid`, `관리ID`, `번호`, `관리구`, `전주번호`, `선로명`, `번호1`, `번호2`, `번호3`, `번호4`, `번호5`, `전주현행번호`, `회선11`, `회선12`, `회선13`, `회선14`, `회선15`, `회선21`, `회선22`, `회선23`, `회선24`, `회선25`, `회선31`, `회선32`, `회선33`, `회선34`, `회선35`, `회선36`, `인쇄`, `대규격`, `정렬번호`, `문자1`, `문자2`, `비고1`, `비고2`, `비고3`, `비고4`, `비고5`, `비고6`, `출력`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 관리구, 전주번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 전주현행번호, 회선11, + 회선12, 회선13, 회선14, 회선15, 회선21, 회선22, 회선23, 회선24, 회선25, 회선31, 회선32, 회선33, 회선34, + 회선35, 회선36, 인쇄, 대규격, 정렬번호, 문자1, 문자2, 비고1, 비고2, 비고3, 비고4, 비고5, 비고6, 출력 +FROM 기기세부 +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE `기기세부` SET `rowid` = ?, `관리ID` = ?, `번호` = ?, `관리구` = ?, `전주번호` = ?, `선로명` = ?, `번호1` = ?, `번호2` = ?, `번호3` = ?, `번호4` = ?, `번호5` = ?, `전주현행번호` = ?, `회선11` = ?, `회선12` = ?, `회선13` = ?, `회선14` = ?, `회선15` = ?, `회선21` = ?, `회선22` = ?, `회선23` = ?, `회선24` = ?, `회선25` = ?, `회선31` = ?, `회선32` = ?, `회선33` = ?, `회선34` = ?, `회선35` = ?, `회선36` = ?, `인쇄` = ?, `대규격` = ?, `정렬번호` = ?, `문자1` = ?, `문자2` = ?, `비고1` = ?, `비고2` = ?, `비고3` = ?, `비고4` = ?, `비고5` = ?, `비고6` = ?, `출력` = ? WHERE ((`rowid` = ?) AND ((? = 1 AND `관리ID` IS NULL) OR (`관리ID` = ?)) AND ((? = 1 AND `번호` IS NULL) OR (`번호` = ?)) AND ((? = 1 AND `관리구` IS NULL) OR (`관리구` = ?)) AND ((? = 1 AND `전주번호` IS NULL) OR (`전주번호` = ?)) AND ((? = 1 AND `선로명` IS NULL) OR (`선로명` = ?)) AND ((? = 1 AND `번호1` IS NULL) OR (`번호1` = ?)) AND ((? = 1 AND `번호2` IS NULL) OR (`번호2` = ?)) AND ((? = 1 AND `번호3` IS NULL) OR (`번호3` = ?)) AND ((? = 1 AND `번호4` IS NULL) OR (`번호4` = ?)) AND ((? = 1 AND `번호5` IS NULL) OR (`번호5` = ?)) AND ((? = 1 AND `전주현행번호` IS NULL) OR (`전주현행번호` = ?)) AND ((? = 1 AND `회선11` IS NULL) OR (`회선11` = ?)) AND ((? = 1 AND `회선12` IS NULL) OR (`회선12` = ?)) AND ((? = 1 AND `회선13` IS NULL) OR (`회선13` = ?)) AND ((? = 1 AND `회선14` IS NULL) OR (`회선14` = ?)) AND ((? = 1 AND `회선15` IS NULL) OR (`회선15` = ?)) AND ((? = 1 AND `회선21` IS NULL) OR (`회선21` = ?)) AND ((? = 1 AND `회선22` IS NULL) OR (`회선22` = ?)) AND ((? = 1 AND `회선23` IS NULL) OR (`회선23` = ?)) AND ((? = 1 AND `회선24` IS NULL) OR (`회선24` = ?)) AND ((? = 1 AND `회선25` IS NULL) OR (`회선25` = ?)) AND ((? = 1 AND `회선31` IS NULL) OR (`회선31` = ?)) AND ((? = 1 AND `회선32` IS NULL) OR (`회선32` = ?)) AND ((? = 1 AND `회선33` IS NULL) OR (`회선33` = ?)) AND ((? = 1 AND `회선34` IS NULL) OR (`회선34` = ?)) AND ((? = 1 AND `회선35` IS NULL) OR (`회선35` = ?)) AND ((? = 1 AND `회선36` IS NULL) OR (`회선36` = ?)) AND ((? = 1 AND `인쇄` IS NULL) OR (`인쇄` = ?)) AND ((? = 1 AND `대규격` IS NULL) OR (`대규격` = ?)) AND ((? = 1 AND `정렬번호` IS NULL) OR (`정렬번호` = ?)) AND ((? = 1 AND `문자1` IS NULL) OR (`문자1` = ?)) AND ((? = 1 AND `문자2` IS NULL) OR (`문자2` = ?)) AND ((? = 1 AND `비고1` IS NULL) OR (`비고1` = ?)) AND ((? = 1 AND `비고2` IS NULL) OR (`비고2` = ?)) AND ((? = 1 AND `비고3` IS NULL) OR (`비고3` = ?)) AND ((? = 1 AND `비고4` IS NULL) OR (`비고4` = ?)) AND ((? = 1 AND `비고5` IS NULL) OR (`비고5` = ?)) AND ((? = 1 AND `비고6` IS NULL) OR (`비고6` = ?)) AND ((? = 1 AND `출력` IS NULL) OR (`출력` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM 지중세부 +WHERE (rowid = ?) + + + + + + + + INSERT INTO `지중세부` (`rowid`, `관리ID`, `번호`, `관리구`, `전산화번호`, `선로명`, `번호1`, `번호2`, `번호3`, `번호4`, `번호5`, `비고1`, `비고0`, `비고2`, `비고3`, `변압기상`, `변압기용량`, `시공업체`, `시공년월`, `정렬번호`, `출력`, `관리구2`, `전산번호2`, `변압기명`, `전원측`, `부하측`, `비고21`, `비고22`, `변압기선로`, `제조년월`, `제조회사`) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT rowid, 관리ID, 번호, 관리구, 전산화번호, 선로명, 번호1, 번호2, 번호3, 번호4, 번호5, 비고1, 비고0, 비고2, + 비고3, 변압기상, 변압기용량, 시공업체, 시공년월, 정렬번호, 출력, 관리구2, 전산번호2, 변압기명, 전원측, + 부하측, 비고21, 비고22, 변압기선로, 제조년월, 제조회사 +FROM 지중세부 +WHERE (관리ID = ?) +ORDER BY 정렬번호, 번호 + + + + + + + + UPDATE 지중세부 +SET rowid = ?, 관리ID = ?, 번호 = ?, 관리구 = ?, 전산화번호 = ?, 선로명 = ?, 번호1 = ?, 번호2 = ?, 번호3 = ?, + 번호4 = ?, 번호5 = ?, 비고1 = ?, 비고0 = ?, 비고2 = ?, 비고3 = ?, 변압기상 = ?, 변압기용량 = ?, 시공업체 = ?, + 시공년월 = ?, 정렬번호 = ?, 출력 = ?, 관리구2 = ?, 전산번호2 = ?, 변압기명 = ?, 전원측 = ?, 부하측 = ?, + 비고21 = ?, 비고22 = ?, 변압기선로 = ?, 제조년월 = ?, 제조회사 = ? +WHERE (rowid = ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Epole/데이터셋/ireaDataSet.xss b/Epole/데이터셋/ireaDataSet.xss new file mode 100644 index 0000000..d950c74 --- /dev/null +++ b/Epole/데이터셋/ireaDataSet.xss @@ -0,0 +1,21 @@ + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Epole/업로드폼/XLSImport.Designer.vb b/Epole/업로드폼/XLSImport.Designer.vb new file mode 100644 index 0000000..25ec5ca --- /dev/null +++ b/Epole/업로드폼/XLSImport.Designer.vb @@ -0,0 +1,1732 @@ + _ +Partial Class XLSImport + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XLSImport)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_cnt = New System.Windows.Forms.ToolStripStatusLabel + Me.LB_DB = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_file = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_reccnt = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.tb_scnt = New System.Windows.Forms.ToolStripTextBox + Me.tb_ecnt = New System.Windows.Forms.ToolStripTextBox + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.lb_selcontrol = New System.Windows.Forms.ToolStripLabel + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.lStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.gsdfolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.htrtripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.gfdsolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.jytripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.CustFP1 = New NewFp + Me.CustFP1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.CustFP2 = New NewFp + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem + Me.CustFP2_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.TabControl1 = New System.Windows.Forms.TabControl + Me.TabPage1 = New System.Windows.Forms.TabPage + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel + Me.ImpCtl2 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl20 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl3 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl4 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl5 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl6 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl7 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl8 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl9 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl10 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl11 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl12 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl13 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl14 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl15 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl16 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl17 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl18 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl19 = New MyControlOLEDBv2.ImpCtl + Me.TabPage2 = New System.Windows.Forms.TabPage + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel + Me.ImpCtl21 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl39 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl22 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl23 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl24 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl25 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl26 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl27 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl28 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl29 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl30 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl31 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl32 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl33 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl34 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl35 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl36 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl37 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl38 = New MyControlOLEDBv2.ImpCtl + Me.TabPage3 = New System.Windows.Forms.TabPage + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel + Me.ImpCtl40 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl58 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl41 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl42 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl43 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl44 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl45 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl46 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl47 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl48 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl49 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl50 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl51 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl52 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl53 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl54 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl55 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl56 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl57 = New MyControlOLEDBv2.ImpCtl + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton + Me.IreaDataSet = New EpoleNet.ireaDataSet + Me.tyableAdapter1 = New EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.ContextMenuStrip2.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.CustFP1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CustFP1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CustFP2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.CustFP2_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TableLayoutPanel3.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TableLayoutPanel4.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.BackColor = System.Drawing.SystemColors.Control + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_pos, Me.lb_cnt, Me.LB_DB, Me.lb_file, Me.lb_reccnt, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 678) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1219, 22) + Me.StatusStrip1.TabIndex = 1 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(46, 17) + Me.lb_pos.Text = "" + ' + 'lb_cnt + ' + Me.lb_cnt.Name = "lb_cnt" + Me.lb_cnt.Size = New System.Drawing.Size(26, 17) + Me.lb_cnt.Text = "0/0" + ' + 'LB_DB + ' + Me.LB_DB.Name = "LB_DB" + Me.LB_DB.Size = New System.Drawing.Size(19, 17) + Me.LB_DB.Text = "○" + Me.LB_DB.ToolTipText = "데이터베이스 연결상태" + ' + 'lb_file + ' + Me.lb_file.Name = "lb_file" + Me.lb_file.Size = New System.Drawing.Size(19, 17) + Me.lb_file.Text = "★" + ' + 'lb_reccnt + ' + Me.lb_reccnt.Name = "lb_reccnt" + Me.lb_reccnt.Size = New System.Drawing.Size(34, 17) + Me.lb_reccnt.Text = "(0/0)" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▶" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripSeparator5, Me.ToolStripLabel2, Me.tb_scnt, Me.tb_ecnt, Me.ToolStripSeparator1, Me.lb_selcontrol}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(1219, 39) + Me.ToolStrip2.TabIndex = 12 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.ToolStripButton1.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(130, 36) + Me.ToolStripButton1.Text = "파일불러오기(&R)" + Me.ToolStripButton1.ToolTipText = "이전에 사용한 파일을 다시 불러옵니다" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(55, 36) + Me.ToolStripLabel2.Text = "범위선택" + Me.ToolStripLabel2.ToolTipText = "우측의 칸에 가져올 범위에 해당하는 숫자를 입력하세요" + ' + 'tb_scnt + ' + Me.tb_scnt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_scnt.Name = "tb_scnt" + Me.tb_scnt.Size = New System.Drawing.Size(40, 39) + Me.tb_scnt.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_scnt.ToolTipText = "시작 범위" + ' + 'tb_ecnt + ' + Me.tb_ecnt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_ecnt.Name = "tb_ecnt" + Me.tb_ecnt.Size = New System.Drawing.Size(40, 39) + Me.tb_ecnt.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ecnt.ToolTipText = "종료 범위(0은 마지막까지를의미합니다)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'lb_selcontrol + ' + Me.lb_selcontrol.Name = "lb_selcontrol" + Me.lb_selcontrol.Size = New System.Drawing.Size(17, 36) + Me.lb_selcontrol.Text = "※" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편 도움말" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lStripMenuItem1, Me.gsdfolStripMenuItem1, Me.htrtripMenuItem, Me.gfdsolStripMenuItem1, Me.olStripMenuItem1, Me.jytripMenuItem1}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(135, 136) + ' + 'lStripMenuItem1 + ' + Me.lStripMenuItem1.Name = "lStripMenuItem1" + Me.lStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.lStripMenuItem1.Text = "선택반전" + ' + 'gsdfolStripMenuItem1 + ' + Me.gsdfolStripMenuItem1.Name = "gsdfolStripMenuItem1" + Me.gsdfolStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.gsdfolStripMenuItem1.Text = "전체선택" + ' + 'htrtripMenuItem + ' + Me.htrtripMenuItem.Name = "htrtripMenuItem" + Me.htrtripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.htrtripMenuItem.Text = "선택해제" + ' + 'gfdsolStripMenuItem1 + ' + Me.gfdsolStripMenuItem1.Name = "gfdsolStripMenuItem1" + Me.gfdsolStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.gfdsolStripMenuItem1.Text = "전체삭제" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.olStripMenuItem1.Text = "선택삭제" + ' + 'jytripMenuItem1 + ' + Me.jytripMenuItem1.Name = "jytripMenuItem1" + Me.jytripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.jytripMenuItem1.Text = "파일로저장" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.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.TableLayoutPanel1.ColumnCount = 1 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.CustFP1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.CustFP2, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.TabControl1, 0, 1) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 42) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 3 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 31.54876!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 24.45759!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 44.18146!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(1219, 594) + Me.TableLayoutPanel1.TabIndex = 17 + ' + 'CustFP1 + ' + Me.CustFP1.AAutoAddrowInLast = Nothing + Me.CustFP1.AccessibleDescription = "CustFP1" + Me.CustFP1.ACellImeLabel = Nothing + Me.CustFP1.ACellposLabel = Nothing + Me.CustFP1.ACheckBox_ColIndex = CType(-1, Short) + Me.CustFP1.ADeleteCell = False + Me.CustFP1.ADeleteRow = False + Me.CustFP1.AEditFromSpace = True + Me.CustFP1.AEditStatusLabel = Nothing + Me.CustFP1.AFirstColumn_Index = 0 + Me.CustFP1.AMessageLabel = Nothing + Me.CustFP1.ANextRow_ColIndex = -1 + Me.CustFP1.ASameRowheight = True + Me.CustFP1.BackColor = System.Drawing.SystemColors.Control + Me.CustFP1.Dock = System.Windows.Forms.DockStyle.Fill + Me.CustFP1.Location = New System.Drawing.Point(3, 3) + Me.CustFP1.Name = "CustFP1" + Me.CustFP1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.CustFP1_Sheet1}) + Me.CustFP1.Size = New System.Drawing.Size(1213, 181) + Me.CustFP1.TabIndex = 22 + ' + 'CustFP1_Sheet1 + ' + Me.CustFP1_Sheet1.Reset() + Me.CustFP1_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.CustFP1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.CustFP1_Sheet1.RowCount = 0 + Me.CustFP1_Sheet1.ActiveRowIndex = -1 + Me.CustFP1_Sheet1.AllowNoteEdit = True + Me.CustFP1_Sheet1.ColumnHeader.Cells.Get(0, 0).ColumnSpan = 5 + Me.CustFP1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "불러오기로 파일을 불러오세요" + Me.CustFP1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.CustFP1_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.CustFP1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.CustFP1.SetActiveViewport(0, -1, 0) + ' + 'CustFP2 + ' + Me.CustFP2.AAutoAddrowInLast = Nothing + Me.CustFP2.AccessibleDescription = "CustFP2, Sheet1, Row 0, Column 0, " + Me.CustFP2.ACellImeLabel = Nothing + Me.CustFP2.ACellposLabel = Me.lb_pos + Me.CustFP2.ACheckBox_ColIndex = CType(-1, Short) + Me.CustFP2.ADeleteCell = False + Me.CustFP2.ADeleteRow = False + Me.CustFP2.AEditFromSpace = True + Me.CustFP2.AEditStatusLabel = Nothing + Me.CustFP2.AFirstColumn_Index = 0 + Me.CustFP2.AMessageLabel = Nothing + Me.CustFP2.ANextRow_ColIndex = -1 + Me.CustFP2.ASameRowheight = True + Me.CustFP2.BackColor = System.Drawing.SystemColors.Control + Me.CustFP2.ContextMenuStrip = Me.ContextMenuStrip1 + Me.CustFP2.Dock = System.Windows.Forms.DockStyle.Fill + Me.CustFP2.Location = New System.Drawing.Point(3, 335) + Me.CustFP2.Name = "CustFP2" + Me.CustFP2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.CustFP2.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.CustFP2_Sheet1}) + Me.CustFP2.Size = New System.Drawing.Size(1213, 256) + Me.CustFP2.TabIndex = 23 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(159, 26) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(158, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'CustFP2_Sheet1 + ' + Me.CustFP2_Sheet1.Reset() + Me.CustFP2_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.CustFP2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.CustFP2_Sheet1.AllowNoteEdit = True + Me.CustFP2_Sheet1.ColumnHeader.Rows.Get(0).Height = 39.0! + Me.CustFP2_Sheet1.DataAutoSizeColumns = False + Me.CustFP2_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.CustFP2_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.CustFP2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Location = New System.Drawing.Point(0, 187) + Me.TabControl1.Margin = New System.Windows.Forms.Padding(0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(1219, 145) + Me.TabControl1.TabIndex = 24 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.TableLayoutPanel3) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Margin = New System.Windows.Forms.Padding(0) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(1211, 119) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "1페이지" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel3 + ' + Me.TableLayoutPanel3.ColumnCount = 19 + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl2, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl20, 18, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl3, 1, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl4, 2, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl5, 3, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl6, 4, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl7, 5, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl8, 6, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl9, 7, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl10, 8, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl11, 9, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl12, 10, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl13, 11, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl14, 12, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl15, 13, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl16, 14, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl17, 15, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl18, 16, 0) + Me.TableLayoutPanel3.Controls.Add(Me.ImpCtl19, 17, 0) + Me.TableLayoutPanel3.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel3.Location = New System.Drawing.Point(3, 3) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 1 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(1205, 113) + Me.TableLayoutPanel3.TabIndex = 21 + ' + 'ImpCtl2 + ' + Me.ImpCtl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl2.Location = New System.Drawing.Point(0, 0) + Me.ImpCtl2.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl2.Name = "ImpCtl2" + Me.ImpCtl2.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl2.TabIndex = 20 + Me.ImpCtl2.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl2.Vtype = False + Me.ImpCtl2.문자열자르기 = "" + Me.ImpCtl2.빈값체크 = False + Me.ImpCtl2.열번호 = "" + Me.ImpCtl2.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl2.필드명 = Nothing + ' + 'ImpCtl20 + ' + Me.ImpCtl20.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl20.Location = New System.Drawing.Point(1134, 0) + Me.ImpCtl20.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl20.Name = "ImpCtl20" + Me.ImpCtl20.Size = New System.Drawing.Size(71, 113) + Me.ImpCtl20.TabIndex = 23 + Me.ImpCtl20.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl20.Vtype = False + Me.ImpCtl20.문자열자르기 = "" + Me.ImpCtl20.빈값체크 = False + Me.ImpCtl20.열번호 = "" + Me.ImpCtl20.제목 = "전주번호(구)" + Me.ImpCtl20.필드명 = Nothing + ' + 'ImpCtl3 + ' + Me.ImpCtl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl3.Location = New System.Drawing.Point(63, 0) + Me.ImpCtl3.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl3.Name = "ImpCtl3" + Me.ImpCtl3.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl3.TabIndex = 20 + Me.ImpCtl3.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl3.Vtype = False + Me.ImpCtl3.문자열자르기 = "" + Me.ImpCtl3.빈값체크 = False + Me.ImpCtl3.열번호 = "" + Me.ImpCtl3.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl3.필드명 = Nothing + ' + 'ImpCtl4 + ' + Me.ImpCtl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl4.Location = New System.Drawing.Point(126, 0) + Me.ImpCtl4.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl4.Name = "ImpCtl4" + Me.ImpCtl4.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl4.TabIndex = 20 + Me.ImpCtl4.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl4.Vtype = False + Me.ImpCtl4.문자열자르기 = "" + Me.ImpCtl4.빈값체크 = False + Me.ImpCtl4.열번호 = "" + Me.ImpCtl4.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl4.필드명 = Nothing + ' + 'ImpCtl5 + ' + Me.ImpCtl5.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl5.Location = New System.Drawing.Point(189, 0) + Me.ImpCtl5.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl5.Name = "ImpCtl5" + Me.ImpCtl5.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl5.TabIndex = 20 + Me.ImpCtl5.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl5.Vtype = False + Me.ImpCtl5.문자열자르기 = "" + Me.ImpCtl5.빈값체크 = False + Me.ImpCtl5.열번호 = "" + Me.ImpCtl5.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl5.필드명 = Nothing + ' + 'ImpCtl6 + ' + Me.ImpCtl6.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl6.Location = New System.Drawing.Point(252, 0) + Me.ImpCtl6.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl6.Name = "ImpCtl6" + Me.ImpCtl6.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl6.TabIndex = 20 + Me.ImpCtl6.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl6.Vtype = False + Me.ImpCtl6.문자열자르기 = "" + Me.ImpCtl6.빈값체크 = False + Me.ImpCtl6.열번호 = "" + Me.ImpCtl6.제목 = "선로명" + Me.ImpCtl6.필드명 = Nothing + ' + 'ImpCtl7 + ' + Me.ImpCtl7.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl7.Location = New System.Drawing.Point(315, 0) + Me.ImpCtl7.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl7.Name = "ImpCtl7" + Me.ImpCtl7.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl7.TabIndex = 20 + Me.ImpCtl7.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl7.Vtype = False + Me.ImpCtl7.문자열자르기 = "" + Me.ImpCtl7.빈값체크 = False + Me.ImpCtl7.열번호 = "" + Me.ImpCtl7.제목 = "번호1" + Me.ImpCtl7.필드명 = Nothing + ' + 'ImpCtl8 + ' + Me.ImpCtl8.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl8.Location = New System.Drawing.Point(378, 0) + Me.ImpCtl8.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl8.Name = "ImpCtl8" + Me.ImpCtl8.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl8.TabIndex = 20 + Me.ImpCtl8.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl8.Vtype = False + Me.ImpCtl8.문자열자르기 = "" + Me.ImpCtl8.빈값체크 = False + Me.ImpCtl8.열번호 = "" + Me.ImpCtl8.제목 = "번호2" + Me.ImpCtl8.필드명 = Nothing + ' + 'ImpCtl9 + ' + Me.ImpCtl9.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl9.Location = New System.Drawing.Point(441, 0) + Me.ImpCtl9.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl9.Name = "ImpCtl9" + Me.ImpCtl9.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl9.TabIndex = 20 + Me.ImpCtl9.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl9.Vtype = False + Me.ImpCtl9.문자열자르기 = "" + Me.ImpCtl9.빈값체크 = False + Me.ImpCtl9.열번호 = "" + Me.ImpCtl9.제목 = "번호3" + Me.ImpCtl9.필드명 = Nothing + ' + 'ImpCtl10 + ' + Me.ImpCtl10.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl10.Location = New System.Drawing.Point(504, 0) + Me.ImpCtl10.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl10.Name = "ImpCtl10" + Me.ImpCtl10.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl10.TabIndex = 20 + Me.ImpCtl10.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl10.Vtype = False + Me.ImpCtl10.문자열자르기 = "" + Me.ImpCtl10.빈값체크 = False + Me.ImpCtl10.열번호 = "" + Me.ImpCtl10.제목 = "번호4" + Me.ImpCtl10.필드명 = Nothing + ' + 'ImpCtl11 + ' + Me.ImpCtl11.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl11.Location = New System.Drawing.Point(567, 0) + Me.ImpCtl11.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl11.Name = "ImpCtl11" + Me.ImpCtl11.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl11.TabIndex = 20 + Me.ImpCtl11.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl11.Vtype = False + Me.ImpCtl11.문자열자르기 = "" + Me.ImpCtl11.빈값체크 = False + Me.ImpCtl11.열번호 = "" + Me.ImpCtl11.제목 = "번호5" + Me.ImpCtl11.필드명 = Nothing + ' + 'ImpCtl12 + ' + Me.ImpCtl12.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl12.Location = New System.Drawing.Point(630, 0) + Me.ImpCtl12.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl12.Name = "ImpCtl12" + Me.ImpCtl12.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl12.TabIndex = 20 + Me.ImpCtl12.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl12.Vtype = False + Me.ImpCtl12.문자열자르기 = "" + Me.ImpCtl12.빈값체크 = False + Me.ImpCtl12.열번호 = "" + Me.ImpCtl12.제목 = "장척" + Me.ImpCtl12.필드명 = Nothing + ' + 'ImpCtl13 + ' + Me.ImpCtl13.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl13.Location = New System.Drawing.Point(693, 0) + Me.ImpCtl13.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl13.Name = "ImpCtl13" + Me.ImpCtl13.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl13.TabIndex = 20 + Me.ImpCtl13.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl13.Vtype = False + Me.ImpCtl13.문자열자르기 = "" + Me.ImpCtl13.빈값체크 = False + Me.ImpCtl13.열번호 = "" + Me.ImpCtl13.제목 = "시공년월" + Me.ImpCtl13.필드명 = Nothing + ' + 'ImpCtl14 + ' + Me.ImpCtl14.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl14.Location = New System.Drawing.Point(756, 0) + Me.ImpCtl14.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl14.Name = "ImpCtl14" + Me.ImpCtl14.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl14.TabIndex = 20 + Me.ImpCtl14.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl14.Vtype = False + Me.ImpCtl14.문자열자르기 = "" + Me.ImpCtl14.빈값체크 = False + Me.ImpCtl14.열번호 = "" + Me.ImpCtl14.제목 = "시공자" + Me.ImpCtl14.필드명 = Nothing + ' + 'ImpCtl15 + ' + Me.ImpCtl15.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl15.Location = New System.Drawing.Point(819, 0) + Me.ImpCtl15.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl15.Name = "ImpCtl15" + Me.ImpCtl15.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl15.TabIndex = 20 + Me.ImpCtl15.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl15.Vtype = False + Me.ImpCtl15.문자열자르기 = "" + Me.ImpCtl15.빈값체크 = False + Me.ImpCtl15.열번호 = "" + Me.ImpCtl15.제목 = "비고명" + Me.ImpCtl15.필드명 = Nothing + ' + 'ImpCtl16 + ' + Me.ImpCtl16.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl16.Location = New System.Drawing.Point(882, 0) + Me.ImpCtl16.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl16.Name = "ImpCtl16" + Me.ImpCtl16.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl16.TabIndex = 20 + Me.ImpCtl16.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl16.Vtype = False + Me.ImpCtl16.문자열자르기 = "" + Me.ImpCtl16.빈값체크 = False + Me.ImpCtl16.열번호 = "" + Me.ImpCtl16.제목 = "감독자" + Me.ImpCtl16.필드명 = Nothing + ' + 'ImpCtl17 + ' + Me.ImpCtl17.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl17.Location = New System.Drawing.Point(945, 0) + Me.ImpCtl17.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl17.Name = "ImpCtl17" + Me.ImpCtl17.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl17.TabIndex = 20 + Me.ImpCtl17.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl17.Vtype = False + Me.ImpCtl17.문자열자르기 = "" + Me.ImpCtl17.빈값체크 = False + Me.ImpCtl17.열번호 = "" + Me.ImpCtl17.제목 = "접지1" + Me.ImpCtl17.필드명 = Nothing + ' + 'ImpCtl18 + ' + Me.ImpCtl18.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl18.Location = New System.Drawing.Point(1008, 0) + Me.ImpCtl18.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl18.Name = "ImpCtl18" + Me.ImpCtl18.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl18.TabIndex = 20 + Me.ImpCtl18.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl18.Vtype = False + Me.ImpCtl18.문자열자르기 = "" + Me.ImpCtl18.빈값체크 = False + Me.ImpCtl18.열번호 = "" + Me.ImpCtl18.제목 = "접지2" + Me.ImpCtl18.필드명 = Nothing + ' + 'ImpCtl19 + ' + Me.ImpCtl19.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl19.Location = New System.Drawing.Point(1071, 0) + Me.ImpCtl19.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl19.Name = "ImpCtl19" + Me.ImpCtl19.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl19.TabIndex = 22 + Me.ImpCtl19.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl19.Vtype = False + Me.ImpCtl19.문자열자르기 = "" + Me.ImpCtl19.빈값체크 = False + Me.ImpCtl19.열번호 = "" + Me.ImpCtl19.제목 = "선로명(구)" + Me.ImpCtl19.필드명 = Nothing + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.TableLayoutPanel2) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Margin = New System.Windows.Forms.Padding(0) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(1211, 119) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "2페이지" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.ColumnCount = 19 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl21, 0, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl39, 18, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl22, 1, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl23, 2, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl24, 3, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl25, 4, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl26, 5, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl27, 6, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl28, 7, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl29, 8, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl30, 9, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl31, 10, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl32, 11, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl33, 12, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl34, 13, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl35, 14, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl36, 15, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl37, 16, 0) + Me.TableLayoutPanel2.Controls.Add(Me.ImpCtl38, 17, 0) + Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel2.Location = New System.Drawing.Point(3, 3) + Me.TableLayoutPanel2.Margin = New System.Windows.Forms.Padding(0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 1 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(1205, 113) + Me.TableLayoutPanel2.TabIndex = 21 + ' + 'ImpCtl21 + ' + Me.ImpCtl21.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl21.Location = New System.Drawing.Point(0, 0) + Me.ImpCtl21.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl21.Name = "ImpCtl21" + Me.ImpCtl21.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl21.TabIndex = 20 + Me.ImpCtl21.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl21.Vtype = False + Me.ImpCtl21.문자열자르기 = "" + Me.ImpCtl21.빈값체크 = False + Me.ImpCtl21.열번호 = "" + Me.ImpCtl21.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl21.필드명 = Nothing + ' + 'ImpCtl39 + ' + Me.ImpCtl39.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl39.Location = New System.Drawing.Point(1134, 0) + Me.ImpCtl39.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl39.Name = "ImpCtl39" + Me.ImpCtl39.Size = New System.Drawing.Size(71, 113) + Me.ImpCtl39.TabIndex = 23 + Me.ImpCtl39.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl39.Vtype = False + Me.ImpCtl39.문자열자르기 = "" + Me.ImpCtl39.빈값체크 = False + Me.ImpCtl39.열번호 = "" + Me.ImpCtl39.제목 = "전주번호(구)" + Me.ImpCtl39.필드명 = Nothing + ' + 'ImpCtl22 + ' + Me.ImpCtl22.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl22.Location = New System.Drawing.Point(63, 0) + Me.ImpCtl22.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl22.Name = "ImpCtl22" + Me.ImpCtl22.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl22.TabIndex = 20 + Me.ImpCtl22.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl22.Vtype = False + Me.ImpCtl22.문자열자르기 = "" + Me.ImpCtl22.빈값체크 = False + Me.ImpCtl22.열번호 = "" + Me.ImpCtl22.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl22.필드명 = Nothing + ' + 'ImpCtl23 + ' + Me.ImpCtl23.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl23.Location = New System.Drawing.Point(126, 0) + Me.ImpCtl23.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl23.Name = "ImpCtl23" + Me.ImpCtl23.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl23.TabIndex = 20 + Me.ImpCtl23.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl23.Vtype = False + Me.ImpCtl23.문자열자르기 = "" + Me.ImpCtl23.빈값체크 = False + Me.ImpCtl23.열번호 = "" + Me.ImpCtl23.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl23.필드명 = Nothing + ' + 'ImpCtl24 + ' + Me.ImpCtl24.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl24.Location = New System.Drawing.Point(189, 0) + Me.ImpCtl24.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl24.Name = "ImpCtl24" + Me.ImpCtl24.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl24.TabIndex = 20 + Me.ImpCtl24.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl24.Vtype = False + Me.ImpCtl24.문자열자르기 = "" + Me.ImpCtl24.빈값체크 = False + Me.ImpCtl24.열번호 = "" + Me.ImpCtl24.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl24.필드명 = Nothing + ' + 'ImpCtl25 + ' + Me.ImpCtl25.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl25.Location = New System.Drawing.Point(252, 0) + Me.ImpCtl25.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl25.Name = "ImpCtl25" + Me.ImpCtl25.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl25.TabIndex = 20 + Me.ImpCtl25.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl25.Vtype = False + Me.ImpCtl25.문자열자르기 = "" + Me.ImpCtl25.빈값체크 = False + Me.ImpCtl25.열번호 = "" + Me.ImpCtl25.제목 = "선로명" + Me.ImpCtl25.필드명 = Nothing + ' + 'ImpCtl26 + ' + Me.ImpCtl26.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl26.Location = New System.Drawing.Point(315, 0) + Me.ImpCtl26.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl26.Name = "ImpCtl26" + Me.ImpCtl26.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl26.TabIndex = 20 + Me.ImpCtl26.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl26.Vtype = False + Me.ImpCtl26.문자열자르기 = "" + Me.ImpCtl26.빈값체크 = False + Me.ImpCtl26.열번호 = "" + Me.ImpCtl26.제목 = "번호1" + Me.ImpCtl26.필드명 = Nothing + ' + 'ImpCtl27 + ' + Me.ImpCtl27.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl27.Location = New System.Drawing.Point(378, 0) + Me.ImpCtl27.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl27.Name = "ImpCtl27" + Me.ImpCtl27.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl27.TabIndex = 20 + Me.ImpCtl27.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl27.Vtype = False + Me.ImpCtl27.문자열자르기 = "" + Me.ImpCtl27.빈값체크 = False + Me.ImpCtl27.열번호 = "" + Me.ImpCtl27.제목 = "번호2" + Me.ImpCtl27.필드명 = Nothing + ' + 'ImpCtl28 + ' + Me.ImpCtl28.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl28.Location = New System.Drawing.Point(441, 0) + Me.ImpCtl28.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl28.Name = "ImpCtl28" + Me.ImpCtl28.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl28.TabIndex = 20 + Me.ImpCtl28.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl28.Vtype = False + Me.ImpCtl28.문자열자르기 = "" + Me.ImpCtl28.빈값체크 = False + Me.ImpCtl28.열번호 = "" + Me.ImpCtl28.제목 = "번호3" + Me.ImpCtl28.필드명 = Nothing + ' + 'ImpCtl29 + ' + Me.ImpCtl29.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl29.Location = New System.Drawing.Point(504, 0) + Me.ImpCtl29.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl29.Name = "ImpCtl29" + Me.ImpCtl29.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl29.TabIndex = 20 + Me.ImpCtl29.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl29.Vtype = False + Me.ImpCtl29.문자열자르기 = "" + Me.ImpCtl29.빈값체크 = False + Me.ImpCtl29.열번호 = "" + Me.ImpCtl29.제목 = "번호4" + Me.ImpCtl29.필드명 = Nothing + ' + 'ImpCtl30 + ' + Me.ImpCtl30.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl30.Location = New System.Drawing.Point(567, 0) + Me.ImpCtl30.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl30.Name = "ImpCtl30" + Me.ImpCtl30.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl30.TabIndex = 20 + Me.ImpCtl30.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl30.Vtype = False + Me.ImpCtl30.문자열자르기 = "" + Me.ImpCtl30.빈값체크 = False + Me.ImpCtl30.열번호 = "" + Me.ImpCtl30.제목 = "번호5" + Me.ImpCtl30.필드명 = Nothing + ' + 'ImpCtl31 + ' + Me.ImpCtl31.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl31.Location = New System.Drawing.Point(630, 0) + Me.ImpCtl31.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl31.Name = "ImpCtl31" + Me.ImpCtl31.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl31.TabIndex = 20 + Me.ImpCtl31.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl31.Vtype = False + Me.ImpCtl31.문자열자르기 = "" + Me.ImpCtl31.빈값체크 = False + Me.ImpCtl31.열번호 = "" + Me.ImpCtl31.제목 = "장척" + Me.ImpCtl31.필드명 = Nothing + ' + 'ImpCtl32 + ' + Me.ImpCtl32.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl32.Location = New System.Drawing.Point(693, 0) + Me.ImpCtl32.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl32.Name = "ImpCtl32" + Me.ImpCtl32.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl32.TabIndex = 20 + Me.ImpCtl32.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl32.Vtype = False + Me.ImpCtl32.문자열자르기 = "" + Me.ImpCtl32.빈값체크 = False + Me.ImpCtl32.열번호 = "" + Me.ImpCtl32.제목 = "시공년월" + Me.ImpCtl32.필드명 = Nothing + ' + 'ImpCtl33 + ' + Me.ImpCtl33.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl33.Location = New System.Drawing.Point(756, 0) + Me.ImpCtl33.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl33.Name = "ImpCtl33" + Me.ImpCtl33.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl33.TabIndex = 20 + Me.ImpCtl33.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl33.Vtype = False + Me.ImpCtl33.문자열자르기 = "" + Me.ImpCtl33.빈값체크 = False + Me.ImpCtl33.열번호 = "" + Me.ImpCtl33.제목 = "시공자" + Me.ImpCtl33.필드명 = Nothing + ' + 'ImpCtl34 + ' + Me.ImpCtl34.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl34.Location = New System.Drawing.Point(819, 0) + Me.ImpCtl34.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl34.Name = "ImpCtl34" + Me.ImpCtl34.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl34.TabIndex = 20 + Me.ImpCtl34.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl34.Vtype = False + Me.ImpCtl34.문자열자르기 = "" + Me.ImpCtl34.빈값체크 = False + Me.ImpCtl34.열번호 = "" + Me.ImpCtl34.제목 = "DL명" + Me.ImpCtl34.필드명 = Nothing + ' + 'ImpCtl35 + ' + Me.ImpCtl35.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl35.Location = New System.Drawing.Point(882, 0) + Me.ImpCtl35.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl35.Name = "ImpCtl35" + Me.ImpCtl35.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl35.TabIndex = 20 + Me.ImpCtl35.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl35.Vtype = False + Me.ImpCtl35.문자열자르기 = "" + Me.ImpCtl35.빈값체크 = False + Me.ImpCtl35.열번호 = "" + Me.ImpCtl35.제목 = "감독자" + Me.ImpCtl35.필드명 = Nothing + ' + 'ImpCtl36 + ' + Me.ImpCtl36.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl36.Location = New System.Drawing.Point(945, 0) + Me.ImpCtl36.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl36.Name = "ImpCtl36" + Me.ImpCtl36.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl36.TabIndex = 20 + Me.ImpCtl36.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl36.Vtype = False + Me.ImpCtl36.문자열자르기 = "" + Me.ImpCtl36.빈값체크 = False + Me.ImpCtl36.열번호 = "" + Me.ImpCtl36.제목 = "접지1" + Me.ImpCtl36.필드명 = Nothing + ' + 'ImpCtl37 + ' + Me.ImpCtl37.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl37.Location = New System.Drawing.Point(1008, 0) + Me.ImpCtl37.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl37.Name = "ImpCtl37" + Me.ImpCtl37.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl37.TabIndex = 20 + Me.ImpCtl37.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl37.Vtype = False + Me.ImpCtl37.문자열자르기 = "" + Me.ImpCtl37.빈값체크 = False + Me.ImpCtl37.열번호 = "" + Me.ImpCtl37.제목 = "접지2" + Me.ImpCtl37.필드명 = Nothing + ' + 'ImpCtl38 + ' + Me.ImpCtl38.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl38.Location = New System.Drawing.Point(1071, 0) + Me.ImpCtl38.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl38.Name = "ImpCtl38" + Me.ImpCtl38.Size = New System.Drawing.Size(63, 113) + Me.ImpCtl38.TabIndex = 22 + Me.ImpCtl38.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl38.Vtype = False + Me.ImpCtl38.문자열자르기 = "" + Me.ImpCtl38.빈값체크 = False + Me.ImpCtl38.열번호 = "" + Me.ImpCtl38.제목 = "선로명(구)" + Me.ImpCtl38.필드명 = Nothing + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.TableLayoutPanel4) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Margin = New System.Windows.Forms.Padding(0) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Size = New System.Drawing.Size(1211, 119) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "3페이지" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.ColumnCount = 19 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.262715!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.266925!)) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl40, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl58, 18, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl41, 1, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl42, 2, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl43, 3, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl44, 4, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl45, 5, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl46, 6, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl47, 7, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl48, 8, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl49, 9, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl50, 10, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl51, 11, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl52, 12, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl53, 13, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl54, 14, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl55, 15, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl56, 16, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl57, 17, 0) + Me.TableLayoutPanel4.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel4.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel4.Margin = New System.Windows.Forms.Padding(0) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 1 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(1211, 119) + Me.TableLayoutPanel4.TabIndex = 21 + ' + 'ImpCtl40 + ' + Me.ImpCtl40.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl40.Location = New System.Drawing.Point(0, 0) + Me.ImpCtl40.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl40.Name = "ImpCtl40" + Me.ImpCtl40.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl40.TabIndex = 20 + Me.ImpCtl40.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl40.Vtype = False + Me.ImpCtl40.문자열자르기 = "" + Me.ImpCtl40.빈값체크 = False + Me.ImpCtl40.열번호 = "" + Me.ImpCtl40.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl40.필드명 = Nothing + ' + 'ImpCtl58 + ' + Me.ImpCtl58.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl58.Location = New System.Drawing.Point(1134, 0) + Me.ImpCtl58.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl58.Name = "ImpCtl58" + Me.ImpCtl58.Size = New System.Drawing.Size(77, 119) + Me.ImpCtl58.TabIndex = 23 + Me.ImpCtl58.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl58.Vtype = False + Me.ImpCtl58.문자열자르기 = "" + Me.ImpCtl58.빈값체크 = False + Me.ImpCtl58.열번호 = "" + Me.ImpCtl58.제목 = "전주번호(구)" + Me.ImpCtl58.필드명 = Nothing + ' + 'ImpCtl41 + ' + Me.ImpCtl41.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl41.Location = New System.Drawing.Point(63, 0) + Me.ImpCtl41.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl41.Name = "ImpCtl41" + Me.ImpCtl41.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl41.TabIndex = 20 + Me.ImpCtl41.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl41.Vtype = False + Me.ImpCtl41.문자열자르기 = "" + Me.ImpCtl41.빈값체크 = False + Me.ImpCtl41.열번호 = "" + Me.ImpCtl41.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl41.필드명 = Nothing + ' + 'ImpCtl42 + ' + Me.ImpCtl42.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl42.Location = New System.Drawing.Point(126, 0) + Me.ImpCtl42.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl42.Name = "ImpCtl42" + Me.ImpCtl42.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl42.TabIndex = 20 + Me.ImpCtl42.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl42.Vtype = False + Me.ImpCtl42.문자열자르기 = "" + Me.ImpCtl42.빈값체크 = False + Me.ImpCtl42.열번호 = "" + Me.ImpCtl42.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl42.필드명 = Nothing + ' + 'ImpCtl43 + ' + Me.ImpCtl43.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl43.Location = New System.Drawing.Point(189, 0) + Me.ImpCtl43.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl43.Name = "ImpCtl43" + Me.ImpCtl43.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl43.TabIndex = 20 + Me.ImpCtl43.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl43.Vtype = False + Me.ImpCtl43.문자열자르기 = "" + Me.ImpCtl43.빈값체크 = False + Me.ImpCtl43.열번호 = "" + Me.ImpCtl43.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl43.필드명 = Nothing + ' + 'ImpCtl44 + ' + Me.ImpCtl44.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl44.Location = New System.Drawing.Point(252, 0) + Me.ImpCtl44.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl44.Name = "ImpCtl44" + Me.ImpCtl44.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl44.TabIndex = 20 + Me.ImpCtl44.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl44.Vtype = False + Me.ImpCtl44.문자열자르기 = "" + Me.ImpCtl44.빈값체크 = False + Me.ImpCtl44.열번호 = "" + Me.ImpCtl44.제목 = "선로명" + Me.ImpCtl44.필드명 = Nothing + ' + 'ImpCtl45 + ' + Me.ImpCtl45.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl45.Location = New System.Drawing.Point(315, 0) + Me.ImpCtl45.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl45.Name = "ImpCtl45" + Me.ImpCtl45.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl45.TabIndex = 20 + Me.ImpCtl45.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl45.Vtype = False + Me.ImpCtl45.문자열자르기 = "" + Me.ImpCtl45.빈값체크 = False + Me.ImpCtl45.열번호 = "" + Me.ImpCtl45.제목 = "번호1" + Me.ImpCtl45.필드명 = Nothing + ' + 'ImpCtl46 + ' + Me.ImpCtl46.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl46.Location = New System.Drawing.Point(378, 0) + Me.ImpCtl46.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl46.Name = "ImpCtl46" + Me.ImpCtl46.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl46.TabIndex = 20 + Me.ImpCtl46.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl46.Vtype = False + Me.ImpCtl46.문자열자르기 = "" + Me.ImpCtl46.빈값체크 = False + Me.ImpCtl46.열번호 = "" + Me.ImpCtl46.제목 = "번호2" + Me.ImpCtl46.필드명 = Nothing + ' + 'ImpCtl47 + ' + Me.ImpCtl47.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl47.Location = New System.Drawing.Point(441, 0) + Me.ImpCtl47.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl47.Name = "ImpCtl47" + Me.ImpCtl47.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl47.TabIndex = 20 + Me.ImpCtl47.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl47.Vtype = False + Me.ImpCtl47.문자열자르기 = "" + Me.ImpCtl47.빈값체크 = False + Me.ImpCtl47.열번호 = "" + Me.ImpCtl47.제목 = "번호3" + Me.ImpCtl47.필드명 = Nothing + ' + 'ImpCtl48 + ' + Me.ImpCtl48.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl48.Location = New System.Drawing.Point(504, 0) + Me.ImpCtl48.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl48.Name = "ImpCtl48" + Me.ImpCtl48.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl48.TabIndex = 20 + Me.ImpCtl48.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl48.Vtype = False + Me.ImpCtl48.문자열자르기 = "" + Me.ImpCtl48.빈값체크 = False + Me.ImpCtl48.열번호 = "" + Me.ImpCtl48.제목 = "번호4" + Me.ImpCtl48.필드명 = Nothing + ' + 'ImpCtl49 + ' + Me.ImpCtl49.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl49.Location = New System.Drawing.Point(567, 0) + Me.ImpCtl49.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl49.Name = "ImpCtl49" + Me.ImpCtl49.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl49.TabIndex = 20 + Me.ImpCtl49.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl49.Vtype = False + Me.ImpCtl49.문자열자르기 = "" + Me.ImpCtl49.빈값체크 = False + Me.ImpCtl49.열번호 = "" + Me.ImpCtl49.제목 = "번호5" + Me.ImpCtl49.필드명 = Nothing + ' + 'ImpCtl50 + ' + Me.ImpCtl50.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl50.Location = New System.Drawing.Point(630, 0) + Me.ImpCtl50.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl50.Name = "ImpCtl50" + Me.ImpCtl50.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl50.TabIndex = 20 + Me.ImpCtl50.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl50.Vtype = False + Me.ImpCtl50.문자열자르기 = "" + Me.ImpCtl50.빈값체크 = False + Me.ImpCtl50.열번호 = "" + Me.ImpCtl50.제목 = "장척" + Me.ImpCtl50.필드명 = Nothing + ' + 'ImpCtl51 + ' + Me.ImpCtl51.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl51.Location = New System.Drawing.Point(693, 0) + Me.ImpCtl51.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl51.Name = "ImpCtl51" + Me.ImpCtl51.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl51.TabIndex = 20 + Me.ImpCtl51.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl51.Vtype = False + Me.ImpCtl51.문자열자르기 = "" + Me.ImpCtl51.빈값체크 = False + Me.ImpCtl51.열번호 = "" + Me.ImpCtl51.제목 = "시공년월" + Me.ImpCtl51.필드명 = Nothing + ' + 'ImpCtl52 + ' + Me.ImpCtl52.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl52.Location = New System.Drawing.Point(756, 0) + Me.ImpCtl52.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl52.Name = "ImpCtl52" + Me.ImpCtl52.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl52.TabIndex = 20 + Me.ImpCtl52.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl52.Vtype = False + Me.ImpCtl52.문자열자르기 = "" + Me.ImpCtl52.빈값체크 = False + Me.ImpCtl52.열번호 = "" + Me.ImpCtl52.제목 = "시공자" + Me.ImpCtl52.필드명 = Nothing + ' + 'ImpCtl53 + ' + Me.ImpCtl53.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl53.Location = New System.Drawing.Point(819, 0) + Me.ImpCtl53.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl53.Name = "ImpCtl53" + Me.ImpCtl53.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl53.TabIndex = 20 + Me.ImpCtl53.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl53.Vtype = False + Me.ImpCtl53.문자열자르기 = "" + Me.ImpCtl53.빈값체크 = False + Me.ImpCtl53.열번호 = "" + Me.ImpCtl53.제목 = "DL명" + Me.ImpCtl53.필드명 = Nothing + ' + 'ImpCtl54 + ' + Me.ImpCtl54.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl54.Location = New System.Drawing.Point(882, 0) + Me.ImpCtl54.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl54.Name = "ImpCtl54" + Me.ImpCtl54.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl54.TabIndex = 20 + Me.ImpCtl54.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl54.Vtype = False + Me.ImpCtl54.문자열자르기 = "" + Me.ImpCtl54.빈값체크 = False + Me.ImpCtl54.열번호 = "" + Me.ImpCtl54.제목 = "감독자" + Me.ImpCtl54.필드명 = Nothing + ' + 'ImpCtl55 + ' + Me.ImpCtl55.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl55.Location = New System.Drawing.Point(945, 0) + Me.ImpCtl55.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl55.Name = "ImpCtl55" + Me.ImpCtl55.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl55.TabIndex = 20 + Me.ImpCtl55.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl55.Vtype = False + Me.ImpCtl55.문자열자르기 = "" + Me.ImpCtl55.빈값체크 = False + Me.ImpCtl55.열번호 = "" + Me.ImpCtl55.제목 = "접지1" + Me.ImpCtl55.필드명 = Nothing + ' + 'ImpCtl56 + ' + Me.ImpCtl56.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl56.Location = New System.Drawing.Point(1008, 0) + Me.ImpCtl56.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl56.Name = "ImpCtl56" + Me.ImpCtl56.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl56.TabIndex = 20 + Me.ImpCtl56.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl56.Vtype = False + Me.ImpCtl56.문자열자르기 = "" + Me.ImpCtl56.빈값체크 = False + Me.ImpCtl56.열번호 = "" + Me.ImpCtl56.제목 = "접지2" + Me.ImpCtl56.필드명 = Nothing + ' + 'ImpCtl57 + ' + Me.ImpCtl57.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl57.Location = New System.Drawing.Point(1071, 0) + Me.ImpCtl57.Margin = New System.Windows.Forms.Padding(0) + Me.ImpCtl57.Name = "ImpCtl57" + Me.ImpCtl57.Size = New System.Drawing.Size(63, 119) + Me.ImpCtl57.TabIndex = 22 + Me.ImpCtl57.Valuetype = MyControlOLEDBv2.ImpCtl.e_Valuetype.문자 + Me.ImpCtl57.Vtype = False + Me.ImpCtl57.문자열자르기 = "" + Me.ImpCtl57.빈값체크 = False + Me.ImpCtl57.열번호 = "" + Me.ImpCtl57.제목 = "선로명(구)" + Me.ImpCtl57.필드명 = Nothing + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripButton6, Me.ToolStripButton5, Me.ToolStripSeparator3, Me.ToolStripButton4}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 639) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1219, 39) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.prefs_32 + Me.ToolStripButton2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(91, 36) + Me.ToolStripButton2.Text = "미리보기" + Me.ToolStripButton2.ToolTipText = "클릭하면 위의 뷰 내용중 선택된 항목들을 데이터베이스 입력합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton6.Text = "삭제후 추가하기" + Me.ToolStripButton6.ToolTipText = "기존의 데이터를 모두 삭제하고 새롭게 추가합니다" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.redo_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton5.Text = "이어서 추가하기" + Me.ToolStripButton5.ToolTipText = "기존의 데이터뒤에 새롭게 추가합니다" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton4.Checked = True + Me.ToolStripButton4.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton4.Text = "닫기(&X)" + Me.ToolStripButton4.ToolTipText = "현재 창을 닫습니다" + ' + 'IreaDataSet + ' + Me.IreaDataSet.DataSetName = "ireaDataSet" + Me.IreaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'tyableAdapter1 + ' + Me.tyableAdapter1.ClearBeforeFill = True + ' + 'XLSImport + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(1219, 700) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.ToolStrip2) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "XLSImport" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "데이터 가져오기" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.ContextMenuStrip2.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + CType(Me.CustFP1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CustFP1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CustFP2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.CustFP2_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TableLayoutPanel3.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.TableLayoutPanel2.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.TableLayoutPanel4.ResumeLayout(False) + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents LB_DB As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_reccnt As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tb_scnt As System.Windows.Forms.ToolStripTextBox + Friend WithEvents tb_ecnt As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents lb_file As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents lStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gsdfolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents htrtripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfdsolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents jytripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet As EpoleNet.ireaDataSet + Friend WithEvents lb_selcontrol As System.Windows.Forms.ToolStripLabel + Friend WithEvents CustFP1 As NewFp + Friend WithEvents CustFP1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents CustFP2 As NewFp + Friend WithEvents CustFP2_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tyableAdapter1 As EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ImpCtl2 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl3 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl4 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl5 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl6 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl7 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl8 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl9 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl10 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl11 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl12 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl13 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl14 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl15 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl16 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl17 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl18 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ImpCtl19 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl20 As MyControlOLEDBv2.ImpCtl + Friend WithEvents lb_cnt As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + 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 TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ImpCtl21 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl39 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl22 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl23 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl24 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl25 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl26 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl27 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl28 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl29 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl30 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl31 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl32 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl33 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl34 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl35 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl36 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl37 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl38 As MyControlOLEDBv2.ImpCtl + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ImpCtl40 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl58 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl41 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl42 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl43 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl44 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl45 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl46 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl47 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl48 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl49 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl50 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl51 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl52 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl53 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl54 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl55 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl56 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl57 As MyControlOLEDBv2.ImpCtl + +End Class diff --git a/Epole/업로드폼/XLSImport.resx b/Epole/업로드폼/XLSImport.resx new file mode 100644 index 0000000..dcf07c8 --- /dev/null +++ b/Epole/업로드폼/XLSImport.resx @@ -0,0 +1,1598 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 299, 17 + + + 524, 10 + + + 138, 17 + + + 17, 47 + + + 303, 47 + + + 163, 47 + + + 809, 10 + + + 415, 16 + + + 625, 10 + + + 86 + + + + + AAABAAYAICAAAAEACACoCAAAZgAAABAQAAABAAgAaAUAAA4JAACAgAAAAQAgACgIAQB2DgAAMDAAAAEA + IACoJQAAnhYBACAgAAABACAAqBAAAEY8AQAQEAAAAQAgAGgEAADuTAEAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8Amf//AGb//wAz//8AAP//AP/M/wDMzP8Amcz/AGbM + /wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm/wAzZv8AAGb/AP8z + /wDMM/8AmTP/AGYz/wAzM/8AADP/AP8A/wDMAP8AmQD/AGYA/wAzAP8AAAD/AP//zADM/8wAmf/MAGb/ + zAAz/8wAAP/MAP/MzADMzMwAmczMAGbMzAAzzMwAAMzMAP+ZzADMmcwAmZnMAGaZzAAzmcwAAJnMAP9m + zADMZswAmWbMAGZmzAAzZswAAGbMAP8zzADMM8wAmTPMAGYzzAAzM8wAADPMAP8AzADMAMwAmQDMAGYA + zAAzAMwAAADMAP//mQDM/5kAmf+ZAGb/mQAz/5kAAP+ZAP/MmQDMzJkAmcyZAGbMmQAzzJkAAMyZAP+Z + mQDMmZkAmZmZAGaZmQAzmZkAAJmZAP9mmQDMZpkAmWaZAGZmmQAzZpkAAGaZAP8zmQDMM5kAmTOZAGYz + mQAzM5kAADOZAP8AmQDMAJkAmQCZAGYAmQAzAJkAAACZAP//ZgDM/2YAmf9mAGb/ZgAz/2YAAP9mAP/M + ZgDMzGYAmcxmAGbMZgAzzGYAAMxmAP+ZZgDMmWYAmZlmAGaZZgAzmWYAAJlmAP9mZgDMZmYAmWZmAGZm + ZgAzZmYAAGZmAP8zZgDMM2YAmTNmAGYzZgAzM2YAADNmAP8AZgDMAGYAmQBmAGYAZgAzAGYAAABmAP// + MwDM/zMAmf8zAGb/MwAz/zMAAP8zAP/MMwDMzDMAmcwzAGbMMwAzzDMAAMwzAP+ZMwDMmTMAmZkzAGaZ + MwAzmTMAAJkzAP9mMwDMZjMAmWYzAGZmMwAzZjMAAGYzAP8zMwDMMzMAmTMzAGYzMwAzMzMAADMzAP8A + MwDMADMAmQAzAGYAMwAzADMAAAAzAP//AADM/wAAmf8AAGb/AAAz/wAAAP8AAP/MAADMzAAAmcwAAGbM + AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAzZgAAAGYAAP8z + AADMMwAAmTMAAGYzAAAzMwAAADMAAP8AAADMAAAAmQAAAGYAAAAzAAAAAADuAAAA3QAAALsAAACqAAAA + iAAAAHcAAABVAAAARAAAACIAAAARAADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAAR + AADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAARAAAA7u7uAN3d3QC7u7sAqqqqAIiI + iAB3d3cAVVVVAERERAAiIiIAERERAAAAAAD///////////////////////////////////////////// + ////////////////////////9P////////////////////////////////////////Snp/////////// + ////////////////////////////p319p////////////////////////////////////6d9fX19p/// + /////////8/Pz8/Pz8/Pz8/Pz8/Pz8+nfX19fX18p8/Pz8/Pz//zz1VVVVVVVVVVVVVVVVV5pn19fX19 + fX18plVVVU/P/8+keXl5eXl5eXl5eXl5eaZ9fX19fX19fX18pnl5ec/zz6R5eXl5eXl5eXl5eXmmUVJS + UlJ9fVJSUlJXpnl5pM/Jenl5eXl5eVVVVVVVVYKCgoKCUn19UoKCgoKBeXmkyaV6eXl5VVVVVVVVVVVV + VVVVVaZSfX1SplVVeXl5eYClpXl5Tk5OTk5OTk5OTk5OTk5OgVJ9fVKBTk5OTk55eqWlVXlPT09PT09P + T09PT09PT0+BUlNTUoFPT09PVXl5paVVeU5OTk5OTk5OTk5OTk5OTntSU1NSe05OTk5OVVWlpU95T09P + T09OTk5OTk5OTk5Oe1JTU1J7T09PT09VVaWlT1VOTk5OKioqKioqKioqKip7UlNTUntOTk5OTlVPpaVP + VU5OTk5OTk5OKioqKioqKvkuUlIuek5OTk5OVU+lpStVKioqKioqKioqKioqKioqVi0tLS1WKioqKipP + K6WlKlUqKioqKioqKioqKioqKipWLS0tLVYqKioqKlUrgYH2TyoqKioqKioqKioqKioqKvcsLCws9yoq + KioqTyqBgfZVKioqKioqKir2Kir29vb2KysrKysrKioqKipVKoGB9U8qKvX19fX19fX19fX19fX29vb2 + 9vb19SoqKk8q+vr1T/b29vb29vb29vb29vb29vb29vb29vb29vYqT/X6+vX19fX1AAAAAAAAAAAAAAAA + AAAAAAAAAAD19fX19fmBgfv5+fn5+fn5+fn5+fn5+fn5+fn5+fn5+fn5+fuBgf///fX19fX19fX19fX1 + 9fX19fX19fX19fX19fX1/P//////rCsrKysrKysrKyv9////////////////////////////9vX19fX1 + 9fX19v////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////4AAAB4AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAIAAAAHAAAABwAAAA+AB///gAf////////////8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAABAAAAAAAA////AMz//wCZ//8AZv//ADP//wAA//8A/8z/AMzM/wCZzP8AZsz/ADPM + /wAAzP8A/5n/AMyZ/wCZmf8AZpn/ADOZ/wAAmf8A/2b/AMxm/wCZZv8AZmb/ADNm/wAAZv8A/zP/AMwz + /wCZM/8AZjP/ADMz/wAAM/8A/wD/AMwA/wCZAP8AZgD/ADMA/wAAAP8A///MAMz/zACZ/8wAZv/MADP/ + zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZzAAAmcwA/2bMAMxm + zACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwAzACZAMwAZgDMADMA + zAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPMmQAAzJkA/5mZAMyZ + mQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwzmQCZM5kAZjOZADMz + mQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ZgAA/2YA/8xmAMzM + ZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxmZgCZZmYAZmZmADNm + ZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMAZgAAAGYA//8zAMz/ + MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZMwCZmTMAZpkzADOZ + MwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMzMwAAMzMA/wAzAMwA + MwCZADMAZgAzADMAMwAAADMA//8AAMz/AACZ/wAAZv8AADP/AAAA/wAA/8wAAMzMAACZzAAAZswAADPM + AAAAzAAA/5kAAMyZAACZmQAAZpkAADOZAAAAmQAA/2YAAMxmAACZZgAAZmYAADNmAAAAZgAA/zMAAMwz + AACZMwAAZjMAADMzAAAAMwAA/wAAAMwAAACZAAAAZgAAADMAAAAAAO4AAADdAAAAuwAAAKoAAACIAAAA + dwAAAFUAAABEAAAAIgAAABEAAO4AAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAO4A + AADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAADu7u4A3d3dALu7uwCqqqoAiIiIAHd3 + dwBVVVUAREREACIiIgAREREAAAAAAP////////////////////////////////+np////////8/Pz8/P + z8+nfX2nz8/P/8+kKk5OTk6nfX19facqpM+lgE5VVVWnLCx9fSwsp3qlpVZOTk5Op6end1Onp6dWpaVV + Tk5OTk5Op1NTp05OVaWB9yoqKioqKqZTU6YqKveB+vcqKioqKip7LS57Kir3+vor9vX19fX1+Cwm+PUq + K/pW9fX19fX19fb19fb19fX4gftWVlZWVlZWVlZWVlb7gf+s9fX19fX19fX19fX1//////329fX19fv/ + //////////////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAEAAYABgAHAf4ABKAAAAIAAAAAAAQAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAIAAAACAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAwAAAAQAAAAFAAAABgAAAAYAAAAHAAAABwAA + AAYAAAAGAAAABQAAAAQAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAQAAAAGAAAABwAAAAkAAAAKAAAADAAAAAwAAAAMAAAADAAAAAoAAAAJAAAABwAAAAUAAAAEAAAAAwAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAAFAAAABwAAAAoAAAANAAAADwAAABIAAAATAAAAFAAA + ABQAAAATAAAAEQAAAA8AAAAMAAAACQAAAAcAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABQAA + AAgAAAAMAAAAEAAAABQAAAAYAwIAHAYEACEIBQAjBgQAIgIBAB8AAAAbAAAAFwAAABMAAAAPAAAACwAA + AAgAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAUAAAAJAAAADQAAABIAAAAYAAAAHQIBACQMCAAuFA0AOBkQ + AD0UDQA5DAcAMQIBACgAAAAiAAAAHAAAABcAAAARAAAADAAAAAgAAAAFAAAAAwAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAMAAAAFAAAACQAA + AA0AAAATAAAAGgAAACECAQAqCwcANhgPAEkjFgBeJxkBZiMWAF4YDwBNCgYAOwEBADAAAAAoAAAAIAAA + ABkAAAASAAAADAAAAAgAAAAFAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAwAAAAMAAAAFAAAABwAAAAoAAAAPAAAAFQAAAB0AAAAmAgEAMAgFAD4WDgBSJBcBbSEw + EZ4PTCrTIS8RnyQXAXEVDQBWCAUAQgEBADcAAAAtAAAAJAAAABsAAAAUAAAADgAAAAkAAAAGAAAABAAA + AAMAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAADAAAAAwAAAAQAAAAFAAAABQAAAAYAAAAGAAAABgAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIAAAACQAAAAsAAAAPAAAAEwAA + ABkAAAAhAAAAKgEBADYGBABDEgsAWCAUAHUbNhmyBGJA/0GjhP8EYkD/GzYZtB8TAHkQCgBfBgQASgEB + AD0AAAAyAAAAKAAAAB8AAAAYAAAAEgAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABQAAAAcAAAAJAAAACwAA + AA0AAAAPAAAAEAAAABEAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAATAAAAEwAAABMAAAATAAAAEwAA + ABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAA + ABIAAAASAAAAEgAAABMAAAATAAAAEwAAABMAAAATAAAAEwAAABMAAAATAAAAEgAAABIAAAASAAAAEgAA + ABMAAAATAAAAEwAAABMAAAATAAAAEwAAABMAAAASAAAAEgAAABMAAAATAAAAEwAAABIAAAASAAAAEgAA + ABIAAAATAAAAFAAAABUAAAAXAAAAGQAAAB4AAAAkAAAAKgAAADMBAQA/BgMATQ8KAGAcEQB7HiwPqwJf + Pf9Cqoj/NrWE/0KqiP8CXz3/HS0RshwSAIIOCQBnBQMAVQEBAEcAAAA8AAAAMgAAACgAAAAhAAAAGwAA + ABgAAAAVAAAAFAAAABMAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAA + ABIAAAARAAAAEAAAAA8AAAANAAAACwAAAAoAAAAIAAAABgAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABAAAAAcAAAAMAAAAEQAAABUAAAAZAAAAHQAAAB8AAAAiAAAAIwAAACUAAAAlAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAnAAAAJwAA + ACcAAAAnAAAAJwAAACcAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJwAAACcAAAAnAAAAJwAA + ACYAAAAmAAAAJwAAACcAAAAnAAAAJgAAACYAAAAmAAAAJgAAACgAAAAoAAAAKgAAAC0AAAAwAAAANQAA + ADwAAABDAQEATgMCAFoLCABtGBAAhSIeBacRSCjkPaGA/yKpcf8Im1r/Ialx/z6jgv8QSynlHiMLsRgP + AIsLBwBzBAIAYgEBAFYAAABLAAAAQAAAADgAAAAyAAAALQAAACoAAAAoAAAAJwAAACcAAAAmAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAlAAAAJQAAACQAAAAiAAAAIAAAAB0AAAAaAAAAFgAA + ABIAAAANAAAACAAAAAUAAAACAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAIAAAADwAAABgAAAAgAAAAJwAA + AC0AAAAyAAAANgAAADkAAAA7AAAAPAAAAD0AAAA+AAAAPgAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAABAAAAAQQAAAEIAAABEAAAARwAAAEsAAABRAAAAWAAAAGADAgBrCAUAexQNAJEiFQGrEEco5jSW + dv8nrXj/BptZ/wCYVP8Fm1n/Jax2/zqcfP8QRyfoIRUBrxQNAJcJBQCBAgIAcQEBAGYAAABcAAAAVAAA + AE0AAABIAAAARAAAAEIAAABBAAAAQAAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA+AAAAPgAA + AD0AAAA8AAAAOwAAADkAAAA3AAAAMwAAAC8AAAApAAAAIgAAABoAAAARAAAACgAAAAUAAAABAAAAAAAA + AAAAAAACAAAABgAAAA4AAAAaAAAAJwAAADMAAAA8AAAARQAAAEoAAABNAAAAUAAAAFMAAABUAAAAVQAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVwAAAFcAAABZAAAAWgAAAF0AAABhAAAAZQAA + AGsAAAByAgEAfAcEAIkRCwCcHhMBsxBFJuguj2//LbB9/wecXP8AmFX/AJhV/wCYVf8HnFv/Kq97/y6P + b/8QRiboHhMBtxILAKEHBQCPAgIAgAAAAHYAAABuAAAAZwAAAGEAAABdAAAAWgAAAFgAAABXAAAAVwAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVQAAAFQAAABTAAAAUQAAAE4AAABLAAAARgAA + AD8AAAA1AAAAKQAAAB0AAAARAAAACAAAAAMAAAABAAAAAQAAAAMAAAAJAAAAFQAAACUAAAA1AAAARAAA + AFAAAABiFAsAizIcAbNEJQHETCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActLKgHLSykBzEopAcxIKAHNRicBzkQmAc9BJAHRPSIB0zkgAdY2HgHaNR4B4DUfAecZRSL3IoNi/zGz + gf8InVz/AJlV/wCZVf8AmVX/AJlV/wCZVf8InVz/MLKA/yWGZf8YRSP4NB4B6DMdAeE0HQHcOB8B1zwh + AdRAIwHSRCUB0EYnAc5JKAHNSikBzEspAcxMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActNKgHKTisBxkopAbI1HQGEBwQAVgAAAEcAAAA5AAAAKgAAABkAAAAMAAAABAAA + AAEAAAABAAAABAAAAAsAAAAaAAAALQAAAD8AAABRAAAAYi0aA7iAY0Huv6SK/NCsiv/XrIX/1amD/9Wp + g//VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1qqF/9aq + hf/Wq4X/1quF/9arhf/Wq4X/1quF/9arhf/Wq4b/1quG/9arhv/Wq4b/1quG/9arhv/Wq4b/1quG/9ar + hv/Wq4b/1quG/9arhv/Wq4b/1quG/9arhv/WrIf/1quG/9ash//WrIf/1qyH/9ash//WrIf/1qyH/9as + h//WrIf/1qyH/9ash//WrIf/1qyH/9ash//Vq4b/1KuG/9Ophf/RqIT/zqWC/8mif//EnXv/vZd2/7SQ + cP+ph2r/nX1g/4xuUv96XkH/NVc2/xh5Vv83tYb/C59g/wCZVv8AmVb/AJlW/wCZVv8AmVb/AJlW/wCZ + Vv8Kn1//NrWF/x1+XP8xWDX/dls+/4drTv+ZeV3/p4Rn/7KObv+7lXT/w5x5/8mhff/OpYD/0aeB/9Ko + gv/UqYP/1KmD/9WqhP/VqoT/1aqE/9Wpg//VqYP/1amD/9Wpg//VqYP/1amD/9Wpg//WqoX9zKiH9pZ4 + V9s+IgGRBgQAWQAAAEQAAAAxAAAAHgAAAA8AAAAFAAAAAQAAAAEAAAAFAAAADQAAABwAAAAvAAAAQgAA + AFQqFwGYhmlI7NWxkf/Ml2j/xotW/8OFTv/DhE3/woRN/8KETf/ChE3/woRN/8KETf/DhE3/w4RN/8OE + Tf/DhE3/w4RN/8OFTv/DhU7/w4VO/8OFT//DhU//w4VP/8OFT//DhU//w4VP/8OFT//DhlD/w4ZQ/8OG + UP/DhlD/xIZQ/8SGUP/EhlD/xIZQ/8SGUP/EhlD/xIZQ/8SHUf/Eh1H/xIdR/8SHUf/Eh1H/xIdR/8SH + Uf/Eh1H/xIdS/8SHUf/Eh1L/xIdR/8SHUv/Eh1L/xIdS/8SHUf/Eh1L/xIdR/8SHUf/Eh1H/w4ZS/8KG + Uf/BhVD/v4RP/7yCTv+4f0z/s3tK/613R/+lckT/nGxA/5FkO/+DWjP/c04o/zdQLP8RcU7/PbWK/w+i + ZP8Cmlj/AZpX/wGaV/8Bmlf/AZpX/wGaV/8Bmlf/AZpX/wGaV/8OoWL/O7aJ/xR1Uv80UCv/cEsm/39W + MP+PYTn/mmk+/6VxQv+udkX/tHpH/7l9Sf+9gEv/wIJM/8CDTP/Bg03/woRN/8KETf/ChE3/woRN/8KD + TP/Cg0z/woNM/8KDTP/Cg0v/woNL/8OFTf/Gi1j/zp1x8519W889IgF+AAAARwAAADUAAAAgAAAAEAAA + AAYAAAACAAAAAQAAAAUAAAAMAAAAGwAAACsAAAA9AAAATkQmArrRspT8y5Ji/8SHUP/Ehk//xIZP/8SG + T//Ehk//xIZP/8SGT//EhlD/xIZQ/8SGUP/EhlD/xIZQ/8WHUf/Fh1H/xYdR/8WHUv/Fh1L/xYdS/8WH + Uv/Fh1L/xYhS/8WIUv/FiFL/xYhS/8WIUv/FiFP/xYhT/8WIU//FiFP/xolU/8aJVP/GiVT/xolU/8aJ + VP/GiVT/xolU/8aJVP/GiVT/xolV/8aJVf/GiVX/xolV/8aJVf/GiVX/xolV/8aJVf/GiVX/xolV/8aJ + Vf/GiVX/xolV/8aJVf/GiVX/xolV/8WIVf/EiFT/xIdU/8GGU/++hFL/uoFQ/7Z+Tv+veUv/p3RI/55t + RP+TZj7/hlw2/3VQK/89UCv/DmxJ/0G0jP8TpGj/AptZ/wGaWP8Bmlj/AZpY/wGaWP8Bmlj/AZpY/wGa + WP8Bmlj/AZpY/wKaWf8Romb/PrSL/xBvTP84USz/c04p/4NaM/+TZDz/n21C/6hzRf+xeUn/t31L/7uA + TP+/gk7/wYRP/8KFT//DhVD/xIZP/8SGT//Ehk//xIZP/8SGT//EhU//xIVP/8SFT//EhU7/xIVO/8SF + Tv/Gilb9xZt132M4Bp4DAgBEAAAALwAAAB4AAAAQAAAABgAAAAIAAAABAAAABAAAAAsAAAAVAAAAIwAA + ADEZDgFNZkQdx9erhP7Ii1X/x4lT/8eJUv/HiVL/xolT/8aJU//GiFL/xolT/8aJU//HiVT/x4lU/8eJ + VP/HilT/x4pU/8eKVP/HilT/x4pU/8eKVP/HilX/x4pV/8eKVf/HilX/x4tW/8eLVv/Hi1b/x4tW/8eL + Vv/Hi1f/x4tX/8eLV//Hi1f/x4tX/8iMV//Hi1f/yIxX/8iMV//IjFf/yIxX/8iMV//IjFf/yIxX/8iM + V//IjFj/yIxX/8iMV//IjFj/yIxY/8iMWP/IjFj/yIxY/8iMWP/IjVn/yIxY/8iMWP/Hi1j/xoxY/8aK + V//EiVb/wYdV/72EU/+4gFH/sXxO/6l3S/+gcEb/lmlA/4heOP94Uy7/R1As/whoQ/9Cs43/FqZr/wKc + Wv8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wKcWv8UpWn/QbSN/wtr + Rv9BUSv/dlEr/4heNv+XaD//o3FF/6x4Sf+0fUz/uoBO/76DUP/ChlL/w4dS/8SIUv/FiFP/xolT/8aJ + U//GiFL/xohS/8aIUv/GiFL/xohS/8aIUv/Gh1H/xodR/8aIUf/EkGHbgVksoiASAUYAAAAmAAAAGAAA + AAwAAAAFAAAAAgAAAAEAAAADAAAABwAAAA8AAAAYAAAAIi8aAkd5WTPF1qh//8uNV//KjVf/yo1X/8qN + V//Kjlj/yo1X/8qNV//KjVf/yo1X/8qNV//Ljlj/y45Y/8uOWP/Ljlj/y45Y/8uOWP/Ljln/y45Z/8uO + Wf/Ljln/y49a/8uPWv/Lj1r/y49a/8uPWv/Lj1r/y49a/8uPWv/Lj1r/y49b/8uPW//Lj1v/y49b/8uP + W//Lj1v/y49b/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQ + XP/MkFz/zJBc/8yQXP/MkFz/y49c/8uPXP/Kjlv/yI1a/8aLWf/CiVf/vIVV/7aAUv+ue07/pHRK/5ls + RP+LYjz/e1Yx/1NPK/8FZD//Qq+L/xqpcP8DnVz/AZxa/wGcWv8BnFr/AZxa/wGcWv8BnFr/AZxa/wGc + Wv8BnFr/AZxa/wGcWv8BnFr/AZxa/wKdW/8XqG3/QrGM/wZlQP9LUCv/e1Uv/41iO/+cbUT/qHZJ/7J8 + Tf+5gVD/v4ZT/8KHVP/FilX/yItW/8iMVv/JjFf/yo1X/8qNV//KjVf/yoxW/8qMVv/KjFb/yoxW/8qM + Vf/KjFX/yIpU/8eQX9mVbkGjNh8CQAAAABoAAAAQAAAACAAAAAMAAAABAAAAAQAAAAIAAAAEAAAACQAA + AA0AAAAVQyYDQYZlQcPYqX//0JNd/9CTXf/Pklz/z5Jc/8+SXP/Pk13/z5Nd/8+TXf/Pk17/z5Ne/8+T + Xv/Pk17/z5Ne/8+TXv/PlF7/z5Re/9CUX//PlF7/0JRf/9CVYP/QlWD/0JVg/9CVYP/QlWD/0JVg/9CV + YP/QlWD/0JVg/9CVYP/QlWD/0JVh/9CVYP/QlWH/0JVh/9CWYv/QlmL/0JZi/9CWYv/QlmL/0JZi/9CW + Yv/QlmL/0ZZj/9CWYv/RlmP/0JZi/9GWY//RlmP/0ZZj/9GWY//RlmP/0ZZj/9CVY//QlWP/z5Vi/86U + Yf/LkmD/x49e/8KLXP+8h1n/s4FV/6p6UP+eckr/j2dB/4BbNv9hUCz/JFcx/0Cohv8frHX/BZ5e/wGc + W/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wSe + Xv8cqnP/QayJ/wVkP/9VUSz/gFo0/5JoQP+ic0n/rXxP/7eDU/++h1b/xItZ/8iOW//KkFz/zZFc/82S + XP/OkVz/z5Jc/8+SXP/Pklz/z5Jc/8+SXP/Pklz/z5Jc/8+SXP/MkFn/y5Je1aR7T55KKgM5AAAAEAAA + AAgAAAAFAAAAAgAAAAEAAAAAAAAAAQAAAAIAAAAEAAAABgAAAAxVMAU7kG9Mwdiofv/RlF//0JNe/9CT + Xv/QlF//0JRf/9CUX//QlGD/0JRg/9CUYP/QlGD/0JVg/9CVYP/QlWD/0JVg/9CVYP/RlWH/0ZVi/9GV + Yv/RlWL/0ZVi/9GVYv/RlmL/0ZZi/9GWYv/RlmL/0ZZj/9GWY//RlmP/0ZZj/9CVYv/QlmP/0Zdk/9GX + ZP/Rl2T/0Zdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0phl/9KX + ZP/Sl2T/0pdk/9KXZP/SmGX/0Zdl/9CWY//PlmP/zZNi/8mRYf/Ejl7/vopb/7aEWP+sfFL/onRM/5Np + RP+CXTj/a1Es/ypVMP86oH//Ja97/wWfYP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGd + XP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wWfX/8grXf/QKmH/yRXMf9lUSv/hF03/5Zr + Q/+kdkv/sH5R/7mFVf/AiVj/xYxb/8mPXf/MkV7/zpJe/86TX//Pk1//0JRf/9CTXv/Qk17/0JNe/9CT + Xv/Qk17/0JNe/8+SXf/Lj13Qs4tfnlw0BTcAAAAJAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAABmI3BjucfFnD3a2C/9ecZ//XnGf/15tn/9ebZ//YnGj/2Jxo/9icaP/YnGj/2Jxp/9ec + aP/XnGj/15xo/9ecaP/XnGj/151p/9edaf/XnWn/151p/9edaf/XnWr/151q/9edav/XnWr/2J5q/9ie + av/Ynmr/2J5r/9iea//Ynmv/2J5r/9iea//Ynmv/2J9s/9ifbP/Yn2z/2J9s/9ifbP/Yn2z/2J9s/9if + bP/Yn2z/2J9s/9ifbP/Yn23/2J9t/9mfbv/Zn27/2Z9u/9mfbv/Zn27/2Z9u/9iebv/Xnm3/1p1t/9Sb + a//RmWr/zJZo/8aRZf+/jGH/tYVc/6l8Vf+bcUz/iWNA/3dVMf8sWDL/NZl4/yqzgP8IoWP/AZ5d/wGe + Xf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGe + Xf8Bnl3/AZ5d/wWgYf8lsXz/Op5+/ytWMf9zVTD/i2Q+/51ySv+tflP/uIZZ/8KMXv/JkWL/zpVk/9GX + Zf/UmWb/1Zpn/9aaZ//Wmmf/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/1Zlk/8yPW86+lm2faDsGNwAA + AAUAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFaT0HPqODYsTisYX/3qNv/92i + bv/dom//3aJv/92ib//dom//3aNv/92jb//do2//3qNw/96jcP/eo3D/3qNw/96jcP/eo3D/3qRx/96k + cf/epHH/3qRx/96kcf/epHH/3qRy/96lcv/epXL/3qVy/96lcv/epXL/3qVy/96lc//epXP/3qVz/96l + c//epXP/3qVz/96lc//epXP/36Z0/9+mdP/fpnT/36Z0/9+mdP/fpnT/36Z0/9+mdP/fpnT/36Z0/9+m + df/fpnX/36Z1/9+mdP/epXT/3qV1/9ykdP/bo3P/2KFx/9Seb//OmWv/xpNn/72NYv+xhFz/onhT/49p + Rv98Wjb/MVgz/ymLaf8vtoX/CKJk/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGe + Xv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wihZP8rs4H/M5Z1/y5Z + M/99WjX/kmpE/6V5Uf+1hVv/wI1h/8eTZP/OmGj/05xq/9efbP/an23/26Fu/9yhb//dom//3aJv/92i + bv/dom7/3aFt/92hbf/boGz/zZBZy8SfeKRuPwg9AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAARtPwlEq41tyOWzh//ip3P/4qdz/+Knc//hp3P/4ad0/+GndP/hp3T/4ad0/+Go + df/hqHX/4ah1/+Godf/hqHX/4ah1/+Kodv/iqHb/4qh2/+Kpdv/iqXb/4ql2/+Kpd//iqXf/4ql3/+Kp + d//iqXf/4ql3/+Kpd//iqXf/4ql3/+KqeP/iqnj/4qp5/+Kqef/iqnn/4qp5/+Kqef/iqnn/4qp5/+Kr + ef/iq3n/4qt5/+Kref/iq3n/4qt5/+Kref/iq3n/4qt6/+Kref/iq3n/4qt6/+Gqev/gqnn/3qh4/9ym + d//YpHT/06Bx/8yabv/Ck2n/t4ti/6l/Wf+WcEv/gV87/zVaNP8fgV3/NriL/wukZ/8Bn1//AZ9f/wGf + X/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGf + X/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wijZf8wt4f/KYxp/zJaNP+CXzr/mHFK/6t/V/+6i2D/xZNm/86a + a//UnW3/2KBv/9yjcf/epXP/36Zy/+Cmc//hp3P/4adz/+Gnc//hpnL/4aZy/+CkcP/Oj1fJzKiDp3BB + CUIAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXBBCUqzk3TJ57WI/+Wr + eP/lq3f/5at3/+WreP/lq3j/5at4/+WreP/lq3j/5ax5/+Wsef/lrHn/5ax5/+Wsef/lrHn/5ax5/+Ws + ef/lrHr/5a17/+Wte//lrXv/5q17/+ate//mrXv/5q17/+ate//mrXz/5q18/+aufP/mrnz/5a18/+Wt + fP/mrnz/5q59/+aufP/mrn3/5q59/+auff/mrn3/5q99/+auff/mr33/5q99/+avff/mr37/5q9+/+av + ff/mr37/5q9+/+avfv/lrn7/5a5+/+Otff/hrHz/3ql6/9ild//SoHP/yZlu/7+RaP+vhV7/nHVR/4Zj + QP88WzX/FndT/zu6j/8Opmz/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGg + Yf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wul + af82uYz/H4Fd/zhcNP+IYz7/nnZP/7KFXP/BkWb/zJls/9Oeb//ZonL/3qZ0/+Godv/iqXf/5Kp4/+Sq + d//lq3f/5at3/+Wrd//lqnf/46h1/82NVMjSroirc0MJSAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAFcUIKT7eYd8rotYn/5657/+eue//nrnv/5658/+eufP/nrn3/5659/+eu + ff/nrn3/5699/+evff/nr33/569+/+evfv/nr37/57B+/+ewfv/nsH7/57B//+ewf//nsH//57B//+ew + f//nsH//57B//+ixgP/osYD/6LGA/+ixgP/osYD/6LGA/+ixgP/osYD/6LGA/+ixgf/osYH/6LGB/+iy + gf/osoH/6LKB/+iygf/osoH/6LKB/+iygf/osoH/6LKB/+iygf/osoL/6LKC/+exgP/msYH/5K+A/+Kt + fv/dqnz/16V4/8+edP/Fl27/toxl/6N8V/+MaUX/Ql03/xJ0T/8+upH/Ealv/wKhY/8BoWL/AaFi/wGh + Yv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGh + Yv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/w6nbP86uo//Gn1Y/zxdNv+NaEP/pHtU/7iL + Yv/GlWv/0J1x/9iidf/ep3j/4qp5/+Orev/lrXr/5q17/+ete//nrXv/5617/+ete//lrHn/y4pRx9ax + jKx0QwpNAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVyQwtVvZ19zOm2 + if/psH3/6bB9/+mwfv/psH7/6bB+/+mwfv/psH7/6bF//+mxf//psX//6bF//+mxf//psX//6bGA/+mx + gP/psoH/6bKB/+mygf/psoH/6bKB/+mygv/psoH/6bKC/+mygv/psoL/6bOC/+mzgv/ps4L/6bOC/+mz + gv/qs4P/6rOD/+qzg//qs4P/6rOD/+qzg//qs4P/6rOD/+q0hP/qtIT/6rSE/+q0hP/qtIT/6rSE/+q0 + hP/qtIT/6rSE/+q0hP/ps4P/6bOD/+eygv/lsIH/4q5//9ypfP/VpHj/y5xy/72Rav+qglz/km5K/05e + Of8Mbkj/QriS/xSqcv8DomT/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKh + Y/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKh + Y/8CoWP/A6Fk/xGob/8/upH/EnRP/0ZfOP+Tbkf/q4FZ/7+RZ//NnHD/16J0/92neP/iqnr/5a18/+ev + ff/or33/6bB9/+mwff/psH3/6a99/+ete//LilDH3LaQr3VFC1MAAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABnNEDFrCn37M5bKF/+Sse//krHv/5K18/+StfP/krXz/5K18/+St + fP/krXz/5K18/+Stff/lrn3/5a59/+Wuff/lrn3/5a5+/+Wufv/lrn7/5a5+/+Wufv/lr3//5a9//+Wv + f//lr3//5a9//+Wvf//lr3//5a+A/+Wwgf/lsIH/5bCB/+Wwgf/lsIH/5bCB/+Wwgf/lsIH/5bCB/+Ww + gf/lsIH/5bCC/+Wwgv/lsIL/5bCC/+Wwgv/lsIL/5bCC/+axgv/msYL/5rGC/+Wwgf/ksIH/46+A/+Gt + f//cqXz/1qV5/82edP/BlGz/roVf/5dyTf9dYDv/CGhC/0O0kf8YrXb/A6Nl/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/A6Nl/xSrc/9BuJL/DW5I/09g + Of+XcEr/roNb/8KTaP/OnHD/16N1/9yneP/gqnr/4at7/+OsfP/jq3v/5Kx6/+Ssev/krHr/4qp4/8qH + TcbguZOwdkYMVwAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGdUUNX8ah + gM7otIf/6LGA/+ixgP/osYD/6LKB/+iygf/osoH/6LKB/+iygf/osoL/6LKC/+izgv/os4L/6LOC/+iz + gv/os4L/6LOD/+izg//os4P/6LOD/+m0hP/ptIT/6bSE/+m0hf/ptIT/6bSF/+m0hf/ptIX/6bSF/+m0 + hf/ptYb/6bWG/+m1hv/ptYb/6bWG/+m1hv/ptYb/6bWH/+m1h//ptYf/6bWH/+m1h//ptYf/6bWH/+m2 + h//ptof/6baH/+m2h//ptof/6LWG/+e1hv/ls4X/47GD/92tgP/Wp3z/y550/7iPZ/+ge1X/bmU//wVm + P/9Cr43/HbB7/wWkZ/8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKj + Zf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKj + Zf8Co2X/AqNl/wKjZf8Co2X/A6Rm/xiud/9DtpL/CmxF/1xkPf+heVL/uo5k/82dcf/Ypnj/3qp7/+Ot + ff/lr37/5rB//+ewf//osYD/6LF//+ixf//mr33/yYZKxea8lLJ4Rw1dAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd2Rg5ly6eEz+m2iP/qs4P/6rOD/+qzhP/qs4T/6rOE/+q0 + hP/qtIX/6rSF/+q0hf/qtIX/6rSF/+q0hf/qtIX/6rWG/+q1hv/qtYb/6rWG/+q1h//qtYf/6rWH/+q1 + h//qtof/6raH/+u2iP/rtoj/67aI/+u2iP/rtoj/67aI/+u2iP/rtoj/67eJ/+u3if/rt4n/67eJ/+u3 + if/rt4r/67eJ/+u3iv/rt4r/67eK/+u3iv/rt4r/67eK/+u3iv/rt4r/67iK/+u4iv/qt4n/6beJ/+a0 + h//ksob/3a2C/9OlfP/DmG//qoRd/39sRv8yYDj/P6iG/yO0gf8Gpmv/AqRn/wKkZ/8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/BKVp/xuw + e/9Ds5D/B2hA/29qQv+sg1r/xZds/9Wjd//eqn3/5K6A/+awgv/osoP/6bKC/+qzg//qs4P/6rOC/+ix + gf/HhEfE6r6VsnlIDmMAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3hI + EWnNp4LO6bSH/+q0hP/qtIT/6rWF/+q1hf/qtYX/6rWF/+q1hf/qtYX/6rWG/+q1hv/qtof/6raH/+q2 + h//qtof/6raI/+q2iP/qtoj/6reI/+q3iP/rt4n/67eJ/+u3if/rt4n/67eJ/+u3if/rt4n/67eJ/+u4 + iv/ruIr/67iK/+u4iv/ruIr/67iK/+u4i//ruIv/67iL/+u4i//ruIv/67iL/+u4i//ruYz/67mM/+u5 + jP/ruYz/67mM/+u5jP/ruYz/67mM/+q4i//puIv/5rWJ/+Kyh//brIL/zKB3/7aNZv+ZdU7/N2M7/zyi + gf8nt4b/CKht/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKl + aP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKl + aP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/Bqdr/yCzgP9BrYv/MGM6/4NxSP+2i2D/zZ5y/9yq + fP/jsIH/5rGC/+izg//ps4P/6rSE/+q0hP/qtIT/6LKC/8eCRcTuwJWzekkRZwAAAAcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIeEkSb9Kogs/ptIf/67WG/+u2h//rtof/67aH/+u2 + h//rtoj/67aI/+u2iP/rt4j/67eJ/+u3if/rt4n/67eJ/+u3if/rt4n/67eK/+u3iv/ruIr/67iK/+u4 + iv/ruIr/7LiL/+y4i//suIv/7LiL/+y5jP/suYz/7LmM/+y5jP/suYz/7LmM/+y5jP/suY3/7LmM/+y5 + jf/suo3/7LqN/+y6jf/suo3/7LqN/+y6jv/suo7/7LqO/+y6jv/suo7/7LqO/+y6jv/suo7/67mN/+m4 + jP/ntov/4bGH/9aof//Alm3/pH5W/z1mPv8xlXP/LLmL/wmobv8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/Bqdt/ya2hf8+pYT/PGY9/5t7Uf/BlGn/1qV4/+Kvgf/ns4T/6bWG/+q0hf/rtYb/67WG/+u1 + hv/ps4T/xoFEw/HBlrN6ShJtAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAh5ShNz1aiCzui0hv/rt4j/67eI/+u3iP/rt4n/67eJ/+u3if/rt4n/67eJ/+u4iv/ruIr/67iK/+u4 + iv/ruIr/67iL/+u4i//ruYv/67mL/+y5jP/suYz/7LmM/+y5jP/suo3/7LqN/+y6jf/suo3/7LqN/+y6 + jf/suo3/7LqN/+y6jv/suo7/7LuO/+y7jv/su47/7LuO/+y7jv/su4//7LuP/+y7j//su4//7LuP/+y7 + j//su4//7LuP/+y7j//su4//7LuP/+y7kP/ruo7/6rqP/+e3jf/gsYj/0KR7/7mQaP9Jb0X/Jopl/zO8 + kf8KqnH/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKm + a/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKm + a/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/CKlw/yq5iv83nXv/Q2xC/7eM + Yf/QoXX/4K6B/+i0hv/ptof/6raH/+u3iP/rtof/67aH/+m0hf/EgELC9sOVsntLE3EAAAAIAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhcGDYJVIXnWqYDO6bWH/+u4iv/ruIr/67iL/+u4 + i//ruIv/67iL/+u5jP/ruYz/67mM/+u5jP/ruYz/67mN/+u6jf/ruo3/67qN/+y6jv/suo7/7LqO/+y6 + jv/suo7/7LqP/+y6j//suo//7LuP/+y7j//su4//7LuQ/+y7kP/su5D/7LuQ/+y7kP/svJH/7LyR/+y8 + kf/svJH/7LyR/+y8kf/svJH/7LyR/+y8kv/svJL/7LyS/+y8kv/svZL/7LyS/+y8kv/svZL/7L2S/+u8 + kf/qvJH/57mP/9+zif/PpXz/W3xS/xx/Wf85v5X/Dax1/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Capy/zC8kP8rkGz/U3hO/8+hdf/froL/6LWJ/+q3if/qt4n/67iK/+u3 + iv/rt4n/6bWH/8R/QsH3w5SxhFYhdyYXBg0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA9JgsSjGIxfdWmfc3ksIT/5rOH/+azh//ms4f/57SH/+e0iP/ntIj/57SI/+e0iP/ntIj/57WJ/+e1 + if/ntYn/57WJ/+e1iv/ntYr/57WK/+e2i//ntov/57aL/+e2i//ntoz/57aM/+e2jP/nt4z/6LeN/+i3 + jf/ot43/6LeN/+i3jf/ot43/6LeN/+i4jv/ouI7/6LiO/+i4jv/ouI7/6LiO/+i4jv/ouI7/6LiP/+i4 + j//ouI//6LiP/+i4j//ouI//6LmP/+i4j//ouY//57iO/+a4jv/kto3/3rGI/3CJYP8Ye1T/Pr6X/xCu + eP8DqG7/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKo + bf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wOo + bv8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/DKx0/za+ + lP8kiWT/Y4NZ/96tgf/ksYX/5bKG/+azh//ms4b/5rOG/+azhv/ksYT/xH9DwffBka+OYzF8PSYLEgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU0xDhmXcESC06V8zOe1if/quIv/6riL/+q4 + jP/quYz/6rmM/+q5jf/quY3/6rmN/+u6jv/ruo7/67qO/+u6jv/ruo7/67qO/+u6j//ruo//67qP/+u7 + kP/ru5D/67uQ/+u7kP/ru5D/67uR/+u7kf/ru5H/67yR/+u8kf/rvJH/67yS/+u8kv/rvJL/67yS/+u8 + kv/rvJL/672T/+u9k//rvZP/7L2T/+y9k//svZP/7L2U/+y9lP/svZT/7L2U/+y9lP/svZT/7L2U/+y9 + lP/rvZP/6ryT/+m8kv/Or4f/EXRM/4HYwv+T38r/pePR/6bj0f+m49H/puPR/6bj0f+m49H/puPR/6bj + 0f+m49H/puPR/6bj0f+m49H/puPR/4TYvv9Kw5r/Cqx0/wKpb/8CqW//Aqlv/wKpb/8CqW//Aqlv/wKp + b/8CqW//Aqlv/wKpb/8CqW//Aqlv/wKpb/8CqW//Bqty/0jDmv90y6//puPR/6bj0f+m49H/puPR/6bj + 0f+m49H/puPR/6bj0f+m49H/puPR/6bj0f+l49H/l+DL/47gzP8egVv/taV5/+i3iv/pt4v/6riL/+q4 + i//quIv/6riL/+i2if/EgUXB98GPrplyRIFNMQ4ZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABUzQQIKF7UojSpHrL6biN/+y6j//suo//7LqP/+y7kP/su5D/7LuQ/+y7kP/su5H/7LuR/+y8 + kf/svJH/7LyS/+y8kv/tvJL/7byS/+28kv/tvZP/7b2T/+29k//tvZT/7b2U/+29lP/tvZT/7b2U/+29 + lP/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+lf/tv5b/7b+W/+2/lv/tv5b/7b+W/+2/ + lv/tv5b/7b+X/+2/l//tv5f/7b+X/+2/l//tv5f/7cCX/+2/l//tv5f/7b+X/+2/l/9+lWz/HnFH/wZo + Pf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/1LD + n/8Ornf/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOq + cP8HrHP/SsOd/xJrQP8xd0z/NHlO/zR5Tv8sdkv/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZo + Pf8GaD3/DmtA/22NYv/su5D/7LqP/+y6j//suo//7LqO/+y6jv/suo7/6riM/8WDScL3wI6so31ThlM0 + ECAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJYOBImrIhijtGheMrquY//7LuR/+y7 + kf/svJH/7LyR/+y8kv/svJL/7LyS/+y9k//svZP/7L2T/+29lP/tvZT/7b2U/+29lP/tvZT/7b2U/+2+ + lf/tvpX/7b6V/+2+lv/tvpb/7b6W/+2+lv/tv5f/7b+X/+2/l//tv5f/7b+X/+2/l//tv5f/7cCY/+3A + mP/twJj/7cCY/+3AmP/twJj/7cCZ/+3Amf/twJn/7cCZ/+3Amf/uwZr/7sGa/+3Amf/uwZr/7sGa/+7B + mv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7B + mv/uwZr/7sGa/+3Amf/twJn/7cCZ/+G2jv8eb0X/Pr6Y/wqud/8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wOr + cv8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wasdP88wZn/EmxB/+Gziv/tvpX/7b6V/+29 + lP/tvZT/7b2U/+29lP/tvZT/7L2T/+y9k//svZP/7LyS/+y8kv/svJL/7LyS/+y8kv/svJH/7LyR/+y7 + kf/su5H/7LuQ/+y7kP/quY7/xYRLwva/jausiGKMWDgSJgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAlw7FCyzkW2T0KF1yeq6kP/svZL/7L2S/+y9k//svZP/7L2T/+y9lP/svZT/7L2U/+y+ + lP/tvpX/7b6V/+2+lf/tvpX/7b+W/+2/lv/tv5b/7b+W/+2/l//tv5f/7b+X/+2/l//twJj/7cCY/+3A + mP/twJj/7cCY/+3Amf/twJn/7cCZ/+3Bmf/twZn/7cGZ/+3Bmf/twZn/7cGZ/+3Bmv/twZr/7sGa/+7B + mv/uwZr/7sGa/+7Bmv/uwpv/7sGa/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7C + m//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwZr/7sKb/+7Cm//uwZr/4reP/x5v + Rf8+v5n/Cq94/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOs + c/8DrHP/Bq11/zzBmv8SbEH/4bSM/+2/l//tv5b/7b+W/+2/lv/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+ + lf/svZT/7L2U/+y9lP/svZP/7L2T/+y9k//svZL/7LyS/+y8kv/svJL/7LyR/+q6kP/Fhk7C9ryJqLST + b5FcOxQsAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYT4WMryce5nQnnXI6ruR/+y9 + lP/svpX/7L6V/+y+lf/svpb/7L6W/+y+lv/sv5b/7b+W/+2/l//tv5f/7b+X/+2/l//twJj/7cCY/+3A + mP/twJj/7cCY/+3Amf/twZn/7cGZ/+3Bmv/twZr/7cGa/+3Bmv/twZv/7cGb/+3Bm//twpv/7cKb/+3C + m//twpz/7sKc/+7CnP/uwpz/7sKc/+7Dnf/uwpz/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7D + nf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7D + nf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/juZP/HnFF/z6/mv8KsHr/A611/wOtdf8DrXX/A611/wOt + df8DrXX/A611/wOtdf8DrXX/A611/wOtdf8DrXX/A611/wOtdf8Grnf/PMKb/xJtQf/hto7/7cCZ/+3A + mP/twJj/7cCY/+3AmP/tv5f/7b+X/+2/l//tv5b/7b+W/+2/lv/svpb/7L6W/+y+lv/svpX/7L6V/+y+ + lf/svZT/7L2U/+y9lP/svZT/6ruR/8WIUcL2vIiovp99lmE+FjIAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAANiQRc4xKiIns2dcsfqvZT/7b+W/+2/l//tv5f/7b+X/+2/mP/tv5j/7cCY/+7A + mf/uwJn/7sCZ/+7Amf/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bm//uwZv/7sGb/+7Cm//uwpv/7sKc/+7C + nP/uwpz/7sKc/+7Dnf/uw53/7sOd/+7Dnv/uw57/7sOe/+7Dnv/uw57/7sOe/+7Dnv/uw57/78Sf/+/E + n//vxJ//78Sf/+/En//vxJ//78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/E + oP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/En//vxJ//78Sf/+S6 + lP8fcUX/P8Cb/wuwfP8DrXb/A612/wOtdv8DrXb/A612/wOtdv8DrXb/A612/wOtdv8DrXb/A612/wOt + dv8DrXb/A612/waueP88wpz/E21B/+K3kP/uwZv/7sGb/+7Bm//uwZr/7sGa/+7Bmv/uwZr/7sCZ/+7A + mf/uwJn/7cCY/+3AmP/twJj/7b+Y/+2/l//tv5f/7b+X/+2/lv/tvpb/7b6W/+2+lf/rvJT/xYlTwva7 + iKbFp4edYkEXOAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABGRCGj7KrpKjzZxyx+a5 + kf/oupL/6LuT/+i7k//ou5P/6LuU/+i7lP/ovJT/6LyU/+i8lP/ovJX/6LyV/+m9lv/pvZb/6b2W/+m9 + l//pvZf/6b2X/+m9l//pvZf/6b6Y/+m+mP/pvpj/6b6Y/+m+mf/pvpn/6b+Z/+m/mv/pv5r/6b+a/+m/ + mv/pv5r/6b+a/+rAm//qwJv/6sCb/+rAm//qwJv/6sCb/+rAm//qwJv/6sCb/+rAm//qwJv/6sCc/+rB + nP/qwJz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rB + nP/qwZz/6sCc/+rAnP/qwJz/6sCc/+rAm//qwJv/4LeR/yNzR/9Avpv/DbJ//wOueP8Drnj/A654/wOu + eP8Drnj/A654/wOueP8Drnj/A654/wOueP8Drnj/A654/wOueP8Drnj/Bq96/zzDnf8TbkH/3rOM/+m9 + l//pvZf/6b2X/+m9lv/pvZb/6b2W/+i8lf/ovJX/6LyV/+i8lP/ovJT/6LuU/+i7lP/ou5T/6LuT/+i7 + k//oupL/6LqS/+i6kv/oupL/6LqS/+a4j//GiVTD9rqGpcyvkqFkQho+AAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAEZkQbRNK3m6fMm2/F6ryV/+y+l//sv5j/7L+Y/+y/mP/sv5n/7L+Z/+y/ + mf/sv5n/7MCa/+zAmv/swJr/7MCb/+zAm//swZv/7MGb/+zBm//swZv/7MGc/+zBnP/swZz/7cKd/+3C + nf/twp3/7cKd/+3Cnv/twp7/7cOe/+3Dnv/tw5//7cOf/+3Dn//tw5//7cOg/+3Dn//tw6D/7cOg/+3D + oP/txKD/7cSg/+3EoP/txKD/7cSg/+3EoP/txKD/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3F + of/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKD/7cSg/+3E + oP/ju5b/KnZK/0C9mf8OtID/A695/wOvef8Dr3n/A695/wOvef8Dr3n/A695/wOvef8Dr3n/A695/wOv + ef8Dr3n/A695/wOvef8Jsn3/PcOf/xNuQf/gt5H/7MGc/+zBm//swZv/7MGb/+zBm//swZv/7MCb/+zA + mv/swJr/7MCa/+zAmv/sv5n/7L+Z/+y/mP/sv5j/7L+Y/+y+l//svpf/7L6X/+u+l//rvpb/6r2V/8eM + WMP2uYSj07ebpmZEG0QAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVmRRxJ1rugq8uZ + bcTsv5n/7cKb/+3CnP/twpz/7sOc/+7DnP/uw53/7sOd/+7Dnf/uw57/7sOe/+7Env/uxJ7/7sSe/+7E + n//uxZ//7sWf/+7FoP/uxaD/7sWg/+7FoP/uxaD/7sWh/+7Gof/uxqH/7sah/+/Gov/vxqL/78ai/+/G + ov/vxqL/78ej/+/Ho//vx6P/78ej/+/HpP/vx6T/78ek/+/IpP/vyKT/78ik/+/IpP/vyKT/78ik/+/I + pf/vyKT/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/I + pf/vyKX/78il/+/Ipf/vyKX/78il/+/IpP/vyKT/78ik/+S+mv8qd0v/Qb6a/w20gf8DsHr/A7B6/wOw + ev8DsHr/A7B6/wOwev8DsHr/A7B6/wOwev8DsHr/A7B6/wOwev8DsHr/A7B6/wqzf/89w57/F3FD/+K6 + lf/uxaD/7sWg/+7Fn//uxZ//7sSf/+7Env/uxJ7/7sSe/+7Dnv/uw57/7sOd/+7Dnf/uw53/7sOc/+7D + nP/twpz/7cKc/+3Cm//twpv/7cKb/+3Cmv/rwJj/xo1Zw/W5g6LXvKCoZkUcSQAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABWdFHlDcwKWsyZdtxOzAm//uw53/7sSe/+7Env/uxJ7/7sSe/+/E + n//vxJ//78Sf/+/En//vxaD/78Wg/+/Fof/vxaH/78Wh/+/Gof/vxqH/78ai/+/Gov/vxqL/78aj/+/G + o//vx6P/78ej/+/HpP/vx6T/78ek//DIpP/wyKT/8Mik//DIpP/wyKX/8Mil//DIpf/wyKb/8Mim//DI + pv/wyKb/8Mim//DJpv/wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJ + p//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJ + p//wyaf/5b+d/yp3S/9Bvpv/DrWD/wSxfP8EsXz/BLF8/wSxfP8EsXz/BLF8/wSxfP8EsXz/BLF8/wSx + fP8EsXz/BLF8/wSxfP8EsXz/DLSB/z/Cnf8gc0b/47uX/+/Gov/vxqL/78ah/+/Gof/vxaH/78Wh/+/F + of/vxaD/78Wg/+/FoP/vxJ//78Sf/+/En//vxJ//7sSe/+7Env/uxJ7/7sOd/+7Dnf/uw53/7sOd/+zB + mv/Hjl3D9biBoN3BpatnRR5QAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGaEcgVePF + qa/Jl2rC7MKd/+7En//uxJ//7sWf/+/FoP/vxaD/78Wg/+/FoP/vxaH/78ah/+/Gof/vxqH/78ai/+/H + ov/vx6L/78ej/+/Ho//vx6P/78ek/+/HpP/vyKT/78ik/+/IpP/vyKX/78il/+/Ipf/wyKX/8Mil//DJ + pv/wyab/8Mmm//DJp//wyaf/8Mmn//DJp//wyqf/8Mqn//DKp//wyqf/8Mqo//DKqP/wyqj/8Mqo//DK + qP/wyqj/8Mqo//DKqf/wyqj/8Mqp//DKqf/wyqn/8Mqp//DKqf/wyqn/8Mqp//DKqf/wyqn/8Mqp//DK + qf/wyqn/8Mqp//DKqP/wyqn/8Mqo//DKqP/wyqj/8Mqo//DKqP/lwJ7/KnhL/0G/nf8OtoX/BLJ+/wSy + fv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8LtYP/QMKf/yB0 + Rv/jvZj/78ek/+/HpP/vx6P/78ej/+/Hov/vx6L/78ai/+/Gof/vxqH/78ah/+/Fof/vxaD/78Wg/+/F + oP/vxaD/7sWf/+7En//uxJ//7sSe/+7Env/uxJ7/7MKc/8eQXsP0t4Cf4sWprWhHIFUAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZpSCJa58issciVasLtw5//7sWh/+7Gof/vxqH/78ah/+/G + ov/vxqL/78ej/+/Ho//vx6P/78ek/+/HpP/vx6T/78ek/+/IpP/vyKX/78il/+/Ipf/vyKb/78im/+/J + pv/vyab/78mm//DJp//wyaf/8Mmn//DKqP/wyqj/8Mqo//DKqP/wyqj/8Mqp//DKqf/wyqn/8Mqp//DL + qf/wy6n/8Mup//DLqf/wy6r/8Muq//DLqv/wy6r/8Muq//DLqv/wy6v/8Mur//DLq//wy6v/8Mur//DL + q//wy6v/8Myr//DLq//wzKv/8Myr//DLq//wy6v/8Mur//DLq//wy6v/8Mur//DLq//wy6v/8Mur//DL + qv/wy6r/8Muq/+XBn/8qeEz/Qb+d/w63hv8Es3//BLN//wSzf/8Es3//BLN//wSzf/8Es3//BLN//wSz + f/8Es3//BLN//wSzf/8Es3//BLN//wu2hP9Aw6D/IHRG/+O9mv/vyKb/78il/+/Ipf/vyKX/78ik/+/I + pP/vx6T/78ek/+/Ho//vx6P/78ej/+/Ho//vxqL/78ai/+/Gov/vxqH/7sah/+7Fof/uxaH/7sWg/+7F + oP/sw57/yJFhxPS3f53nya2uaUgiWgAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2lJ + I2DszbCyx5Vowe3EoP/vx6P/78ej/+/HpP/vx6T/78ek/+/HpP/vyKX/78il/+/Ipf/vyKb/78im/+/I + pv/vyab/78mn/+/Jp//vyaf/78mn/+/JqP/vyqj/78qo//DKqf/wyqn/8Mqp//DKqf/wyqn/8Muq//DL + qv/wy6r/8Muq//DLq//wy6v/8Myr//DMq//wzKv/8Myr//DMrP/wzKz/8Mys//DMrP/wzKz/8Mys//DM + rP/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DN + rf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DMrP/wzKz/5cKh/yt5TP9BwJ7/DriH/wS0 + gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/C7eF/0DE + of8gdUb/47+c/+/JqP/vyaf/78mn/+/Jp//vyab/78mm/+/Ipv/vyKb/78im/+/Ipf/vyKX/78il/+/H + pP/vx6T/78ek/+/HpP/vx6P/78ej/+7Gov/uxqL/7sai/+3EoP/Ik2PE9LZ9nO3NsbBpSSNgAAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHa0slZPHQsrLHlGjA6MGe/+rCoP/qw6D/6sOh/+rD + of/qw6H/68Oh/+vDof/rxKL/68Si/+vEo//rxaP/68Wj/+vFpP/rxaT/68Wk/+vFpP/rxqX/68al/+vG + pf/sxqb/7Mam/+zGpv/sxqb/7Men/+zHp//sx6f/7Men/+zHp//syKj/7Mio/+zIqP/syKn/7Mip/+zI + qf/syKn/7Mip/+zIqf/syKn/7Mmq/+zJqv/syar/7Mmq/+zJqv/syar/7cmq/+3Jqv/tyar/7cmq/+3J + qv/tyav/7cmr/+3Jq//tyar/7cmq/+3Jqv/tyav/7cmr/+3Jqv/tyar/7cmq/+3Jqv/tyar/7cmq/+zJ + qv/tyar/7Mmq/+zJqv/iv5//K3hM/0HAn/8OuYj/BLWC/wS1gv8EtYL/BLWC/wS1gv8EtYL/BLWC/wS1 + gv8EtYL/BLWC/wS1gv8EtYL/BLWC/wS1gv8LuIb/QMSi/yB0R//fu5n/68al/+vGpf/rxaT/68Wk/+vF + pP/rxaT/68Wk/+vEo//rxKP/68Si/+vEov/rw6H/68Oh/+vDof/qw6H/6sOh/+rDoP/qwqD/6sKg/+rC + n//qwp//6MCd/8eTZsT1tX6b8NCxsWtLJWQAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAhrTCdq9dO2s8WTZ8DrxKL/7sek/+7Hpf/ux6X/7sim/+7Ipv/uyKb/7sim/+7Ipv/uyKf/7smo/+7J + qP/uyaj/7smo/+/Jqf/vyqn/78qp/+/Kqf/vyqr/78qq/+/Kqv/vy6v/78ur/+/Lq//vy6v/78ur/+/M + rP/vzKz/78ys/+/Mrf/vzK3/78yt/+/Mrf/vzK3/782t/+/Nrf/wza7/8M2u//DNrv/wza7/8M2u//DN + rv/wza7/8M2v//DNr//wzq//8M6v//DOr//wzq//8M6v//DOr//wzq//8M6w//DOr//wzq//8M6v//DO + sP/wzq//8M6w//DOr//wzq//8M6v//DOr//wzq//8M6v//DNrv/wza7/8M2u/+XDo/8rek3/QcGf/w66 + iv8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wu5 + iP9AxaP/IHZH/+O/nv/vyqn/78qp/+/Kqf/vyqn/78mp/+7JqP/uyaj/7smo/+7JqP/uyKf/7sim/+7I + pv/uyKb/7sim/+7Ipv/ux6X/7sel/+7HpP/ux6T/7sek/+7GpP/sxKH/yZZpxPS1fZn207Sxa0wnagAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACGxNKW341bWzw5Jlvu7Hpf/wyqn/8Mqp//DK + qf/wyqn/8Muq//DLqv/wy6r/8Mur//DLq//wy6v/8Myr//DMq//wzKz/8Mys//DMrf/wzK3/8M2t//DN + rf/xza7/8c2u//HNrv/xzq//8c6v//HOr//xzq//8c6v//HOsP/xzrD/8c6w//HPsP/xz7H/8c+x//HP + sf/xz7H/8c+x//HPsf/x0LL/8dCy//HQsv/x0LL/8dCy//HQs//x0LL/8dCz//HQs//x0LP/8dCz//HQ + s//x0LP/8dCz//LRs//x0LP/8dCz//HQs//x0LP/8dCz//HQs//x0LP/8dCz//HQs//x0LP/8dCz//HQ + s//x0LP/8dCz//HQsv/x0LL/5san/yt6Tv9BwaD/DruL/wS3hf8Et4X/BLeF/wS3hf8Et4X/BLeF/wS3 + hf8Et4X/BLeF/wS3hf8Et4X/BLeF/wS3hf8Et4X/C7qJ/0DFpP8hdkj/5cKi//DNrf/wza3/8Myt//DM + rP/wzKz/8Mys//DMrP/wzKv/8Mur//DLq//wy6r/8Muq//DLqv/wyqn/8Mqp//DKqf/wyqn/8Mqp/+/K + qP/vyqj/78mn/+7Ipv/Jl2rE87V8mPnUtbJsTSltAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAJbE4qc/3ZuLTDkWS97smo//HLq//xy6v/8cur//HMrP/xzKz/8cys//HMrP/xzK3/8c2t//HN + rf/xza7/8c2u//HNrv/xza7/8c2v//HOr//xzq//8c6v//HOsP/xzrD/8c6w//LPsf/yz7H/8s+x//LP + sf/yz7L/8s+y//LQsv/y0LP/8tCz//LQs//y0LP/8tCz//LQs//y0bT/8tG0//LRtP/y0bT/8tG0//LR + tP/y0bT/8tG0//LRtP/y0bX/8tG1//LRtf/y0bX/8tG1//LStf/y0bX/8tG1//LStf/y0rX/8tK1//LS + tf/y0rX/8tK1//LRtf/y0bX/8tK1//LRtf/y0bX/8tG1//LRtf/y0bX/8tG0//LRtP/nx6n/LHtO/0HC + of8OvI3/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4 + h/8Lu4v/QMak/yJ3SP/lw6T/8c6v//HOr//xzq//8c2v//HNrv/xza7/8c2u//HNrv/xza3/8cyt//HM + rf/xzKz/8cys//HMrP/xzKz/8cur//HLq//wy6r/8Muq//DKqv/wyqr/78in/8mYbcXzs3qW/ti4smxO + KnMAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADIkFQ98YUF5/di2scSSZ77uyar/8cys//HM + rP/xzKz/8c2t//HNrf/xza3/8c2u//HNrv/xza7/8c6u//HOr//xzq//8c6v//HPsP/xz7D/8c+w//HP + sf/xz7H/8c+x//LPsf/yz7H/8tCy//LQsv/y0LP/8tCz//LQs//y0bP/8tG0//LRtP/y0bT/8tG0//LR + tP/y0bT/8tG0//LStf/y0rX/8tK1//LStf/y0rb/8tK2//LStv/y0rb/8tK2//LStv/y0rb/8tK2//LT + tv/y07b/8tO2//LTt//y07f/8tO3//LTtv/y07f/8tO3//LTt//y07f/8tO3//LTtv/y07b/8tO2//LS + tv/y0rb/8tK2//LStv/y0rb/8tK2/+fIq/8se07/QsKi/w69jv8FuYj/BbmI/wW5iP8FuYj/BbmI/wW5 + iP8FuYj/BbmI/wW5iP8FuYj/BbmI/wW5iP8FuYj/BbmI/wy7jP9AxqT/IndI/+XEpf/xz7H/8c+x//HP + sP/xz7D/8c+w//HOr//xzq//8c6v//HOrv/xzq7/8c2u//HNrv/xza3/8c2t//HNrf/xzKz/8cys//HM + rP/wzKv/8Myr//DLqv/vyqn/yZlvxfO0fZf+2LWvfGFBeTIkFQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABPS0aFYhvUX/92LawxJRqvu/LrP/xza7/8c2u//HNrv/xzq//8c6v//HOr//xzrD/8c6w//HP + sP/xz7D/8c+x//HPsf/xz7H/8dCy//HQsv/x0LP/8dCz//LQs//y0LP/8tCz//LRtP/y0bT/8tG0//LR + tP/y0bX/8tG1//LStf/y0rX/8tK2//LStv/y0rb/8tK2//LStv/y07f/8tO3//LTt//y07f/8tO3//LT + t//y07j/8tO4//LTuP/y1Lj/8tS4//LUuP/z1Ln/89S5//PUuf/z1Ln/89S5//PUuf/z1Ln/89S5//PU + uf/z1Ln/89S5//PUuf/z1Ln/89S5//PUuf/y1Lj/89S5//LUuP/y1Lj/8tS4//LUuP/y07j/58mt/yx8 + Tv9Cw6P/Dr6Q/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6 + iv8Fuor/DLyO/0DHpv8ieEj/5sSm//LQs//x0LP/8dCy//HQsv/x0LL/8c+x//HPsf/xz7H/8c+w//HP + sP/xzrD/8c6w//HOr//xzq//8c6v//HNrv/xza7/8c2u//HNrf/xza3/8M2t/+/Lq//Jm3HF87aAl/7Y + tq6Hbk9/PS0aFQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFHNR8clX1jhf3Yta/ElWy+78ut//HO + sP/xzrD/8c6w//HPsf/xz7H/8c+x//HPsv/xz7L/8dCy//HQs//x0LP/8dCz//HQs//x0bT/8dG0//LR + tf/y0bX/8tK1//LStf/y0rb/8tK2//LStv/y0rb/8tK3//LSt//y07f/8tO3//LTuP/y07j/8tO4//LT + uP/y1Ln/8tS5//LUuf/y1Ln/8tS5//LUuf/y1Lr/8tS6//LUuv/z1Lr/89S6//PUuv/z1Lr/89W6//PV + uv/z1br/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PV + u//z1br/89W6//PVuv/z1Lr/89S6//PUuv/nyq7/LHxP/0LEo/8OvpH/BbuL/wW7i/8Fu4v/BbuL/wW7 + i/8Fu4v/BbuL/wW7i/8Fu4v/BbuL/wW7i/8Fu4v/BbuL/wW7i/8MvY//QMem/yJ4SP/mxqj/8tG1//LR + tf/x0bT/8dG0//HRtP/x0LP/8dCz//HQs//x0LP/8dCy//HPsv/xz7L/8c+x//HPsf/xz7H/8c+w//HO + sP/xzrD/8c6v//HOr//xzq//78yt/8qcdMXzuIOX/te0rZV9Y4VHNR8cAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAkw5IyGfiHCL/de0rsSWbr/ryKr/7cut/+3Lrf/ty67/7cyu/+3Mrv/tzK//7cyv/+3M + r//tza//7c2w/+3NsP/tzbH/7c6x/+3Osf/uzrH/7s6y/+7Osv/uzrL/7s+z/+7Ps//uz7P/7s+z/+7P + tP/u0LT/7tC0/+7QtP/u0LX/7tC1/+7Qtf/v0bb/79G2/+/Rtv/v0bb/79G2/+/Rt//v0bf/79K3/+/S + t//v0rf/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/S + uP/v07n/79O5/+/Tuf/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+XI + rf8tfU7/QsSk/w6/k/8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8 + jf8FvI3/BbyN/wy+kf9AyKj/InlI/+LEpv/uzrL/7s6y/+7Osv/uzrH/7c6x/+3Osf/tzbH/7c2w/+3N + sP/tza//7cyv/+3Mr//tzK//7cyu/+3Mrv/ty67/7cut/+3Lrf/sy6z/7Mqs/+zKrP/ryar/yp52xvS6 + h5j917Ornodvikw5IyEAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACUT0mKKqWf5H91rSsxJdwv+3M + rv/vzrH/786x/+/Osf/vzrL/78+y//DPsv/wz7L/8M+z//DQs//w0LP/8NC0//DQtP/w0LX/8NC1//DR + tf/w0bX/8NG2//DRtv/w0bb/8NK3//DSt//w0rf/8dK3//HSt//x0rj/8dO4//HTuf/x07n/8dO5//HT + uf/x07n/8dS6//HUuv/x1Lr/8dS6//HUuv/x1Lv/8dS7//HUu//x1Lv/8dS7//HUu//x1Lv/8dW8//HV + vP/x1bz/8dW8//HVvP/x1bz/8dW8//HVvP/x1bz/8tW8//LVvP/x1bz/8dW8//HVvP/x1bz/8dW8//HV + vP/x1bz/8dW8//HVvP/x1bz/8dS7//HUu//x1Lv/58qw/zB/T/9DxaT/EsGX/wW9j/8FvY//Bb2P/wW9 + j/8FvY//Bb2P/wW9j/8FvY//Bb2P/wW9j/8FvY//Bb2P/wW9j/8FvY//DL+T/0DJqf8iekj/5MWp//DR + tv/w0bb/8NG1//DRtf/w0LX/8NC1//DQtP/w0LT/8NCz//DQs//wz7P/8M+y//DPsv/vz7L/786x/+/O + sf/vzrH/786w/+/NsP/vzbD/782w/+3Lrf/KoHnG9LuJmP3Ws6qqlX6QUT0mKAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAANRPicvs5+KlP3XtKvFmnO/8NCz//LRtf/y0bX/8tK2//LStv/y0rb/8tK3//LT + t//y07f/8tO4//LTuP/y07j/8tO4//LUuf/y1Ln/89S6//PUuv/z1Lr/89W7//PVu//z1bv/89W7//PV + u//z1bz/89a8//PWvP/z1r3/89a9//PWvf/z1r3/89a9//PXvv/z177/89e+//PXvv/z177/89e+//PX + v//z17//9Ni///TYv//02L//9Ni///TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TY + wP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9Ni///TY + v//qzrT/OoNU/0LBof8Twpj/Bb6Q/wW+kP8FvpD/Bb6Q/wW+kP8FvpD/Bb6Q/wW+kP8FvpD/Bb6Q/wW+ + kP8FvpD/Bb6Q/wW+kP8MwJT/QMmq/yN6Sf/nya7/89W7//PVuv/z1Lr/8tS5//LUuf/y1Ln/8tO4//LT + uP/y07j/8tO3//LTt//y07f/8tK2//LStv/y0rb/8tK2//LRtf/y0bX/8tG1//LRtf/y0bT/8M+y/8uh + esb0vYyZ/dazqbKeiZRRPicvAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1RBKzS8qpec/da0qcab + dsDw0LT/8tK2//LTt//y07f/8tO3//LTuP/y07j/8tS4//LUuP/y1Ln/8tS5//LUuf/y1br/8tW6//PV + uv/z1bv/89W7//PVu//z1rz/89a8//PWvP/z1rz/89a9//PXvf/z173/89e9//PXvv/z177/89e+//PX + vv/z177/89i///PYv//z2MD/89jA//PYwP/02MD/9NjA//TYwP/02cH/9NnB//TZwf/02cH/9NnB//TZ + wf/02cH/9NnB//TZwf/02cH/9NnB//TZwf/02cL/9NnC//TZwv/02cL/9NnC//TZwv/02cL/9NnB//TZ + wf/02cH/9NnB//TZwf/02cH/9NnB//TZwf/02cH/9NnB/+rPtv86hFX/RMKj/xLDmf8Fv5L/Bb+S/wa/ + kv8Gv5L/Bb+S/wW/kv8Gv5L/Bb+S/wW/kv8Fv5L/Bb+S/wW/kv8Fv5L/Bb+S/w3Blv9Ayqv/I3tK/+fK + r//z1rz/89W7//PVu//z1bv/89W6//PVuv/y1Lr/8tS6//LUuf/y1Ln/8tS4//LUuP/y07j/8tO4//LT + t//y07f/8tO3//LStv/y0rb/8tK2//LStf/w0LP/y6F9x/S+jpn91rOnvKmWnFRBKzQAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAEVUMtOsOxoKD917Spxpx4wPDRtv/z1Ln/89S5//PUuf/z1Ln/89S6//PU + uv/z1Lr/89W7//PVu//z1bv/89W8//PWvP/z1rz/89a9//PWvf/z1r3/9Ne+//TXvv/0177/9Ne+//TX + v//017//9Ni///TYv//02MD/9NjA//TYwP/02MD/9NnB//TZwf/02cH/9NnB//TZwv/02cL/9NnC//TZ + wv/02cL/9NrC//Tawv/02sP/9NrD//Xaw//12sP/9drD//Xaw//12sP/9drD//Xaw//12sT/9drE//Xa + xP/12sT/9drE//XaxP/12sT/9drE//XaxP/12sP/9drE//Xaw//12sP/9drD//Xaw//12sP/9drD//Xa + w//12sP/6tC4/zuEVv9Gw6P/E8Sa/wfAk/8HwJP/B8CT/wjAk/8IwJP/CMCT/wjAk/8KwJT/CMCT/wjA + k/8IwJP/CMCT/wfAk/8HwJP/DsKX/0LKrP8lfEv/6Mux//TXvv/0177/89a9//PWvf/z1rz/89a8//PW + vP/z1bz/89W7//PVu//z1bv/89W6//PUuv/z1Lr/89S5//PUuf/z1Ln/89O4//PTuP/z07j/89O4//HR + tf/MpIDH9MCRmv3Ws6bDsaCfVUMtOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARWRC5Ay7urp/3W + s6fGnXnA8NK3//PUuf/z1br/89W6//PVuv/z1bv/89a7//PWu//z1rz/89a8//PWvP/z1r3/89e9//PX + vf/z177/89e+//TXvv/02L//9Ni///TYv//02L//9NjA//TYwP/02cD/9NnA//TZwf/02cH/9NnB//TZ + wv/02cL/9NrC//Tawv/02sL/9NrD//Taw//02sP/9NrD//Taw//128T/9dvE//XbxP/128T/9dvE//Xb + xP/128T/9dvF//Xbxf/128X/9dvF//Xbxf/128X/9dvF//Xcxf/13MX/9dvF//Xcxf/13MX/9dvF//Xb + xf/128X/9dvF//Xbxf/128X/9dvF//XbxP/128T/9dvE//XbxP/r0bn/PodY/0jEpP8WxZ3/C8GW/wrB + lv8LwZb/CMGV/wjBlf8IwZX/CsGW/wrBlv8KwZb/CsGW/wvBlv8LwZb/C8GW/wrBlv8Rw5r/Rcut/yd+ + TP/ozLL/9Ni///TYv//0177/89e+//PXvv/z173/89e9//PWvf/z1rz/89a8//PWvP/z1rv/89W7//PV + u//z1bv/89W6//PVuv/z1Ln/89S5//PUuf/z1Lj/8dK3/8ykgcf0wZOa/dWypcq6qqZWRC5AAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABVhGMUXRwbCp/daypsegfcHx1Lr/89W7//PWvP/z1rz/89a8//PW + vf/z1r3/89e9//PXvv/z177/89e+//PYv//z2L//89i///TYwP/02MD/9NjA//TYwP/02cH/9NnB//TZ + wf/02cL/9NrC//Tawv/02sL/9NrD//Taw//02sP/9NrD//TbxP/028T/9NvE//TbxP/028X/9dvF//Xb + xf/128X/9dvF//Xcxv/13Mb/9dzG//Xcxv/13Mb/9dzG//Xcxv/13Mb/9dzG//Xcx//13Mf/9dzH//Xc + x//13Mf/9d3H//Xcx//13Mf/9dzH//Xcx//13Mf/9dzH//Xcx//13Mf/9dzH//Xcx//13Mb/9dzG//Xc + xv/13Mb/9dzG/+vSuv8+h1j/S8Wn/xzHoP8RxJn/EcSZ/xLEmf8QxJn/EcSZ/xPEmv8TxJr/EMSZ/xDE + mf8RxJn/EcSZ/xDDmf8Qw5n/EMOZ/xfFnf9Iza//KX9N/+jOtP/02cH/9NnB//TYwP/02MD/9NjA//PY + v//z2L//89i///PXvv/z177/89e+//PXvf/z1r3/89a9//PWvP/z1rz/89a8//PVu//z1bv/89W7//PV + u//x07n/zKaEx/TDl5v+1rGk0cCvqVhGMUUAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWUczTNnI + uK391rOkx6F+wezQtv/u0rn/7tK5/+7Suf/u0rr/7tK6/+7Tuv/v07v/79O7/+/Tu//v1Lz/79S8/+/U + vP/v1L3/79W9/+/Vvf/v1b7/79W+/+/Vvv/v1b//8Na///DWv//w1sD/8NbA//DWwP/w18D/8NfB//DX + wf/w18H/8NfB//DYwv/w2ML/8NjC//DYwv/w2MP/8djD//HYw//x2cP/8dnD//HZw//x2cT/8dnE//HZ + xP/x2cT/8dnE//HZxP/x2cT/8dnE//HZxP/x2cT/8dnF//HZxf/x2cX/8dnF//HZxf/x2sX/8dnF//Ha + xf/x2cX/8dnF//HZxP/x2cT/8dnE//HZxP/x2cT/8dnE//HZxP/x2cT/6NC5/0CIWf9fzLH/PNCv/zLM + qf8xzKn/Msyp/zLMqf8yzKn/NMyp/zTMqf8zzKn/Mcyp/zPMqf80zKn/NMyp/zHMqf8yzKn/N86s/1/T + uf8qgE7/5cuy/+/Vvv/v1b7/79W9/+/Vvf/v1b3/79S9/+/UvP/v1Lz/79S8/+/Tu//v07v/79O7/+7T + uv/u0rr/7tK6/+7Suf/u0rn/7tK5/+7RuP/u0bj/7tG4/+3Ptf/MpoXH9MWam/7VsqLYx7etWUczTAAA + AAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVaSTVR3s28sfzWs6THoYHB8NO6//HVvf/x1b3/8da+//LW + vv/y1r7/8ta///LWv//y1r//8tfA//LXwP/y18D/8tfB//LYwf/y2MH/8tjC//LYwv/y2ML/8tnD//PZ + w//z2cP/89nE//PZxP/z2cT/89rE//PaxP/z2sX/89rF//Paxf/z2sX/89vG//Pbxv/z28b/89vG//Pb + x//z28f/89vH//Pcx//z3Mf/89zH//TcyP/03Mj/9NzI//TcyP/03Mj/9NzI//TcyP/03Mj/9NzI//Td + yf/03cn/9N3J//Tdyf/03cn/9N3J//Tdyf/03cn/9N3J//Tdyf/03cn/9N3J//TcyP/03Mj/9NzI//Tc + yP/03Mj/9NzI//TcyP/r0r3/RIpc/2rPtf9M07X/RNGv/0LQr/9C0K//QdCv/0PRr/9B0K//QtCv/0LQ + r/9B0K//Q9Gv/0PQr/9D0K//Q9Cv/0PQr/9I0rL/a9a9/y2BUP/ozrb/8tnD//LYwv/y2ML/8tjC//LY + wf/y2MH/8tfB//LXwP/y18D/8tfA//LWv//y1r//8ta///LWvv/y1r7/8da+//HVvf/x1b3/8dW8//HV + vP/x1Lz/79O6/82piMj0xZub/tWxod3Mu7BaSTVRAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABlpK + N1bj0sGy/NWyocikg8Lx1r7/9NjA//TZwf/02cH/9NnC//TZwv/02sL/9NrC//Taw//02sP/9NrE//Ta + xP/028T/9NvE//Xbxf/128X/9dvF//Xcxf/13Mb/9dzG//Xcxv/13Mf/9d3H//Xdx//13cj/9d3I//Xd + yP/13cj/9d3J//Xeyf/13sn/9d7J//Xeyf/13sn/9t7K//beyv/238r/9t/K//bfyv/238v/9t/L//bf + y//238v/9t/L//bfy//238v/9t/M//bfzP/24Mz/9t/M//bgzP/24Mz/9uDM//bgzP/24Mz/9uDM//bg + zP/24Mz/9uDM//bgzP/24Mz/9t/M//bfzP/238v/9t/L//bfy//238v/9t/L/+zVwP9GjF7/a9C2/0/V + t/9H0rL/R9Ky/0XSsf9F0rH/R9Ky/0bSsf9G0rH/RdKx/0fSsv9H0rL/SNKy/0fSsv9G0rH/RdKx/0vU + tP9t17//MYRS/+nQuf/13Mb/9dzF//Xcxf/128X/9dvF//TbxP/028T/9NrE//Taw//02sP/9NrD//Ta + wv/02sL/9NnC//TZwv/02cH/9NnB//TYwP/02MD/9NjA//TYv//y1r3/zaqLyPTHnpz+1bCf49HAsVpK + N1YAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGW0w5XOnXxrT81rKhyKSFwvLXv//02sL/9NrD//Ta + w//02sP/9NrE//TbxP/028T/9NvF//Tbxf/028X/9NvF//Xcxv/13Mb/9dzH//Xcx//13cf/9d3H//Xd + yP/13cj/9d3I//XdyP/13sn/9d7J//Xeyv/13sr/9d7K//Xeyv/138v/9d/L//Xfy//138v/9t/L//bf + y//238z/9t/M//bgzP/24Mz/9uDM//bgzf/24M3/9uDN//bgzf/24M3/9uDN//bgzf/24M7/9uDO//bg + zv/24M7/9uDO//bhzv/24M7/9uDO//bhzv/24M7/9uDO//bhzv/24c7/9uDO//bgzv/24M7/9uDN//bg + zf/24M3/9uDN//bgzf/24M3/7NbC/0mOYP9w0bj/Vte6/0zUtf9M1LX/TNS1/03Utf9K1LX/S9S1/0vU + tf9L1LX/S9S1/0zUtf9M1LX/StS1/0nUtP9M1LX/UdW3/3LYwf83h1b/6dG7//XdyP/13cf/9d3H//Xc + x//13Mf/9dzG//Tcxv/028X/9NvF//Tbxf/028X/9NvE//TaxP/02sT/9NrD//Taw//02sP/9NrC//TZ + wv/02cL/9NnB//LXv//NqozI9MihnP7UsZ7p1sWzW0w5XAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAdbTDph7drItvzVsp/IpYfC8tjB//Taw//02sT/9NrE//TaxP/028X/9NvF//Tbxf/028b/9NvG//Tc + x//13Mf/9dzH//Xcx//13Mj/9d3I//XdyP/13cn/9d3J//Xdyf/13cn/9d7K//Xeyv/13sr/9d7L//Xe + y//138v/9d/M//XfzP/138z/9t/M//bfzP/238z/9t/M//bgzf/24M3/9uDN//bgzf/24M7/9uDO//bg + zv/24M7/9uDO//bhzv/24c7/9uHO//bhz//24c//9uHP//bhz//24c//9uHP//bhz//24c//9uHP//bh + z//24c//9uHP//bhz//24c//9uHP//bhz//24c//9uHP//bhzv/24M7/9uDO//bgzv/s1sP/TpFj/3PS + uP9Z2Lr/UNW2/1DVtv9R1bf/UdW3/1DVtv9R1bf/UNW2/07Vtv9P1bb/UdW2/1HVtv9Q1bb/UNW2/1DV + tv9U1rj/dNnC/zqJWP/q0rz/9d3J//Xdyf/13cj/9d3I//XcyP/13Mf/9dzH//Xcx//03Mf/9NvG//Tb + xv/028X/9NvF//Tbxf/02sT/9NrE//TaxP/02sP/9NrD//TZw//02cL/8tfA/82sjsj0yaOd/tSwnOzZ + xrVbTDphAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1xOPWbz3sy3/NWznsmoisLy2cL/9dvF//Xc + xv/13Mb/9dzG//Xcx//13Mf/9d3H//XdyP/13cj/9d3I//Xdyf/13sn/9d7J//Xeyf/23sr/9t/K//bf + yv/238v/9t/L//bfy//238z/9t/M//bgzP/24Mz/9uDN//bgzf/24M3/9uDN//bhzv/24c7/9uHO//bh + zv/24c//9uHP//bhz//24s//9uLP//fiz//34s//9+LQ//fi0P/34tD/9+LQ//fi0P/34tD/9+LQ//fi + 0P/34tH/9+LR//fj0f/349H/9+PR//fj0f/349H/9+LR//fj0f/349H/9+LR//fi0f/34tH/9+LQ//fi + 0P/34tD/9+LQ//fi0P/34tD/9+LQ/+7Zxf9Sk2b/d9S7/1/Zvf9T1rn/VNa5/1TWuf9V1rn/Vda5/1TW + uf9U1rn/VNa5/1XWuf9W1rn/VNa5/1TWuf9V1rn/V9a5/1vXu/9328P/PIpZ/+vUvv/238v/9t/K//bf + yv/23sr/9d7J//Xeyf/13sn/9d3J//XdyP/13cj/9d3I//Xdx//13Mf/9dzH//Xcxv/13Mb/9dzG//Xc + xf/128X/9dvF//Xbxf/y2ML/zq2QyfTKpZ3+1bGb8t3LtlxOPWYAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAIXE4/bPjjz7j81bOdyaiLwvPaxP/13Mf/9d3H//Xdx//13cf/9d3I//XeyP/13sj/9d7J//Xe + yf/13sn/9d7K//Xfyv/138r/9t/L//bfy//238v/9uDM//bgzP/24Mz/9uDM//bgzf/24M3/9uHN//bh + zv/24c7/9uHO//bhzv/24c7/9uHP//biz//24s//9uLP//bi0P/24tD/9uLQ//fi0P/349D/9+PR//fj + 0f/349H/9+PR//fj0f/349H/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj + 0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PR//fj0f/349H/7trG/1aW + aP961Lv/Ytq//1nYuv9a2Lr/W9i7/1vYu/9b2Lr/Wdi6/1nYuv9Z17r/Wde6/1rYuv9Z17r/Wde6/1rY + uv9b2Lr/YNi8/3zbxP9Cjl3/7NXA//bgzP/24Mz/9t/L//bfy//238v/9d/K//Xfyv/13sr/9d7J//Xe + yf/13sn/9d7J//XeyP/13cj/9d3H//Xdx//13cf/9dzH//Xcxv/13Mb/9dzG//PZxP/PrpLJ9cunnv7V + sZr24M23XE4/agAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhcT0Bw++XSuPzVs5vJqY3D79bB//DY + xP/w2MT/8NjE//DZxf/x2cX/8dnF//HZxf/x2sb/8drG//Hax//x2sf/8dvI//HbyP/x28j/8dvI//Hb + yf/y3Mn/8tzJ//Lcyv/y3Mr/8tzK//Lcy//y3cv/8t3L//Ldy//y3cz/8t7M//LezP/y3s3/8t7N//Pe + zf/z3s7/897O//Pfzv/z387/89/O//Pfzv/z387/89/P//Pfz//z38//8+DP//Pgz//z4M//8+DP//Pg + 0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg + 0P/z4ND/8+DP//Pgz//z4M//89/P//Pfz//r18X/Wpds/3/Vvf9p28D/Yti8/1/YvP9h2Lz/X9i8/17Y + vP9g2Lz/YNi8/2DYvP9e2Lv/X9i7/2LYvP9g2Lv/YNi7/2DYu/9k2L3/hd7J/z+NXf/n0b3/8tzJ//Lc + yf/x28n/8dvI//HbyP/x28j/8drH//Hax//x2sf/8drG//Haxv/x2cX/8dnF//HZxf/w2cX/8NjE//DY + xP/w2MT/8NjD//DXw//w18L/7tbA/86vlMn1zaqe/tSxmfvl0LdcT0BwAAAACAAAAAAAAAAAAAAAAAAA + AAAAAAAAFxQRDGVYSnb+59O4/NWzm8qrkMPy2sX/89zI//PcyP/z3Mj/9N3J//Tdyf/03cn/9N3K//Td + yv/03sv/9N7L//Tey//03sv/9N/M//TfzP/038z/9N/N//Tfzf/0383/9eDO//Xgzv/14M7/9eDP//Xg + z//14c//9eHP//Xh0P/14dD/9eHQ//Xh0P/14tH/9eLR//Xi0f/14tH/9eLR//Xi0v/14tL/9eLS//bj + 0v/249L/9uPS//bj0v/249P/9uPT//bj0//249P/9uPT//bj0//249P/9uPT//bj0//249T/9uPU//bj + 1P/249P/9uPU//bj0//249T/9uPT//bj0//249P/9uPT//bj0//249P/9uPT//bj0//249P/9uPS/+7a + yP9knXP/g9a//3Dcw/9q2r//adq//2nav/9o2r//adq//2nav/9n2r//Z9q//2zav/9o2r7/Z9q+/2ja + vv9o2r7/Z9q+/2vav/+K38r/RpFh/+vVwv/0383/9N/N//Tfzf/038z/9N/M//TfzP/03sv/9N7L//Te + y//03sv/9N3K//Tdyv/03cr/9N3J//Tdyf/z3Mj/89zI//PcyP/z3Mj/89zH//Pbx//x2sT/z7KXyfXO + rJ/+1rKY/ufRtmFURnUJCAcKAAAAAAAAAAAAAAAAAAAAAAAAAAArJiARdGlcfP7n07f81rWcyqyRw/Pd + yf/238r/9t/L//bfy//238z/9t/M//bgzP/24Mz/9uDN//bgzf/24M3/9uHO//bhzv/24c7/9uHO//bh + z//34s//9+LQ//fi0P/34tD/9+LQ//fj0f/349H/9+PR//fj0v/349L/9+PS//fj0v/349L/9+TT//fk + 0//35NP/9+TU//fk1P/35NT/9+TU//fl1P/35dT/+OXV//jl1f/45dX/+OXV//jl1f/45dX/+OXV//jl + 1f/45dX/+OXW//jl1v/45tb/+OXW//jm1v/45tb/+ObW//jm1v/45tb/+ObW//jm1v/45tb/+ObW//jl + 1v/45db/+OXW//jl1f/45dX/+OXV//jl1f/45dX/8N3M/2yhef+M2MH/eN3F/3Hbwv9y28L/cNvC/3Db + wv9y28L/ctvC/3Hbwv9w28L/ctvC/3Hbwf9v28H/ctvC/3Lbwv9w28H/ctvB/4/gzP9Rl2n/7dfE//fi + 0P/34tD/9+LP//fhz//24c//9uHO//bhzv/24c7/9uDN//bgzf/24M3/9uDM//bgzP/238z/9t/M//bf + y//238v/9t/K//beyv/23sr/9t7K//PcyP/QspjK9dCun/7Xs5n+5tK1c2hbfCsmIBEAAAAAAAAAAAAA + AAAAAAAAAAAAATcxKRmFe26D/ufTtvzYuJ3KrZPE9N7K//bfzP/24M3/9uDN//bgzf/24M7/9uDO//bh + zv/24c//9uHP//bhz//24c//9uLQ//bi0P/34tD/9+LR//fi0f/349H/9+PR//fj0v/349L/9+PS//fk + 0//35NP/9+TT//fk1P/35NT/9+TU//fk1P/35dX/9+XV//fl1f/35dX/9+XV//fl1v/35db/+OXW//jm + 1v/45tb/+ObW//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+OfY//jn + 2P/459j/+OfY//jn2P/459j/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm + 1//w3s7/dKZ+/5PaxP+A3sj/fN3F/3rcxf953MX/fN3F/3vdxf963MX/e93F/37dxf973MX/edzE/3vc + xf973MT/e9zE/3ncxP983cX/l+HO/1uccP/u2sf/9+PS//fj0f/34tH/9+LR//fi0P/24tD/9uLQ//bh + z//24c//9uHP//bhz//24c7/9uDO//bgzv/24M3/9uDN//bgzf/238z/9t/M//bfy//238v/9N3K/9Cz + msr10LGf/te1mf7m0bSEem2COTMqGAAAAAEAAAAAAAAAAAAAAAAAAAABPDYuHo+Geof+59O0/Ni6ncuv + lsT03sz/9uDN//bhzv/24c7/9uHO//bhz//24s//9uLP//bi0P/24tD/9uLQ//bi0f/249H/9+PR//fj + 0f/349L/9+PS//fk0v/35NP/9+TT//fk0//35NP/9+TU//fk1P/35dT/9+XV//fl1f/35dX/9+XV//fl + 1f/35tb/9+bW//fm1v/35tb/+ObX//jm1//45tf/+ObX//jn1//459f/+OfX//jn2P/459j/+OfY//jn + 2P/459j/+OfY//jn2P/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn + 2f/459n/+OfZ//jn2P/459j/+OfY//jn2P/459j/+OfY//Dfz/99q4X/mtvG/4ngyv+F3sf/hd7H/4Xe + x/+F3sf/g97H/4Tex/+G3sf/gt7G/4Tex/+E3sf/ht7H/4Pexv+E3sb/hN3G/4Tex/+d4s//aqN5/+7b + yP/35NP/9+TS//fj0v/349L/9+PR//fj0f/249H/9uLR//bi0P/24tD/9uLQ//biz//24s//9uHP//bh + zv/24c7/9uHO//bgzf/24M3/9uDN//bgzP/03cr/0LSbyvXRsqD+2bia/ubRs4+Geoc+ODAdAAAAAQAA + AAAAAAAAAAAAAAAAAAJCOzMlnpSKjv7m0rP82ryey6+XxPTfzf/24c7/9uHP//bhz//24c//9uLQ//bi + 0P/24tD/9uLR//bi0f/24tH/9uPS//fj0v/349L/9+PT//fj0//35NP/9+TT//fk1P/35NT/9+TU//fk + 1f/35dX/9+XV//fl1f/35db/9+XW//fl1v/35tb/9+bX//fm1//45tf/+ObX//jm1//45tj/+OfY//jn + 2P/459j/+OfY//jn2P/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+Oja//jo2v/46Nr/+Oja//jo + 2v/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/+Oja//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn + 2f/459n/8eDR/4Ouif+k3sv/k+HM/47gyv+N38r/jt/K/47fyv+O38r/jt/K/5Dfyv+O38r/kN/J/47f + yf+O38n/j9/J/4vfyf+O38n/kODK/6bj0f9yp3//79vK//fk1P/35NP/9+TT//fj0//349L/9+PS//fj + 0v/249L/9uLR//bi0f/24tH/9uLQ//bi0P/24dD/9uHP//bhz//24c//9uHO//bgzv/24M7/9uDO//Te + y//QtZ3K9dKzoP7ZuZr+5dCxnZOJjkI7MyUAAAACAAAAAAAAAAAAAAAAAAAAAkU/NyyqoZiV/ufSsvzb + vZ7MsZnF9ODO//fi0P/34tD/9+PR//fj0f/349H/9+PS//fj0v/35NL/9+TT//fk0//35NP/9+TT//fk + 1P/35dT/9+XU//fl1f/45dX/+ObV//jm1v/45tb/+ObW//jm1//45tf/+OfX//jn1//459j/+OfY//jn + 2P/459j/+OfZ//jo2f/46Nn/+OjZ//jo2f/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/+enb//np + 2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np + 2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//jo2v/y4dL/jbSR/63hzv+c4s7/mOHN/5rh + zf+Z4cz/mOHM/5jhzP+Z4cz/muHM/5nhzP+a4cz/muHM/5rhzP+Z4cv/muHM/5jgy/+X4Mv/rubU/3ut + hv/w3s3/+ObV//jl1f/45dX/9+XU//fl1P/35NT/9+TT//fk0//35NP/9+TT//fk0v/349L/9+PS//fj + 0v/349H/9+PR//fj0f/34tD/9+LQ//fi0P/34s//9N/N/9G2n8v11Lah/tu8mv7m0K+qoZiVRT83LAAA + AAIAAAAAAAAAAAAAAAAAAAADR0I6MLKqoZr+59Gw/Ny/nsyym8Xw28r/8t7N//Lezf/y3s3/8t/O//Pf + zv/z387/89/P//Pfz//z4M//8+DQ//Pg0P/z4ND/8+HR//Ph0f/z4dL/9OHS//Th0v/04tL/9OLT//Ti + 0//04tP/9OPU//Tj1P/049T/9OPU//Tj1f/049X/9OTV//Tk1f/15Nb/9eTW//Xk1v/15Nf/9eTX//Xl + 1//15df/9eXX//Xl1//15dj/9eXY//Xl2P/15dj/9eXY//Xm2P/15tj/9ebZ//Xm2f/15tn/9ebZ//Xm + 2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tj/9eXY//Xl + 2P/15dj/9eXY//Df0f+VuJf/tODO/6jiz/+j4c7/pOHO/6Hhzf+i4c7/ouHN/6Lhzf+j4c3/ouHN/6Hg + zP+j4M3/o+DN/6PgzP+j4Mz/o+DM/6PgzP+15NT/hrGN/+3by//04tL/9OHS//Ph0v/z4dH/8+HR//Ph + 0f/z4ND/8+DQ//Pg0P/z4M//89/P//Pfz//z387/89/O//Lfzv/y3s3/8t7N//Lezf/y3sz/8t7M//Ld + zP/w28n/0Legy/XVuKH+3L2b/ubQrrGpoJlHQjowAAAAAwAAAAAAAAAAAAAAAAAAAANKRD03vbWtoP7n + 0a/93cGfzLKcxfPfzv/14dD/9eHQ//Xi0f/14tH/9eLR//Xi0v/14tL/9ePS//Xj0//149P/9ePT//Xj + 1P/15NT/9uTU//bk1f/25NX/9uTV//bk1f/25db/9uXW//bl1v/25db/9uXX//bm1//25tf/9ubX//bm + 2P/25tj/9ubY//bn2f/359n/9+fZ//fn2f/359r/9+fa//fn2v/359r/9+ja//fo2v/36Nr/9+jb//fo + 2//36Nv/9+jb//fo2//36Nv/9+jb//fo2//36Nv/9+nc//fo2//36Nv/9+nc//fp3P/36dz/9+nc//fo + 2//36dz/9+jb//fo2//36Nv/9+jb//fo2//36Nv/9+jb//fo2//36Nv/8uPU/6G/n/+949H/suXS/67j + 0f+v49H/rePQ/7Dj0f+t49D/r+PQ/63j0P+v49D/reLQ/6/j0P+v49D/r+PP/63iz/+v48//r+LP/77m + 1v+UuZb/797O//bk1f/25NX/9uTV//bk1f/15NT/9eTU//Xj1P/149P/9ePT//Xj0//149L/9eLS//Xi + 0v/14tH/9eLR//Xi0f/14dD/9eHQ//Th0P/04c//9ODP//Pfzf/RuKLL9da5of7dv5v+5s+tvLOroEpE + PTcAAAADAAAAAAAAAAAAAAAAAAAABEpFPzzEvLSm/ubRrv3ew5/MtJ7F9eLR//fk0//35NT/9+XU//fl + 1P/35dT/9+XV//fl1f/35tX/9+bW//fm1v/35tb/9+bX//jn1//459f/+OfX//jn2P/459j/+OfY//jo + 2f/46Nn/+OjZ//jo2v/46Nr/+Oja//jp2v/46dr/+Onb//jp2//46dv/+Onb//jq3P/46tz/+Orc//nq + 3P/56t3/+erd//nq3f/56t3/+erd//nq3f/56t3/+evd//nr3f/5697/+eve//nr3v/5697/+eve//nr + 3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr + 3v/5697/+evd//nr3f/15tj/rcWp/8Xl1f+859X/uubV/7jm1f+45tT/uebU/7jm1P+45dT/uOXT/7rl + 1P+45dP/uOXT/7nl0/+55dP/ueXT/7jl0/+45dP/x+jY/6LBof/w4dD/+OfY//jn2P/459j/+OfX//jn + 1//35tf/9+bX//fm1v/35tb/9+bW//fm1f/35dX/9+XV//fl1P/35dT/9+XU//fk1P/35NP/9+TT//fk + 0v/35NL/9eHQ/9G5o8v117ui/t7BnP7m0KzDu7OlSkU/PAAAAAQAAAAAAAAAAAAAAAAAAAAETEdCQs3G + vqz+59Kt/d/EoM21n8b149L/+OXV//jl1f/45dX/+ObW//jm1v/45tb/+ObX//jm1//459f/+OfY//jn + 2P/459j/+OfZ//jo2f/46Nn/+OjZ//jo2v/46Nr/+eja//np2//56dv/+enb//np2//56dz/+enc//nq + 3P/56tz/+erd//nq3f/56t3/+erd//nq3f/5697/+eve//nr3v/5697/+eve//nr3//569//+evf//nr + 3//569//+evf//ns3//57N//+ezf//ns3//67OD/+uzg//rs4P/67OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//rs4P/57N//+ezf//ns3//57N//+ezf//nr3//569//+evf//bn2/+3y7H/zebY/8Xo + 2P/D59f/wefX/8Pn1//D59f/xOfW/8Xn1v/D59b/w+fW/8Pn1f/C59X/w+fV/8Tm1v/D5tX/xObV/8Pm + 1f/P6dr/ssmt//Dh0f/359n/+Oja//jo2f/46Nn/+OjZ//jn2f/459j/+OfY//jn1//459f/+ObX//jm + 1//45tb/+ObW//jm1v/45dX/+OXV//jl1f/45dX/9+XU//fl1P/14tH/0rqlzPXYvaL+3sKc/ubQqszF + vatMR0JCAAAABAAAAAAAAAAAAAAAAAAAAAVNSERI1MzErv7n0av938agzbWhxvXj0//45db/+OXW//jm + 1v/45tf/+ObX//jm1//45tj/+OfY//jn2P/459n/+OfZ//jn2f/459n/+Oja//jo2v/46Nr/+Ojb//no + 2//56dv/+enb//np3P/56dz/+enc//np3f/56t3/+erd//nq3f/56t3/+ere//nq3v/56t7/+eve//nr + 3v/569//+evf//nr3//569//+evg//nr4P/57OD/+ezg//ns4P/57OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//rs4P/67OH/+uzg//rs4f/67OH/+uzh//rs4P/67OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//ns4P/57OD/9ujc/8PRuv/V59n/zOja/83o2f/N6Nn/zOjZ/8zo2f/M6Nn/zufZ/8zn + 2f/N59n/zefZ/83n2P/O59j/zefY/87n2P/N59f/zOfX/9bp2/++z7b/8OLS//jn2v/46Nv/+Oja//jo + 2v/46Nr/+OjZ//jn2f/459n/+OfZ//jn2P/459j/+ObY//jm1//45tf/+ObX//jm1v/45db/+OXW//jl + 1f/45dX/9+XV//Xj0v/Su6fM9dm+o/7fxJ3+5s+p0srDrU1IREgAAAAFAAAAAAAAAAAAAAAAAAAABU5K + Rk3b0smz/ufRqvnexaPQuqbJ9uTV//jm1//45tf/+ObX//jn2P/459j/+OfY//jn2f/46Nn/+OjZ//jo + 2f/46Nr/+Oja//jo2v/46Nv/+Onb//jp2//56dz/+enc//np3P/56tz/+erc//nq3f/56t3/+erd//nq + 3v/56t7/+eve//nr3v/569//+evf//nr3//569//+ezg//ns4P/57OD/+ezg//ns4P/57OD/+ezh//rs + 4f/67OH/+uzh//rs4f/67OH/+u3h//rt4f/67eH/+u3h//rt4f/67eH/+u3h//rt4v/67eL/+u3i//rt + 4v/67eH/+u3i//rt4v/67eH/+u3h//rt4f/67eH/+u3h//rs4f/67OH/+uzh//rs4f/26d3/z9fC/9zp + 2//W6tz/1erb/9Xq2//U6tv/1Orb/9Tp2//W6dv/1unb/9Xp2//U6dr/1Ona/9To2v/U6Nr/1OjZ/9To + 2f/V6Nn/3erc/8zXwP/v49P/+Ojb//np3P/46dv/+Onb//jo2//46Nr/+Oja//jo2v/46Nn/+OjZ//jn + 2f/459j/+OfY//jn2P/459j/+ObX//jm1//45tf/+ObW//jm1v/45tb/9uTU/9K8p8z22cCj/uDGnf7m + 0Kja0ciyTkpGTQAAAAUAAAAAAAAAAAAAAAAAAAAFTktGU9/WzrT+59Gq+d/Go9G8qMr25dX/+OfY//jn + 2P/459j/+OjZ//jo2f/46Nn/+Oja//jo2v/46Nr/+Ona//jp2//46dv/+Onb//jp3P/46tz/+erc//nq + 3P/56t3/+erd//nq3f/5697/+eve//nr3v/5697/+eve//nr3//569//+ezf//ns3//57OD/+ezg//ns + 4P/57OD/+ezh//ns4f/57eH/+e3h//rt4f/67eH/+u3i//rt4v/67eL/+u3i//rt4v/67eL/+u3i//rt + 4v/67eL/+u7i//rt4v/67uL/+u7i//ru4v/67uL/+u7j//ru4v/67uL/+u7i//ru4v/67eL/+u3i//rt + 4v/67eL/+u3i//rt4v/67eL/+u3i//jr3//W28j/4urd/93r3v/c693/3Ord/9zq3f/b6tz/3erd/93q + 3f/d6t3/2+rc/9zq3P/b6dz/3Onc/9zp2//b6dv/3Onb/93p2//i693/1dvH//Dk1f/46dz/+erc//nq + 3P/46tz/+Onc//jp2//46dv/+Onb//jp2v/46Nr/+Oja//jo2v/46Nn/+OjZ//jn2P/459j/+OfY//jn + 2P/459f/+OfX//jm1//25NT/072pzPbawqT+4ced/ubPp9/VzLNOS0ZTAAAABQAAAAAAAAAAAAAAAAAA + AAZPTUlZ5tzTt/7m0aj538ej0Luoy/Lh0v/049T/9OPU//Tj1f/049X/9OTW//Xk1v/15Nb/9eTX//Xl + 1//15df/9eXY//Xl2P/15dj/9ebZ//Xm2f/15tn/9eba//bm2v/259r/9ufa//bn2//259v/9ufb//bo + 3P/26Nz/9ujc//bo3f/26N3/9und//bp3f/26d3/9+ne//fp3v/36d7/9+ne//fp3v/36t//9+rf//fq + 3//36t//9+rf//fq3//36uD/9+rg//fq4P/36uD/9+vg//fr4P/36+D/9+vg//fr4P/36+D/9+vg//fr + 4P/36+D/9+vg//fr4P/36+D/9+vg//fr4P/36+D/9+vg//fq4P/36uD/9+rg//fq4P/36t//9und/9vd + zP/m6d3/4und/+Hp3f/h6Nz/4ujc/+Do3P/g6Nv/4ejb/+Do2//g6Nv/4efb/+Dn2v/f59r/4Ofa/+Hn + 2v/h5tn/4ebZ/+Xn2//b3Mr/7+LU//Xl2f/15tr/9ebZ//Xm2f/15tn/9eXY//Xl2P/15dj/9eXX//Xl + 1//15Nf/9eTW//Xk1v/05Nb/9OPV//Tj1f/049T/9OPU//Ti1P/04tT/9OLT//Lg0f/TvKrM9trCpP7h + yJ3+5c+m5dvRtk9NSVkAAAAGAAAAAAAAAAAAAAAAAAAABk9NS13q4Na6/ufSqPnfyaTQvKnL9eTW//bm + 1//25tj/9ubY//fm2P/359n/9+fZ//fn2f/359r/9+fa//fo2v/36Nv/9+jb//fo2//36Nv/9+nc//fp + 3P/36dz/+Ond//jp3f/46d3/+Ore//jq3v/46t7/+Ore//jq3//469//+Ovf//jr3//46+D/+Ovg//jr + 4P/46+D/+Ozg//js4f/47OH/+Ozh//js4f/57OH/+ezh//ns4v/57OL/+ezi//nt4v/57eL/+e3i//nt + 4v/57eL/+e3j//nt4//57eP/+e3j//nt4//57eP/+e3j//nt4//57eP/+e3j//nt4//57eL/+e3i//nt + 4v/57eL/+e3i//nt4v/57eL/+ezi//ns4v/46+D/4+HR/+vr4P/p69//5+vf/+jr3//m69//5+ve/+fr + 3v/o6t7/5+re/+fq3v/o6t3/6Ord/+jq3f/m6d3/5unc/+jp3P/o6dz/6+rd/+Ti0v/x5dj/9+jc//fp + 3P/36dz/9+jc//fo2//36Nv/9+jb//fo2//36Nr/9+fa//fn2f/359n/9+fZ//fn2f/35tj/9ubY//bm + 2P/25tf/9ubX//bl1//25db/9ePV/9O+q83228Ok/uLJnv7lz6Xq39W4T01LXQAAAAYAAAAAAAAAAAAA + AAAAAAAGTk1LW+ng17v+6NSq+eDKpNK9q8r25tj/+eja//no2//56Nv/+enb//np3P/56dz/+enc//np + 3P/56t3/+erd//nq3f/56t7/+ere//nq3v/5697/+evf//nr3//569//+evg//rs4P/67OD/+uzg//rs + 4f/67OH/+uzh//rs4f/67eL/+u3i//rt4v/67eL/+u3j//rt4//67eP/+u3j//ru4//67uP/+u7k//ru + 5P/67uT/+u7k//ru5P/67uT/+u7k//ru5P/67uX/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//rv + 5f/67+X/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//ru5f/67+X/+u7k//ru5P/67uT/+u7k//nt + 4//p5tj/8O3j/+7t4//u7eL/7u3i/+7t4v/u7OL/7uzi/+7s4v/u7OH/7uzh/+7s4f/u7OH/7+vg/+3r + 4P/u6+D/7uvg/+7r3//x7OD/6+bY//Pn2//46t7/+evf//nr3//5697/+ere//nq3v/56t7/+erd//nq + 3f/56t3/+enc//np3P/56dz/+enc//np2//56Nv/+ejb//no2v/46Nr/+Oja//jn2f/25tf/07+szfbc + xaX+48uf/ufSp+jf1bpOTUtbAAAABgAAAAAAAAAAAAAAAAAAAAVHRkRD19LNuv7s27P54Mum0r6sy/fn + 2f/56dv/+enc//np3P/56dz/+erc//nq3f/56t3/+erd//nq3v/56t7/+eve//nr3v/569//+evf//nr + 3//57OD/+ezg//ns4P/67OH/+uzh//rs4f/67eH/+u3i//rt4v/67eL/+u3i//rt4//67eP/+u7j//ru + 4//67uP/+u7k//ru5P/67uT/+u7k//ru5P/67+X/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//rv + 5f/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv + 5v/67+b/+u/m//rv5v/67+X/+u/l//rv5f/67+X/+e7k/+/q3f/z7+T/8O7k//Lu4//x7uP/8e7j//Pu + 4//x7eP/8e7i//Hu4v/x7uL/8u3i//Ht4v/x7eH/8u3h//Lt4f/x7eH/8e3g//Ps4f/x6dz/9une//ns + 4P/57OD/+ezg//nr3//569//+evf//nr3//5697/+ere//nq3v/56t3/+erd//nq3f/56tz/+enc//np + 3P/56dz/+enb//np2//46dv/+Oja//fn2P/TwK3N9t3Gpf7jzaD+69qxy8bAq0dGREMAAAAFAAAAAAAA + AAAAAAAAAAAABB8fHhi1srCo+vXx8Pvt4MfUwbHN9+fa//np3P/56dz/+enc//np3P/56t3/+erd//nq + 3f/56t7/+ere//nr3v/5697/+evf//nr3//569//+ezg//ns4P/57OD/+uzh//rs4f/67OH/+u3h//rt + 4f/67eL/+u3i//rt4v/67eP/+u3j//ru4//67uP/+u7k//ru5P/67uT/+u7k//ru5P/67uT/+u/l//rv + 5f/67+X/+u/l//rv5f/67+X/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//vw5v/78Ob/+/Dm//vw + 5v/78Ob/+/Dm//vw5v/78Ob/+/Dm//vw5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv + 5f/57uT/8uvf//Xv5f/07+T/9O/k//Pu4//07uP/9O7j//Tu4//z7uP/9O7i//Tu4v/07uL/9O3i//Tt + 4v/07eH/9O3h//Tt4f/07eD/9e3h//Pq3v/36t7/+ezg//ns4P/57OD/+ezg//nr3//569//+evf//nr + 3v/5697/+ere//nq3v/56t3/+erd//nq3f/56dz/+enc//np3P/56dz/+enb//np2//46Nv/9+fZ/9TB + r8735NK0/fHmzfbt5cxta2l8Hx8eGAAAAAQAAAAAAAAAAAAAAAAAAAACAAAACkFBQEOdm5mX9fHt7vz4 + 9f/8+PX//Pj2//z49v/8+fb//Pn2//z59v/8+fb//Pn2//z59//9+ff//fn3//369//9+vf//fr4//36 + +P/9+vj//fr4//36+f/9+/n//fv5//37+f/9+/n//fv6//37+v/+/Pr//vz6//78+//+/Pv//vz7//78 + +//+/fv//v38//79/P/+/fz//v38//79/f/+/f3//v79//7+/f/+/v3///79///+/v///v7///7+///+ + /v///v7////+/////v////////////////////////////////////////////////////////////// + //////////////////////////////////////7////+//79/f/5+/r//P79//v9/f/7/f3/+/38//r9 + /P/6/fz/+vz8//r8/P/6/Pv/+vz7//r8+//6/Pv/+vz7//n7+v/5+/r/+fv6//r8+v/7/Pn/+vr4//r5 + +P/9+/r//fv6//37+f/9+/n//fv5//37+f/9+vj//fr4//36+P/9+vj//fr4//369//9+ff//fn3//35 + 9//8+ff//Pn2//z59v/8+fb//Pn2//z49v/8+Pb//Pj1//nz7uzj3dbBbGtpfEFBQEMAAAAKAAAAAgAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAADS4uLi5AQEBdMjIytpKSkv+VlZX/lZWV/5WVlf+Wlpb/lpaW/5aW + lv+Xl5f/l5eX/5eXl/+Xl5f/mJiY/5iYmP+ZmZn/mZmZ/5qamv+ampr/mpqa/5ubm/+bm5v/nJyc/5yc + nP+dnZ3/nZ2d/56env+enp7/n5+f/5+fn/+goKD/oKCg/6CgoP+hoaH/oaGh/6Kiov+ioqL/o6Oj/6Oj + o/+jo6T/pKSk/6SkpP+lpaX/paWl/6Wlpf+mpqb/pqam/6ampv+mpqf/p6en/6enp/+np6f/p6en/6io + qP+oqKj/qKio/6ioqP+oqKj/qKio/6ioqP+oqKj/qKio/6ioqP+oqKj/qKio/6enp/+np6f/p6en/6en + p/+mpqf/pqam/6SlpP+mp6f/pKam/6Smpv+kpqX/o6Wl/6Olpf+ipKT/oqSk/6KkpP+ho6P/oaOj/6Ci + ov+goqL/n6Gg/5+hof+eoKD/nqCg/52fn/+dn57/nJ2c/52dnf+cnJz/nJyc/5ycnP+bm5v/m5ub/5qa + mv+ampr/mZmZ/5mZmf+YmJj/mJiY/5iYmP+Xl5f/l5eX/5eXl/+Wlpb/lpaW/5aWlv+VlZX/lZWV/5KS + kv8+Pj6+SUlJdEVFRVcuLi4uAAAADQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFAAAACwAA + ABoZGRl9yMjI/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/ysvK/8vMzP/LzMz/y8zM/8vM + zP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vM + y//Ly8v/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/Ly8v/xsbG/yYmJoMAAAAjAAAAEgAAAAsAAAAFAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAADRkZGXLc3Nz/4uLi/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//i4+L/4+Pj/+Lj4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj + 4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj4//j4+P/4uPj/+Lj4v/j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/9vb + 2//S0tL4BgYGbQAAAAoAAAAFAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAAXtra2vLl5eX/8PDw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx/+/w8P/x8fH/8fHx//Dx + 8f/w8fH/8PHx//Hx8f/w8fH/8PHx//Dx8f/w8fH/8PHx//Dx8f/w8fH/8PHx//Hx8f/w8fH/8PHx//Hx + 8f/x8fH/8PHw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx/+7u7v/m5ub/1tbW/5SUlK4AAAA5AAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA2d3d3mr+/v/LGxsb/09PT/+Li + 4v/u7u7/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/7u7u/+Li + 4v/U1NT/x8fH/8TExP/Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/wsPC/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Cw8L/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/7S0 + tOSHh4eqAAAAPgAAAAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAA2AAAAXiAgIHFWVlaKwsLC4uTk5P/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/j4+P/wsLC4llZWYwfHx9xAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYBAgJnAQICZwECAmcBAgJnAAAAZgAAAGYBAgJnAAAAZgAAAGYAAABmAAAAZgAA + AGYBAgJnAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAVQAAADAAAAAGAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAACgAA + AC1JSUl/4+Pj//Hx8f/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy/+Pj + 4/9AQEB8AAAALQAAAAsAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADBSERBAAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAIAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAGHZ2dn45eXl/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/l5eX/3Nzc+wAAAGQAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADAAAAYOHh4fbs7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/j4+P4AAAAYQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAABg5+fn9vPz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8vLy/+3t7f8AAABmAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAF7c3Nzy5OTk/+3t7f/x8fH/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8fHx/+7u + 7v/j4+P/2tra8gAAAF4AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAANnp6epyysrLftra26MTE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/u7u777Ozs+BqamqRAAAANgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAKAAAAFEAAABXAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABcAAAAUwAAACoAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAIAAAACAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAgAAAAIAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////////// + //////////////////////////////////////////////////////////////////////z///////// + //////////+AB//////////////////+AAH//////////////////AAA//////////////////gAAH// + ///////////////wAAA/////////////////4AAAH////////////////8AAAA////////////////+A + AAAH/////gAAAAAAAAAAAAAAAAAAf+AAAAAAAAAAAAAAAAAAAAfAAAAAAAAAAAAAAAAAAAADwAAAAAAA + AAAAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAA + AAAAAAAD+AAAAAAAAAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAA + AAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/gA + AAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAA + AA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAA + AAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAA + AAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AA + AAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAA + AAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAA + AAAAAAAH8AAAAAAAAAAAAAAAAAAAB+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAA + AAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AA + AAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAA + AAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAA + AAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAA + AAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAA + AAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAA + AAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAA + AAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAA + AAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAA + AAAAAAAAAAAAAAAAAAHgAAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAB/wAAAAAAAAAAAAAAAAA + AD/8AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAAf/8AAAAAAAAAAAAAAAAAAf//wAAAAAAAD/// + /////////+AAAAAAAB/////////////gAAAAAAAf////////////4AAAAAAAH////////////+AAAAAA + AB/////////////wAAAAAAA/////////////+AAAAAAAf/////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////ygAAAAwAAAAYAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAABAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAMAAAAEAAAABAAA + AAQAAAAEAAAAAwAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAwAAAAQAAAAFAAAABgAAAAcAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAA + AAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACQAA + AA0AAAASAAAAFQAAABUAAAASAAAADQAAAAkAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAHAAAABgAA + AAYAAAAEAAAAAwAAAAIAAAACAAAABwAAAAwAAAAPAAAAEgAAABMAAAAUAAAAFAAAABQAAAAUAAAAFAAA + ABQAAAAUAAAAFAAAABQAAAAUAAAAFQAAABUAAAAVAAAAFQAAABUAAAAVAAAAFQAAABUAAAAVAAAAFQAA + ABUAAAAWAAAAGwAAACQDAQAyEQgATwwFAEgAAAAxAAAAJAAAABkAAAAVAAAAFAAAABQAAAAUAAAAFAAA + ABQAAAATAAAAEgAAAA8AAAAMAAAACAAAAAUAAAAFAAAAEAAAABoAAAAhAAAAJgAAACoAAAArAAAAKwAA + ACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAA + ACwAAAAsAAAALAAAAC0AAAAwAAAAOwEAAE0QCwF+Cmg++x4/JcMIAQBpAAAATAAAADoAAAAvAAAALQAA + ACwAAAAsAAAALAAAACsAAAAqAAAAJgAAACEAAAAaAAAAEQAAAAkAAAAGAAAAGwAAACwAAAA4AAAAQAAA + AEUAAABIAAAASQAAAEoAAABKAAAASgAAAEoAAABKAAAASgAAAEoAAABKAAAASgAAAEoAAABKAAAASgAA + AEoAAABKAAAASgAAAEoAAABKAAAASgAAAE0AAABVAAAAZQ0DAIsKZT37F6xx/wpvQ/8cKRbDBgAAfQAA + AGMAAABTAAAASgAAAEkAAABJAAAASQAAAEgAAABGAAAAQQAAADkAAAAsAAAAHgAAAA4AAAAHAAAAJAAA + ADoAAABWEQkAdxwPAIQcDwCGGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsP + AIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGg8AihgNAI8VDACYFQkArgpkO/sXpWz/AJpU/wSh + XP8Kb0P/HCIO0xQJAKQWDACVGQ4AjBsPAIgbDwCIGw8AiBwPAIYcDwCEHRAAgAkFAFsAAAA8AAAAJgAA + ABIAAAAIAAAAJDIbAX5cPhnNgF426YtqQ+uLaUPri2pE64tqROuLakTri2pE64tqROuLakTri2pE64tq + ROuLakTri2pE64tqROuLakTrjGpF64xqReuMakXrjGpF64tqReuKaETrhGRB7HhbO+5kSi/xDmQ7/huk + bv8Anln/AJpX/wCZVv8IpWP/DG9E/0c/JPdvUzXvfmA+7YdnQuyKakTri2lD64tpQ+uLakPrjGpE6m1I + G9lGJwGTAAAAKQAAABMAAAAIAAAAHU0sA7HPtJr81quF/9Oke//To3r/06N6/9Okev/TpHv/06R7/9Ok + e//TpHv/06R7/9OlfP/UpX3/1KV9/9Slff/UpX3/1KZ9/9Smff/Upn3/1KZ9/9KkfP/Knnf/upJu/596 + XP8UZj3/HqJv/wKhXv8Am1r/AZxb/wGcW/8Am1j/C6ho/w5uRP90XkH/r4hm/8SYcf/PoHj/0qJ6/9Kj + ef/So3n/06R7/9y4mf2FYDfLRSYCPQAAABEAAAAINR0DH25GGcXdso3/zZFc/8yPWv/MkFv/zJBb/82R + XP/NkVz/zZFc/82SXf/Nkl3/zZJe/82SXv/Nkl7/zZNe/86TX//Ok1//zpNf/86TX//Ok1//zJJe/8iO + XP+6hVf/oXJK/xhkO/8kmmv/BKRk/wCdXP8Bnl3/AZ5d/wGeXf8Bnl3/AJ1b/w6rbf8SbUP/f1k1/7B8 + Tv/BiFb/yY5Z/8uOWv/Mj1n/zI9Z/9Wjdv+nhmTVYjcFUwAAAAsAAAAFVjEGI3tVK8Lkto//2Z5p/9qe + av/an2v/2p5r/9qea//an2z/2p9s/9qfbP/aoG3/2qBu/9qgbv/boG7/26Bu/9uhb//boW//26Fw/9ui + cP/aoXD/159u/8uWaP+1hVz/HWU8/ySUaP8GqWr/AJ9f/wGgYP8BoGD/AaBg/wGgYP8BoGD/AaBg/wCg + X/8RrnP/FGxC/5BnQv/Cjl//0Zhm/9ecaf/Znmn/2Z5p/9+rff+xkG/UaTwIWQAAAAUAAAACaDwJK4lm + PsXqvpf/5Kp4/+SqeP/kq3n/5Kt5/+Sref/kq3r/5ax7/+Wse//lrHv/5a18/+WtfP/lrXz/5a19/+Wt + ff/lrX3/5a59/+Stff/jrX3/3ah6/8qZb/8laD//KI9l/wqtcP8AoWH/AqJk/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8AomP/FLB3/xhrQv+le1T/1qBx/+Cndv/jqXj/5Kp3/+e0h/+5mHfTbkAKYAAA + AAMAAAABbkEMM5NxTMbmuZL/4Kd2/+Cndv/gp3f/4Kh4/+CoeP/gqXj/4Kl5/+Cpev/gqnr/4Kp6/+Gq + e//hqnv/4ap7/+GrfP/hq3z/4at8/+CqfP/eqXv/16N2/y9tQ/83hl7/DrF2/wCjZf8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AKVn/xiwfP8ha0L/vYti/9ykdP/fpnb/36Z1/+Kv + gv++nXvUckQNZgAAAAEAAAAAb0IPPZ5+XcrtwZr/6rOE/+q0hP/qtIX/6rSF/+q1hv/qtYf/6rWH/+q2 + h//rtoj/67aI/+u3if/rt4n/67eJ/+u3iv/rt4r/67eK/+u4iv/ruIr/PHZL/0KCWP8Ms3r/AKZn/wCm + af8Apmn/AKVo/wKmav8Cpmr/AqZq/wKmav8Cpmr/AqZq/wCnav8Ap2v/AKZo/wCpav8Vrnr/Mm9F/+Cs + ff/qs4T/6rOD/+u5jf/EooHTckQQbQAAAAAAAAAAbUMRR6eJa83luZP/4ax+/+Gsf//hrYD/4a2A/+Gu + gf/iroH/4q6C/+Kvg//ir4P/4q+E/+KvhP/isIX/4rCF/+Owhf/jsIX/47GG/+Oxhv/jsYb/aoVf/4bW + vv+B0rj/gNK3/3/Rtv9+0rf/dc+y/2TMqf8BqG3/Aqhu/wKobv8BqG3/XMml/3POsP95zrP/eM6x/3bN + sP91z7L/RbKN/0x3Tv/hrH7/4at+/+Kxhf/JpoXUc0cSdQAAAAAAAAAAb0UUUrGWeNDuw53/67mN/+u6 + jf/ruo7/67qP/+y7j//su5D/7LyR/+y8kf/svJL/7L2S/+y9kv/svZP/7L2T/+y9lP/svZT/7L6U/+y+ + lP/svpX/ToNZ/0iBV/9Lglj/TIJY/06DWv9Uglj/KXhO/2DOrP8BqnH/A6ty/wOrcv8CqnH/V8yn/y55 + T/9ril//Yopf/1+IXf9giF7/X4ld/3SPZP/ruY3/67mM/+y8kf/OqorUckgVfAAAAAAAAAAAbkYXW7ic + gdLuw57/7LyR/+y8kv/svZP/7b2U/+29lP/tvpX/7b6V/+2+lv/tv5f/7b+X/+2/mP/twJj/7cCY/+3A + mf/twJn/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/NHpQ/1fNqv8CrXX/A612/wOt + dv8CrXX/Tsql/zd7Uf/tvpX/7b6V/+29lP/svZP/7L2T/+y8kv/svJH/7LuR/+29k//TrYzTckkYgwAA + AAAAAAAAbUgbZb+kiNLmvJb/5LWN/+S2jv/kto7/5LeP/+S3kP/kuJD/5biR/+W5kv/luZL/5bmT/+W6 + lP/lupT/5bqU/+W7lf/mu5X/5ruV/+a7lv/mu5b/5ruW/+a7lv/mu5b/5ruW/+a7lv/mu5X/OnxT/03L + pv8Br3n/A696/wOvev8Crnn/Q8mi/zp9U//kuJH/5LiQ/+S3j//kt4//5LaO/+S2jf/jtYz/47SL/+O1 + jP/XspDSckociwAAAAAAAAAAbUkebsaojtPuxaH/7cKb/+7Cm//uwpz/7sOd/+7Dnv/uxJ7/7sSf/+7F + oP/uxaD/78Wh/+/Gov/vxqL/78ai/+/Go//vxqP/78ej/+/Ho//vx6T/78ek/+/HpP/vx6T/78ek/+/H + o//vx6P/QIFY/0XKpf8Csn3/BLJ+/wSyfv8Dsn3/Psmi/0SDWf/uxJ//7sSe/+7Dnv/uw53/7sKc/+7C + m//twpv/7cGa/+3Bmv/ZspDReVMpj2BAGwYAAAAAbUoid82wldLvx6X/78Wh/+/Fof/vxqL/78ai/+/H + o//vx6T/78il/+/Ipf/wyKb/8Mmn//DJp//wyaf/8Mqo//DKqP/wyqn/8Mqp//DKqv/wyqr/8Mqq//DK + qv/wyqr/8Mqq//DKqv/wyqn/RoRc/zvKo/8CtYH/BLWC/wS1gv8DtYH/NMmg/0mGXf/vyKX/78ek/+/H + o//vxqL/78ai/+/Fof/uxaD/7sSg/+7Env/XspHRhmVAlWREHxEAAAAAbEwlgNK0l9LnwJ3/5r+b/+a/ + nP/nwJ3/58Ce/+fBn//nwqD/58Kg/+jCof/ow6L/6MOj/+jEo//oxKT/6MSk/+jEpP/pxaX/6cWl/+nF + pv/pxab/6cWm/+nFpv/pxab/6cWm/+nFpv/pxaX/SoZe/zPKo/8CuIX/BLiG/wS4hv8DuIX/K8mf/02H + X//nwqD/58Gf/+fBn//nwJ7/58Cd/+a/nP/mv5v/5r6a/+a9mv/WsZHQkXRSmmJFIhoAAAAAa00qiNi5 + ndHwyqr/8Mqq//DLq//wy6z/8Myt//DMrf/wza7/8c2v//HOsP/xzrD/8c+x//HPsf/xz7L/8dCz//HQ + s//x0LP/8dCz//HQtP/y0bT/8tG0//LRtP/y0bT/8tG0//HQtP/x0LP/T4tk/yvKo/8Duon/BbqK/wW6 + iv8Euon/I8mf/1ONZf/xza//8M2u//DMrf/wzK3/8Mus//DLq//wyqr/8Mqq/+/JqP/Vs5LPm4Bknl1D + JCRbQycHdlw8j9i5ntHxza7/8c2u//HOsP/xz7D/8c+x//HQsv/x0LP/8tCz//LRtP/y0bX/8tK2//LS + tv/y0rb/8tO3//LTt//y07j/8tS4//PUuf/z1Ln/89S5//PUuf/z1Ln/89S5//LUuP/y1Lj/V49o/yXL + o/8DvY3/Bb2O/wW9jv8EvY3/Hcqh/1mSaf/y0LP/8dCz//HQsv/xz7H/8c+w//HOr//xza7/8c2u//DN + rf/Vs5XPp492pVxEJy9eRysUiHFVldi6n9Doxqn/6Meq/+jIq//oyKz/6cmt/+nJrv/pyq//6cqv/+rL + sP/qzLH/6syy/+rMsv/qzbP/6s2z/+vOtP/rzrX/6861/+vOtf/rzrX/6861/+vOtf/rzrX/6861/+vO + tf/rzrX/XZFr/x3MpP8Cv5D/BL+R/wS/kf8Dv5D/Fsui/1mSa//pyq//6cqv/+nJrf/pya3/6Mis/+jH + q//ox6r/6Map/+fGqP/Us5TOsJuEqF1GKzdcRy8flYBpmta5n8/y07f/8tO4//LUuf/y1Lr/8tW7//PV + u//z1bz/89a9//PXvv/z17//89e///PYwP/z2MD/9NjB//TZwf/02cL/9NnC//TZwv/02cL/9NrD//Ta + w//02cL/9NnC//TZwv/02cL/aJhz/yrRrP8axp3/Hcae/x3Gnv8cxp3/JdGs/2WZdP/z1r3/89W8//PV + u//y1bv/8tS6//LTuf/y07j/8tK3//LStv/UtJfNu6iVrltHLkFYRjEqopF9ota6oc7z1bz/89a9//PX + vv/z17//89jA//TYwf/02cH/9NnC//Taw//02sT/9NrE//Tbxf/028X/9dvG//Xcxv/13Mf/9dzH//Xc + x//13Mf/9d3I//XdyP/13cj/9dzH//Xcx//13Mf/dp98/03bvv9F0rL/R9Ky/0fSsv9G0rL/Sdu+/3Kg + fP/02cL/9NjB//TYwP/z2MD/89e///PWvv/z1r3/89W8//PVu//TtJnMwrKhs1lHMUtXRzM1rp+Op9W5 + oc3qz7f/6s+4/+vQuf/r0br/69K7/+zSvP/s073/7NO+/+zUvv/t1L//7dXA/+3Wwf/t1sH/7dbC/+3X + wv/u18P/7tfD/+7XxP/u18T/7tfE/+7YxP/u2MT/7tjE/+7Xw//u18P/e6KA/1Xfwv9R1bb/UdW2/1HV + tv9R1bb/U97B/3ehfv/s073/7NO9/+zSvP/r0bv/69G5/+vQuP/qz7j/6s+3/+rOtv/StJnNy7urtlhI + NFNWSDdBu62frtS6osz028T/9NvF//Tcxv/03Mf/9d3I//Xdyf/13sr/9d7K//Xfy//138z/9d/M//bg + zf/24M7/9uHO//bhz//24c//9uHP//bi0P/24tD/9uLQ//bi0P/24tD/9uLQ//bhz//24c//iqyM/2Ph + xv9h2b3/Ydm9/2HZvP9g2Lz/YuLH/4ari//13sr/9d7K//Xdyf/13cj/9NzH//Tcxv/028X/9NvE//Ta + xP/Stp3M0sS1uVhKOFtUSDlMxrqutNO6o8z13cj/9d7J//Xeyv/138v/9d/M//bgzP/24M3/9uHO//bh + z//24tD/9uLQ//bj0f/349H/9+PS//fk0v/35NP/9+TT//fk0//35NT/9+XU//fk1P/35NT/9+TU//fk + 0//35NP/mbSX/3njy/943MP/edzD/3jcw/933ML/d+PM/5W0lv/24c7/9uDN//bgzP/138z/9d/L//Xe + yv/13sn/9d3I//Xdx//Stp3K2su9uVdKO2RTSD1Wz8S4uNO6pMvt1sL/7dfD/+3YxP/t2MX/7tnG/+7a + x//u2sj/79vJ/+/byv/v3Mv/79zM//DdzP/w3s3/8N7O//Dezv/w38//8N/P//Hfz//x39D/8d/Q//Hf + 0P/x39D/8d/Q//Hfz//w38//qLuh/5Hizv+Q3Mf/kNzH/5Hcxv+Q28b/j+LN/6O5nv/v28n/7trI/+7a + x//u2cb/7djF/+3YxP/t18P/7NbC/+zVwf/Qtp7L4tPEuldMP2xTS0Ff2MzCudK6psr24c//9uLQ//bi + 0f/249L/9+PT//fk1P/35dT/9+XV//fl1v/35tb/9+bX//jn2P/459j/+OfZ//jo2f/46Nr/+Oja//jo + 2v/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/wMy1/7Do1f+w49D/sOPQ/7Djz/+x48//sOfU/7zK + s//35dX/9+XU//fk0//249L/9uPS//bi0f/24tD/9uHP//bhzv/Qt6HK6NnLvFZOQ3NTTERp4dXKvNK7 + p8v349P/9+TU//fk1P/35dX/9+XW//jm1//45tj/+OfZ//jn2f/46Nr/+Oja//jp2//46dz/+enc//np + 3f/56t3/+erd//nq3f/56t7/+ere//nq3v/56t7/+ere//nq3f/56t3/1dfE/8vp2//K5tf/y+fX/8rm + 1v/K5tb/y+jZ/9DXw//459j/+ObY//jm1//35db/9+XV//fk1P/35NT/9+PT//fj0v/QuKPJ7t7RvVVO + RntTTkhy6d3SvNG7qcrv3M3/793O/+/ez//w3tD/8N/R//Dg0v/x4NP/8eHU//Hi1P/y4tX/8uPW//Lj + 1//y5Nj/8uTY//Pk2f/z5dn/8+XZ//Pl2v/z5dr/8+Xa//Pl2v/z5dr/8+Xa//Pl2v/z5dn/39vM/9rl + 2P/Z5Nb/2uTW/9rj1f/Z49X/2ePV/9zbyv/w4NP/8eDS//Dg0v/w39H/8N7Q/+/ez//v3c7/79zN/+7b + zP/Pt6TK9eXXvVZQSoJSTkt78ebcxNG8qsr459j/+OfY//jo2f/46Nr/+Onb//jp3P/56tz/+erd//nr + 3v/569//+ezf//ns4P/57OD/+e3h//rt4f/67eL/+u3i//rt4v/67uP/+u7j//ru4//67uP/+u7i//rt + 4v/67eL/8Ojb/+/t4f/u7OD/7uvf/+7r3//u697/7uvf/+/n2f/46dz/+erc//jp3P/46dv/+Oja//jo + 2f/459j/+OfY//jm1//Ru6jK++vdwFVRTYhOTElr5d/azPn08Pr8+Pb//Pn2//z59v/9+ff//fr3//36 + +P/9+/n//fv5//37+v/+/Pr//vz7//79/P/+/fz//v39//7+/f///v7///7+/////v////////////// + ////////////////////////+/z7//v+/f/7/fz/+vz8//r8+//6/Pv/+vz6//r6+f/9+/r//fv5//37 + +f/9+vj//fr4//359//8+fb//Pn2//z49v/48+757ufh1FBOS3Y+PT04RURDdz8+Pr9/fn3/gH9+/4GA + f/+BgYD/g4KB/4SDgv+FhIP/hoWE/4eGhf+IiIf/iomI/4uKif+Mi4r/jYyL/46Njf+Pjo7/kI+O/5GQ + j/+RkJD/kpGQ/5KRkP+SkZD/kpGQ/5GRkP+RkI//kI+P/4+Qj/+Pjo3/jY6N/4yMjP+Li4r/ioqJ/4mI + h/+Hhob/hoWE/4WEg/+Eg4L/g4KB/4KBgP+BgH//gH9+/39+ff9APz7BSEdGgEJBQEUAAAAGAAAAGxgY + GIHPz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/P + z//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/P + z//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/8YGBiCAAAAHAAA + AAcAAAAAAAAAAAAAAFDX19fd8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/4+Pj6bq6 + ur4AAAA+AAAAAAAAAAAAAAAAAAAAAAAAACgAAABSLCwsddjY2PvZ2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ + 2f/Z2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ2f9GRkaCAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAWgAAAD8AAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAAYezs7Pby8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v8HBwdoAAAABwAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARMfH + x8nx8fH78/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8vLy/crL + y80CBARHAAAAAIXu4AEAAAAAAAAAAJb27AEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAGgAAAEYAAABkAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZQAAAEgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///////8AAPAAAAAADwAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAADgAAAAAAB + //+AAAAAAAH//4AAAAAAAQAAgAAAAAAB//+AAAAAAAH//4AAAAAAAP//gAAAAAAAz8+AAAAAAADP/4AA + AAAAAE6nAAAAAAAApM8AAAAAAACnLAAAAAAAAHqlAAAAAAAAp6cAAAAAAABWpQAAAAAAAE5OAAAAAAAA + VaUAAAAAAAAqKgAAAAAAAPeBAAAAAAAAKioAAAAAAAD3+gAAAAAAAPX1AAAAAAAAK/oAAAAAAAD19QAA + AAAAAPX4wAAAAAADVlbAAAAAAAP7gcAAAAAAA/X18AAC3//////wAAP////19fAAA/////////////// + //////////////////////////////////8oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAMAAAACAAAAAwAAAAIAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAEAAAADwwEAC4IAgApAAAADwAAAAQAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAAAAAAMAAAAEAAAACAAAAAkAAAAKAAAACgAAAAoAAAAKAAAACgAA + AAoAAAAKAAAACgAAAAoAAAAKAAAACgAAAAoAAAAKAAAACwAAABcLAwBKCGg9+whlPPYEAAA8AAAAFwAA + AAsAAAAKAAAACgAAAAoAAAAJAAAACAAAAAUAAAADAAAACgAAABQAAAAdAAAAIwAAACQAAAAlAAAAJQAA + ACUAAAAlAAAAJQAAACUAAAAmAAAAJgAAACYAAAAmAAAAJgAAACcAAAAwBQAAVwlmPPkLp2X/Ep5i/whi + OvUCAABJAAAALAAAACUAAAAlAAAAJQAAACMAAAAdAAAAFAAAAAsAAAAYAAAALQAAAEEAAABLAAAATwAA + AFEAAABRAAAAUQAAAFEAAABRAAAAUQAAAFEAAABRAAAAUQAAAFEAAABSAAAAWQMAAHMJYzr3D6Vn/wCc + WP8An1v/Fptj/whgOPIBAABlAAAAVAAAAFEAAABRAAAATAAAAEIAAAAvAAAAGgAAAB5XMAN4XjQEx100 + BNxcMwTfXDME31wzBN9cMwTfXDME31wzBN9cMwTfXDME31wzBN9cMwTfXDME31kxBOBNKgPkDl83/ROj + af8AoF3/AZ1c/wGdW/8BpGH/G5Vh/xBcM/tULgTiWjIE4FwzBN9dNATdYDUEylcwA30AAAAhIRMCHXtK + EbLNrZDs1auG/tethv/YrYf/2K2H/9iuiP/Yroj/2K6J/9iuif/Yr4n/2K+J/9ivif/VrYf/xJ99/xxo + QP8WoWr/AKVk/wGgYf8BoGH/AaBh/wCfYP8CqGf/JJBh/yVqQv/PpoH/1quF/9arhf7RtJjxcUEKrgAA + ABdjOQoilGYyrsaSZNfXnGj/15tn/9abZ//WnGj/1pxp/9acaf/XnWr/151q/9eea//Xnmv/2J5s/9ac + a/8naED/GZ1p/wCpaf8AomT/AqNm/wKjZv8Co2b/AqNm/wCiZP8CrG3/KItc/zJsQv/Xm2f/1ppn/82d + dOF7SxaxKRgEDHZGECahdEWty5Vlz96lc//epXP/3qZ0/96mdf/ep3b/3qd2/9+od//fqHf/36h4/9+o + eP/fqXn/OXFH/1+5l/9LyJ3/ScKZ/0XCmP8+vZD/Aqdr/wKna/89vI//SMKZ/0rDmv9LyZ//ba2L/0l3 + S//dpHL/0qF12YpeLK9tQQ8RfE0WLamDV7DKlWfN4qt7/+KsfP/irH3/4q1+/+Ktf//jroD/466A/+Ov + gf/jr4H/46+C/+Ovgv9DeU//MXxQ/zR6T/83ek//KHhO/z3Blv8Cq3D/Aqtw/zvBlf8seU7/PHtQ/zh8 + UP81fFD/VH1S/+Gre//Uo3jYlm9BsnxNFht6Ths1sI1mssmVac/fq37/4Kx//+CtgP/grYH/4K6C/+Cv + g//hr4P/4a+E/+GwhP/hsIX/4bCG/+Gwhv/hsIb/4bCG/+Gwhv9Fdkz/NsSa/wKudv8Crnb/NcSZ/0V2 + TP/grYH/4K2A/+Csf//frH7/36t9/9Ciediee1O0ek4bJHlQIT+5mXe1zptvx+y8kf/svZL/7b2T/+2+ + lP/tvpX/7b+W/+2/lv/tv5f/7cCX/+3AmP/twJj/7cCY/+3AmP/twJj/7cCY/1B+VP8xxZv/A7F8/wOx + fP8wxJv/UH5T/+2+lP/tvZP/7L2S/+y8kv/su5D/16h/0qmKaLl5UCExeFImRr+ihLnImXDP4bOM/+G0 + jP/itY7/4rWP/+K2kf/it5H/47iS/+O4k//juZT/47mU/+O5lP/juZX/47mV/+O5lf/juZX/V39W/yvG + nP8DtoP/A7aD/yzHnP9Yf1X/4raQ/+K1jv/htI3/4bOM/+Gyiv/Po3vXtJd5vXhSJj13VCxQxqyRvNCi + e8rvxKD/78Wh/+/Fov/vxqP/78ek/+/Hpf/wyKb/8Min//DJp//wyaf/8Mmo//DJqP/wyaj/8Mmo//DJ + qP9kiGD/J8if/wS6if8Euon/Jcme/2WHX//vxqT/78ai/+/Fof/vxKD/7sSf/9aqhNG9o4m/d1QsRnVW + MlfMtJy/yZ970OS9m//kvpz/5b6d/+W/n//lwKD/5sGh/+bCov/mwqP/5sOk/+bDpP/nw6X/58Sl/+fE + pf/nxKX/58Ol/2uJYv8gyqL/Ar2P/wK9j/8eyqH/aohh/+W/n//lv57/5L6c/+S9m//kvJr/zaaD1saw + mcN1VjJRdFg5YdO9p7/QqYbK8c2u//HOr//xz7H/8c+y//LQs//y0LT/8tG1//LStv/y0rb/8tK3//LT + t//y07f/8tO3//LTt//y07f/epNv/yjPqf8VxJv/FcSb/ybQqf95km3/8c+y//HPsf/xzq//8c2u//HM + rf/Vro3Qz7qlxXRYOV1yWz9q2MWwwcmlh9Dnxqn/58er/+fIrP/oya7/6Mqv/+nLsP/py7H/6cyy/+nM + s//qzbT/6s20/+rNtP/qzbT/6s20/+rNtP+Fl3X/TNu9/0fSsv9H0rL/Sty+/4OVcv/oya7/58it/+fH + q//nxqn/5sWo/86qi9bVwq/Fcls/aHFdRXLfzLnB0K6QyfPWvP/z173/89i+//TYv//02cH/9NrC//Tb + w//028T/9dvE//Xcxf/13MX/9dzG//Xcxv/13Mb/9dzG/5ilhf9d38L/XNi6/1zYuv9c38P/laOC//TZ + wP/02L//89e9//PWvP/z1rv/1LOVz97LuMVxXUV0cF9Ke+bUwsHJq5DQ6c+3/+rQuf/q0br/69K8/+vT + vf/r077/7NTA/+zVwf/s1sL/7NbC/+3Ww//t1sP/7dfD/+3Xw//t1sP/pKyQ/3rfxv972L//e9i//3nf + xv+iqoz/69K8/+rRuv/q0Ln/6c+4/+nOtv/NrpTW5NHAxXNjToFvYFCF69rLw9G0m8r13sn/9d7K//bf + y//24M3/9uDO//bhz//24tD/9uLR//fj0f/349L/9+PS//fk0//35NP/9+TT//fj0v/Bwqr/p+XQ/6jg + y/+p4Mv/puXQ/8HBqP/24M3/9t/M//Xfy//13sn/9d3I/9a4ns/q2MjDdGZWjHBlWI3w4NHByrCa0OvV + w//r1sT/7NfG/+zYx//t2sn/7drK/+7by//u3Mz/7t3N/+/dzv/v3c7/797P/+/ez//v3s//797P/9PM + uf/G4c//yN3M/8nczP/F383/z8q1/+3ZyP/s2Mb/7NfF/+vWw//q1MH/zLKb1fDdzcJ1a16Xc2timfXl + 18HSuaTL9+TT//fl1f/35tb/+ObX//jn2P/46Nn/+Oja//jp2//56dz/+erc//nq3f/56t3/+erd//nq + 3f/56t3/6+HR/+np3P/q6dr/6una/+jo2f/q4M//+ObX//jm1v/35dX/9+TU//fj0v/VvajP9uXUwHdw + ZqR1cGqj++zewcq1o9Lt3M3/7t3O/+7e0P/v39H/7+DS//Dh1P/w4tX/8eLW//Hj1//x5Nj/8eTY//Hk + 2f/y5Nn/8uTZ//Hk2P/t4tX/7uPX/+7i1v/t4tb/7eHU/+ve0P/v39L/797Q/+7dz//t3M3/7dvL/864 + pdb35ta/hYB5q3NwbJr58+3l8+zm8fz18P/89fH//Pbx//z28v/89/P//fj0//349f/9+fX//fn2//76 + 9v/++vf//vv4//77+P/++/j//vv3//z59v/++vf//vr2//359v/9+fX//Pfz//348//89/L//Pbx//z2 + 8f/89fD/9O3n8vrz7eOHg3+qamhmU2VjYZxVU1LXhoaF/4iHhv+IiIf/iYiH/4uKif+Mi4r/jYyL/46N + jP+Pjo3/j4+O/5GQj/+RkI//kZCP/5GQj/+RkI//kZCP/5CPjv+Pjo3/jo2M/42Mi/+Mi4r/i4qJ/4mJ + iP+JiIf/iIeG/4eGhf9YV1bZYmFfqGpoZl0AAAAAAAAABhoaGm3v7+/78fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8PDw/UFBQXoAAAAOAAAAAAAAAAAAAAAAAAAAPDIyMoXT09P/09PT/9PT + 0//T09P/09PT/9PT0//T09P/09PT/9PT0//T09P/KioqeAAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABlAAAAPgAAAAEAAAAAAAAAAAAAAAAAAAACAAAAVN3d + 3eDz8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/+Dg4OQAAABWAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAqAAAAVAAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAVgAAACwAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAAeAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACAAAABwAAAAcAAAAPgAf//4AH/////////////KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAoAAAAWAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGQEAACcBAAAoAAAAGQAA + ABkAAAAZAAAAFgAAAAoAAAAmAAAAUQAAAFsAAABbAAAAWwAAAFsAAABbAAAAWwAAAGUGaD3/Bmg9/wEA + AGcAAABbAAAAXAAAAFEAAAAoAAAAFk4uB5pkOgvTZTsM02U7DNNlOwzTZTsM02M6DNQGaD3/Badj/wSn + ZP8GaD3/YjkL1GQ6C9JRLwiaAAAAF3RJGB2IZT/Q9Na8//DJpf/wyab/8Mqn/+/Jp/8GaD3/Bats/wCj + ZP8Ao2T/Bqxs/wZoPf/y1bn+jWpEzn1LEiB/ViYzmn5g2Oe+m//hr4P/4rCE/+Kwhv8GaD3/kNC3/4zQ + tv8GqXD/A6pw/4rQtv+Q0Lf/Bmg9/52BY9l9UiE4fV02Sq2XgNnwzKz/7cKc/+7En//uxaD/Bmg9/wZo + Pf8GaD3/B7N//wK3gf8GaD3/Bmg9/wZoPf+umYDYfFoxTHlfQWG6qJbh6cmt/+bDo//nxKb/58ao/+jG + qf/ox6r/CGk+/wa7i/8Cv47/DGo//+bCo//pyKz/u6mW3nxhQmN8aVF5y7ur3vPZwf/y1r3/89e///PY + wf/z2cL/89rD/yJ0S/8PxZr/Csmd/yNzSv/y1bz/8tjA/8q4qdp+aVJ5fnBgjdHDteHs1sP/7NbC/+zX + xf/t2cf/7trI/+7ayf9Vi2j/Tti6/0rdvv9Ximb/7NXC/+vVwv/PwLHefnFhjX53bqHe0cXc9uXV//bm + 1//359n/9+jb//fp3P/36dz/orae/5Tjzv+S5tH/pbWc//bl1v/25NT/3c7C2H53bqWcmJS68u3n8/jw + 6v/48uz/+fPu//n07//69PH/+vXx/+Pm3v/i8uv/4PLr/+Lk2//48ez/9/Dq//Dr5fGmo5+6YGBgaFtb + W8+UlJT/lpaW/5eXl/+YmJj/mpqa/5qamv+Zmpn/mpqa/5mZmf+Wl5b/lpaW/5SUlP9RUVHJZ2dnYAAA + AAsyMjJ08PDw/fHx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/n5+fxAAAAXQAA + AAAAAAAAAAAAPRsbG23h4eHm8/Pz//Pz8//z8/P/6Ojo71BQUH8AAABmAAAAZgAAAGYAAABmAAAAXQAA + ADQAAAAAAAAAAAAAAAIAAAAvAAAAVwAAAGYAAABmAAAAZgAAAFwAAAA2AAAABgAAAAYAAAAGAAAABgAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAGAAAABgAAAAYAAAAEAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAQAAgAEAAYABgAHAf4AB + + + \ No newline at end of file diff --git a/Epole/업로드폼/XLSImport.vb b/Epole/업로드폼/XLSImport.vb new file mode 100644 index 0000000..a1da082 --- /dev/null +++ b/Epole/업로드폼/XLSImport.vb @@ -0,0 +1,2545 @@ +Imports System.IO +Imports System.Text +Imports MyControlOLEDBv2 + +Public Class XLSImport + + Dim TabName As String + Dim ColName() As String + Dim Value() As String + Dim vtype() As String + Dim ColDesc() As String '' + + Dim SubSqlCnt As Integer + Dim SubSql() As String + + Dim USERFC() As String + + Dim DivString As String '// + + Dim Err As Boolean = False '//߻ + Dim StartPos As Integer = 0 '//ۿ + Dim EndPos As Integer = 0 '//῭ + + Dim IniFile As String = My.Application.Info.DirectoryPath & "\import.ini" + Dim SelControl As Windows.Forms.TextBox + Dim sql As New StringBuilder + Dim DelSql As New StringBuilder + + Dim MyTextBox() As Windows.Forms.TextBox + Dim MyComBo() As Windows.Forms.ComboBox + Dim MyLaBel() As Label + + Dim SRCּ As New ireaDataSet.jjutableDataTable + Dim SRC߼ As New ireaDataSet.jjungtableDataTable + Dim SRCŸ As New ireaDataSet.EtcTableDataTable + Dim SRCDetail_Deung As New ireaDataSet.Detail_DeungDataTable + Dim SRCDetail_Karo As New ireaDataSet.Detail_karoDataTable + Dim SRCDetail_Cable As New ireaDataSet.Detail_CableDataTable + Dim SRCDetail_Cable2 As New ireaDataSet.Detail_Cable2DataTable + Dim SRCDetail_CableLABEL As New ireaDataSet.Detail_CableLabelDataTable + Dim Src⼼ As New ireaDataSet.Detail_kikiDataTable + Dim SRCjjutableRow As ireaDataSet.jjutableRow + Dim SRCjjungtableRow As ireaDataSet.jjungtableRow + Dim SRCetctableRow As ireaDataSet.EtcTableRow + Dim SrcdeungTablerow As ireaDataSet.Detail_DeungRow + Dim SrcKaroTableRow As ireaDataSet.Detail_karoRow + Dim SrcKikiTableRow As ireaDataSet.Detail_kikiRow + Dim SRCCABLEROW As ireaDataSet.Detail_CableRow + Dim SRCCABLELABLEROW As ireaDataSet.Detail_CableLabelRow + Dim SRCCABLE2ROW As ireaDataSet.Detail_Cable2Row + + + Dim SrcDataSet As ireaDataSet + Dim MyAdapt As ireaDataSetTableAdapters.jjutableTableAdapter + + Dim id As Integer '//߰ id ޴´. + Dim As Short = 0 '// ޴´. ⺻ 0(ȣ Ѵ) + + 'Dim MaxArray As String '" ִ" + Dim Sview As FarPoint.Win.Spread.SheetView + + Public Sub New() + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + End Sub + + Public Sub New(ByVal ȣ As Integer, ByVal rowid As Integer) '//̰ɷ ͸ ´. + InitializeComponent() + id = rowid + = ȣ + + Select Case + Case 0 + Me.Text = "(Ϲ) " + Case 1 + Me.Text = "(Ϲ) " + Case 9 + Me.Text = "߿ " + Case 2 + Me.Text = "׵ " + Case 4 + Me.Text = "() " + Case 6 + Me.Text = "(Ȧǥװ뵵) " + Case 7 + Me.Text = "(̺ǥö) " + Case 8 + Me.Text = "(ǥ) " + Case Else + Me.Text = "ȣ (" & & ")" + End Select + + + 'Me.CustFP1_Sheet1.DataSource = Me.ּBindingSource + End Sub + + Public Sub New(ByVal DataSrc As ireaDataSet, ByVal rowid As Short, ByVal ȣ As Integer) '//̰ɷ ͸ ´. + InitializeComponent() + id = rowid + = ȣ + + SrcDataSet = DataSrc + + Select Case + Case 0 + Me.Text = "(Ϲ) " + Case 1 + Me.Text = "(Ϲ) " + Case 9 + Me.Text = "߿ " + Case 2 + Me.Text = "׵ " + Case 4 + Me.Text = "() " + Case 6 + Me.Text = "(Ȧǥװ뵵) " + Case 7 + Me.Text = "(̺ǥö) " + Case 8 + Me.Text = "(ǥ) " + Case Else + Me.Text = "ȣ (" & & ")" + End Select + + End Sub + + Private Sub (ByVal As Short) + + Select Case + Case 0 '// + SetControl(Me.ImpCtl2, "()") + SetControl(Me.ImpCtl3, "ȣ()") + + SetControl(Me.ImpCtl4, "()") + SetControl(Me.ImpCtl5, "ȣ()") + + SetControl(Me.ImpCtl6, "θ") + SetControl(Me.ImpCtl7, "ȣ1") + SetControl(Me.ImpCtl8, "ȣ2") + SetControl(Me.ImpCtl9, "ȣ3") + SetControl(Me.ImpCtl10, "ȣ4") + SetControl(Me.ImpCtl11, "ȣ5") + SetControl(Me.ImpCtl12, "ô") + + SetControl(Me.ImpCtl13, "ð") + SetControl(Me.ImpCtl14, "ð") + SetControl(Me.ImpCtl15, "DL") + SetControl(Me.ImpCtl16, "") + SetControl(Me.ImpCtl17, "1") + SetControl(Me.ImpCtl18, "") + + SetControl(Me.ImpCtl19, "θ()") + SetControl(Me.ImpCtl20, "ֹȣ()") + + SetControl(Me.ImpCtl21, "") + + SetControl(Me.ImpCtl22, "뷮") + SetControl(Me.ImpCtl23, "ǥ1") + SetControl(Me.ImpCtl24, "ǥ2") + + SetControl(Me.ImpCtl25, "") + SetControl(Me.ImpCtl26, "") + SetControl(Me.ImpCtl27, "ο") + + + Case 1 '// + + SetControl(Me.ImpCtl2, "") + SetControl(Me.ImpCtl3, "ȣ") + + SetControl(Me.ImpCtl4, "б/") + SetControl(Me.ImpCtl5, "б/ȣ") + + SetControl(Me.ImpCtl6, "θ()") + SetControl(Me.ImpCtl7, "ιȣ()") + + SetControl(Me.ImpCtl8, "ð") + SetControl(Me.ImpCtl9, "ðü") + + SetControl(Me.ImpCtl10, "θ()") + SetControl(Me.ImpCtl11, "ιȣ()") + SetControl(Me.ImpCtl12, "б_") + SetControl(Me.ImpCtl13, "б/뷮()") + + SetControl(Me.ImpCtl14, "") + SetControl(Me.ImpCtl15, "") + + SetControl(Me.ImpCtl16, "") + + SetControl(Me.ImpCtl17, "") + SetControl(Me.ImpCtl18, "ȸ") + + + Case 9 '//Ÿ(߿) + + 'SetControl(Me.ImpCtl2, "()") + 'SetControl(Me.ImpCtl3, "ȣ()") + SetControl(Me.ImpCtl4, "()") + SetControl(Me.ImpCtl5, "ȣ()") + SetControl(Me.ImpCtl6, "θ") + SetControl(Me.ImpCtl7, "ȣ1") + SetControl(Me.ImpCtl8, "ȣ2") + SetControl(Me.ImpCtl9, "ȣ3") + SetControl(Me.ImpCtl10, "ȣ4") + SetControl(Me.ImpCtl11, "ȣ5") + 'SetControl(Me.ImpCtl12, "ô") + 'SetControl(Me.ImpCtl13, "ð") + 'SetControl(Me.ImpCtl14, "ð") + SetControl(Me.ImpCtl15, "1") + SetControl(Me.ImpCtl16, "2") + SetControl(Me.ImpCtl17, "3") + SetControl(Me.ImpCtl18, "4") + 'SetControl(Me.ImpCtl19, "θ()") + 'SetControl(Me.ImpCtl20, "ֹȣ()") + + Case 2 '//̰ ׵ 2~20 մ. + + SetControl(Me.ImpCtl2, "ȣ1") + SetControl(Me.ImpCtl3, "ȣ2") + SetControl(Me.ImpCtl4, "ȣ3") + SetControl(Me.ImpCtl5, "ȣ1") + + SetControl(Me.ImpCtl6, "ȣ2") + SetControl(Me.ImpCtl7, "ȣ3") + SetControl(Me.ImpCtl8, "") + SetControl(Me.ImpCtl9, "ȭȣ1") + SetControl(Me.ImpCtl10, "ȭȣ2") + SetControl(Me.ImpCtl11, "θ") + SetControl(Me.ImpCtl12, "ֹȣ1") + + SetControl(Me.ImpCtl13, "ֹȣ2") + SetControl(Me.ImpCtl14, "ֹȣ3") + + Case 4 '// + + SetControl(Me.ImpCtl2, "") + SetControl(Me.ImpCtl3, "ȭȣ") + SetControl(Me.ImpCtl4, "θ") + SetControl(Me.ImpCtl5, "ȣ1") + SetControl(Me.ImpCtl6, "ȣ2") + SetControl(Me.ImpCtl7, "ȣ3") + SetControl(Me.ImpCtl8, "ȣ4") + SetControl(Me.ImpCtl9, "ȣ5") + + SetControl(Me.ImpCtl10, "1ȸ1") + SetControl(Me.ImpCtl11, "1ȸ2") + 'SetControl(Me.ImpCtl12, "1ȸ3") + 'SetControl(Me.ImpCtl13, "1ȸ4") + 'SetControl(Me.ImpCtl14, "1ȸ5") + + SetControl(Me.ImpCtl12, "2ȸ1") + SetControl(Me.ImpCtl13, "2ȸ2") + 'SetControl(Me.ImpCtl17, "2ȸ3") + 'SetControl(Me.ImpCtl18, "2ȸ4") + 'SetControl(Me.ImpCtl19, "2ȸ5") + + SetControl(Me.ImpCtl14, "3ȸ1") + SetControl(Me.ImpCtl15, "3ȸ2") + 'SetControl(Me.ImpCtl22, "3ȸ3") + 'SetControl(Me.ImpCtl23, "3ȸ4") + 'SetControl(Me.ImpCtl24, "3ȸ5") + + SetControl(Me.ImpCtl16, "1") + SetControl(Me.ImpCtl17, "2") + SetControl(Me.ImpCtl18, "3") + SetControl(Me.ImpCtl19, "4") + + + Case 6 '//̺ + + SetControl(Me.ImpCtl2, "") + SetControl(Me.ImpCtl3, "ȣ") + SetControl(Me.ImpCtl4, "HASS") + SetControl(Me.ImpCtl5, "HADL") + SetControl(Me.ImpCtl6, "HA") + SetControl(Me.ImpCtl7, "HBSS") + SetControl(Me.ImpCtl8, "HBDL") + SetControl(Me.ImpCtl9, "HB") + + SetControl(Me.ImpCtl10, "S0ȣ1") + SetControl(Me.ImpCtl11, "S0ȣ2") + SetControl(Me.ImpCtl12, "S0ȣ3") + SetControl(Me.ImpCtl13, "S0ȣ4") + SetControl(Me.ImpCtl14, "S0SW") + SetControl(Me.ImpCtl15, "S0ġ") + + SetControl(Me.ImpCtl16, "S1ȣ1") + SetControl(Me.ImpCtl17, "S1ȣ2") + SetControl(Me.ImpCtl18, "S1ȣ3") + SetControl(Me.ImpCtl19, "S1ȣ4") + SetControl(Me.ImpCtl20, "S1SW") + SetControl(Me.ImpCtl21, "S1ġ") + + SetControl(Me.ImpCtl22, "S2ȣ1") + SetControl(Me.ImpCtl23, "S2ȣ2") + SetControl(Me.ImpCtl24, "S2ȣ3") + SetControl(Me.ImpCtl25, "S2ȣ4") + SetControl(Me.ImpCtl26, "S2SW") + SetControl(Me.ImpCtl27, "S2밡") + + SetControl(Me.ImpCtl28, "S3ȣ1") + SetControl(Me.ImpCtl29, "S3ȣ2") + SetControl(Me.ImpCtl30, "S3ȣ3") + SetControl(Me.ImpCtl31, "S3ȣ4") + SetControl(Me.ImpCtl32, "S3SW") + SetControl(Me.ImpCtl33, "S3밡") + + SetControl(Me.ImpCtl34, "S4ȣ1") + SetControl(Me.ImpCtl35, "S4ȣ2") + SetControl(Me.ImpCtl36, "S4ȣ3") + SetControl(Me.ImpCtl37, "S4ȣ4") + SetControl(Me.ImpCtl38, "S4SW") + SetControl(Me.ImpCtl39, "S4밡") + + SetControl(Me.ImpCtl40, "ð") + SetControl(Me.ImpCtl41, "ðȸ") + SetControl(Me.ImpCtl42, "ȣ") + SetControl(Me.ImpCtl43, "") + + SetControl(Me.ImpCtl44, "1") + SetControl(Me.ImpCtl45, "2") + SetControl(Me.ImpCtl46, "3") + SetControl(Me.ImpCtl47, "4") + SetControl(Me.ImpCtl48, "5") + SetControl(Me.ImpCtl49, "6") + + SetControl(Me.ImpCtl50, "HAڸ") + SetControl(Me.ImpCtl51, "HBڸ") + Case 8 '//̺ǥ + + SetControl(Me.ImpCtl2, "") + SetControl(Me.ImpCtl3, "ȣ") + + SetControl(Me.ImpCtl4, "HAڸ") + SetControl(Me.ImpCtl5, "HASS") + SetControl(Me.ImpCtl6, "HADL") + SetControl(Me.ImpCtl7, "HA") + + SetControl(Me.ImpCtl8, "HBڸ") + SetControl(Me.ImpCtl9, "HBSS") + SetControl(Me.ImpCtl10, "HBDL") + SetControl(Me.ImpCtl11, "HB") + + SetControl(Me.ImpCtl12, "1") + SetControl(Me.ImpCtl13, "S/S") + SetControl(Me.ImpCtl14, "D/L") + 'SetControl(Me.ImpCtl15, "S1ȣ4") + SetControl(Me.ImpCtl15, "") + 'SetControl(Me.ImpCtl17, "S1ġ") + + SetControl(Me.ImpCtl16, "2") + SetControl(Me.ImpCtl17, "S/S") + SetControl(Me.ImpCtl18, "D/L") + 'SetControl(Me.ImpCtl21, "S2ȣ4") + SetControl(Me.ImpCtl19, "") + 'SetControl(Me.ImpCtl23, "S2밡") + + SetControl(Me.ImpCtl20, "3") + SetControl(Me.ImpCtl21, "S/S") + SetControl(Me.ImpCtl22, "D/L") + 'SetControl(Me.ImpCtl27, "S3ȣ4") + SetControl(Me.ImpCtl23, "") + ' SetControl(Me.ImpCtl29, "S3밡") + + SetControl(Me.ImpCtl24, "4") + SetControl(Me.ImpCtl25, "S/S") + SetControl(Me.ImpCtl26, "D/L") + 'SetControl(Me.ImpCtl33, "S4ȣ4") + SetControl(Me.ImpCtl27, "") + 'SetControl(Me.ImpCtl35, "S4밡") + + 'SetControl(Me.ImpCtl40, "ð") + 'SetControl(Me.ImpCtl41, "ðȸ") + 'SetControl(Me.ImpCtl42, "ȣ") + 'SetControl(Me.ImpCtl43, "") + + SetControl(Me.ImpCtl28, "1") + SetControl(Me.ImpCtl29, "2") + SetControl(Me.ImpCtl30, "3") + SetControl(Me.ImpCtl31, "4") + SetControl(Me.ImpCtl32, "5") + SetControl(Me.ImpCtl33, "6") + + Case 7 '//(̺ǥö) + + SetControl(Me.ImpCtl2, "ȣ(ġ)") + SetControl(Me.ImpCtl3, "ڸ") + SetControl(Me.ImpCtl4, "S/S") + SetControl(Me.ImpCtl5, "D/L") + SetControl(Me.ImpCtl6, "H1()") + SetControl(Me.ImpCtl7, "H2()") + + SetControl(Me.ImpCtl8, "ȣ(ġ)") + SetControl(Me.ImpCtl9, "йȣ(ȸ)") + SetControl(Me.ImpCtl10, "޻") + SetControl(Me.ImpCtl11, "޺б") + SetControl(Me.ImpCtl12, "ȣ()") + SetControl(Me.ImpCtl13, "ȣ()") + SetControl(Me.ImpCtl14, "") + + SetControl(Me.ImpCtl15, "ȣ(ġ)") + SetControl(Me.ImpCtl16, "йȣ(ȸ)") + SetControl(Me.ImpCtl17, "޻") + SetControl(Me.ImpCtl18, "޺б(TR)") + SetControl(Me.ImpCtl19, "ȣ()") + SetControl(Me.ImpCtl20, "ȣ()") + SetControl(Me.ImpCtl21, "") + + + + End Select + End Sub + Private Sub SetControl(ByVal ic As MyControlOLEDBv2.ImpCtl, ByVal As String) + ic.eNABLED = True + ic. = + End Sub + + Private Sub XLSImport_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + ' Me.ListView3.COLSIZE_SAVE() + Me.Save_Setting() + + End Sub + Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + If Not GetINI(IniFile) Then + MsgBox(" α׷ ˴ϴ." & vbCrLf & vbCrLf & "ȯ漳 Ͱ ȯ ʾҽϴ", MsgBoxStyle.Critical, "Er") + End + End If + + For Each Ctl As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel2.Controls + Ctl.eNABLED = False + Next + For Each Ctl As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel3.Controls + Ctl.eNABLED = False + Next + For Each Ctl As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel4.Controls + Ctl.eNABLED = False + Next + + ' Add_handle() + () + LOadCurrentSet() + ' Me.ListView3.COLSIZE_LOAD() + + Me.CustFP1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) + ' Me.ListView3.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) + + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip2.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + '//ϴ θκ εҽ ϰԵȴ. + 'Me.tyableAdapter1.Connection.ConnectionString = ConString + ' Me.jjutableTableAdapter1.Fill(Me.IreaDataSet1.jjutable, id) + + End Sub + + ''' + ''' ؽƮڽ մϴ. + ''' + Private Sub LOadCurrentSet() + Dim ini As New MyINI2(IniFile) + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel2.Controls + A.ȣ = ini.Read("CURSETNUM" & , A.Name) + A.ڿڸ = ini.Read("CURSETSPL" & , A.Name) + A.üũ = ini.Read("CURSETNUL" & , A.Name, False) + A.Valuetype = ini.Read("CURSETVTYPE" & , A.Name, 0) + Next + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel3.Controls + A.ȣ = ini.Read("CURSETNUM" & , A.Name) + A.ڿڸ = ini.Read("CURSETSPL" & , A.Name) + A.üũ = ini.Read("CURSETNUL" & , A.Name, False) + A.Valuetype = ini.Read("CURSETVTYPE" & , A.Name, 0) + Next + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel4.Controls + A.ȣ = ini.Read("CURSETNUM" & , A.Name) + A.ڿڸ = ini.Read("CURSETSPL" & , A.Name) + A.üũ = ini.Read("CURSETNUL" & , A.Name, False) + A.Valuetype = ini.Read("CURSETVTYPE" & , A.Name, 0) + Next + End Sub + + Private Sub Save_Setting() '// մϴ. + '// / ȣ ؽƮ̴. + Dim Aranini As New MyINI2(IniFile) + Aranini.Write("normal", "startpos", Me.tb_scnt.Text) '// + Aranini.Write("normal", "endpos", Me.tb_ecnt.Text) '// + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel2.Controls '// ؽƮڽ + Aranini.Write("CURSETNUM" & , A.Name, A.ȣ) + Aranini.Write("CURSETSPL" & , A.Name, A.ڿڸ) + Aranini.Write("CURSETNUL" & , A.Name, A.üũ) + Aranini.Write("CURSETVTYPE" & , A.Name, A.Valuetype) + Next + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel3.Controls '// ؽƮڽ + Aranini.Write("CURSETNUM" & , A.Name, A.ȣ) + Aranini.Write("CURSETSPL" & , A.Name, A.ڿڸ) + Aranini.Write("CURSETNUL" & , A.Name, A.üũ) + Aranini.Write("CURSETVTYPE" & , A.Name, A.Valuetype) + Next + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel4.Controls '// ؽƮڽ + Aranini.Write("CURSETNUM" & , A.Name, A.ȣ) + Aranini.Write("CURSETSPL" & , A.Name, A.ڿڸ) + Aranini.Write("CURSETNUL" & , A.Name, A.üũ) + Aranini.Write("CURSETVTYPE" & , A.Name, A.Valuetype) + Next + End Sub + + Private Sub Add_handle() '//Ŭ ȣ ְ Ѵ. + ' For Each A As Control In TableLayoutPanel2.Controls + ' If A.GetType.Name.ToUpper = "TEXTBOX" Then + ' If CType(A, Windows.Forms.TextBox).BorderStyle <> BorderStyle.None Then + ' AddHandler A.DoubleClick, AddressOf MyDoubleClick + ' End If + ' End If + ' Next + End Sub + Private Sub MyDoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) + If Not SelControl Is Nothing Then SelControl.BackColor = Color.White + If Not SelControl Is Nothing AndAlso SelControl.Tag = CType(sender, TextBox).Tag Then '//Ŷ Ѵ. + SelControl.BackColor = Color.White + Me.lb_selcontrol.Text = "þ" + SelControl = Nothing + Return + End If + SelControl = CType(sender, Windows.Forms.TextBox) + SelControl.BackColor = Color.Green + If SelControl.Tag Is Nothing Then + MsgBox("TAG Ӽ ֽϴ", MsgBoxStyle.Information, "Error") + Else + Me.lb_selcontrol.Text = "õ : " & SelControl.Tag.ToString + End If + End Sub + + Private Function GetINI(ByVal filename As String) As Boolean '//'REad INi file + + If filename Is vbNullString Then Return False + Dim INiFn As String + + If filename.IndexOf(":") >= 0 Then + INiFn = filename + Else + INiFn = My.Application.Info.DirectoryPath & "\" & filename + End If + Dim Aranini As New MyINI2(INiFn) + + Try + StartPos = Aranini.Read("NORMAL", "StartPos") + EndPos = Aranini.Read("NORMAL", "endpos") + Me.lb_file.Text = Aranini.Read("NORMAL", "file") + Me.lb_file.Text = Me.lb_file.Text.Trim(Chr(0)) + Value = Aranini.Read("NORMAL", "value").Split(",") + 'MaxArray = Aranini.Read("NORMAL", "MaxArray") + Catch ex As Exception + MsgBox("Err-Read_INI" & vbCrLf & vbCrLf & "File=" & INiFn _ + & vbCrLf & ex.Message.ToString, MsgBoxStyle.Critical, "Error") + Return False + End Try + + 'Me.lb_file.Text = FN + Me.tb_scnt.Text = StartPos + Me.tb_ecnt.Text = EndPos + + Return True + End Function + + Private Sub ControlChanged(ByVal sender As Object, ByVal e As System.EventArgs) '//Not use + Dim A As Windows.Forms.TextBox = CType(sender, Windows.Forms.TextBox) + If A.Text.Length <= 0 Then Exit Sub + Select Case A.Text.Substring(0, 1) + Case ":" + If IsNumeric(A.Text.Substring(1)) Then + A.BackColor = Color.LawnGreen + Else + A.BackColor = Color.Tomato + End If + Case "?" + A.BackColor = Color.Gray + Case "#" + A.BackColor = Color.SteelBlue + Case Else + A.BackColor = Color.White + End Select + End Sub + + + Private Sub ReadXls(ByVal Filename As String) '//Read xls File + + Me.CustFP1.OpenExcel(Filename) + For index As Integer = 0 To Me.CustFP1.Sheets.Count - 1 + For Each Cl As FarPoint.Win.Spread.Column In Me.CustFP1.Sheets(index).Columns '//Set columns label + Cl.Label = Cl.Index + 1 + Next + Next + ''// 5 ̸ īƮ Ѵ. + Dim As Int16 = 0 + For Each Row As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows + If Me.CustFP1.ActiveSheet.Cells(Row.Index, 0).Text = "" AndAlso Me.CustFP1.ActiveSheet.Cells(Row.Index, 1).Text = "" AndAlso Me.CustFP1.ActiveSheet.Cells(Row.Index, 2).Text = "" Then + ' MsgBox(Row.Index) + += 1 + Else + = 0 + End If + If >= 10 Then + ' MsgBox("˻Ϸ" & Row.Index) + Me.CustFP1.ActiveSheet.RowCount = Row.Index + 1 - 8 + Exit For + End If + Next + End Sub + + Private Function GetItemFP(ByVal Src As FarPoint.Win.Spread.Row, ByVal idx As TextBox, ByVal SUbstr As TextBox, Optional ByVal NotNull As Boolean = False) As Object + Dim SUbidx As Integer = IIf(idx.Text = "", 0, Val(idx.Text)) '// -1 + + If SUbidx = 0 Then '// ٴ¶̴. + If NotNull Then Return Src.Index '//̾ȵǸ ε ѱ + Return "" '//̵Ǹ Ѵ. + Else '//ִ. + If SUbstr.Text = "" OrElse SUbstr.Text = "0,0" Then '//ڿڸȮ ״ + Return Me.CustFP1.ActiveSheet.Cells(Src.Index, CInt(SUbidx - 1)).Text + Else '//ڿڸⰡ ߶ ش. + Dim DIV() As String = SUbstr.Text.Split(",") + If DIV(1) = "0" Then '//ۺ + Return Me.CustFP1.ActiveSheet.Cells(Src.Index, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1) + Else '/ + Return Me.CustFP1.ActiveSheet.Cells(Src.Index, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1, DIV(1)) + End If + End If + End If + End Function + + Private Function GetFPData(ByVal sender As MyControlOLEDBv2.ImpCtl, ByVal Drow As FarPoint.Win.Spread.Row) As String + '// ¥̸ FORMAT ؼ Ѵ" + + Dim SUbidx As Integer + Dim VALSTR As String + + If sender.ȣ = "" Then '// ٴ¶̴. + Return "" + Else '//ȣ ִ. + SUbidx = sender.ȣ + VALSTR = Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + If VALSTR = "" Then Return "" ' MsgBox("̾ ٷκ") + + Select Case sender.Valuetype + Case MyControlOLEDBv2.ImpCtl.e_Valuetype.¥ + VALSTR = VALSTR.Trim(".").Trim("/").Trim("\").Trim("-").Trim '//¥ + If IsNumeric(VALSTR) = False Then Return "" '//ϸ ڿѴ. + Select Case VALSTR.Length + Case 4 '//0804 => 20080401 + If VALSTR >= 1900 AndAlso VALSTR <= Format(Now, "yyyy") Then + VALSTR = VALSTR & "0101" + ElseIf VALSTR.Substring(0, 1) = "0" Then + VALSTR = "20" & VALSTR & "01" + Else + VALSTR = "19" & VALSTR & "01" + End If + Case 6 '//200812 => 20081201 , 081201 => 20081201 + If VALSTR.Substring(0, 4) >= 1900 AndAlso VALSTR.Substring(0, 4) <= 2100 Then + VALSTR = VALSTR & "01" + Else + If VALSTR.Substring(0, 1) = "0" Then + VALSTR = "20" & VALSTR + Else + VALSTR = "19" & VALSTR + End If + End If + Case 7 '//2008712 => 20080712 + VALSTR = VALSTR.Substring(0, 4) & "0" & VALSTR.Substring(4, 1) & VALSTR.Substring(5) + Case 8 + '//׳ ѱ. + End Select + Case MyControlOLEDBv2.ImpCtl.e_Valuetype. + If IsNumeric(VALSTR) = False Then Return "" '//ڰƴҶ + End Select + + If sender.ڿڸ = "" OrElse sender.ڿڸ = "0,0" Then '//ڿڸȮ ״ + 'VALSTR = Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + Return VALSTR + + Else '//ڿڸⰡ ߶ ش. + Dim DIV() As String + If sender.ڿڸ.IndexOf(",") = -1 Then + ReDim DIV(1) + DIV(0) = sender.ڿڸ + DIV(1) = 0 + Else + DIV = sender.ڿڸ.Split(",") + End If + + If DIV(1) = "0" Then '//ۺ + Try + VALSTR = (VALSTR.Substring(DIV(0) - 1)) + Catch ex As Exception + 'VALSTR = VALSTR + End Try + Return VALSTR + + Else '/ + Try + VALSTR = VALSTR.Substring(DIV(0) - 1, DIV(1)) + Catch ex As Exception + 'VALSTR = Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + End Try + Return VALSTR + End If + End If + End If + + End Function + + Private Function NullCHeck() As Boolean + If Me.ImpCtl2.ȣ <> "" AndAlso Me.ImpCtl2.üũ Then Return True + If Me.ImpCtl3.ȣ <> "" AndAlso Me.ImpCtl3.üũ Then Return True + If Me.ImpCtl4.ȣ <> "" AndAlso Me.ImpCtl4.üũ Then Return True + If Me.ImpCtl5.ȣ <> "" AndAlso Me.ImpCtl5.üũ Then Return True + If Me.ImpCtl6.ȣ <> "" AndAlso Me.ImpCtl6.üũ Then Return True + If Me.ImpCtl7.ȣ <> "" AndAlso Me.ImpCtl7.üũ Then Return True + If Me.ImpCtl8.ȣ <> "" AndAlso Me.ImpCtl8.üũ Then Return True + If Me.ImpCtl9.ȣ <> "" AndAlso Me.ImpCtl9.üũ Then Return True + If Me.ImpCtl10.ȣ <> "" AndAlso Me.ImpCtl10.üũ Then Return True + If Me.ImpCtl11.ȣ <> "" AndAlso Me.ImpCtl11.üũ Then Return True + If Me.ImpCtl12.ȣ <> "" AndAlso Me.ImpCtl12.üũ Then Return True + If Me.ImpCtl13.ȣ <> "" AndAlso Me.ImpCtl13.üũ Then Return True + If Me.ImpCtl14.ȣ <> "" AndAlso Me.ImpCtl14.üũ Then Return True + If Me.ImpCtl15.ȣ <> "" AndAlso Me.ImpCtl15.üũ Then Return True + If Me.ImpCtl16.ȣ <> "" AndAlso Me.ImpCtl16.üũ Then Return True + If Me.ImpCtl17.ȣ <> "" AndAlso Me.ImpCtl17.üũ Then Return True + If Me.ImpCtl18.ȣ <> "" AndAlso Me.ImpCtl18.üũ Then Return True + If Me.ImpCtl19.ȣ <> "" AndAlso Me.ImpCtl19.üũ Then Return True + If Me.ImpCtl20.ȣ <> "" AndAlso Me.ImpCtl20.üũ Then Return True + + If Me.ImpCtl21.ȣ <> "" AndAlso Me.ImpCtl21.üũ Then Return True + If Me.ImpCtl22.ȣ <> "" AndAlso Me.ImpCtl22.üũ Then Return True + If Me.ImpCtl23.ȣ <> "" AndAlso Me.ImpCtl23.üũ Then Return True + If Me.ImpCtl24.ȣ <> "" AndAlso Me.ImpCtl24.üũ Then Return True + If Me.ImpCtl25.ȣ <> "" AndAlso Me.ImpCtl25.üũ Then Return True + If Me.ImpCtl26.ȣ <> "" AndAlso Me.ImpCtl26.üũ Then Return True + If Me.ImpCtl27.ȣ <> "" AndAlso Me.ImpCtl27.üũ Then Return True + If Me.ImpCtl28.ȣ <> "" AndAlso Me.ImpCtl28.üũ Then Return True + If Me.ImpCtl29.ȣ <> "" AndAlso Me.ImpCtl29.üũ Then Return True + If Me.ImpCtl30.ȣ <> "" AndAlso Me.ImpCtl30.üũ Then Return True + If Me.ImpCtl31.ȣ <> "" AndAlso Me.ImpCtl31.üũ Then Return True + If Me.ImpCtl32.ȣ <> "" AndAlso Me.ImpCtl32.üũ Then Return True + If Me.ImpCtl33.ȣ <> "" AndAlso Me.ImpCtl33.üũ Then Return True + If Me.ImpCtl34.ȣ <> "" AndAlso Me.ImpCtl34.üũ Then Return True + If Me.ImpCtl35.ȣ <> "" AndAlso Me.ImpCtl35.üũ Then Return True + If Me.ImpCtl36.ȣ <> "" AndAlso Me.ImpCtl36.üũ Then Return True + If Me.ImpCtl37.ȣ <> "" AndAlso Me.ImpCtl37.üũ Then Return True + If Me.ImpCtl38.ȣ <> "" AndAlso Me.ImpCtl38.üũ Then Return True + If Me.ImpCtl39.ȣ <> "" AndAlso Me.ImpCtl39.üũ Then Return True + If Me.ImpCtl40.ȣ <> "" AndAlso Me.ImpCtl40.üũ Then Return True + + Return False + End Function + + Private Sub SHowCnt(ByVal cnt As Integer, ByVal maxcnt As Integer) + Me.lb_cnt.Text = cnt & "/" & maxcnt + My.Application.DoEvents() + End Sub + + Private Sub Apply() '//ƾ ߰ ִ°ͻ̴ (ȣ) + + Dim ȣ As Integer = 0 '//ȣ notnull ̴ + Dim As String = "'" '//ȣ notnull ̴ + Dim ȣ As String = "'" '//ȣ notnull ̴ + Dim As String = "'" '//ȣ notnull ̴ + Dim ȣ As String = "'" '//ȣ notnull ̴ + Dim θ As String = "'" '//ȣ notnull ̴ + Dim ȣ1 As String = "'" '//ȣ notnull ̴ + Dim ȣ2 As String = "'" '//ȣ notnull ̴ + Dim ȣ3 As String = "'" '//ȣ notnull ̴ + Dim ȣ4 As String = "'" '//ȣ notnull ̴ + Dim ȣ5 As String = "'" '//ȣ notnull ̴ + Dim ô As String = "'" '//ȣ notnull ̴ + Dim ð As String = "'" '//ȣ notnull ̴ + Dim ð As String = "'" '//ȣ notnull ̴ + Dim DL As String = "'" '//ȣ notnull ̴ + Dim As String = "'" '//ȣ notnull ̴ + Dim 1 As String = "'" '//ȣ notnull ̴ + Dim 2 As String = "'" '//2 μ Ѵ(μ ǹ̴ ) + Dim As String = "" + Dim μ, , As Boolean + Dim As String = String.Empty + Dim As String = String.Empty + Dim ο As String = String.Empty + + + '//20071102 ߰ + Dim θ As String = "'" + Dim ֹȣ As String + + '//20150203 + Dim 뷮 As String = "" + Dim ǥ1 As String = "'" + Dim ǥ2 As String = "'" + + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + '//srcּ ̺ ͸ Ѵ. + '// null check մ ȮѴ. üũǾִٸ.. ΰ ȮؾѴ. + + Me.SRCּ.Clear() + + Dim index As Integer = 0 + ' MsgBox(NullChk) + + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + Me.SHowCnt(index, EndCnt) + ȣ = index ' Me.GetItemFP(Dr, Me.TextBox5, Me.TextBox42, True).ToString.ToUpper '//ȣ notnull ̴ + = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + θ = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + ȣ1 = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + ȣ2 = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + ȣ3 = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + ȣ4 = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + ȣ5 = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + ô = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim("-").Trim + ð = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + ð = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + DL = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + 1 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + 2 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + θ = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + ֹȣ = Me.GetFPData(Me.ImpCtl20, Dr).ToUpper.Trim + + = Me.GetFPData(Me.ImpCtl21, Dr).ToUpper.Trim + 뷮 = Me.GetFPData(Me.ImpCtl22, Dr).ToUpper.Trim + ǥ1 = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + ǥ2 = Me.GetFPData(Me.ImpCtl24, Dr).ToUpper.Trim + + = Me.GetFPData(Me.ImpCtl25, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl26, Dr).ToUpper.Trim + ο = Me.GetFPData(Me.ImpCtl27, Dr).ToUpper.Trim + + μ = IIf(2.Trim <> "", True, False) + If ô <> "" AndAlso ô.Length = 1 Then ô = "0" & ô + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal = IIf(.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + If Me.ImpCtl4.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(θ.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(ȣ1.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(ȣ2.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(ȣ3.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(ȣ4.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(ȣ5.Trim = "", "", "X") + If Me.ImpCtl12.üũ Then NullVal &= IIf(ô.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(ð.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(ð.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(DL.Trim = "", "", "X") + If Me.ImpCtl16.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.ImpCtl19.üũ Then NullVal &= IIf(θ.Trim = "", "", "X") + If Me.ImpCtl20.üũ Then NullVal &= IIf(ֹȣ.Trim = "", "", "X") + If Me.ImpCtl21.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl22.üũ Then NullVal &= IIf(뷮.Trim = "", "", "X") + If Me.ImpCtl23.üũ Then NullVal &= IIf(ǥ1.Trim = "", "", "X") + If Me.ImpCtl24.üũ Then NullVal &= IIf(ǥ2.Trim = "", "", "X") + + If Me.ImpCtl25.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl26.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl27.üũ Then NullVal &= IIf(ο.Trim = "", "", "X") + + Else + NullVal = "X" '//⺻false Ѵ. + End If + + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + ' Me.CustFP1.ActiveSheet.Rows(Dr.Index).BackColor = Color.Blue + Select Case ô.ToUpper + Case "B06", "B6", "06" + = True '// + = False '// + Case "" + = False '// + = True '// + Case Else + = False + = False + End Select + + ' = IIf(DL <> "", True, False) + + Me.SRCjjutableRow = Me.SRCּ.NewjjutableRow + Me.SRCjjutableRow.rowid = System.Guid.NewGuid + Me.SRCjjutableRow.ID = id + Me.SRCjjutableRow.ȣ = ȣ + Me.SRCjjutableRow. = + Me.SRCjjutableRow.ȣ = ȣ + Me.SRCjjutableRow. = + Me.SRCjjutableRow.ֹȣ = ȣ + Me.SRCjjutableRow.θ = θ + Me.SRCjjutableRow.ȣ1 = ȣ1 + Me.SRCjjutableRow.ȣ2 = ȣ2 + Me.SRCjjutableRow.ȣ3 = ȣ3 + Me.SRCjjutableRow.ȣ4 = ȣ4 + Me.SRCjjutableRow.ȣ5 = ȣ5 + If ô.Length = 1 Then + ô = "0" & ô + ElseIf ô.Length > 3 Then + ô = ô.Substring(0, 3) + End If + Me.SRCjjutableRow.ô = ô + Me.SRCjjutableRow.ð = ð + Me.SRCjjutableRow.ð = ð + Me.SRCjjutableRow.DL = DL + Me.SRCjjutableRow. = + Me.SRCjjutableRow.1 = 1 + 'Me.SRCjjutableRow.2 = 2 + Me.SRCjjutableRow.μ = μ + Me.SRCjjutableRow. = + Me.SRCjjutableRow. = + + Me.SRCjjutableRow.θ = θ + Me.SRCjjutableRow.ֹȣ = ֹȣ + Me.SRCjjutableRow. = True + Me.SRCjjutableRow.Ĺȣ = "" + + '//20150203 + Me.SRCjjutableRow. = + Me.SRCjjutableRow.COS뷮 = 뷮 + Me.SRCjjutableRow.ǥ1 = ǥ1 + Me.SRCjjutableRow.ǥ2 = ǥ2 + + '//1707152100 + Me.SRCjjutableRow. = + Me.SRCjjutableRow. = + Me.SRCjjutableRow.ο = ο + + Try + Me.SRCּ.Rows.Add(Me.SRCjjutableRow) + Catch ex As Exception + MsgBox("!" & id & "/" & ȣ & vbCrLf & ex.ToString) + 'AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + Else + ' If Me.CustFP1.ActiveSheet.Rows(Dr.Index).BackColor = Color.Blue Then Me.CustFP1.ActiveSheet.Rows(Dr.Index).BackColor = Color.Black + End If + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCּ + + + Me.CustFP2.ActiveSheet.Columns(0).Width = 0 + Me.CustFP2.ActiveSheet.Columns(1).Width = 0 + Me.CustFP2.ActiveSheet.Columns(2).Width = 0 + Me.CustFP2.ActiveSheet.Columns(17).Width = 0 + Me.CustFP2.ActiveSheet.Columns(19).Label = "" + Me.CustFP2.ActiveSheet.Columns(20).Width = 0 + For i As Short = 23 To 28 + Me.CustFP2.ActiveSheet.Columns(i).Width = 0 + Next + For i As Short = 31 To 36 + Me.CustFP2.ActiveSheet.Columns(i).Width = 0 + Next + + + End Sub + Private Sub Apply() '//ƾ ߰ ִ°ͻ̴ (ȣ) + + Dim ȣ As Integer '//ȣ notnull ̴ + Dim As String '//ȣ notnull ̴ + Dim ȣ As String '//ȣ notnull ̴ + + Dim θ_ As String '//ȣ notnull ̴ + Dim ιȣ_ As String '//ȣ notnull ̴ + + Dim ιȣ_ As String + Dim θ_ As String + 'Dim ȣ2 As String '//ȣ notnull ̴ + 'Dim ȣ3 As String '//ȣ notnull ̴ + 'Dim ȣ4 As String '//ȣ notnull ̴ + 'Dim ȣ5 As String '//ȣ notnull ̴ + Dim б As String '//ȣ notnull ̴ + Dim б뷮 As String '//ȣ notnull ̴ + Dim ðü As String '//ȣ notnull ̴ + Dim ð As String '//ȣ notnull ̴ + Dim As String '//170321 + Dim ȸ As String + Dim As String + 'Dim As String + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + '20090512 + Dim б, бȣ As String + Dim , As String + + + Dim cnt As Integer = -1 + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + + '//src߼ ̺ ͸ Ѵ. + + Me.SRC߼.Clear() + Dim index As Integer = 0 + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + Me.SHowCnt(index, EndCnt) + NullVal = False + Try + ȣ = index ' Me.GetItemFP(Dr, Me.TextBox5, Me.TextBox42, True).ToString.ToUpper '//ȣ notnull ̴ + + = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + + б = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + бȣ = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + + θ_ = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + ιȣ_ = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + + ð = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + ðü = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + + θ_ = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + ιȣ_ = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + б = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + б뷮 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + + = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + ȸ = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + ' = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + + + + + + + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + + If Me.ImpCtl2.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + + If Me.ImpCtl4.üũ Then NullVal &= IIf(б.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(бȣ.Trim = "", "", "X") + + If Me.ImpCtl6.üũ Then NullVal &= IIf(θ_.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(ιȣ_.Trim = "", "", "X") + + If Me.ImpCtl8.üũ Then NullVal &= IIf(ð.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(ðü.Trim = "", "", "X") + + If Me.ImpCtl10.üũ Then NullVal &= IIf(θ_.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(ιȣ_.Trim = "", "", "X") + If Me.ImpCtl12.üũ Then NullVal &= IIf(б.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(б뷮.Trim = "", "", "X") + + If Me.ImpCtl14.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(.Trim = "", "", "X") + + If Me.ImpCtl16.üũ Then NullVal &= IIf(.Trim = "", "", "X") + + If Me.ImpCtl17.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(ȸ.Trim = "", "", "X") + + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SRCjjungtableRow = Me.SRC߼.NewjjungtableRow + Me.SRCjjungtableRow.rowid = System.Guid.NewGuid + Me.SRCjjungtableRow.ID = id + Me.SRCjjungtableRow.ȣ = ȣ + Me.SRCjjungtableRow. = + Me.SRCjjungtableRow.ȭȣ = ȣ + Me.SRCjjungtableRow.θ = θ_ + Me.SRCjjungtableRow.ȣ1 = ιȣ_ + 'Me.SRCjjungtableRow.ȣ2 = ȣ2 + 'Me.SRCjjungtableRow.ȣ3 = ȣ3 + 'Me.SRCjjungtableRow.ȣ4 = ȣ4 + 'Me.SRCjjungtableRow.ȣ5 = ȣ5 + Me.SRCjjungtableRow.б = б + Me.SRCjjungtableRow.б뷮 = б뷮 + Me.SRCjjungtableRow.ðü = ðü + Me.SRCjjungtableRow.ð = ð + Me.SRCjjungtableRow.1 = '// 0,2 ʴ´. + 'Me.SRCjjungtableRow.3 = + Me.SRCjjungtableRow. = True + Me.SRCjjungtableRow.Ĺȣ = True + Me.SRCjjungtableRow.2 = б + Me.SRCjjungtableRow.ȣ2 = бȣ + + Me.SRCjjungtableRow.б = ιȣ_ + Me.SRCjjungtableRow.б⼱ = θ_ + + Me.SRCjjungtableRow. = + Me.SRCjjungtableRow. = + + Me.SRCjjungtableRow. = + Me.SRCjjungtableRow.ȸ = ȸ + + Me.SRC߼.Rows.Add(Me.SRCjjungtableRow) + ' Catch ex As ConstraintException '//ߺ + ' ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + End If + Catch ex As Exception + MsgBox("!" & id & "/" & ȣ & vbCrLf & ex.ToString) + 'AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRC߼ + Me.CustFP2.ActiveSheet.Columns(11).Label = "" + + 'Me.CustFP2.ActiveSheet.Columns(11).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(19).Width = 0 + + End Sub + Private Sub ApplyETC() '//ƾ ߰ ִ°ͻ̴ (Ÿȣ) + + Dim ȣ As Integer '//ȣ notnull ̴ + Dim As String '//ȣ notnull ̴ + Dim ȣ As String '//ȣ notnull ̴ + Dim θ As String '//ȣ notnull ̴ + Dim ȣ1 As String '//ȣ notnull ̴ + Dim ȣ2 As String '//ȣ notnull ̴ + Dim ȣ3 As String '//ȣ notnull ̴ + Dim ȣ4 As String '//ȣ notnull ̴ + Dim ȣ5 As String '//ȣ notnull ̴ + Dim 1 As String '//ȣ notnull ̴ + Dim 2 As String '//ȣ notnull ̴ + Dim 3 As String '//ȣ notnull ̴ + Dim 4 As String '//ȣ notnull ̴ + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + Dim index As Integer = 0 + + Me.SRCŸ.Clear() + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + SHowCnt(index, EndCnt) + + NullVal = False + Try + ȣ = index + + + = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + θ = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + ȣ1 = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + ȣ2 = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + ȣ3 = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + ȣ4 = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + ȣ5 = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + 'ô = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + 'ð = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper + 'ð = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper + 1 = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + 2 = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + 3 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + 4 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl4.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(θ.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(ȣ1.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(ȣ2.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(ȣ3.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(ȣ4.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(ȣ5.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.ImpCtl16.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SRCetctableRow = Me.SRCŸ.NewEtcTableRow '//ӽ̺ + Me.SRCetctableRow.rowid = System.Guid.NewGuid + Me.SRCetctableRow.ID = id + Me.SRCetctableRow.ȣ = index + Me.SRCetctableRow. = + Me.SRCetctableRow.ֹȣ = ȣ + Me.SRCetctableRow.θ = θ + Me.SRCetctableRow.ȣ1 = ȣ1 + Me.SRCetctableRow.ȣ2 = ȣ2 + Me.SRCetctableRow.ȣ3 = ȣ3 + Me.SRCetctableRow.ȣ4 = ȣ4 + Me.SRCetctableRow.ȣ5 = ȣ5 + Me.SRCetctableRow.1 = 1 + Me.SRCetctableRow.2 = 2 + Me.SRCetctableRow.3 = 3 + Me.SRCetctableRow.4 = 4 + Me.SRCetctableRow. = True + Me.SRCetctableRow.Ĺȣ = True + Me.SRCŸ.Rows.Add(Me.SRCetctableRow) + End If + Catch ex As ConstraintException '//ߺ + ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + Catch ex As Exception + ' AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCŸ + Me.CustFP2.ActiveSheet.Columns(0).Width = 0 + Me.CustFP2.ActiveSheet.Columns(1).Width = 0 + End Sub + Private Sub ApplyDeung() '//׵ ̸ + Dim ȣ As Integer '//ȣ notnull ̴ + Dim ȣ1, ȣ2, ȣ3 As String '//ȣ notnull ̴ + Dim ȣ1, ȣ2, ȣ3 As String '//ȣ notnull ̴ + Dim As String + Dim ȭȣ1, ȭȣ2 As String + Dim θ As String + Dim ֹȣ1, ֹȣ2, ֹȣ3 As String + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + NOTICE("(ӽ)ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + Dim index As Integer = 0 + Me.SRCDetail_Deung.Clear() '// + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + SHowCnt(index, EndCnt) + + NullVal = False + Try + ȣ = index + + ȣ1 = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȣ2 = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + ȣ3 = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + + ȣ1 = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + ȣ2 = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + ȣ3 = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + + ȭȣ1 = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + ȭȣ2 = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + θ = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + ֹȣ1 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + ֹȣ2 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + ֹȣ3 = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal &= IIf(ȣ1.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȣ2.Trim = "", "", "X") + If Me.ImpCtl4.üũ Then NullVal &= IIf(ȣ3.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(ȣ1.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(ȣ2.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(ȣ3.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(.Trim = "", "", "X") + + If Me.ImpCtl9.üũ Then NullVal &= IIf(ȭȣ1.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(ȭȣ2.Trim = "", "", "X") + + If Me.ImpCtl11.üũ Then NullVal &= IIf(θ.Trim = "", "", "X") + + If Me.ImpCtl12.üũ Then NullVal &= IIf(ֹȣ1.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(ֹȣ2.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(ֹȣ3.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SrcdeungTablerow = Me.SRCDetail_Deung.NewDetail_DeungRow '//ӽ̺ + Me.SrcdeungTablerow.rowid = System.Guid.NewGuid + Me.SrcdeungTablerow.ID = id + Me.SrcdeungTablerow.ȣ = index + Me.SrcdeungTablerow.ȣ1 = ȣ1 + Me.SrcdeungTablerow.ȣ2 = ȣ2 + Me.SrcdeungTablerow.ȣ3 = ȣ3 + Me.SrcdeungTablerow.ȣ1 = ȣ1 + Me.SrcdeungTablerow.ȣ2 = ȣ2 + Me.SrcdeungTablerow.ȣ3 = ȣ3 + Me.SrcdeungTablerow. = + Me.SrcdeungTablerow.ȭȣ1 = ȭȣ1 + Me.SrcdeungTablerow.ȭȣ2 = ȭȣ2 + Me.SrcdeungTablerow.θ = θ + Me.SrcdeungTablerow.ֹȣ1 = ֹȣ1 + Me.SrcdeungTablerow.ֹȣ2 = ֹȣ2 + Me.SrcdeungTablerow.ֹȣ3 = ֹȣ3 + Me.SrcdeungTablerow. = True + Me.SrcdeungTablerow.Ĺȣ = "" + + Me.SRCDetail_Deung.Rows.Add(Me.SrcdeungTablerow) + ' + End If + Catch ex As ConstraintException '//ߺ + ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + Catch ex As Exception + ' AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCDetail_Deung + Me.CustFP2.ActiveSheet.Columns(0).Width = 0 + Me.CustFP2.ActiveSheet.Columns(1).Width = 0 + Me.CustFP2.ActiveSheet.Columns(2).Width = 0 + Me.CustFP2.ActiveSheet.Columns(7).Width = 0 + Me.CustFP2.ActiveSheet.Columns(8).Width = 0 + Me.CustFP2.ActiveSheet.Columns(9).Width = 0 + Me.CustFP2.ActiveSheet.Columns(10).Width = 0 + End Sub + Private Sub Apply_() '//׵ ̸ + Dim ȣ As Integer '//ȣ notnull ̴ + Dim , ȭȣ As String '//ȣ notnull ̴ + Dim ȣ1, ȣ2, ȣ3, ȣ4, ȣ5 As String '//ȣ notnull ̴ + Dim ȸ11, ȸ12, ȸ21, ȸ22, ȸ31, ȸ32 As String + Dim θ As String + Dim 1, 2, 3, 4 As String + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + NOTICE("(ӽ)ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + Dim index As Integer = 0 + Me.Src⼼.Clear() '// + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + SHowCnt(index, EndCnt) + + NullVal = False + Try + ȣ = index + + = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȭȣ = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + θ = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + + ȣ1 = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + ȣ2 = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + ȣ3 = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + ȣ4 = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + ȣ5 = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + + ȸ11 = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + ȸ12 = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + 'ȸ13 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + 'ȸ14 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + 'ȸ15 = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + + ȸ21 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + ȸ22 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + 'ȸ23 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + 'ȸ24 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + 'ȸ25 = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + + ȸ31 = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + ȸ32 = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + 'ȸ33 = Me.GetFPData(Me.ImpCtl22, Dr).ToUpper.Trim + 'ȸ34 = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + 'ȸ35 = Me.GetFPData(Me.ImpCtl24, Dr).ToUpper.Trim + + 1 = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + 2 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + 3 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + 4 = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȭȣ.Trim = "", "", "X") + If Me.ImpCtl4.üũ Then NullVal &= IIf(θ.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(ȣ1.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(ȣ2.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(ȣ3.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(ȣ4.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(ȣ5.Trim = "", "", "X") + + If Me.ImpCtl10.üũ Then NullVal &= IIf(ȸ11.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(ȸ12.Trim = "", "", "X") + 'If Me.ImpCtl12.üũ Then NullVal &= IIf(ȸ13.Trim = "", "", "X") + 'If Me.ImpCtl13.üũ Then NullVal &= IIf(ȸ14.Trim = "", "", "X") + 'If Me.ImpCtl14.üũ Then NullVal &= IIf(ȸ15.Trim = "", "", "X") + If Me.ImpCtl12.üũ Then NullVal &= IIf(ȸ21.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(ȸ22.Trim = "", "", "X") + 'If Me.ImpCtl17.üũ Then NullVal &= IIf(ȸ23.Trim = "", "", "X") + 'If Me.ImpCtl18.üũ Then NullVal &= IIf(ȸ24.Trim = "", "", "X") + 'If Me.ImpCtl19.üũ Then NullVal &= IIf(ȸ25.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(ȸ31.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(ȸ32.Trim = "", "", "X") + 'If Me.ImpCtl22.üũ Then NullVal &= IIf(ȸ33.Trim = "", "", "X") + 'If Me.ImpCtl23.üũ Then NullVal &= IIf(ȸ34.Trim = "", "", "X") + 'If Me.ImpCtl24.üũ Then NullVal &= IIf(ȸ35.Trim = "", "", "X") + + If Me.ImpCtl16.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.ImpCtl19.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SrcKikiTableRow = Me.Src⼼.NewDetail_kikiRow '//ӽ̺ + Me.SrcKikiTableRow.rowid = System.Guid.NewGuid + Me.SrcKikiTableRow.ID = id + Me.SrcKikiTableRow.ȣ = index + Me.SrcKikiTableRow. = + Me.SrcKikiTableRow.ֹȣ = ȭȣ + Me.SrcKikiTableRow.θ = θ + Me.SrcKikiTableRow.ȣ1 = ȣ1 + Me.SrcKikiTableRow.ȣ2 = ȣ2 + Me.SrcKikiTableRow.ȣ3 = ȣ3 + Me.SrcKikiTableRow.ȣ4 = ȣ4 + Me.SrcKikiTableRow.ȣ5 = ȣ5 + Me.SrcKikiTableRow.ȸ11 = ȸ11 + Me.SrcKikiTableRow.ȸ12 = ȸ12 + 'Me.SrcKikiTableRow.ȸ13 = ȸ13 + 'Me.SrcKikiTableRow.ȸ14 = ȸ14 + 'Me.SrcKikiTableRow.ȸ15 = ȸ15 + + Me.SrcKikiTableRow.ȸ21 = ȸ21 + Me.SrcKikiTableRow.ȸ22 = ȸ22 + 'Me.SrcKikiTableRow.ȸ23 = ȸ23 + 'Me.SrcKikiTableRow.ȸ24 = ȸ24 + 'Me.SrcKikiTableRow.ȸ25 = ȸ25 + + Me.SrcKikiTableRow.ȸ31 = ȸ31 + Me.SrcKikiTableRow.ȸ32 = ȸ32 + 'Me.SrcKikiTableRow.ȸ33 = ȸ33 + 'Me.SrcKikiTableRow.ȸ34 = ȸ34 + 'Me.SrcKikiTableRow.ȸ35 = ȸ35 + + Me.SrcKikiTableRow.1 = 1 + Me.SrcKikiTableRow.2 = 2 + Me.SrcKikiTableRow.3 = 3 + Me.SrcKikiTableRow.4 = 4 + + Me.SrcKikiTableRow. = True + Me.SrcKikiTableRow.Ĺȣ = "" + + Me.Src⼼.Rows.Add(Me.SrcKikiTableRow) + ' + End If + Catch ex As ConstraintException '//ߺ + ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + Catch ex As Exception + ' AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.Src⼼ + Me.CustFP2.ActiveSheet.Columns(0).Width = 0 + Me.CustFP2.ActiveSheet.Columns(1).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(10).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(11).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(12).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(13).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(26).Width = 0 + 'Me.CustFP2.ActiveSheet.Columns(27).Width = 0 + End Sub + Private Sub Apply̺2() '//ƾ ߰ ִ°ͻ̴ (ȣ) + Dim As String = "" + Dim ȣ As String = "" + Dim haڸ As String = "" + Dim HA As String = "" + Dim HASS As String = "" + Dim HADL As String = "" + + Dim HBڸ As String = "" + Dim HBSS As String = "" + Dim HBDL As String = "" + Dim HB As String = "" + + Dim S1ȣ1 As String = "" + Dim S1ȣ2 As String = "" + Dim S1ȣ3 As String = "" + 'Dim S1ȣ4 As String = "" + Dim S1SW As String = "" + 'Dim S1ġ As String = "" + Dim s2ȣ1 As String = "" + Dim s2ȣ2 As String = "" + Dim s2ȣ3 As String = "" + 'Dim s2ȣ4 As String = "" + Dim s2SW As String = "" + 'Dim s2ġ As String = "" + Dim s3ȣ1 As String = "" + Dim s3ȣ2 As String = "" + Dim s3ȣ3 As String = "" + 'Dim s3ȣ4 As String = "" + Dim s3SW As String = "" + 'Dim s3ġ As String = "" + Dim s4ȣ1 As String = "" + Dim s4ȣ2 As String = "" + Dim s4ȣ3 As String = "" + 'Dim s4ȣ4 As String = "" + Dim s4SW As String = "" + 'Dim s4ġ As String = "" + + Dim 1, 2, 3, 4, 5, 6 As String + + Dim ȣ As Integer '//ȣ notnull ̴ + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + + '//src߼ ̺ ͸ Ѵ. + + Me.SRCDetail_Cable.Clear() + Dim index As Integer = 0 + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + Me.SHowCnt(index, EndCnt) + NullVal = False + Try + ȣ = index ' Me.GetItemFP(Dr, Me.TextBox5, Me.TextBox42, True).ToString.ToUpper '//ȣ notnull ̴ + = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + + haڸ = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + HASS = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + HADL = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + HA = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + + HBڸ = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + HBSS = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + HBDL = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + HB = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + + S1ȣ1 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + S1ȣ2 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + S1ȣ3 = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + ' S1ȣ4 = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + S1SW = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + 'S1ġ = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + s2ȣ1 = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + s2ȣ2 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + s2ȣ3 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + 's2ȣ4 = Me.GetFPData(Me.ImpCtl21, Dr).ToUpper.Trim + s2SW = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + 's2ġ = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + s3ȣ1 = Me.GetFPData(Me.ImpCtl20, Dr).ToUpper.Trim + s3ȣ2 = Me.GetFPData(Me.ImpCtl21, Dr).ToUpper.Trim + s3ȣ3 = Me.GetFPData(Me.ImpCtl22, Dr).ToUpper.Trim + 's3ȣ4 = Me.GetFPData(Me.ImpCtl27, Dr).ToUpper.Trim + s3SW = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + 's3ġ = Me.GetFPData(Me.ImpCtl29, Dr).ToUpper.Trim + s4ȣ1 = Me.GetFPData(Me.ImpCtl24, Dr).ToUpper.Trim + s4ȣ2 = Me.GetFPData(Me.ImpCtl25, Dr).ToUpper.Trim + s4ȣ3 = Me.GetFPData(Me.ImpCtl26, Dr).ToUpper.Trim + 's4ȣ4 = Me.GetFPData(Me.ImpCtl33, Dr).ToUpper.Trim + s4SW = Me.GetFPData(Me.ImpCtl27, Dr).ToUpper.Trim + 's4ġ = Me.GetFPData(Me.ImpCtl35, Dr).ToUpper.Trim + 'ð = Me.GetFPData(Me.ImpCtl40, Dr).ToUpper.Trim + 'ðȸ = Me.GetFPData(Me.ImpCtl41, Dr).ToUpper.Trim + 'ȣ = Me.GetFPData(Me.ImpCtl42, Dr).ToUpper.Trim + ' = Me.GetFPData(Me.ImpCtl43, Dr).ToUpper.Trim + + 1 = Me.GetFPData(Me.ImpCtl28, Dr).ToUpper.Trim + 2 = Me.GetFPData(Me.ImpCtl29, Dr).ToUpper.Trim + 3 = Me.GetFPData(Me.ImpCtl30, Dr).ToUpper.Trim + 4 = Me.GetFPData(Me.ImpCtl31, Dr).ToUpper.Trim + 5 = Me.GetFPData(Me.ImpCtl32, Dr).ToUpper.Trim + 6 = Me.GetFPData(Me.ImpCtl33, Dr).ToUpper.Trim + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + + If Me.ImpCtl4.üũ Then NullVal &= IIf(haڸ.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(HASS.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(HADL.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(HA.Trim = "", "", "X") + + If Me.ImpCtl8.üũ Then NullVal &= IIf(HBڸ.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(HBSS.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(HBDL.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(HB.Trim = "", "", "X") + + If Me.ImpCtl12.üũ Then NullVal &= IIf(S1ȣ1.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(S1ȣ2.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(S1ȣ3.Trim = "", "", "X") + 'If Me.ImpCtl15.üũ Then NullVal &= IIf(S1ȣ4.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(S1SW.Trim = "", "", "X") + ' If Me.ImpCtl17.üũ Then NullVal &= IIf(S1ġ.Trim = "", "", "X") + If Me.ImpCtl16.üũ Then NullVal &= IIf(s2ȣ1.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(s2ȣ2.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(s2ȣ3.Trim = "", "", "X") + 'If Me.ImpCtl21.üũ Then NullVal &= IIf(s2ȣ4.Trim = "", "", "X") + If Me.ImpCtl19.üũ Then NullVal &= IIf(s2SW.Trim = "", "", "X") + 'If Me.ImpCtl23.üũ Then NullVal &= IIf(s2ġ.Trim = "", "", "X") + If Me.ImpCtl20.üũ Then NullVal &= IIf(s3ȣ1.Trim = "", "", "X") + If Me.ImpCtl21.üũ Then NullVal &= IIf(s3ȣ2.Trim = "", "", "X") + If Me.ImpCtl22.üũ Then NullVal &= IIf(s3ȣ3.Trim = "", "", "X") + 'If Me.ImpCtl27.üũ Then NullVal &= IIf(s3ȣ4.Trim = "", "", "X") + If Me.ImpCtl23.üũ Then NullVal &= IIf(s3SW.Trim = "", "", "X") + 'If Me.ImpCtl29.üũ Then NullVal &= IIf(s3ġ.Trim = "", "", "X") + If Me.ImpCtl24.üũ Then NullVal &= IIf(s4ȣ1.Trim = "", "", "X") + If Me.ImpCtl25.üũ Then NullVal &= IIf(s4ȣ2.Trim = "", "", "X") + If Me.ImpCtl26.üũ Then NullVal &= IIf(s4ȣ3.Trim = "", "", "X") + 'If Me.ImpCtl33.üũ Then NullVal &= IIf(s4ȣ4.Trim = "", "", "X") + If Me.ImpCtl27.üũ Then NullVal &= IIf(s4SW.Trim = "", "", "X") + 'If Me.ImpCtl35.üũ Then NullVal &= IIf(s4ġ.Trim = "", "", "X") + 'If Me.ImpCtl40.üũ Then NullVal &= IIf(ð.Trim = "", "", "X") + 'If Me.ImpCtl41.üũ Then NullVal &= IIf(ðȸ.Trim = "", "", "X") + 'If Me.ImpCtl42.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + 'If Me.ImpCtl43.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl28.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.ImpCtl29.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.ImpCtl30.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.ImpCtl31.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + If Me.ImpCtl32.üũ Then NullVal &= IIf(5.Trim = "", "", "X") + If Me.ImpCtl33.üũ Then NullVal &= IIf(6.Trim = "", "", "X") + + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SRCCABLE2ROW = Me.SRCDetail_Cable2.NewDetail_Cable2Row + Me.SRCCABLE2ROW.rowid = System.Guid.NewGuid + Me.SRCCABLE2ROW.ID = id + Me.SRCCABLE2ROW.ȣ = ȣ + + Me.SRCCABLE2ROW. = + Me.SRCCABLE2ROW.ȣ = ȣ + + Me.SRCCABLE2ROW.HAڸ = haڸ + Me.SRCCABLE2ROW.HASS = HASS + Me.SRCCABLE2ROW.HADL = HADL + Me.SRCCABLE2ROW.HA = HA + + Me.SRCCABLE2ROW.HBڸ = HBڸ + Me.SRCCABLE2ROW.HBSS = HBSS + Me.SRCCABLE2ROW.HBDL = HBDL + Me.SRCCABLE2ROW.HB = HB + + Me.SRCCABLE2ROW.S1ȣ1 = S1ȣ1 + Me.SRCCABLE2ROW.S1ȣ2 = S1ȣ2 + Me.SRCCABLE2ROW.S1ȣ3 = S1ȣ3 + 'Me.SRCCABLE2ROW.S1ȣ4 = S1ȣ4 + Me.SRCCABLE2ROW.S1SW = S1SW + 'Me.SRCCABLE2ROW.S1ġ = S1ġ + + Me.SRCCABLE2ROW.S2ȣ1 = s2ȣ1 + Me.SRCCABLE2ROW.S2ȣ2 = s2ȣ2 + Me.SRCCABLE2ROW.S2ȣ3 = s2ȣ3 + 'Me.SRCCABLE2ROW.S2ȣ4 = s2ȣ4 + Me.SRCCABLE2ROW.S2SW = s2SW + 'Me.SRCCABLE2ROW.S2ġ = s2ġ + + Me.SRCCABLE2ROW.S3ȣ1 = s3ȣ1 + Me.SRCCABLE2ROW.S3ȣ2 = s3ȣ2 + Me.SRCCABLE2ROW.S3ȣ3 = s3ȣ3 + 'Me.SRCCABLE2ROW.S3ȣ4 = s3ȣ4 + Me.SRCCABLE2ROW.S3SW = s3SW + 'Me.SRCCABLE2ROW.S3ġ = s3ġ + + Me.SRCCABLE2ROW.S4ȣ1 = s4ȣ1 + Me.SRCCABLE2ROW.S4ȣ2 = s4ȣ2 + Me.SRCCABLE2ROW.S4ȣ3 = s4ȣ3 + 'Me.SRCCABLE2ROW.S4ȣ4 = s4ȣ4 + Me.SRCCABLE2ROW.S4SW = s4SW + 'Me.SRCCABLE2ROW.S4ġ = s4ġ + + 'Me.SRCCABLE2ROW.ð = ð + 'Me.SRCCABLE2ROW.ðȸ = ðȸ + 'Me.SRCCABLE2ROW.ȣ = ȣ + 'Me.SRCCABLE2ROW. = + + Me.SRCCABLE2ROW.1 = 1 + Me.SRCCABLE2ROW.2 = 2 + Me.SRCCABLE2ROW.3 = 3 + Me.SRCCABLE2ROW.4 = 4 + Me.SRCCABLE2ROW.5 = 5 + Me.SRCCABLE2ROW.6 = 6 + + Me.SRCCABLE2ROW. = True + Me.SRCCABLE2ROW.Ĺȣ = "" + + Me.SRCDetail_Cable2.Rows.Add(Me.SRCCABLE2ROW) + ' Catch ex As ConstraintException '//ߺ + ' ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + End If + Catch ex As Exception + MsgBox("!" & id & "/" & ȣ & vbCrLf & ex.ToString) + 'AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCDetail_Cable2 + + End Sub + Private Sub Apply̺() '//ƾ ߰ ִ°ͻ̴ (ȣ) + Dim As String = "" + Dim ȣ As String = "" + Dim HA As String = "" + Dim HASS As String = "" + Dim HADL As String = "" + Dim HBSS As String = "" + Dim HBDL As String = "" + Dim HB As String = "" + Dim S0ȣ1 As String = "" + Dim S0ȣ2 As String = "" + Dim S0ȣ3 As String = "" + Dim S0ȣ4 As String = "" + Dim S0SW As String = "" + + Dim S0밡 As String = "" + Dim S1ȣ1 As String = "" + Dim S1ȣ2 As String = "" + Dim S1ȣ3 As String = "" + Dim S1ȣ4 As String = "" + Dim S1SW As String = "" + Dim S1ġ As String = "" + Dim s2ȣ1 As String = "" + Dim s2ȣ2 As String = "" + Dim s2ȣ3 As String = "" + Dim s2ȣ4 As String = "" + Dim s2SW As String = "" + Dim s2ġ As String = "" + Dim s3ȣ1 As String = "" + Dim s3ȣ2 As String = "" + Dim s3ȣ3 As String = "" + Dim s3ȣ4 As String = "" + Dim s3SW As String = "" + Dim s3ġ As String = "" + Dim s4ȣ1 As String = "" + Dim s4ȣ2 As String = "" + Dim s4ȣ3 As String = "" + Dim s4ȣ4 As String = "" + Dim s4SW As String = "" + Dim s4ġ As String = "" + Dim ð As String = "" + Dim ðȸ As String = "" + Dim ȣ As String = "" + Dim As String = "" + + Dim haڸ, hbڸ As String + + + Dim 1, 2, 3, 4, 5, 6 As String + + Dim ȣ As Integer '//ȣ notnull ̴ + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + + Dim cnt As Integer = -1 + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + + '//src߼ ̺ ͸ Ѵ. + + Me.SRCDetail_Cable.Clear() + Dim index As Integer = 0 + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + Me.SHowCnt(index, EndCnt) + NullVal = False + Try + ȣ = index ' Me.GetItemFP(Dr, Me.TextBox5, Me.TextBox42, True).ToString.ToUpper '//ȣ notnull ̴ + = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + HASS = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + HADL = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + HA = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + HBSS = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + HBDL = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + HB = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + S0ȣ1 = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + S0ȣ2 = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + S0ȣ3 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + S0ȣ4 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + S0SW = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + S0밡 = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + S1ȣ1 = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + S1ȣ2 = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + S1ȣ3 = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + S1ȣ4 = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + S1SW = Me.GetFPData(Me.ImpCtl20, Dr).ToUpper.Trim + S1ġ = Me.GetFPData(Me.ImpCtl21, Dr).ToUpper.Trim + s2ȣ1 = Me.GetFPData(Me.ImpCtl22, Dr).ToUpper.Trim + s2ȣ2 = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + s2ȣ3 = Me.GetFPData(Me.ImpCtl24, Dr).ToUpper.Trim + s2ȣ4 = Me.GetFPData(Me.ImpCtl25, Dr).ToUpper.Trim + s2SW = Me.GetFPData(Me.ImpCtl26, Dr).ToUpper.Trim + s2ġ = Me.GetFPData(Me.ImpCtl27, Dr).ToUpper.Trim + s3ȣ1 = Me.GetFPData(Me.ImpCtl28, Dr).ToUpper.Trim + s3ȣ2 = Me.GetFPData(Me.ImpCtl29, Dr).ToUpper.Trim + s3ȣ3 = Me.GetFPData(Me.ImpCtl30, Dr).ToUpper.Trim + s3ȣ4 = Me.GetFPData(Me.ImpCtl31, Dr).ToUpper.Trim + s3SW = Me.GetFPData(Me.ImpCtl32, Dr).ToUpper.Trim + s3ġ = Me.GetFPData(Me.ImpCtl33, Dr).ToUpper.Trim + s4ȣ1 = Me.GetFPData(Me.ImpCtl34, Dr).ToUpper.Trim + s4ȣ2 = Me.GetFPData(Me.ImpCtl35, Dr).ToUpper.Trim + s4ȣ3 = Me.GetFPData(Me.ImpCtl36, Dr).ToUpper.Trim + s4ȣ4 = Me.GetFPData(Me.ImpCtl37, Dr).ToUpper.Trim + s4SW = Me.GetFPData(Me.ImpCtl38, Dr).ToUpper.Trim + s4ġ = Me.GetFPData(Me.ImpCtl39, Dr).ToUpper.Trim + ð = Me.GetFPData(Me.ImpCtl40, Dr).ToUpper.Trim + ðȸ = Me.GetFPData(Me.ImpCtl41, Dr).ToUpper.Trim + ȣ = Me.GetFPData(Me.ImpCtl42, Dr).ToUpper.Trim + = Me.GetFPData(Me.ImpCtl43, Dr).ToUpper.Trim + + 1 = Me.GetFPData(Me.ImpCtl44, Dr).ToUpper.Trim + 2 = Me.GetFPData(Me.ImpCtl45, Dr).ToUpper.Trim + 3 = Me.GetFPData(Me.ImpCtl46, Dr).ToUpper.Trim + 4 = Me.GetFPData(Me.ImpCtl47, Dr).ToUpper.Trim + 5 = Me.GetFPData(Me.ImpCtl48, Dr).ToUpper.Trim + 6 = Me.GetFPData(Me.ImpCtl49, Dr).ToUpper.Trim + + haڸ = Me.GetFPData(Me.ImpCtl50, Dr).ToUpper.Trim + hbڸ = Me.GetFPData(Me.ImpCtl51, Dr).ToUpper.Trim + + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl3.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + If Me.ImpCtl4.üũ Then NullVal &= IIf(HASS.Trim = "", "", "X") + If Me.ImpCtl5.üũ Then NullVal &= IIf(HADL.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(HA.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(HBSS.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(HBDL.Trim = "", "", "X") + If Me.ImpCtl9.üũ Then NullVal &= IIf(HB.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(S0ȣ1.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(S0ȣ2.Trim = "", "", "X") + If Me.ImpCtl12.üũ Then NullVal &= IIf(S0ȣ3.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(S0ȣ4.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(S0SW.Trim = "", "", "X") + If Me.ImpCtl15.üũ Then NullVal &= IIf(S0밡.Trim = "", "", "X") + If Me.ImpCtl16.üũ Then NullVal &= IIf(S1ȣ1.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(S1ȣ2.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(S1ȣ3.Trim = "", "", "X") + If Me.ImpCtl19.üũ Then NullVal &= IIf(S1ȣ4.Trim = "", "", "X") + If Me.ImpCtl20.üũ Then NullVal &= IIf(S1SW.Trim = "", "", "X") + If Me.ImpCtl21.üũ Then NullVal &= IIf(S1ġ.Trim = "", "", "X") + If Me.ImpCtl22.üũ Then NullVal &= IIf(s2ȣ1.Trim = "", "", "X") + If Me.ImpCtl23.üũ Then NullVal &= IIf(s2ȣ2.Trim = "", "", "X") + If Me.ImpCtl24.üũ Then NullVal &= IIf(s2ȣ3.Trim = "", "", "X") + If Me.ImpCtl25.üũ Then NullVal &= IIf(s2ȣ4.Trim = "", "", "X") + If Me.ImpCtl26.üũ Then NullVal &= IIf(s2SW.Trim = "", "", "X") + If Me.ImpCtl27.üũ Then NullVal &= IIf(s2ġ.Trim = "", "", "X") + If Me.ImpCtl28.üũ Then NullVal &= IIf(s3ȣ1.Trim = "", "", "X") + If Me.ImpCtl29.üũ Then NullVal &= IIf(s3ȣ2.Trim = "", "", "X") + If Me.ImpCtl30.üũ Then NullVal &= IIf(s3ȣ3.Trim = "", "", "X") + If Me.ImpCtl31.üũ Then NullVal &= IIf(s3ȣ4.Trim = "", "", "X") + If Me.ImpCtl32.üũ Then NullVal &= IIf(s3SW.Trim = "", "", "X") + If Me.ImpCtl33.üũ Then NullVal &= IIf(s3ġ.Trim = "", "", "X") + If Me.ImpCtl34.üũ Then NullVal &= IIf(s4ȣ1.Trim = "", "", "X") + If Me.ImpCtl35.üũ Then NullVal &= IIf(s4ȣ2.Trim = "", "", "X") + If Me.ImpCtl36.üũ Then NullVal &= IIf(s4ȣ3.Trim = "", "", "X") + If Me.ImpCtl37.üũ Then NullVal &= IIf(s4ȣ4.Trim = "", "", "X") + If Me.ImpCtl38.üũ Then NullVal &= IIf(s4SW.Trim = "", "", "X") + If Me.ImpCtl39.üũ Then NullVal &= IIf(s4ġ.Trim = "", "", "X") + If Me.ImpCtl40.üũ Then NullVal &= IIf(ð.Trim = "", "", "X") + If Me.ImpCtl41.üũ Then NullVal &= IIf(ðȸ.Trim = "", "", "X") + If Me.ImpCtl42.üũ Then NullVal &= IIf(ȣ.Trim = "", "", "X") + If Me.ImpCtl43.üũ Then NullVal &= IIf(.Trim = "", "", "X") + If Me.ImpCtl44.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.ImpCtl45.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.ImpCtl46.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.ImpCtl47.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + If Me.ImpCtl48.üũ Then NullVal &= IIf(5.Trim = "", "", "X") + If Me.ImpCtl49.üũ Then NullVal &= IIf(6.Trim = "", "", "X") + If Me.ImpCtl50.üũ Then NullVal &= IIf(haڸ.Trim = "", "", "X") + If Me.ImpCtl51.üũ Then NullVal &= IIf(hbڸ.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SRCCABLEROW = Me.SRCDetail_Cable.NewDetail_CableRow + Me.SRCCABLEROW.rowid = System.Guid.NewGuid + Me.SRCCABLEROW.ID = id + Me.SRCCABLEROW.ȣ = ȣ + + Me.SRCCABLEROW. = + Me.SRCCABLEROW.ȣ = ȣ + Me.SRCCABLEROW.HASS = HASS + Me.SRCCABLEROW.HADL = HADL + Me.SRCCABLEROW.HA = HA + Me.SRCCABLEROW.HBSS = HBSS + Me.SRCCABLEROW.HBDL = HBDL + + Me.SRCCABLEROW.HB = HB + Me.SRCCABLEROW.S0ȣ1 = S0ȣ1 + Me.SRCCABLEROW.S0ȣ2 = S0ȣ2 + Me.SRCCABLEROW.S0ȣ3 = S0ȣ3 + Me.SRCCABLEROW.S0ȣ4 = S0ȣ4 + Me.SRCCABLEROW.S0SW = S0SW + Me.SRCCABLEROW.S0밡 = S0밡 + + Me.SRCCABLEROW.S1ȣ1 = S1ȣ1 + Me.SRCCABLEROW.S1ȣ2 = S1ȣ2 + Me.SRCCABLEROW.S1ȣ3 = S1ȣ3 + Me.SRCCABLEROW.S1ȣ4 = S1ȣ4 + Me.SRCCABLEROW.S1SW = S1SW + Me.SRCCABLEROW.S1ġ = S1ġ + + Me.SRCCABLEROW.S2ȣ1 = s2ȣ1 + Me.SRCCABLEROW.S2ȣ2 = s2ȣ2 + Me.SRCCABLEROW.S2ȣ3 = s2ȣ3 + Me.SRCCABLEROW.S2ȣ4 = s2ȣ4 + Me.SRCCABLEROW.S2SW = s2SW + Me.SRCCABLEROW.S2ġ = s2ġ + + Me.SRCCABLEROW.S3ȣ1 = s3ȣ1 + Me.SRCCABLEROW.S3ȣ2 = s3ȣ2 + Me.SRCCABLEROW.S3ȣ3 = s3ȣ3 + Me.SRCCABLEROW.S3ȣ4 = s3ȣ4 + Me.SRCCABLEROW.S3SW = s3SW + Me.SRCCABLEROW.S3ġ = s3ġ + + Me.SRCCABLEROW.S4ȣ1 = s4ȣ1 + Me.SRCCABLEROW.S4ȣ2 = s4ȣ2 + Me.SRCCABLEROW.S4ȣ3 = s4ȣ3 + Me.SRCCABLEROW.S4ȣ4 = s4ȣ4 + Me.SRCCABLEROW.S4SW = s4SW + Me.SRCCABLEROW.S4ġ = s4ġ + + Me.SRCCABLEROW.ð = ð + Me.SRCCABLEROW.ðȸ = ðȸ + Me.SRCCABLEROW.ȣ = ȣ + Me.SRCCABLEROW. = + + Me.SRCCABLEROW.1 = 1 + Me.SRCCABLEROW.2 = 2 + Me.SRCCABLEROW.3 = 3 + Me.SRCCABLEROW.4 = 4 + Me.SRCCABLEROW.5 = 5 + Me.SRCCABLEROW.6 = 6 + + + Me.SRCCABLEROW.HAڸ = haڸ + Me.SRCCABLEROW.HBڸ = hbڸ + Me.SRCCABLEROW. = True + Me.SRCCABLEROW.Ĺȣ = "" + + Me.SRCDetail_Cable.Rows.Add(Me.SRCCABLEROW) + ' Catch ex As ConstraintException '//ߺ + ' ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + End If + Catch ex As Exception + MsgBox("!" & id & "/" & ȣ & vbCrLf & ex.ToString) + 'AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCDetail_Cable + + End Sub + Private Sub Apply̺() '//ƾ ߰ ִ°ͻ̴ (ȣ) + + Dim N10 As String = "" + Dim N1D As String = "" + Dim N1S As String = "" + Dim N1L As String = "" + Dim N1H1 As String = "" + Dim N1H2 As String = "" + + Dim N20 As String = "" + Dim N2J As String = "" + Dim N2K As String = "" + Dim N2B As String = "" + Dim N21 As String = "" + Dim N22 As String = "" + Dim N2C As String = "" + + Dim N30 As String = "" + Dim N3J As String = "" + Dim N3K As String = "" + Dim N3B As String = "" + Dim N31 As String = "" + Dim N32 As String = "" + Dim N3C As String = "" + + 'Dim 1, 2, 3 As String + + Dim ȣ As Integer '//ȣ notnull ̴ + Dim NullChk As Boolean = Me.NullCHeck + Dim NullVal As String = "" + + + Dim cnt As Integer = -1 + + NOTICE("ͺ̽ մϴ(ҺҰ)", Me.lb_msg) + + Dim StartCnt As Integer = CInt(Me.tb_scnt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_ecnt.Text) = 0, Me.CustFP1.ActiveSheet.RowCount, CInt(Me.tb_ecnt.Text)) + + + '//src߼ ̺ ͸ Ѵ. + + Me.SRCDetail_CableLABEL.Clear() + Dim index As Integer = 0 + + For Each Dr As FarPoint.Win.Spread.Row In Me.CustFP1.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + index += 1 + Me.SHowCnt(index, EndCnt) + NullVal = False + Try + ȣ = index ' Me.GetItemFP(Dr, Me.TextBox5, Me.TextBox42, True).ToString.ToUpper '//ȣ notnull ̴ + N10 = Me.GetFPData(Me.ImpCtl2, Dr).ToUpper.Trim + N1D = Me.GetFPData(Me.ImpCtl3, Dr).ToUpper.Trim + N1S = Me.GetFPData(Me.ImpCtl4, Dr).ToUpper.Trim + N1L = Me.GetFPData(Me.ImpCtl5, Dr).ToUpper.Trim + N1H1 = Me.GetFPData(Me.ImpCtl6, Dr).ToUpper.Trim + N1H2 = Me.GetFPData(Me.ImpCtl7, Dr).ToUpper.Trim + + N20 = Me.GetFPData(Me.ImpCtl8, Dr).ToUpper.Trim + N2J = Me.GetFPData(Me.ImpCtl9, Dr).ToUpper.Trim + N2K = Me.GetFPData(Me.ImpCtl10, Dr).ToUpper.Trim + N2B = Me.GetFPData(Me.ImpCtl11, Dr).ToUpper.Trim + N21 = Me.GetFPData(Me.ImpCtl12, Dr).ToUpper.Trim + N22 = Me.GetFPData(Me.ImpCtl13, Dr).ToUpper.Trim + N2C = Me.GetFPData(Me.ImpCtl14, Dr).ToUpper.Trim + + N30 = Me.GetFPData(Me.ImpCtl15, Dr).ToUpper.Trim + N3J = Me.GetFPData(Me.ImpCtl16, Dr).ToUpper.Trim + N3K = Me.GetFPData(Me.ImpCtl17, Dr).ToUpper.Trim + N3B = Me.GetFPData(Me.ImpCtl18, Dr).ToUpper.Trim + N31 = Me.GetFPData(Me.ImpCtl19, Dr).ToUpper.Trim + N32 = Me.GetFPData(Me.ImpCtl20, Dr).ToUpper.Trim + N3C = Me.GetFPData(Me.ImpCtl21, Dr).ToUpper.Trim + '2 = Me.GetFPData(Me.ImpCtl22, Dr).ToUpper.Trim + '3 = Me.GetFPData(Me.ImpCtl23, Dr).ToUpper.Trim + + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.ImpCtl2.üũ Then NullVal &= IIf(N10.Trim = "", "", "X") + + If Me.ImpCtl3.üũ Then NullVal &= IIf(N1D.Trim = "", "", "X") + If Me.ImpCtl4.üũ Then NullVal &= IIf(N1S.Trim = "", "", "X") + + If Me.ImpCtl5.üũ Then NullVal &= IIf(N1L.Trim = "", "", "X") + If Me.ImpCtl6.üũ Then NullVal &= IIf(N1H1.Trim = "", "", "X") + If Me.ImpCtl7.üũ Then NullVal &= IIf(N1H2.Trim = "", "", "X") + If Me.ImpCtl8.üũ Then NullVal &= IIf(N20.Trim = "", "", "X") + + If Me.ImpCtl9.üũ Then NullVal &= IIf(N2J.Trim = "", "", "X") + If Me.ImpCtl10.üũ Then NullVal &= IIf(N2K.Trim = "", "", "X") + If Me.ImpCtl11.üũ Then NullVal &= IIf(N2B.Trim = "", "", "X") + If Me.ImpCtl12.üũ Then NullVal &= IIf(N21.Trim = "", "", "X") + If Me.ImpCtl13.üũ Then NullVal &= IIf(N22.Trim = "", "", "X") + If Me.ImpCtl14.üũ Then NullVal &= IIf(N2C.Trim = "", "", "X") + + If Me.ImpCtl15.üũ Then NullVal &= IIf(N30.Trim = "", "", "X") + If Me.ImpCtl16.üũ Then NullVal &= IIf(N3J.Trim = "", "", "X") + If Me.ImpCtl17.üũ Then NullVal &= IIf(N3K.Trim = "", "", "X") + If Me.ImpCtl18.üũ Then NullVal &= IIf(N3B.Trim = "", "", "X") + If Me.ImpCtl19.üũ Then NullVal &= IIf(N31.Trim = "", "", "X") + If Me.ImpCtl20.üũ Then NullVal &= IIf(N32.Trim = "", "", "X") + + If Me.ImpCtl21.üũ Then NullVal &= IIf(N3C.Trim = "", "", "X") + ' If Me.ImpCtl22.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + 'If Me.ImpCtl23.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + + + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + Me.SRCCABLELABLEROW = Me.SRCDetail_CableLABEL.NewDetail_CableLabelRow + Me.SRCCABLELABLEROW.rowid = System.Guid.NewGuid + Me.SRCCABLELABLEROW.ID = id + Me.SRCCABLELABLEROW.ȣ = ȣ + + Me.SRCCABLELABLEROW.N10 = N10 + Me.SRCCABLELABLEROW.N1D = N1D + Me.SRCCABLELABLEROW.N1S = N1S + Me.SRCCABLELABLEROW.N1L = N1L + Me.SRCCABLELABLEROW.N1H1 = N1H1 + Me.SRCCABLELABLEROW.N1H2 = N1H2 + + Me.SRCCABLELABLEROW.N20 = N20 + Me.SRCCABLELABLEROW.N2J = N2J + Me.SRCCABLELABLEROW.N2K = N2K + Me.SRCCABLELABLEROW.N2B = N2B + Me.SRCCABLELABLEROW.N21 = N21 + Me.SRCCABLELABLEROW.N22 = N22 + Me.SRCCABLELABLEROW.N2C = N2C + + Me.SRCCABLELABLEROW.N30 = N30 + Me.SRCCABLELABLEROW.N3J = N3J + Me.SRCCABLELABLEROW.N3K = N3K + Me.SRCCABLELABLEROW.N3B = N3B + Me.SRCCABLELABLEROW.N31 = N31 + Me.SRCCABLELABLEROW.N32 = N32 + Me.SRCCABLELABLEROW.N3C = N3C + + + + + Me.SRCCABLELABLEROW. = True + Me.SRCCABLELABLEROW.Ĺȣ = "" + Me.SRCDetail_CableLABEL.Rows.Add(Me.SRCCABLELABLEROW) + ' Catch ex As ConstraintException '//ߺ + ' ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + End If + Catch ex As Exception + MsgBox("!" & id & "/" & ȣ & vbCrLf & ex.ToString) + 'AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + NOTICE("Ϸ", Me.lb_msg) + Me.CustFP2.DataSource = Me.SRCDetail_CableLABEL + + Dim Idx As Integer = 0 + Me.CustFP2.ActiveSheet.Columns(0).Width = 0 + Me.CustFP2.ActiveSheet.Columns(1).Width = 0 + Me.CustFP2.ActiveSheet.Columns(2).Width = 0 + Me.CustFP2.ActiveSheet.Columns(3).Width = 0 + Me.CustFP2.ActiveSheet.Columns(4).Width = 0 + Me.CustFP2.ActiveSheet.Columns(5).Width = 0 + Me.CustFP2.ActiveSheet.Columns(6).Width = 0 + Me.CustFP2.ActiveSheet.Columns(7).Width = 0 + Me.CustFP2.ActiveSheet.Columns(8).Width = 0 + Me.CustFP2.ActiveSheet.Columns(9).Width = 0 + Me.CustFP2.ActiveSheet.Columns(10).Width = 0 + + Idx = 11 + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "(ȣ)" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "ڸ" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "S/S" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "D/L" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "H1" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "H2" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "I(ȣ)" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "йȣ" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "޻" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "޺б" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "ȣ()" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "ȣ()" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "II(ȣ)" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "йȣ" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "޻" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "޺б" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "ȣ()" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "ȣ()" + Idx += 1 : Me.CustFP2.ActiveSheet.Columns(Idx).Label = "" + + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + + If Me.CustFP1.ActiveSheet.RowCount <= 0 Then + NOTICE("Ͱ ϴ", Me.lb_msg) + Exit Sub + End If + + Select Case + Case 0 '//ȣ + Me.Apply() + Case 1 '//߹ȣ + Me.Apply() + Case 9 '//Ÿȣ + Me.ApplyETC() + Case 2 '//׵ + Me.ApplyDeung() + Case 4 '//׵ + Me.Apply_() + Case 6 '//׵ + Me.Apply̺() + Case 7 '//׵ + Me.Apply̺() + Case 8 '//׵ + Me.Apply̺2() + End Select + Me.CustFP2.ASetting_Load(False, Me.) + 'If Me. = 9 Then ApplyETC() + 'If Me. = 0 Then Apply() + + End Sub + + Private Sub CustFP1_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles CustFP1.CellDoubleClick + If SelControl Is Nothing Then Return + SelControl.Text = Me.CustFP1.ActiveSheet.ActiveColumnIndex + 1 + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Dim OD As New OpenFileDialog + Dim Aranini As New MyINI2(IniFile) + OD.FileName = Me.lb_file.Text + OD.Filter = "MS Office Excel WorkSheet(*.xls)|*.xls" + OD.FilterIndex = 1 + ' OD.RestoreDirectory = True + If OD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + NOTICE("ҷⰡ ҵǾϴ", Me.lb_msg) + Else + Aranini.Write("normal", "file", OD.FileName) + Me.lb_file.Text = OD.FileName + ReadXls(OD.FileName) + End If + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + '// ϴ ͸ ϰ ߰մϴ. + + + Select Case + Case 0 '// + If Me.SrcDataSet.jjutable.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.jjutable.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.jjutable.Rows.Count - 1) + Me.SrcDataSet.jjutable.Rows(I).Delete() + Next + End If + + Me.SrcDataSet.jjutable.Merge(Me.SRCּ) + Case 1 '// + If Me.SrcDataSet.jjungtable.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.jjungtable.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.jjungtable.Rows.Count - 1) + Me.SrcDataSet.jjungtable.Rows(I).Delete() + Next + End If + Me.SrcDataSet.jjungtable.Merge(Me.SRC߼) + Case 6 '//̺ + If Me.SrcDataSet.Detail_Cable.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.Detail_Cable.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.Detail_Cable.Rows.Count - 1) + Me.SrcDataSet.Detail_Cable.Rows(I).Delete() + Next + End If + Me.SrcDataSet.Detail_Cable.Merge(Me.SRCDetail_Cable) + Case 8 '//̺ + If Me.SrcDataSet.Detail_Cable2.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.Detail_Cable2.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.Detail_Cable2.Rows.Count - 1) + Me.SrcDataSet.Detail_Cable2.Rows(I).Delete() + Next + End If + Me.SrcDataSet.Detail_Cable2.Merge(Me.SRCDetail_Cable2) + Case 7 '//̺ + If Me.SrcDataSet.Detail_CableLabel.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.Detail_CableLabel.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.Detail_CableLabel.Rows.Count - 1) + Me.SrcDataSet.Detail_CableLabel.Rows(I).Delete() + Next + End If + Me.SrcDataSet.Detail_CableLabel.Merge(Me.SRCDetail_CableLABEL) + Case 2 '//׵ + If Me.SrcDataSet.Detail_Deung.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + + + For I As Integer = Me.SrcDataSet.Detail_Deung.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.Detail_Deung.Rows.Count - 1) + Me.SrcDataSet.Detail_Deung.Rows(I).Delete() + Next + End If + + Me.SrcDataSet.Detail_Deung.Merge(Me.SRCDetail_Deung) + Case 4 '//׵ + If Me.SrcDataSet.Detail_kiki.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.Detail_kiki.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.Detail_kiki.Rows.Count - 1) + Me.SrcDataSet.Detail_kiki.Rows(I).Delete() + Next + End If + + Me.SrcDataSet.Detail_kiki.Merge(Me.Src⼼) + Case 9 '//Ÿ + If Me.SrcDataSet.EtcTable.Rows.Count <> 0 Then + NOTICE(" ڷḦ մϴ", Me.lb_msg) + For I As Integer = Me.SrcDataSet.EtcTable.Rows.Count - 1 To 0 Step -1 + Me.SHowCnt(I, Me.SrcDataSet.EtcTable.Rows.Count - 1) + Me.SrcDataSet.EtcTable.Rows(I).Delete() + Next + End If + + Me.SrcDataSet.EtcTable.Merge(Me.SRCŸ) + End Select + + Me.Close() + + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + '// ϴ ͸ ϰ ߰մϴ. + + Select Case + Case 0 '// + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.jjutable, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + NOTICE("ȣ οմϴ", Me.lb_msg) + For I As Integer = 0 To Me.SRCּ.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCּ.Rows.Count - 1) + Me.SRCּ.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCּ.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.jjutable.Merge(Me.SRCּ) + Case 1 '// + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.jjungtable, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + + For I As Integer = 0 To Me.SRC߼.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRC߼.Rows.Count - 1) + Me.SRC߼.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRC߼.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.jjungtable.Merge(Me.SRC߼) + Case 6 '//ߤӺ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.Detail_Cable, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + + For I As Integer = 0 To Me.SRCDetail_Cable.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCDetail_Cable.Rows.Count - 1) + Me.SRCDetail_Cable.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCDetail_Cable.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.Detail_Cable.Merge(Me.SRCDetail_Cable) + Case 8 '//ߤӺ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.Detail_Cable2, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + + For I As Integer = 0 To Me.SRCDetail_Cable2.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCDetail_Cable2.Rows.Count - 1) + Me.SRCDetail_Cable2.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCDetail_Cable2.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.Detail_Cable2.Merge(Me.SRCDetail_Cable2) + Case 7 '//ߤӺ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.Detail_CableLabel, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + + For I As Integer = 0 To Me.SRCDetail_CableLABEL.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCDetail_CableLABEL.Rows.Count - 1) + Me.SRCDetail_CableLABEL.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCDetail_CableLABEL.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.Detail_CableLabel.Merge(Me.SRCDetail_CableLABEL) + Case 9 '//Ÿ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.EtcTable, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + + For I As Integer = 0 To Me.SRCŸ.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCŸ.Rows.Count - 1) + Me.SRCŸ.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCŸ.Rows(I)("") = True + Next + + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.EtcTable.Merge(Me.SRCŸ) + + Case 2 '//׵ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.Detail_Deung, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + For I As Integer = 0 To Me.SRCDetail_Deung.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.SRCDetail_Deung.Rows.Count - 1) + Me.SRCDetail_Deung.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.SRCDetail_Deung.Rows(I)("") = True + Next + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.Detail_Deung.Merge(Me.SRCDetail_Deung) + + Case 4 '//׵ + '//ִ밪 ãϴ. + NOTICE("ο ȣ ãϴ", Me.lb_msg) + Dim ִ밪 As Integer + Dim Dv As New DataView(Me.SrcDataSet.Detail_kiki, "", "ȣ desc", DataViewRowState.CurrentRows) + If Dv.Count = 0 Then + ִ밪 = 0 + Else + ִ밪 = Dv(0)("ȣ") + End If + + NOTICE("ȣ οմϴ", Me.lb_msg) + For I As Integer = 0 To Me.Src⼼.Rows.Count - 1 '//߰ ȣ ޴´. + Me.SHowCnt(I, Me.Src⼼.Rows.Count - 1) + Me.Src⼼.Rows(I)("ȣ") = ִ밪 + I + 1 + Me.Src⼼.Rows(I)("") = True + Next + NOTICE(" Ϳ մϴ", Me.lb_msg) + Me.SrcDataSet.Detail_kiki.Merge(Me.Src⼼) + End Select + Me.Close() + End Sub + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click + Me.Close() + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.CustFP2.ASetting_Save(False, Me.) + End Sub +End Class + diff --git a/Epole/업로드폼/XLSsync.Designer.vb b/Epole/업로드폼/XLSsync.Designer.vb new file mode 100644 index 0000000..bbfd19d --- /dev/null +++ b/Epole/업로드폼/XLSsync.Designer.vb @@ -0,0 +1,1355 @@ + _ +Partial Class XLSSync + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XLSSync)) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.lStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.gsdfolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.htrtripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.gfdsolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.jytripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.srcview = New MyControlOLEDBv2.MyFpoint + Me.srcview_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel + Me.srcctl3 = New MyControlOLEDBv2.ImpCtl + Me.srcctl2 = New MyControlOLEDBv2.ImpCtl + Me.srcctl1 = New MyControlOLEDBv2.ImpCtl + Me.srcctl4 = New MyControlOLEDBv2.ImpCtl + Me.srcctl5 = New MyControlOLEDBv2.ImpCtl + Me.srcctl6 = New MyControlOLEDBv2.ImpCtl + Me.srcctl7 = New MyControlOLEDBv2.ImpCtl + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator + Me.bt_srcfile = New System.Windows.Forms.ToolStripButton + Me.bt_srcsave = New System.Windows.Forms.ToolStripButton + Me.tb_srcend = New System.Windows.Forms.ToolStripTextBox + Me.tb_srcstt = New System.Windows.Forms.ToolStripTextBox + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripDropDownButton + Me.bt_macrosavenew = New System.Windows.Forms.ToolStripMenuItem + Me.bt_macrosave = New System.Windows.Forms.ToolStripMenuItem + Me.bt_macrodel = New System.Windows.Forms.ToolStripMenuItem + Me.cmb_macro = New System.Windows.Forms.ToolStripComboBox + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.chk_test = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton + Me.chk_allcheck = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton + Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel + Me.MyFpoint1 = New MyControlOLEDBv2.MyFpoint + Me.TableLayoutPanel4 = New System.Windows.Forms.TableLayoutPanel + Me.ImpCtl8 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl9 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl10 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl11 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl12 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl13 = New MyControlOLEDBv2.ImpCtl + Me.ImpCtl14 = New MyControlOLEDBv2.ImpCtl + Me.TableLayoutPanel5 = New System.Windows.Forms.TableLayoutPanel + Me.desview = New MyControlOLEDBv2.MyFpoint + Me.desview_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.TableLayoutPanel6 = New System.Windows.Forms.TableLayoutPanel + Me.desctl3 = New MyControlOLEDBv2.ImpCtl + Me.desctl2 = New MyControlOLEDBv2.ImpCtl + Me.desctl1 = New MyControlOLEDBv2.ImpCtl + Me.desctl4 = New MyControlOLEDBv2.ImpCtl + Me.desctl5 = New MyControlOLEDBv2.ImpCtl + Me.desctl6 = New MyControlOLEDBv2.ImpCtl + Me.desctl7 = New MyControlOLEDBv2.ImpCtl + Me.ToolStrip4 = New System.Windows.Forms.ToolStrip + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator + Me.tb_desfile = New System.Windows.Forms.ToolStripButton + Me.tb_desend = New System.Windows.Forms.ToolStripTextBox + Me.tb_desstt = New System.Windows.Forms.ToolStripTextBox + Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel + Me.bt_dessave = New System.Windows.Forms.ToolStripButton + Me.Label1 = New System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label + Me.TableLayoutPanel7 = New System.Windows.Forms.TableLayoutPanel + Me.out1 = New System.Windows.Forms.TextBox + Me.in1 = New MyControlOLEDBv2.ImpCtl + Me.in2 = New MyControlOLEDBv2.ImpCtl + Me.in3 = New MyControlOLEDBv2.ImpCtl + Me.in4 = New MyControlOLEDBv2.ImpCtl + Me.in5 = New MyControlOLEDBv2.ImpCtl + Me.in6 = New MyControlOLEDBv2.ImpCtl + Me.in7 = New MyControlOLEDBv2.ImpCtl + Me.in8 = New MyControlOLEDBv2.ImpCtl + Me.out2 = New System.Windows.Forms.TextBox + Me.out3 = New System.Windows.Forms.TextBox + Me.out4 = New System.Windows.Forms.TextBox + Me.out5 = New System.Windows.Forms.TextBox + Me.out6 = New System.Windows.Forms.TextBox + Me.out7 = New System.Windows.Forms.TextBox + Me.out8 = New System.Windows.Forms.TextBox + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_cnt = New System.Windows.Forms.ToolStripStatusLabel + Me.ContextMenuStrip2.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.srcview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.srcview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel3.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.TableLayoutPanel2.SuspendLayout() + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel4.SuspendLayout() + Me.TableLayoutPanel5.SuspendLayout() + CType(Me.desview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.desview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel6.SuspendLayout() + Me.ToolStrip4.SuspendLayout() + Me.TableLayoutPanel7.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편 도움말" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lStripMenuItem1, Me.gsdfolStripMenuItem1, Me.htrtripMenuItem, Me.gfdsolStripMenuItem1, Me.olStripMenuItem1, Me.jytripMenuItem1}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(135, 136) + ' + 'lStripMenuItem1 + ' + Me.lStripMenuItem1.Name = "lStripMenuItem1" + Me.lStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.lStripMenuItem1.Text = "선택반전" + ' + 'gsdfolStripMenuItem1 + ' + Me.gsdfolStripMenuItem1.Name = "gsdfolStripMenuItem1" + Me.gsdfolStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.gsdfolStripMenuItem1.Text = "전체선택" + ' + 'htrtripMenuItem + ' + Me.htrtripMenuItem.Name = "htrtripMenuItem" + Me.htrtripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.htrtripMenuItem.Text = "선택해제" + ' + 'gfdsolStripMenuItem1 + ' + Me.gfdsolStripMenuItem1.Name = "gfdsolStripMenuItem1" + Me.gfdsolStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.gfdsolStripMenuItem1.Text = "전체삭제" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.olStripMenuItem1.Text = "선택삭제" + ' + 'jytripMenuItem1 + ' + Me.jytripMenuItem1.Name = "jytripMenuItem1" + Me.jytripMenuItem1.Size = New System.Drawing.Size(134, 22) + Me.jytripMenuItem1.Text = "파일로저장" + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + 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.srcview, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.TableLayoutPanel3, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.ToolStrip3, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 12) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 3 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 66.03773!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.96227!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(445, 366) + Me.TableLayoutPanel1.TabIndex = 17 + ' + 'srcview + ' + Me.srcview.AAutoAddrowInLast = Nothing + Me.srcview.AccessibleDescription = "srcview, Sheet1, Row 0, Column 0, " + Me.srcview.BackColor = System.Drawing.SystemColors.Control + Me.srcview.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.srcview.CurrentDel = True + Me.srcview.DeleteKey = True + Me.srcview.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcview.EditFromSpace = True + Me.srcview.FIRST_FOCUSINDEX = 0 + Me.srcview.Location = New System.Drawing.Point(4, 35) + Me.srcview.Name = "srcview" + Me.srcview.NextRow_Index = -1 + Me.srcview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.srcview.SameRowheight = True + Me.srcview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.srcview_Sheet1}) + Me.srcview.Size = New System.Drawing.Size(437, 213) + Me.srcview.TabIndex = 22 + Me.srcview.선택줄번호 = CType(-1, Short) + ' + 'srcview_Sheet1 + ' + Me.srcview_Sheet1.Reset() + Me.srcview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.srcview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.srcview_Sheet1.RowCount = 0 + Me.srcview_Sheet1.ActiveRowIndex = -1 + Me.srcview_Sheet1.AllowNoteEdit = True + Me.srcview_Sheet1.ColumnHeader.Cells.Get(0, 0).ColumnSpan = 5 + Me.srcview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "파일을 이곳에 끌어놓으세요" + Me.srcview_Sheet1.ColumnHeader.Rows.Get(0).Height = 60.0! + Me.srcview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.srcview_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.srcview_Sheet1.ZoomFactor = 0.9! + Me.srcview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.srcview.SetActiveViewport(0, -1, 0) + ' + 'TableLayoutPanel3 + ' + Me.TableLayoutPanel3.BackColor = System.Drawing.Color.SlateBlue + Me.TableLayoutPanel3.ColumnCount = 7 + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl3, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl2, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl1, 0, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl4, 1, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl5, 2, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl6, 3, 0) + Me.TableLayoutPanel3.Controls.Add(Me.srcctl7, 4, 0) + Me.TableLayoutPanel3.Location = New System.Drawing.Point(4, 255) + Me.TableLayoutPanel3.Name = "TableLayoutPanel3" + Me.TableLayoutPanel3.RowCount = 1 + Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel3.Size = New System.Drawing.Size(437, 107) + Me.TableLayoutPanel3.TabIndex = 21 + ' + 'srcctl3 + ' + Me.srcctl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl3.Location = New System.Drawing.Point(127, 3) + Me.srcctl3.Name = "srcctl3" + Me.srcctl3.Size = New System.Drawing.Size(56, 101) + Me.srcctl3.TabIndex = 22 + Me.srcctl3.Vtype = True + Me.srcctl3.문자열자르기 = "" + Me.srcctl3.빈값체크 = False + Me.srcctl3.열번호 = "" + Me.srcctl3.제목 = "조합3" + Me.srcctl3.필드명 = Nothing + ' + 'srcctl2 + ' + Me.srcctl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl2.Location = New System.Drawing.Point(65, 3) + Me.srcctl2.Name = "srcctl2" + Me.srcctl2.Size = New System.Drawing.Size(56, 101) + Me.srcctl2.TabIndex = 21 + Me.srcctl2.Vtype = True + Me.srcctl2.문자열자르기 = "" + Me.srcctl2.빈값체크 = False + Me.srcctl2.열번호 = "" + Me.srcctl2.제목 = "조합2" + Me.srcctl2.필드명 = Nothing + ' + 'srcctl1 + ' + Me.srcctl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl1.Location = New System.Drawing.Point(3, 3) + Me.srcctl1.Name = "srcctl1" + Me.srcctl1.Size = New System.Drawing.Size(56, 101) + Me.srcctl1.TabIndex = 20 + Me.srcctl1.Vtype = True + Me.srcctl1.문자열자르기 = "" + Me.srcctl1.빈값체크 = False + Me.srcctl1.열번호 = "" + Me.srcctl1.제목 = "조합1" + Me.srcctl1.필드명 = Nothing + ' + 'srcctl4 + ' + Me.srcctl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl4.Location = New System.Drawing.Point(189, 3) + Me.srcctl4.Name = "srcctl4" + Me.srcctl4.Size = New System.Drawing.Size(56, 101) + Me.srcctl4.TabIndex = 20 + Me.srcctl4.Vtype = True + Me.srcctl4.문자열자르기 = "" + Me.srcctl4.빈값체크 = False + Me.srcctl4.열번호 = "" + Me.srcctl4.제목 = "조합4" + Me.srcctl4.필드명 = Nothing + ' + 'srcctl5 + ' + Me.srcctl5.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl5.Location = New System.Drawing.Point(251, 3) + Me.srcctl5.Name = "srcctl5" + Me.srcctl5.Size = New System.Drawing.Size(56, 101) + Me.srcctl5.TabIndex = 20 + Me.srcctl5.Vtype = True + Me.srcctl5.문자열자르기 = "" + Me.srcctl5.빈값체크 = False + Me.srcctl5.열번호 = "" + Me.srcctl5.제목 = "조합5" + Me.srcctl5.필드명 = Nothing + ' + 'srcctl6 + ' + Me.srcctl6.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl6.Location = New System.Drawing.Point(313, 3) + Me.srcctl6.Name = "srcctl6" + Me.srcctl6.Size = New System.Drawing.Size(56, 101) + Me.srcctl6.TabIndex = 20 + Me.srcctl6.Vtype = True + Me.srcctl6.문자열자르기 = "" + Me.srcctl6.빈값체크 = False + Me.srcctl6.열번호 = "" + Me.srcctl6.제목 = "조합6" + Me.srcctl6.필드명 = Nothing + ' + 'srcctl7 + ' + Me.srcctl7.Dock = System.Windows.Forms.DockStyle.Fill + Me.srcctl7.Location = New System.Drawing.Point(375, 3) + Me.srcctl7.Name = "srcctl7" + Me.srcctl7.Size = New System.Drawing.Size(59, 101) + Me.srcctl7.TabIndex = 20 + Me.srcctl7.Vtype = True + Me.srcctl7.문자열자르기 = "" + Me.srcctl7.빈값체크 = False + Me.srcctl7.열번호 = "" + Me.srcctl7.제목 = "조합7" + Me.srcctl7.필드명 = Nothing + ' + 'ToolStrip3 + ' + Me.ToolStrip3.Dock = System.Windows.Forms.DockStyle.Fill + Me.ToolStrip3.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.ImageScalingSize = New System.Drawing.Size(25, 25) + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripSeparator4, Me.bt_srcfile, Me.bt_srcsave, Me.tb_srcend, Me.tb_srcstt, Me.ToolStripLabel3}) + Me.ToolStrip3.Location = New System.Drawing.Point(1, 1) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(443, 30) + Me.ToolStrip3.TabIndex = 23 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.ForeColor = System.Drawing.Color.MidnightBlue + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(57, 27) + Me.ToolStripLabel1.Text = "원본파일" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'bt_srcfile + ' + Me.bt_srcfile.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_srcfile.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_srcfile.Name = "bt_srcfile" + Me.bt_srcfile.Size = New System.Drawing.Size(82, 27) + Me.bt_srcfile.Text = "파일찾기" + ' + 'bt_srcsave + ' + Me.bt_srcsave.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_srcsave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_srcsave.Name = "bt_srcsave" + Me.bt_srcsave.Size = New System.Drawing.Size(82, 27) + Me.bt_srcsave.Text = "저장하기" + ' + 'tb_srcend + ' + Me.tb_srcend.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tb_srcend.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_srcend.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_srcend.Name = "tb_srcend" + Me.tb_srcend.Size = New System.Drawing.Size(40, 30) + Me.tb_srcend.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_srcstt + ' + Me.tb_srcstt.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tb_srcstt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_srcstt.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_srcstt.Name = "tb_srcstt" + Me.tb_srcstt.Size = New System.Drawing.Size(40, 30) + Me.tb_srcstt.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(53, 27) + Me.ToolStripLabel3.Text = "범위선택" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.cmb_macro, Me.ToolStripSeparator1, Me.chk_test, Me.ToolStripButton5, Me.chk_allcheck, Me.ToolStripSeparator9, Me.ToolStripSeparator3, Me.ToolStripButton4}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 507) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(917, 46) + Me.ToolStrip1.TabIndex = 20 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_macrosavenew, Me.bt_macrosave, Me.bt_macrodel}) + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.go_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(45, 43) + Me.ToolStripButton2.Text = "ToolStripButton2" + ' + 'bt_macrosavenew + ' + Me.bt_macrosavenew.ForeColor = System.Drawing.Color.Crimson + Me.bt_macrosavenew.Name = "bt_macrosavenew" + Me.bt_macrosavenew.Size = New System.Drawing.Size(174, 22) + Me.bt_macrosavenew.Text = "새로운 매크로 저장" + Me.bt_macrosavenew.ToolTipText = "현재 상태를 새로운 매크로파일로 기록합니다" + ' + 'bt_macrosave + ' + Me.bt_macrosave.ForeColor = System.Drawing.Color.DarkGreen + Me.bt_macrosave.Name = "bt_macrosave" + Me.bt_macrosave.Size = New System.Drawing.Size(174, 22) + Me.bt_macrosave.Text = "현재 매크로 저장" + Me.bt_macrosave.ToolTipText = "현재 지정되어잇는 매크로를 현재설정상태로 다시 기록합니다" + ' + 'bt_macrodel + ' + Me.bt_macrodel.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_macrodel.Name = "bt_macrodel" + Me.bt_macrodel.Size = New System.Drawing.Size(174, 22) + Me.bt_macrodel.Text = "현재 매크로 삭제" + Me.bt_macrodel.ToolTipText = "현재 지정되어있는 매크로를 삭제합니다" + ' + 'cmb_macro + ' + Me.cmb_macro.BackColor = System.Drawing.Color.Gainsboro + Me.cmb_macro.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_macro.Name = "cmb_macro" + Me.cmb_macro.Size = New System.Drawing.Size(261, 46) + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 46) + ' + 'chk_test + ' + Me.chk_test.Checked = True + Me.chk_test.CheckOnClick = True + Me.chk_test.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_test.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.chk_test.ImageTransparentColor = System.Drawing.Color.Magenta + Me.chk_test.Name = "chk_test" + Me.chk_test.Size = New System.Drawing.Size(89, 43) + Me.chk_test.Text = "모의실행" + Me.chk_test.ToolTipText = "실제 데이터를 변경하지는 않고 테스트목적으로 작업을 합니다" + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.play_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(89, 43) + Me.ToolStripButton5.Text = "실행하기" + Me.ToolStripButton5.ToolTipText = "기존의 데이터뒤에 새롭게 추가합니다" + ' + 'chk_allcheck + ' + Me.chk_allcheck.Checked = True + Me.chk_allcheck.CheckOnClick = True + Me.chk_allcheck.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_allcheck.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.chk_allcheck.ImageTransparentColor = System.Drawing.Color.Magenta + Me.chk_allcheck.Name = "chk_allcheck" + Me.chk_allcheck.Size = New System.Drawing.Size(141, 43) + Me.chk_allcheck.Text = "대상파일 전체검색" + Me.chk_allcheck.ToolTipText = "대상파일의 목록에서 일치하는 줄을 찾앗을경우에 그 다음줄을 실행할지의 여부입니다. 체크가 해제되었다면 일치한줄을 찾은후 바로 빠져나옵니다" + Me.chk_allcheck.Visible = False + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 46) + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 46) + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton4.Checked = True + Me.ToolStripButton4.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(88, 43) + Me.ToolStripButton4.Text = "닫기(&X)" + Me.ToolStripButton4.ToolTipText = "현재 창을 닫습니다" + ' + 'TableLayoutPanel2 + ' + Me.TableLayoutPanel2.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel2.ColumnCount = 1 + Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel2.Controls.Add(Me.MyFpoint1, 0, 1) + Me.TableLayoutPanel2.Controls.Add(Me.TableLayoutPanel4, 0, 2) + Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel2.Name = "TableLayoutPanel2" + Me.TableLayoutPanel2.RowCount = 3 + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel2.Size = New System.Drawing.Size(200, 100) + Me.TableLayoutPanel2.TabIndex = 0 + ' + 'MyFpoint1 + ' + Me.MyFpoint1.AAutoAddrowInLast = Nothing + Me.MyFpoint1.AccessibleDescription = "CustFP1" + Me.MyFpoint1.BackColor = System.Drawing.SystemColors.Control + Me.MyFpoint1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.MyFpoint1.CurrentDel = True + Me.MyFpoint1.DeleteKey = True + Me.MyFpoint1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFpoint1.EditFromSpace = True + Me.MyFpoint1.FIRST_FOCUSINDEX = 0 + Me.MyFpoint1.Location = New System.Drawing.Point(4, 25) + Me.MyFpoint1.Name = "MyFpoint1" + Me.MyFpoint1.NextRow_Index = -1 + Me.MyFpoint1.SameRowheight = True + Me.MyFpoint1.Size = New System.Drawing.Size(192, 14) + Me.MyFpoint1.TabIndex = 22 + Me.MyFpoint1.선택줄번호 = CType(-1, Short) + ' + 'TableLayoutPanel4 + ' + Me.TableLayoutPanel4.ColumnCount = 7 + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl8, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl9, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl10, 0, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl11, 1, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl12, 2, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl13, 3, 0) + Me.TableLayoutPanel4.Controls.Add(Me.ImpCtl14, 4, 0) + Me.TableLayoutPanel4.Location = New System.Drawing.Point(4, 46) + Me.TableLayoutPanel4.Name = "TableLayoutPanel4" + Me.TableLayoutPanel4.RowCount = 1 + Me.TableLayoutPanel4.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel4.Size = New System.Drawing.Size(192, 50) + Me.TableLayoutPanel4.TabIndex = 21 + ' + 'ImpCtl8 + ' + Me.ImpCtl8.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl8.Location = New System.Drawing.Point(57, 3) + Me.ImpCtl8.Name = "ImpCtl8" + Me.ImpCtl8.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl8.TabIndex = 22 + Me.ImpCtl8.Vtype = True + Me.ImpCtl8.문자열자르기 = "" + Me.ImpCtl8.빈값체크 = False + Me.ImpCtl8.열번호 = "" + Me.ImpCtl8.제목 = "선로명" + Me.ImpCtl8.필드명 = Nothing + ' + 'ImpCtl9 + ' + Me.ImpCtl9.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl9.Location = New System.Drawing.Point(30, 3) + Me.ImpCtl9.Name = "ImpCtl9" + Me.ImpCtl9.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl9.TabIndex = 21 + Me.ImpCtl9.Vtype = True + Me.ImpCtl9.문자열자르기 = "" + Me.ImpCtl9.빈값체크 = False + Me.ImpCtl9.열번호 = "" + Me.ImpCtl9.제목 = "선로명" + Me.ImpCtl9.필드명 = Nothing + ' + 'ImpCtl10 + ' + Me.ImpCtl10.Location = New System.Drawing.Point(3, 3) + Me.ImpCtl10.Name = "ImpCtl10" + Me.ImpCtl10.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl10.TabIndex = 20 + Me.ImpCtl10.Vtype = True + Me.ImpCtl10.문자열자르기 = "" + Me.ImpCtl10.빈값체크 = False + Me.ImpCtl10.열번호 = "" + Me.ImpCtl10.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl10.필드명 = Nothing + ' + 'ImpCtl11 + ' + Me.ImpCtl11.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl11.Location = New System.Drawing.Point(84, 3) + Me.ImpCtl11.Name = "ImpCtl11" + Me.ImpCtl11.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl11.TabIndex = 20 + Me.ImpCtl11.Vtype = True + Me.ImpCtl11.문자열자르기 = "" + Me.ImpCtl11.빈값체크 = False + Me.ImpCtl11.열번호 = "" + Me.ImpCtl11.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(구)" + Me.ImpCtl11.필드명 = Nothing + ' + 'ImpCtl12 + ' + Me.ImpCtl12.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl12.Location = New System.Drawing.Point(111, 3) + Me.ImpCtl12.Name = "ImpCtl12" + Me.ImpCtl12.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl12.TabIndex = 20 + Me.ImpCtl12.Vtype = True + Me.ImpCtl12.문자열자르기 = "" + Me.ImpCtl12.빈값체크 = False + Me.ImpCtl12.열번호 = "" + Me.ImpCtl12.제목 = "관리구" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl12.필드명 = Nothing + ' + 'ImpCtl13 + ' + Me.ImpCtl13.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl13.Location = New System.Drawing.Point(138, 3) + Me.ImpCtl13.Name = "ImpCtl13" + Me.ImpCtl13.Size = New System.Drawing.Size(21, 44) + Me.ImpCtl13.TabIndex = 20 + Me.ImpCtl13.Vtype = True + Me.ImpCtl13.문자열자르기 = "" + Me.ImpCtl13.빈값체크 = False + Me.ImpCtl13.열번호 = "" + Me.ImpCtl13.제목 = "전산번호" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(신)" + Me.ImpCtl13.필드명 = Nothing + ' + 'ImpCtl14 + ' + Me.ImpCtl14.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImpCtl14.Location = New System.Drawing.Point(165, 3) + Me.ImpCtl14.Name = "ImpCtl14" + Me.ImpCtl14.Size = New System.Drawing.Size(24, 44) + Me.ImpCtl14.TabIndex = 20 + Me.ImpCtl14.Vtype = True + Me.ImpCtl14.문자열자르기 = "" + Me.ImpCtl14.빈값체크 = False + Me.ImpCtl14.열번호 = "" + Me.ImpCtl14.제목 = "선로명" + Me.ImpCtl14.필드명 = Nothing + ' + 'TableLayoutPanel5 + ' + Me.TableLayoutPanel5.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel5.ColumnCount = 1 + Me.TableLayoutPanel5.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel5.Controls.Add(Me.desview, 0, 1) + Me.TableLayoutPanel5.Controls.Add(Me.TableLayoutPanel6, 0, 2) + Me.TableLayoutPanel5.Controls.Add(Me.ToolStrip4, 0, 0) + Me.TableLayoutPanel5.Location = New System.Drawing.Point(463, 12) + Me.TableLayoutPanel5.Name = "TableLayoutPanel5" + Me.TableLayoutPanel5.RowCount = 3 + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!)) + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 66.03773!)) + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 33.96227!)) + Me.TableLayoutPanel5.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel5.Size = New System.Drawing.Size(445, 366) + Me.TableLayoutPanel5.TabIndex = 17 + ' + 'desview + ' + Me.desview.AAutoAddrowInLast = Nothing + Me.desview.AccessibleDescription = "desview, Sheet1, Row 0, Column 0, " + Me.desview.BackColor = System.Drawing.SystemColors.Control + Me.desview.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.desview.CurrentDel = True + Me.desview.DeleteKey = True + Me.desview.Dock = System.Windows.Forms.DockStyle.Fill + Me.desview.EditFromSpace = True + Me.desview.FIRST_FOCUSINDEX = 0 + Me.desview.Location = New System.Drawing.Point(4, 35) + Me.desview.Name = "desview" + Me.desview.NextRow_Index = -1 + Me.desview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.desview.SameRowheight = True + Me.desview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.desview_Sheet1}) + Me.desview.Size = New System.Drawing.Size(437, 213) + Me.desview.TabIndex = 22 + Me.desview.선택줄번호 = CType(-1, Short) + ' + 'desview_Sheet1 + ' + Me.desview_Sheet1.Reset() + Me.desview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.desview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.desview_Sheet1.RowCount = 0 + Me.desview_Sheet1.ActiveRowIndex = -1 + Me.desview_Sheet1.AllowNoteEdit = True + Me.desview_Sheet1.ColumnHeader.Cells.Get(0, 0).ColumnSpan = 5 + Me.desview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "파일을 이곳에 끌어놓으세요" + Me.desview_Sheet1.ColumnHeader.Rows.Get(0).Height = 58.0! + Me.desview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.desview_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.desview_Sheet1.ZoomFactor = 0.9! + Me.desview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.desview.SetActiveViewport(0, -1, 0) + ' + 'TableLayoutPanel6 + ' + Me.TableLayoutPanel6.BackColor = System.Drawing.Color.LimeGreen + Me.TableLayoutPanel6.ColumnCount = 7 + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.555555!)) + Me.TableLayoutPanel6.Controls.Add(Me.desctl3, 0, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl2, 0, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl1, 0, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl4, 1, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl5, 2, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl6, 3, 0) + Me.TableLayoutPanel6.Controls.Add(Me.desctl7, 4, 0) + Me.TableLayoutPanel6.Location = New System.Drawing.Point(4, 255) + Me.TableLayoutPanel6.Name = "TableLayoutPanel6" + Me.TableLayoutPanel6.RowCount = 1 + Me.TableLayoutPanel6.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel6.Size = New System.Drawing.Size(437, 107) + Me.TableLayoutPanel6.TabIndex = 21 + ' + 'desctl3 + ' + Me.desctl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl3.Location = New System.Drawing.Point(127, 3) + Me.desctl3.Name = "desctl3" + Me.desctl3.Size = New System.Drawing.Size(56, 101) + Me.desctl3.TabIndex = 22 + Me.desctl3.Vtype = True + Me.desctl3.문자열자르기 = "" + Me.desctl3.빈값체크 = False + Me.desctl3.열번호 = "" + Me.desctl3.제목 = "조합3" + Me.desctl3.필드명 = Nothing + ' + 'desctl2 + ' + Me.desctl2.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl2.Location = New System.Drawing.Point(65, 3) + Me.desctl2.Name = "desctl2" + Me.desctl2.Size = New System.Drawing.Size(56, 101) + Me.desctl2.TabIndex = 21 + Me.desctl2.Vtype = True + Me.desctl2.문자열자르기 = "" + Me.desctl2.빈값체크 = False + Me.desctl2.열번호 = "" + Me.desctl2.제목 = "조합2" + Me.desctl2.필드명 = Nothing + ' + 'desctl1 + ' + Me.desctl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl1.Location = New System.Drawing.Point(3, 3) + Me.desctl1.Name = "desctl1" + Me.desctl1.Size = New System.Drawing.Size(56, 101) + Me.desctl1.TabIndex = 20 + Me.desctl1.Vtype = True + Me.desctl1.문자열자르기 = "" + Me.desctl1.빈값체크 = False + Me.desctl1.열번호 = "" + Me.desctl1.제목 = "조합1" + Me.desctl1.필드명 = Nothing + ' + 'desctl4 + ' + Me.desctl4.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl4.Location = New System.Drawing.Point(189, 3) + Me.desctl4.Name = "desctl4" + Me.desctl4.Size = New System.Drawing.Size(56, 101) + Me.desctl4.TabIndex = 20 + Me.desctl4.Vtype = True + Me.desctl4.문자열자르기 = "" + Me.desctl4.빈값체크 = False + Me.desctl4.열번호 = "" + Me.desctl4.제목 = "조합4" + Me.desctl4.필드명 = Nothing + ' + 'desctl5 + ' + Me.desctl5.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl5.Location = New System.Drawing.Point(251, 3) + Me.desctl5.Name = "desctl5" + Me.desctl5.Size = New System.Drawing.Size(56, 101) + Me.desctl5.TabIndex = 20 + Me.desctl5.Vtype = True + Me.desctl5.문자열자르기 = "" + Me.desctl5.빈값체크 = False + Me.desctl5.열번호 = "" + Me.desctl5.제목 = "조합5" + Me.desctl5.필드명 = Nothing + ' + 'desctl6 + ' + Me.desctl6.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl6.Location = New System.Drawing.Point(313, 3) + Me.desctl6.Name = "desctl6" + Me.desctl6.Size = New System.Drawing.Size(56, 101) + Me.desctl6.TabIndex = 20 + Me.desctl6.Vtype = True + Me.desctl6.문자열자르기 = "" + Me.desctl6.빈값체크 = False + Me.desctl6.열번호 = "" + Me.desctl6.제목 = "조합6" + Me.desctl6.필드명 = Nothing + ' + 'desctl7 + ' + Me.desctl7.Dock = System.Windows.Forms.DockStyle.Fill + Me.desctl7.Location = New System.Drawing.Point(375, 3) + Me.desctl7.Name = "desctl7" + Me.desctl7.Size = New System.Drawing.Size(59, 101) + Me.desctl7.TabIndex = 20 + Me.desctl7.Vtype = True + Me.desctl7.문자열자르기 = "" + Me.desctl7.빈값체크 = False + Me.desctl7.열번호 = "" + Me.desctl7.제목 = "조합7" + Me.desctl7.필드명 = Nothing + ' + 'ToolStrip4 + ' + Me.ToolStrip4.Dock = System.Windows.Forms.DockStyle.Fill + Me.ToolStrip4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip4.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip4.ImageScalingSize = New System.Drawing.Size(25, 25) + Me.ToolStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel5, Me.ToolStripSeparator7, Me.tb_desfile, Me.tb_desend, Me.tb_desstt, Me.ToolStripLabel6, Me.bt_dessave}) + Me.ToolStrip4.Location = New System.Drawing.Point(1, 1) + Me.ToolStrip4.Name = "ToolStrip4" + Me.ToolStrip4.Size = New System.Drawing.Size(443, 30) + Me.ToolStrip4.TabIndex = 23 + Me.ToolStrip4.Text = "ToolStrip3" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(57, 27) + Me.ToolStripLabel5.Text = "대상파일" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 30) + ' + 'tb_desfile + ' + Me.tb_desfile.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.tb_desfile.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tb_desfile.Name = "tb_desfile" + Me.tb_desfile.Size = New System.Drawing.Size(82, 27) + Me.tb_desfile.Text = "파일찾기" + ' + 'tb_desend + ' + Me.tb_desend.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tb_desend.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_desend.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_desend.Name = "tb_desend" + Me.tb_desend.Size = New System.Drawing.Size(40, 30) + Me.tb_desend.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_desstt + ' + Me.tb_desstt.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tb_desstt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tb_desstt.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_desstt.Name = "tb_desstt" + Me.tb_desstt.Size = New System.Drawing.Size(40, 30) + Me.tb_desstt.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'ToolStripLabel6 + ' + Me.ToolStripLabel6.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripLabel6.Name = "ToolStripLabel6" + Me.ToolStripLabel6.Size = New System.Drawing.Size(53, 27) + Me.ToolStripLabel6.Text = "범위선택" + ' + 'bt_dessave + ' + Me.bt_dessave.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_dessave.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dessave.Name = "bt_dessave" + Me.bt_dessave.Size = New System.Drawing.Size(82, 27) + Me.bt_dessave.Text = "저장하기" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label1.Location = New System.Drawing.Point(4, 1) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(26, 92) + Me.Label1.TabIndex = 20 + Me.Label1.Text = "대상파일에서 가져올 열" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Label2.Location = New System.Drawing.Point(4, 94) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(26, 25) + Me.Label2.TabIndex = 21 + Me.Label2.Text = "붙여넣을 열" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TableLayoutPanel7 + ' + Me.TableLayoutPanel7.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + Me.TableLayoutPanel7.ColumnCount = 9 + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 100.0!)) + Me.TableLayoutPanel7.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 154.0!)) + Me.TableLayoutPanel7.Controls.Add(Me.out1, 1, 1) + Me.TableLayoutPanel7.Controls.Add(Me.Label2, 0, 1) + Me.TableLayoutPanel7.Controls.Add(Me.in1, 1, 0) + Me.TableLayoutPanel7.Controls.Add(Me.Label1, 0, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in2, 2, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in3, 3, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in4, 4, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in5, 5, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in6, 6, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in7, 7, 0) + Me.TableLayoutPanel7.Controls.Add(Me.in8, 8, 0) + Me.TableLayoutPanel7.Controls.Add(Me.out2, 2, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out3, 3, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out4, 4, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out5, 5, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out6, 6, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out7, 7, 1) + Me.TableLayoutPanel7.Controls.Add(Me.out8, 8, 1) + Me.TableLayoutPanel7.Location = New System.Drawing.Point(12, 384) + Me.TableLayoutPanel7.Name = "TableLayoutPanel7" + Me.TableLayoutPanel7.RowCount = 2 + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel7.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!)) + Me.TableLayoutPanel7.Size = New System.Drawing.Size(896, 120) + Me.TableLayoutPanel7.TabIndex = 22 + ' + 'out1 + ' + Me.out1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out1.Dock = System.Windows.Forms.DockStyle.Fill + Me.out1.Location = New System.Drawing.Point(37, 97) + Me.out1.Name = "out1" + Me.out1.Size = New System.Drawing.Size(94, 21) + Me.out1.TabIndex = 23 + ' + 'in1 + ' + Me.in1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in1.Dock = System.Windows.Forms.DockStyle.Fill + Me.in1.Location = New System.Drawing.Point(37, 4) + Me.in1.Name = "in1" + Me.in1.Size = New System.Drawing.Size(94, 86) + Me.in1.TabIndex = 20 + Me.in1.Vtype = True + Me.in1.문자열자르기 = "" + Me.in1.빈값체크 = False + Me.in1.열번호 = "" + Me.in1.제목 = "열번호" + Me.in1.필드명 = Nothing + ' + 'in2 + ' + Me.in2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in2.Dock = System.Windows.Forms.DockStyle.Fill + Me.in2.Location = New System.Drawing.Point(138, 4) + Me.in2.Name = "in2" + Me.in2.Size = New System.Drawing.Size(94, 86) + Me.in2.TabIndex = 20 + Me.in2.Vtype = True + Me.in2.문자열자르기 = "" + Me.in2.빈값체크 = False + Me.in2.열번호 = "" + Me.in2.제목 = "열번호" + Me.in2.필드명 = Nothing + ' + 'in3 + ' + Me.in3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in3.Dock = System.Windows.Forms.DockStyle.Fill + Me.in3.Location = New System.Drawing.Point(239, 4) + Me.in3.Name = "in3" + Me.in3.Size = New System.Drawing.Size(94, 86) + Me.in3.TabIndex = 20 + Me.in3.Vtype = True + Me.in3.문자열자르기 = "" + Me.in3.빈값체크 = False + Me.in3.열번호 = "" + Me.in3.제목 = "열번호" + Me.in3.필드명 = Nothing + ' + 'in4 + ' + Me.in4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in4.Dock = System.Windows.Forms.DockStyle.Fill + Me.in4.Location = New System.Drawing.Point(340, 4) + Me.in4.Name = "in4" + Me.in4.Size = New System.Drawing.Size(94, 86) + Me.in4.TabIndex = 20 + Me.in4.Vtype = True + Me.in4.문자열자르기 = "" + Me.in4.빈값체크 = False + Me.in4.열번호 = "" + Me.in4.제목 = "열번호" + Me.in4.필드명 = Nothing + ' + 'in5 + ' + Me.in5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in5.Dock = System.Windows.Forms.DockStyle.Fill + Me.in5.Location = New System.Drawing.Point(441, 4) + Me.in5.Name = "in5" + Me.in5.Size = New System.Drawing.Size(94, 86) + Me.in5.TabIndex = 20 + Me.in5.Vtype = True + Me.in5.문자열자르기 = "" + Me.in5.빈값체크 = False + Me.in5.열번호 = "" + Me.in5.제목 = "열번호" + Me.in5.필드명 = Nothing + ' + 'in6 + ' + Me.in6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in6.Dock = System.Windows.Forms.DockStyle.Fill + Me.in6.Location = New System.Drawing.Point(542, 4) + Me.in6.Name = "in6" + Me.in6.Size = New System.Drawing.Size(94, 86) + Me.in6.TabIndex = 20 + Me.in6.Vtype = True + Me.in6.문자열자르기 = "" + Me.in6.빈값체크 = False + Me.in6.열번호 = "" + Me.in6.제목 = "열번호" + Me.in6.필드명 = Nothing + ' + 'in7 + ' + Me.in7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in7.Dock = System.Windows.Forms.DockStyle.Fill + Me.in7.Location = New System.Drawing.Point(643, 4) + Me.in7.Name = "in7" + Me.in7.Size = New System.Drawing.Size(94, 86) + Me.in7.TabIndex = 20 + Me.in7.Vtype = True + Me.in7.문자열자르기 = "" + Me.in7.빈값체크 = False + Me.in7.열번호 = "" + Me.in7.제목 = "열번호" + Me.in7.필드명 = Nothing + ' + 'in8 + ' + Me.in8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.in8.Dock = System.Windows.Forms.DockStyle.Fill + Me.in8.Location = New System.Drawing.Point(744, 4) + Me.in8.Name = "in8" + Me.in8.Size = New System.Drawing.Size(148, 86) + Me.in8.TabIndex = 20 + Me.in8.Vtype = True + Me.in8.문자열자르기 = "" + Me.in8.빈값체크 = False + Me.in8.열번호 = "" + Me.in8.제목 = "열번호" + Me.in8.필드명 = Nothing + ' + 'out2 + ' + Me.out2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out2.Dock = System.Windows.Forms.DockStyle.Fill + Me.out2.Location = New System.Drawing.Point(138, 97) + Me.out2.Name = "out2" + Me.out2.Size = New System.Drawing.Size(94, 21) + Me.out2.TabIndex = 23 + ' + 'out3 + ' + Me.out3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out3.Dock = System.Windows.Forms.DockStyle.Fill + Me.out3.Location = New System.Drawing.Point(239, 97) + Me.out3.Name = "out3" + Me.out3.Size = New System.Drawing.Size(94, 21) + Me.out3.TabIndex = 23 + ' + 'out4 + ' + Me.out4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out4.Dock = System.Windows.Forms.DockStyle.Fill + Me.out4.Location = New System.Drawing.Point(340, 97) + Me.out4.Name = "out4" + Me.out4.Size = New System.Drawing.Size(94, 21) + Me.out4.TabIndex = 23 + ' + 'out5 + ' + Me.out5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out5.Dock = System.Windows.Forms.DockStyle.Fill + Me.out5.Location = New System.Drawing.Point(441, 97) + Me.out5.Name = "out5" + Me.out5.Size = New System.Drawing.Size(94, 21) + Me.out5.TabIndex = 23 + ' + 'out6 + ' + Me.out6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out6.Dock = System.Windows.Forms.DockStyle.Fill + Me.out6.Location = New System.Drawing.Point(542, 97) + Me.out6.Name = "out6" + Me.out6.Size = New System.Drawing.Size(94, 21) + Me.out6.TabIndex = 23 + ' + 'out7 + ' + Me.out7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out7.Dock = System.Windows.Forms.DockStyle.Fill + Me.out7.Location = New System.Drawing.Point(643, 97) + Me.out7.Name = "out7" + Me.out7.Size = New System.Drawing.Size(94, 21) + Me.out7.TabIndex = 23 + ' + 'out8 + ' + Me.out8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.out8.Dock = System.Windows.Forms.DockStyle.Fill + Me.out8.Location = New System.Drawing.Point(744, 97) + Me.out8.Name = "out8" + Me.out8.Size = New System.Drawing.Size(148, 21) + Me.out8.TabIndex = 23 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.AllowItemReorder = True + Me.StatusStrip1.Font = New System.Drawing.Font("굴림", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_cnt}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 555) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(917, 22) + Me.StatusStrip1.TabIndex = 19 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_cnt + ' + Me.lb_cnt.Name = "lb_cnt" + Me.lb_cnt.Size = New System.Drawing.Size(27, 17) + Me.lb_cnt.Text = "0/0" + ' + 'XLSSync + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(917, 577) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TableLayoutPanel7) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.TableLayoutPanel5) + 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.Fixed3D + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.Name = "XLSSync" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "엑셀파일 동기화" + Me.ContextMenuStrip2.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + CType(Me.srcview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.srcview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel3.ResumeLayout(False) + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.TableLayoutPanel2.ResumeLayout(False) + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel4.ResumeLayout(False) + Me.TableLayoutPanel5.ResumeLayout(False) + Me.TableLayoutPanel5.PerformLayout() + CType(Me.desview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.desview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel6.ResumeLayout(False) + Me.ToolStrip4.ResumeLayout(False) + Me.ToolStrip4.PerformLayout() + Me.TableLayoutPanel7.ResumeLayout(False) + Me.TableLayoutPanel7.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents lStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gsdfolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents htrtripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfdsolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents jytripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents srcview As MyControlOLEDBv2.MyFpoint + Friend WithEvents srcview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents srcctl1 As MyControlOLEDBv2.ImpCtl + Friend WithEvents srcctl4 As MyControlOLEDBv2.ImpCtl + Friend WithEvents srcctl5 As MyControlOLEDBv2.ImpCtl + Friend WithEvents srcctl6 As MyControlOLEDBv2.ImpCtl + Friend WithEvents srcctl7 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tb_srcend As System.Windows.Forms.ToolStripTextBox + Friend WithEvents tb_srcstt As System.Windows.Forms.ToolStripTextBox + Friend WithEvents srcctl3 As MyControlOLEDBv2.ImpCtl + Friend WithEvents srcctl2 As MyControlOLEDBv2.ImpCtl + Friend WithEvents TableLayoutPanel2 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents MyFpoint1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents TableLayoutPanel4 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ImpCtl8 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl9 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl10 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl11 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl12 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl13 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ImpCtl14 As MyControlOLEDBv2.ImpCtl + Friend WithEvents TableLayoutPanel5 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents desview As MyControlOLEDBv2.MyFpoint + Friend WithEvents desview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents TableLayoutPanel6 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents desctl3 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl2 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl1 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl4 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl5 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl6 As MyControlOLEDBv2.ImpCtl + Friend WithEvents desctl7 As MyControlOLEDBv2.ImpCtl + Friend WithEvents ToolStrip4 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel + Friend WithEvents tb_desstt As System.Windows.Forms.ToolStripTextBox + Friend WithEvents tb_desend As System.Windows.Forms.ToolStripTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents in1 As MyControlOLEDBv2.ImpCtl + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents TableLayoutPanel7 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents out1 As System.Windows.Forms.TextBox + Friend WithEvents in2 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in3 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in4 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in5 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in6 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in7 As MyControlOLEDBv2.ImpCtl + Friend WithEvents in8 As MyControlOLEDBv2.ImpCtl + Friend WithEvents out2 As System.Windows.Forms.TextBox + Friend WithEvents out3 As System.Windows.Forms.TextBox + Friend WithEvents out4 As System.Windows.Forms.TextBox + Friend WithEvents out5 As System.Windows.Forms.TextBox + Friend WithEvents out6 As System.Windows.Forms.TextBox + Friend WithEvents out7 As System.Windows.Forms.TextBox + Friend WithEvents out8 As System.Windows.Forms.TextBox + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_srcfile As System.Windows.Forms.ToolStripButton + Friend WithEvents tb_desfile As System.Windows.Forms.ToolStripButton + Friend WithEvents chk_test As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_srcsave As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_dessave As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_macrosavenew As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_macrosave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_macrodel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cmb_macro As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents chk_allcheck As System.Windows.Forms.ToolStripButton + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_cnt As System.Windows.Forms.ToolStripStatusLabel + +End Class diff --git a/Epole/업로드폼/XLSsync.resx b/Epole/업로드폼/XLSsync.resx new file mode 100644 index 0000000..ce36ec8 --- /dev/null +++ b/Epole/업로드폼/XLSsync.resx @@ -0,0 +1,1598 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 587, 4 + + + 138, 17 + + + 903, 15 + + + 288, 12 + + + 903, 15 + + + 809, 10 + + + 992, 14 + + + 431, 10 + + + 992, 14 + + + 1101, 14 + + + 86 + + + + + AAABAAYAICAAAAEACACoCAAAZgAAABAQAAABAAgAaAUAAA4JAACAgAAAAQAgACgIAQB2DgAAMDAAAAEA + IACoJQAAnhYBACAgAAABACAAqBAAAEY8AQAQEAAAAQAgAGgEAADuTAEAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAQAAAAAAAP///wDM//8Amf//AGb//wAz//8AAP//AP/M/wDMzP8Amcz/AGbM + /wAzzP8AAMz/AP+Z/wDMmf8AmZn/AGaZ/wAzmf8AAJn/AP9m/wDMZv8AmWb/AGZm/wAzZv8AAGb/AP8z + /wDMM/8AmTP/AGYz/wAzM/8AADP/AP8A/wDMAP8AmQD/AGYA/wAzAP8AAAD/AP//zADM/8wAmf/MAGb/ + zAAz/8wAAP/MAP/MzADMzMwAmczMAGbMzAAzzMwAAMzMAP+ZzADMmcwAmZnMAGaZzAAzmcwAAJnMAP9m + zADMZswAmWbMAGZmzAAzZswAAGbMAP8zzADMM8wAmTPMAGYzzAAzM8wAADPMAP8AzADMAMwAmQDMAGYA + zAAzAMwAAADMAP//mQDM/5kAmf+ZAGb/mQAz/5kAAP+ZAP/MmQDMzJkAmcyZAGbMmQAzzJkAAMyZAP+Z + mQDMmZkAmZmZAGaZmQAzmZkAAJmZAP9mmQDMZpkAmWaZAGZmmQAzZpkAAGaZAP8zmQDMM5kAmTOZAGYz + mQAzM5kAADOZAP8AmQDMAJkAmQCZAGYAmQAzAJkAAACZAP//ZgDM/2YAmf9mAGb/ZgAz/2YAAP9mAP/M + ZgDMzGYAmcxmAGbMZgAzzGYAAMxmAP+ZZgDMmWYAmZlmAGaZZgAzmWYAAJlmAP9mZgDMZmYAmWZmAGZm + ZgAzZmYAAGZmAP8zZgDMM2YAmTNmAGYzZgAzM2YAADNmAP8AZgDMAGYAmQBmAGYAZgAzAGYAAABmAP// + MwDM/zMAmf8zAGb/MwAz/zMAAP8zAP/MMwDMzDMAmcwzAGbMMwAzzDMAAMwzAP+ZMwDMmTMAmZkzAGaZ + MwAzmTMAAJkzAP9mMwDMZjMAmWYzAGZmMwAzZjMAAGYzAP8zMwDMMzMAmTMzAGYzMwAzMzMAADMzAP8A + MwDMADMAmQAzAGYAMwAzADMAAAAzAP//AADM/wAAmf8AAGb/AAAz/wAAAP8AAP/MAADMzAAAmcwAAGbM + AAAzzAAAAMwAAP+ZAADMmQAAmZkAAGaZAAAzmQAAAJkAAP9mAADMZgAAmWYAAGZmAAAzZgAAAGYAAP8z + AADMMwAAmTMAAGYzAAAzMwAAADMAAP8AAADMAAAAmQAAAGYAAAAzAAAAAADuAAAA3QAAALsAAACqAAAA + iAAAAHcAAABVAAAARAAAACIAAAARAADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAAR + AADuAAAA3QAAALsAAACqAAAAiAAAAHcAAABVAAAARAAAACIAAAARAAAA7u7uAN3d3QC7u7sAqqqqAIiI + iAB3d3cAVVVVAERERAAiIiIAERERAAAAAAD///////////////////////////////////////////// + ////////////////////////9P////////////////////////////////////////Snp/////////// + ////////////////////////////p319p////////////////////////////////////6d9fX19p/// + /////////8/Pz8/Pz8/Pz8/Pz8/Pz8+nfX19fX18p8/Pz8/Pz//zz1VVVVVVVVVVVVVVVVV5pn19fX19 + fX18plVVVU/P/8+keXl5eXl5eXl5eXl5eaZ9fX19fX19fX18pnl5ec/zz6R5eXl5eXl5eXl5eXmmUVJS + UlJ9fVJSUlJXpnl5pM/Jenl5eXl5eVVVVVVVVYKCgoKCUn19UoKCgoKBeXmkyaV6eXl5VVVVVVVVVVVV + VVVVVaZSfX1SplVVeXl5eYClpXl5Tk5OTk5OTk5OTk5OTk5OgVJ9fVKBTk5OTk55eqWlVXlPT09PT09P + T09PT09PT0+BUlNTUoFPT09PVXl5paVVeU5OTk5OTk5OTk5OTk5OTntSU1NSe05OTk5OVVWlpU95T09P + T09OTk5OTk5OTk5Oe1JTU1J7T09PT09VVaWlT1VOTk5OKioqKioqKioqKip7UlNTUntOTk5OTlVPpaVP + VU5OTk5OTk5OKioqKioqKvkuUlIuek5OTk5OVU+lpStVKioqKioqKioqKioqKioqVi0tLS1WKioqKipP + K6WlKlUqKioqKioqKioqKioqKipWLS0tLVYqKioqKlUrgYH2TyoqKioqKioqKioqKioqKvcsLCws9yoq + KioqTyqBgfZVKioqKioqKir2Kir29vb2KysrKysrKioqKipVKoGB9U8qKvX19fX19fX19fX19fX29vb2 + 9vb19SoqKk8q+vr1T/b29vb29vb29vb29vb29vb29vb29vb29vYqT/X6+vX19fX1AAAAAAAAAAAAAAAA + AAAAAAAAAAD19fX19fmBgfv5+fn5+fn5+fn5+fn5+fn5+fn5+fn5+fn5+fuBgf///fX19fX19fX19fX1 + 9fX19fX19fX19fX19fX1/P//////rCsrKysrKysrKyv9////////////////////////////9vX19fX1 + 9fX19v////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ////////////////////////////////////////4AAAB4AAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAIAAAAHAAAABwAAAA+AB///gAf////////////8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAABAAAAAAAA////AMz//wCZ//8AZv//ADP//wAA//8A/8z/AMzM/wCZzP8AZsz/ADPM + /wAAzP8A/5n/AMyZ/wCZmf8AZpn/ADOZ/wAAmf8A/2b/AMxm/wCZZv8AZmb/ADNm/wAAZv8A/zP/AMwz + /wCZM/8AZjP/ADMz/wAAM/8A/wD/AMwA/wCZAP8AZgD/ADMA/wAAAP8A///MAMz/zACZ/8wAZv/MADP/ + zAAA/8wA/8zMAMzMzACZzMwAZszMADPMzAAAzMwA/5nMAMyZzACZmcwAZpnMADOZzAAAmcwA/2bMAMxm + zACZZswAZmbMADNmzAAAZswA/zPMAMwzzACZM8wAZjPMADMzzAAAM8wA/wDMAMwAzACZAMwAZgDMADMA + zAAAAMwA//+ZAMz/mQCZ/5kAZv+ZADP/mQAA/5kA/8yZAMzMmQCZzJkAZsyZADPMmQAAzJkA/5mZAMyZ + mQCZmZkAZpmZADOZmQAAmZkA/2aZAMxmmQCZZpkAZmaZADNmmQAAZpkA/zOZAMwzmQCZM5kAZjOZADMz + mQAAM5kA/wCZAMwAmQCZAJkAZgCZADMAmQAAAJkA//9mAMz/ZgCZ/2YAZv9mADP/ZgAA/2YA/8xmAMzM + ZgCZzGYAZsxmADPMZgAAzGYA/5lmAMyZZgCZmWYAZplmADOZZgAAmWYA/2ZmAMxmZgCZZmYAZmZmADNm + ZgAAZmYA/zNmAMwzZgCZM2YAZjNmADMzZgAAM2YA/wBmAMwAZgCZAGYAZgBmADMAZgAAAGYA//8zAMz/ + MwCZ/zMAZv8zADP/MwAA/zMA/8wzAMzMMwCZzDMAZswzADPMMwAAzDMA/5kzAMyZMwCZmTMAZpkzADOZ + MwAAmTMA/2YzAMxmMwCZZjMAZmYzADNmMwAAZjMA/zMzAMwzMwCZMzMAZjMzADMzMwAAMzMA/wAzAMwA + MwCZADMAZgAzADMAMwAAADMA//8AAMz/AACZ/wAAZv8AADP/AAAA/wAA/8wAAMzMAACZzAAAZswAADPM + AAAAzAAA/5kAAMyZAACZmQAAZpkAADOZAAAAmQAA/2YAAMxmAACZZgAAZmYAADNmAAAAZgAA/zMAAMwz + AACZMwAAZjMAADMzAAAAMwAA/wAAAMwAAACZAAAAZgAAADMAAAAAAO4AAADdAAAAuwAAAKoAAACIAAAA + dwAAAFUAAABEAAAAIgAAABEAAO4AAADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAO4A + AADdAAAAuwAAAKoAAACIAAAAdwAAAFUAAABEAAAAIgAAABEAAADu7u4A3d3dALu7uwCqqqoAiIiIAHd3 + dwBVVVUAREREACIiIgAREREAAAAAAP////////////////////////////////+np////////8/Pz8/P + z8+nfX2nz8/P/8+kKk5OTk6nfX19facqpM+lgE5VVVWnLCx9fSwsp3qlpVZOTk5Op6end1Onp6dWpaVV + Tk5OTk5Op1NTp05OVaWB9yoqKioqKqZTU6YqKveB+vcqKioqKip7LS57Kir3+vor9vX19fX1+Cwm+PUq + K/pW9fX19fX19fb19fb19fX4gftWVlZWVlZWVlZWVlb7gf+s9fX19fX19fX19fX1//////329fX19fv/ + //////////////////////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAgAEAAYABgAHAf4ABKAAAAIAAAAAAAQAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAIAAAACAAAAAQAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAACAAAAAwAAAAQAAAAFAAAABgAAAAYAAAAHAAAABwAA + AAYAAAAGAAAABQAAAAQAAAADAAAAAgAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAAAwAA + AAQAAAAGAAAABwAAAAkAAAAKAAAADAAAAAwAAAAMAAAADAAAAAoAAAAJAAAABwAAAAUAAAAEAAAAAwAA + AAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAAAgAAAAMAAAAFAAAABwAAAAoAAAANAAAADwAAABIAAAATAAAAFAAA + ABQAAAATAAAAEQAAAA8AAAAMAAAACQAAAAcAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABQAA + AAgAAAAMAAAAEAAAABQAAAAYAwIAHAYEACEIBQAjBgQAIgIBAB8AAAAbAAAAFwAAABMAAAAPAAAACwAA + AAgAAAAFAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAACAAAAAwAAAAUAAAAJAAAADQAAABIAAAAYAAAAHQIBACQMCAAuFA0AOBkQ + AD0UDQA5DAcAMQIBACgAAAAiAAAAHAAAABcAAAARAAAADAAAAAgAAAAFAAAAAwAAAAEAAAABAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAQAAAAMAAAAFAAAACQAA + AA0AAAATAAAAGgAAACECAQAqCwcANhgPAEkjFgBeJxkBZiMWAF4YDwBNCgYAOwEBADAAAAAoAAAAIAAA + ABkAAAASAAAADAAAAAgAAAAFAAAAAwAAAAEAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAABAAAAAQAA + AAEAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAwAAAAMAAAAFAAAABwAAAAoAAAAPAAAAFQAAAB0AAAAmAgEAMAgFAD4WDgBSJBcBbSEw + EZ4PTCrTIS8RnyQXAXEVDQBWCAUAQgEBADcAAAAtAAAAJAAAABsAAAAUAAAADgAAAAkAAAAGAAAABAAA + AAMAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABAAAAAQAAAAIAAAADAAAAAwAAAAQAAAAFAAAABQAAAAYAAAAGAAAABgAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAIAAAACQAAAAsAAAAPAAAAEwAA + ABkAAAAhAAAAKgEBADYGBABDEgsAWCAUAHUbNhmyBGJA/0GjhP8EYkD/GzYZtB8TAHkQCgBfBgQASgEB + AD0AAAAyAAAAKAAAAB8AAAAYAAAAEgAAAA0AAAALAAAACQAAAAgAAAAHAAAABwAAAAcAAAAHAAAABwAA + AAcAAAAHAAAABwAAAAcAAAAHAAAABwAAAAcAAAAHAAAABgAAAAYAAAAFAAAABQAAAAQAAAADAAAAAwAA + AAIAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAIAAAADAAAABQAAAAcAAAAJAAAACwAA + AA0AAAAPAAAAEAAAABEAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAATAAAAEwAAABMAAAATAAAAEwAA + ABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAA + ABIAAAASAAAAEgAAABMAAAATAAAAEwAAABMAAAATAAAAEwAAABMAAAATAAAAEgAAABIAAAASAAAAEgAA + ABMAAAATAAAAEwAAABMAAAATAAAAEwAAABMAAAASAAAAEgAAABMAAAATAAAAEwAAABIAAAASAAAAEgAA + ABIAAAATAAAAFAAAABUAAAAXAAAAGQAAAB4AAAAkAAAAKgAAADMBAQA/BgMATQ8KAGAcEQB7HiwPqwJf + Pf9Cqoj/NrWE/0KqiP8CXz3/HS0RshwSAIIOCQBnBQMAVQEBAEcAAAA8AAAAMgAAACgAAAAhAAAAGwAA + ABgAAAAVAAAAFAAAABMAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAAABIAAAASAAAAEgAA + ABIAAAARAAAAEAAAAA8AAAANAAAACwAAAAoAAAAIAAAABgAAAAMAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAACAAAABAAAAAcAAAAMAAAAEQAAABUAAAAZAAAAHQAAAB8AAAAiAAAAIwAAACUAAAAlAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAnAAAAJwAA + ACcAAAAnAAAAJwAAACcAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAmAAAAJwAAACcAAAAnAAAAJwAA + ACYAAAAmAAAAJwAAACcAAAAnAAAAJgAAACYAAAAmAAAAJgAAACgAAAAoAAAAKgAAAC0AAAAwAAAANQAA + ADwAAABDAQEATgMCAFoLCABtGBAAhSIeBacRSCjkPaGA/yKpcf8Im1r/Ialx/z6jgv8QSynlHiMLsRgP + AIsLBwBzBAIAYgEBAFYAAABLAAAAQAAAADgAAAAyAAAALQAAACoAAAAoAAAAJwAAACcAAAAmAAAAJgAA + ACYAAAAmAAAAJgAAACYAAAAmAAAAJgAAACYAAAAlAAAAJQAAACQAAAAiAAAAIAAAAB0AAAAaAAAAFgAA + ABIAAAANAAAACAAAAAUAAAACAAAAAQAAAAAAAAAAAAAAAQAAAAMAAAAIAAAADwAAABgAAAAgAAAAJwAA + AC0AAAAyAAAANgAAADkAAAA7AAAAPAAAAD0AAAA+AAAAPgAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAA + AD8AAABAAAAAQQAAAEIAAABEAAAARwAAAEsAAABRAAAAWAAAAGADAgBrCAUAexQNAJEiFQGrEEco5jSW + dv8nrXj/BptZ/wCYVP8Fm1n/Jax2/zqcfP8QRyfoIRUBrxQNAJcJBQCBAgIAcQEBAGYAAABcAAAAVAAA + AE0AAABIAAAARAAAAEIAAABBAAAAQAAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA+AAAAPgAA + AD0AAAA8AAAAOwAAADkAAAA3AAAAMwAAAC8AAAApAAAAIgAAABoAAAARAAAACgAAAAUAAAABAAAAAAAA + AAAAAAACAAAABgAAAA4AAAAaAAAAJwAAADMAAAA8AAAARQAAAEoAAABNAAAAUAAAAFMAAABUAAAAVQAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVgAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVwAAAFcAAABZAAAAWgAAAF0AAABhAAAAZQAA + AGsAAAByAgEAfAcEAIkRCwCcHhMBsxBFJuguj2//LbB9/wecXP8AmFX/AJhV/wCYVf8HnFv/Kq97/y6P + b/8QRiboHhMBtxILAKEHBQCPAgIAgAAAAHYAAABuAAAAZwAAAGEAAABdAAAAWgAAAFgAAABXAAAAVwAA + AFYAAABWAAAAVgAAAFYAAABWAAAAVgAAAFYAAABWAAAAVQAAAFQAAABTAAAAUQAAAE4AAABLAAAARgAA + AD8AAAA1AAAAKQAAAB0AAAARAAAACAAAAAMAAAABAAAAAQAAAAMAAAAJAAAAFQAAACUAAAA1AAAARAAA + AFAAAABiFAsAizIcAbNEJQHETCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActLKgHLSykBzEopAcxIKAHNRicBzkQmAc9BJAHRPSIB0zkgAdY2HgHaNR4B4DUfAecZRSL3IoNi/zGz + gf8InVz/AJlV/wCZVf8AmVX/AJlV/wCZVf8InVz/MLKA/yWGZf8YRSP4NB4B6DMdAeE0HQHcOB8B1zwh + AdRAIwHSRCUB0EYnAc5JKAHNSikBzEspAcxMKgHLTCoBy0wqActMKgHLTCoBy0wqActMKgHLTCoBy0wq + ActMKgHLTCoBy0wqActNKgHKTisBxkopAbI1HQGEBwQAVgAAAEcAAAA5AAAAKgAAABkAAAAMAAAABAAA + AAEAAAABAAAABAAAAAsAAAAaAAAALQAAAD8AAABRAAAAYi0aA7iAY0Huv6SK/NCsiv/XrIX/1amD/9Wp + g//VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1aqE/9WqhP/VqoT/1qqF/9aq + hf/Wq4X/1quF/9arhf/Wq4X/1quF/9arhf/Wq4b/1quG/9arhv/Wq4b/1quG/9arhv/Wq4b/1quG/9ar + hv/Wq4b/1quG/9arhv/Wq4b/1quG/9arhv/WrIf/1quG/9ash//WrIf/1qyH/9ash//WrIf/1qyH/9as + h//WrIf/1qyH/9ash//WrIf/1qyH/9ash//Vq4b/1KuG/9Ophf/RqIT/zqWC/8mif//EnXv/vZd2/7SQ + cP+ph2r/nX1g/4xuUv96XkH/NVc2/xh5Vv83tYb/C59g/wCZVv8AmVb/AJlW/wCZVv8AmVb/AJlW/wCZ + Vv8Kn1//NrWF/x1+XP8xWDX/dls+/4drTv+ZeV3/p4Rn/7KObv+7lXT/w5x5/8mhff/OpYD/0aeB/9Ko + gv/UqYP/1KmD/9WqhP/VqoT/1aqE/9Wpg//VqYP/1amD/9Wpg//VqYP/1amD/9Wpg//WqoX9zKiH9pZ4 + V9s+IgGRBgQAWQAAAEQAAAAxAAAAHgAAAA8AAAAFAAAAAQAAAAEAAAAFAAAADQAAABwAAAAvAAAAQgAA + AFQqFwGYhmlI7NWxkf/Ml2j/xotW/8OFTv/DhE3/woRN/8KETf/ChE3/woRN/8KETf/DhE3/w4RN/8OE + Tf/DhE3/w4RN/8OFTv/DhU7/w4VO/8OFT//DhU//w4VP/8OFT//DhU//w4VP/8OFT//DhlD/w4ZQ/8OG + UP/DhlD/xIZQ/8SGUP/EhlD/xIZQ/8SGUP/EhlD/xIZQ/8SHUf/Eh1H/xIdR/8SHUf/Eh1H/xIdR/8SH + Uf/Eh1H/xIdS/8SHUf/Eh1L/xIdR/8SHUv/Eh1L/xIdS/8SHUf/Eh1L/xIdR/8SHUf/Eh1H/w4ZS/8KG + Uf/BhVD/v4RP/7yCTv+4f0z/s3tK/613R/+lckT/nGxA/5FkO/+DWjP/c04o/zdQLP8RcU7/PbWK/w+i + ZP8Cmlj/AZpX/wGaV/8Bmlf/AZpX/wGaV/8Bmlf/AZpX/wGaV/8OoWL/O7aJ/xR1Uv80UCv/cEsm/39W + MP+PYTn/mmk+/6VxQv+udkX/tHpH/7l9Sf+9gEv/wIJM/8CDTP/Bg03/woRN/8KETf/ChE3/woRN/8KD + TP/Cg0z/woNM/8KDTP/Cg0v/woNL/8OFTf/Gi1j/zp1x8519W889IgF+AAAARwAAADUAAAAgAAAAEAAA + AAYAAAACAAAAAQAAAAUAAAAMAAAAGwAAACsAAAA9AAAATkQmArrRspT8y5Ji/8SHUP/Ehk//xIZP/8SG + T//Ehk//xIZP/8SGT//EhlD/xIZQ/8SGUP/EhlD/xIZQ/8WHUf/Fh1H/xYdR/8WHUv/Fh1L/xYdS/8WH + Uv/Fh1L/xYhS/8WIUv/FiFL/xYhS/8WIUv/FiFP/xYhT/8WIU//FiFP/xolU/8aJVP/GiVT/xolU/8aJ + VP/GiVT/xolU/8aJVP/GiVT/xolV/8aJVf/GiVX/xolV/8aJVf/GiVX/xolV/8aJVf/GiVX/xolV/8aJ + Vf/GiVX/xolV/8aJVf/GiVX/xolV/8WIVf/EiFT/xIdU/8GGU/++hFL/uoFQ/7Z+Tv+veUv/p3RI/55t + RP+TZj7/hlw2/3VQK/89UCv/DmxJ/0G0jP8TpGj/AptZ/wGaWP8Bmlj/AZpY/wGaWP8Bmlj/AZpY/wGa + WP8Bmlj/AZpY/wKaWf8Romb/PrSL/xBvTP84USz/c04p/4NaM/+TZDz/n21C/6hzRf+xeUn/t31L/7uA + TP+/gk7/wYRP/8KFT//DhVD/xIZP/8SGT//Ehk//xIZP/8SGT//EhU//xIVP/8SFT//EhU7/xIVO/8SF + Tv/Gilb9xZt132M4Bp4DAgBEAAAALwAAAB4AAAAQAAAABgAAAAIAAAABAAAABAAAAAsAAAAVAAAAIwAA + ADEZDgFNZkQdx9erhP7Ii1X/x4lT/8eJUv/HiVL/xolT/8aJU//GiFL/xolT/8aJU//HiVT/x4lU/8eJ + VP/HilT/x4pU/8eKVP/HilT/x4pU/8eKVP/HilX/x4pV/8eKVf/HilX/x4tW/8eLVv/Hi1b/x4tW/8eL + Vv/Hi1f/x4tX/8eLV//Hi1f/x4tX/8iMV//Hi1f/yIxX/8iMV//IjFf/yIxX/8iMV//IjFf/yIxX/8iM + V//IjFj/yIxX/8iMV//IjFj/yIxY/8iMWP/IjFj/yIxY/8iMWP/IjVn/yIxY/8iMWP/Hi1j/xoxY/8aK + V//EiVb/wYdV/72EU/+4gFH/sXxO/6l3S/+gcEb/lmlA/4heOP94Uy7/R1As/whoQ/9Cs43/FqZr/wKc + Wv8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wGbWf8Bm1n/AZtZ/wKcWv8UpWn/QbSN/wtr + Rv9BUSv/dlEr/4heNv+XaD//o3FF/6x4Sf+0fUz/uoBO/76DUP/ChlL/w4dS/8SIUv/FiFP/xolT/8aJ + U//GiFL/xohS/8aIUv/GiFL/xohS/8aIUv/Gh1H/xodR/8aIUf/EkGHbgVksoiASAUYAAAAmAAAAGAAA + AAwAAAAFAAAAAgAAAAEAAAADAAAABwAAAA8AAAAYAAAAIi8aAkd5WTPF1qh//8uNV//KjVf/yo1X/8qN + V//Kjlj/yo1X/8qNV//KjVf/yo1X/8qNV//Ljlj/y45Y/8uOWP/Ljlj/y45Y/8uOWP/Ljln/y45Z/8uO + Wf/Ljln/y49a/8uPWv/Lj1r/y49a/8uPWv/Lj1r/y49a/8uPWv/Lj1r/y49b/8uPW//Lj1v/y49b/8uP + W//Lj1v/y49b/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQXP/MkFz/zJBc/8yQ + XP/MkFz/zJBc/8yQXP/MkFz/y49c/8uPXP/Kjlv/yI1a/8aLWf/CiVf/vIVV/7aAUv+ue07/pHRK/5ls + RP+LYjz/e1Yx/1NPK/8FZD//Qq+L/xqpcP8DnVz/AZxa/wGcWv8BnFr/AZxa/wGcWv8BnFr/AZxa/wGc + Wv8BnFr/AZxa/wGcWv8BnFr/AZxa/wKdW/8XqG3/QrGM/wZlQP9LUCv/e1Uv/41iO/+cbUT/qHZJ/7J8 + Tf+5gVD/v4ZT/8KHVP/FilX/yItW/8iMVv/JjFf/yo1X/8qNV//KjVf/yoxW/8qMVv/KjFb/yoxW/8qM + Vf/KjFX/yIpU/8eQX9mVbkGjNh8CQAAAABoAAAAQAAAACAAAAAMAAAABAAAAAQAAAAIAAAAEAAAACQAA + AA0AAAAVQyYDQYZlQcPYqX//0JNd/9CTXf/Pklz/z5Jc/8+SXP/Pk13/z5Nd/8+TXf/Pk17/z5Ne/8+T + Xv/Pk17/z5Ne/8+TXv/PlF7/z5Re/9CUX//PlF7/0JRf/9CVYP/QlWD/0JVg/9CVYP/QlWD/0JVg/9CV + YP/QlWD/0JVg/9CVYP/QlWD/0JVh/9CVYP/QlWH/0JVh/9CWYv/QlmL/0JZi/9CWYv/QlmL/0JZi/9CW + Yv/QlmL/0ZZj/9CWYv/RlmP/0JZi/9GWY//RlmP/0ZZj/9GWY//RlmP/0ZZj/9CVY//QlWP/z5Vi/86U + Yf/LkmD/x49e/8KLXP+8h1n/s4FV/6p6UP+eckr/j2dB/4BbNv9hUCz/JFcx/0Cohv8frHX/BZ5e/wGc + W/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wGcW/8BnFv/AZxb/wSe + Xv8cqnP/QayJ/wVkP/9VUSz/gFo0/5JoQP+ic0n/rXxP/7eDU/++h1b/xItZ/8iOW//KkFz/zZFc/82S + XP/OkVz/z5Jc/8+SXP/Pklz/z5Jc/8+SXP/Pklz/z5Jc/8+SXP/MkFn/y5Je1aR7T55KKgM5AAAAEAAA + AAgAAAAFAAAAAgAAAAEAAAAAAAAAAQAAAAIAAAAEAAAABgAAAAxVMAU7kG9Mwdiofv/RlF//0JNe/9CT + Xv/QlF//0JRf/9CUX//QlGD/0JRg/9CUYP/QlGD/0JVg/9CVYP/QlWD/0JVg/9CVYP/RlWH/0ZVi/9GV + Yv/RlWL/0ZVi/9GVYv/RlmL/0ZZi/9GWYv/RlmL/0ZZj/9GWY//RlmP/0ZZj/9CVYv/QlmP/0Zdk/9GX + ZP/Rl2T/0Zdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0pdk/9KXZP/Sl2T/0phl/9KX + ZP/Sl2T/0pdk/9KXZP/SmGX/0Zdl/9CWY//PlmP/zZNi/8mRYf/Ejl7/vopb/7aEWP+sfFL/onRM/5Np + RP+CXTj/a1Es/ypVMP86oH//Ja97/wWfYP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGd + XP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wGdXP8BnVz/AZ1c/wWfX/8grXf/QKmH/yRXMf9lUSv/hF03/5Zr + Q/+kdkv/sH5R/7mFVf/AiVj/xYxb/8mPXf/MkV7/zpJe/86TX//Pk1//0JRf/9CTXv/Qk17/0JNe/9CT + Xv/Qk17/0JNe/8+SXf/Lj13Qs4tfnlw0BTcAAAAJAAAAAwAAAAIAAAABAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAACAAAABmI3BjucfFnD3a2C/9ecZ//XnGf/15tn/9ebZ//YnGj/2Jxo/9icaP/YnGj/2Jxp/9ec + aP/XnGj/15xo/9ecaP/XnGj/151p/9edaf/XnWn/151p/9edaf/XnWr/151q/9edav/XnWr/2J5q/9ie + av/Ynmr/2J5r/9iea//Ynmv/2J5r/9iea//Ynmv/2J9s/9ifbP/Yn2z/2J9s/9ifbP/Yn2z/2J9s/9if + bP/Yn2z/2J9s/9ifbP/Yn23/2J9t/9mfbv/Zn27/2Z9u/9mfbv/Zn27/2Z9u/9iebv/Xnm3/1p1t/9Sb + a//RmWr/zJZo/8aRZf+/jGH/tYVc/6l8Vf+bcUz/iWNA/3dVMf8sWDL/NZl4/yqzgP8IoWP/AZ5d/wGe + Xf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGeXf8Bnl3/AZ5d/wGe + Xf8Bnl3/AZ5d/wWgYf8lsXz/Op5+/ytWMf9zVTD/i2Q+/51ySv+tflP/uIZZ/8KMXv/JkWL/zpVk/9GX + Zf/UmWb/1Zpn/9aaZ//Wmmf/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/1Zlk/8yPW86+lm2faDsGNwAA + AAUAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFaT0HPqODYsTisYX/3qNv/92i + bv/dom//3aJv/92ib//dom//3aNv/92jb//do2//3qNw/96jcP/eo3D/3qNw/96jcP/eo3D/3qRx/96k + cf/epHH/3qRx/96kcf/epHH/3qRy/96lcv/epXL/3qVy/96lcv/epXL/3qVy/96lc//epXP/3qVz/96l + c//epXP/3qVz/96lc//epXP/36Z0/9+mdP/fpnT/36Z0/9+mdP/fpnT/36Z0/9+mdP/fpnT/36Z0/9+m + df/fpnX/36Z1/9+mdP/epXT/3qV1/9ykdP/bo3P/2KFx/9Seb//OmWv/xpNn/72NYv+xhFz/onhT/49p + Rv98Wjb/MVgz/ymLaf8vtoX/CKJk/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGe + Xv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wGeXv8Bnl7/AZ5e/wihZP8rs4H/M5Z1/y5Z + M/99WjX/kmpE/6V5Uf+1hVv/wI1h/8eTZP/OmGj/05xq/9efbP/an23/26Fu/9yhb//dom//3aJv/92i + bv/dom7/3aFt/92hbf/boGz/zZBZy8SfeKRuPwg9AAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAARtPwlEq41tyOWzh//ip3P/4qdz/+Knc//hp3P/4ad0/+GndP/hp3T/4ad0/+Go + df/hqHX/4ah1/+Godf/hqHX/4ah1/+Kodv/iqHb/4qh2/+Kpdv/iqXb/4ql2/+Kpd//iqXf/4ql3/+Kp + d//iqXf/4ql3/+Kpd//iqXf/4ql3/+KqeP/iqnj/4qp5/+Kqef/iqnn/4qp5/+Kqef/iqnn/4qp5/+Kr + ef/iq3n/4qt5/+Kref/iq3n/4qt5/+Kref/iq3n/4qt6/+Kref/iq3n/4qt6/+Gqev/gqnn/3qh4/9ym + d//YpHT/06Bx/8yabv/Ck2n/t4ti/6l/Wf+WcEv/gV87/zVaNP8fgV3/NriL/wukZ/8Bn1//AZ9f/wGf + X/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wGf + X/8Bn1//AZ9f/wGfX/8Bn1//AZ9f/wijZf8wt4f/KYxp/zJaNP+CXzr/mHFK/6t/V/+6i2D/xZNm/86a + a//UnW3/2KBv/9yjcf/epXP/36Zy/+Cmc//hp3P/4adz/+Gnc//hpnL/4aZy/+CkcP/Oj1fJzKiDp3BB + CUIAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABXBBCUqzk3TJ57WI/+Wr + eP/lq3f/5at3/+WreP/lq3j/5at4/+WreP/lq3j/5ax5/+Wsef/lrHn/5ax5/+Wsef/lrHn/5ax5/+Ws + ef/lrHr/5a17/+Wte//lrXv/5q17/+ate//mrXv/5q17/+ate//mrXz/5q18/+aufP/mrnz/5a18/+Wt + fP/mrnz/5q59/+aufP/mrn3/5q59/+auff/mrn3/5q99/+auff/mr33/5q99/+avff/mr37/5q9+/+av + ff/mr37/5q9+/+avfv/lrn7/5a5+/+Otff/hrHz/3ql6/9ild//SoHP/yZlu/7+RaP+vhV7/nHVR/4Zj + QP88WzX/FndT/zu6j/8Opmz/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGg + Yf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wGgYf8BoGH/AaBh/wul + af82uYz/H4Fd/zhcNP+IYz7/nnZP/7KFXP/BkWb/zJls/9Oeb//ZonL/3qZ0/+Godv/iqXf/5Kp4/+Sq + d//lq3f/5at3/+Wrd//lqnf/46h1/82NVMjSroirc0MJSAAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAFcUIKT7eYd8rotYn/5657/+eue//nrnv/5658/+eufP/nrn3/5659/+eu + ff/nrn3/5699/+evff/nr33/569+/+evfv/nr37/57B+/+ewfv/nsH7/57B//+ewf//nsH//57B//+ew + f//nsH//57B//+ixgP/osYD/6LGA/+ixgP/osYD/6LGA/+ixgP/osYD/6LGA/+ixgf/osYH/6LGB/+iy + gf/osoH/6LKB/+iygf/osoH/6LKB/+iygf/osoH/6LKB/+iygf/osoL/6LKC/+exgP/msYH/5K+A/+Kt + fv/dqnz/16V4/8+edP/Fl27/toxl/6N8V/+MaUX/Ql03/xJ0T/8+upH/Ealv/wKhY/8BoWL/AaFi/wGh + Yv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGh + Yv8BoWL/AaFi/wGhYv8BoWL/AaFi/wGhYv8BoWL/AaFi/w6nbP86uo//Gn1Y/zxdNv+NaEP/pHtU/7iL + Yv/GlWv/0J1x/9iidf/ep3j/4qp5/+Orev/lrXr/5q17/+ete//nrXv/5617/+ete//lrHn/y4pRx9ax + jKx0QwpNAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVyQwtVvZ19zOm2 + if/psH3/6bB9/+mwfv/psH7/6bB+/+mwfv/psH7/6bF//+mxf//psX//6bF//+mxf//psX//6bGA/+mx + gP/psoH/6bKB/+mygf/psoH/6bKB/+mygv/psoH/6bKC/+mygv/psoL/6bOC/+mzgv/ps4L/6bOC/+mz + gv/qs4P/6rOD/+qzg//qs4P/6rOD/+qzg//qs4P/6rOD/+q0hP/qtIT/6rSE/+q0hP/qtIT/6rSE/+q0 + hP/qtIT/6rSE/+q0hP/ps4P/6bOD/+eygv/lsIH/4q5//9ypfP/VpHj/y5xy/72Rav+qglz/km5K/05e + Of8Mbkj/QriS/xSqcv8DomT/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKh + Y/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKhY/8CoWP/AqFj/wKh + Y/8CoWP/A6Fk/xGob/8/upH/EnRP/0ZfOP+Tbkf/q4FZ/7+RZ//NnHD/16J0/92neP/iqnr/5a18/+ev + ff/or33/6bB9/+mwff/psH3/6a99/+ete//LilDH3LaQr3VFC1MAAAAFAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABnNEDFrCn37M5bKF/+Sse//krHv/5K18/+StfP/krXz/5K18/+St + fP/krXz/5K18/+Stff/lrn3/5a59/+Wuff/lrn3/5a5+/+Wufv/lrn7/5a5+/+Wufv/lr3//5a9//+Wv + f//lr3//5a9//+Wvf//lr3//5a+A/+Wwgf/lsIH/5bCB/+Wwgf/lsIH/5bCB/+Wwgf/lsIH/5bCB/+Ww + gf/lsIH/5bCC/+Wwgv/lsIL/5bCC/+Wwgv/lsIL/5bCC/+axgv/msYL/5rGC/+Wwgf/ksIH/46+A/+Gt + f//cqXz/1qV5/82edP/BlGz/roVf/5dyTf9dYDv/CGhC/0O0kf8YrXb/A6Nl/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/AqJk/wKiZP8ComT/A6Nl/xSrc/9BuJL/DW5I/09g + Of+XcEr/roNb/8KTaP/OnHD/16N1/9yneP/gqnr/4at7/+OsfP/jq3v/5Kx6/+Ssev/krHr/4qp4/8qH + TcbguZOwdkYMVwAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGdUUNX8ah + gM7otIf/6LGA/+ixgP/osYD/6LKB/+iygf/osoH/6LKB/+iygf/osoL/6LKC/+izgv/os4L/6LOC/+iz + gv/os4L/6LOD/+izg//os4P/6LOD/+m0hP/ptIT/6bSE/+m0hf/ptIT/6bSF/+m0hf/ptIX/6bSF/+m0 + hf/ptYb/6bWG/+m1hv/ptYb/6bWG/+m1hv/ptYb/6bWH/+m1h//ptYf/6bWH/+m1h//ptYf/6bWH/+m2 + h//ptof/6baH/+m2h//ptof/6LWG/+e1hv/ls4X/47GD/92tgP/Wp3z/y550/7iPZ/+ge1X/bmU//wVm + P/9Cr43/HbB7/wWkZ/8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKj + Zf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKjZf8Co2X/AqNl/wKj + Zf8Co2X/AqNl/wKjZf8Co2X/A6Rm/xiud/9DtpL/CmxF/1xkPf+heVL/uo5k/82dcf/Ypnj/3qp7/+Ot + ff/lr37/5rB//+ewf//osYD/6LF//+ixf//mr33/yYZKxea8lLJ4Rw1dAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd2Rg5ly6eEz+m2iP/qs4P/6rOD/+qzhP/qs4T/6rOE/+q0 + hP/qtIX/6rSF/+q0hf/qtIX/6rSF/+q0hf/qtIX/6rWG/+q1hv/qtYb/6rWG/+q1h//qtYf/6rWH/+q1 + h//qtof/6raH/+u2iP/rtoj/67aI/+u2iP/rtoj/67aI/+u2iP/rtoj/67eJ/+u3if/rt4n/67eJ/+u3 + if/rt4r/67eJ/+u3iv/rt4r/67eK/+u3iv/rt4r/67eK/+u3iv/rt4r/67iK/+u4iv/qt4n/6beJ/+a0 + h//ksob/3a2C/9OlfP/DmG//qoRd/39sRv8yYDj/P6iG/yO0gf8Gpmv/AqRn/wKkZ/8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/BKVp/xuw + e/9Ds5D/B2hA/29qQv+sg1r/xZds/9Wjd//eqn3/5K6A/+awgv/osoP/6bKC/+qzg//qs4P/6rOC/+ix + gf/HhEfE6r6VsnlIDmMAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB3hI + EWnNp4LO6bSH/+q0hP/qtIT/6rWF/+q1hf/qtYX/6rWF/+q1hf/qtYX/6rWG/+q1hv/qtof/6raH/+q2 + h//qtof/6raI/+q2iP/qtoj/6reI/+q3iP/rt4n/67eJ/+u3if/rt4n/67eJ/+u3if/rt4n/67eJ/+u4 + iv/ruIr/67iK/+u4iv/ruIr/67iK/+u4i//ruIv/67iL/+u4i//ruIv/67iL/+u4i//ruYz/67mM/+u5 + jP/ruYz/67mM/+u5jP/ruYz/67mM/+q4i//puIv/5rWJ/+Kyh//brIL/zKB3/7aNZv+ZdU7/N2M7/zyi + gf8nt4b/CKht/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKl + aP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKl + aP8CpWj/AqVo/wKlaP8CpWj/AqVo/wKlaP8CpWj/Bqdr/yCzgP9BrYv/MGM6/4NxSP+2i2D/zZ5y/9yq + fP/jsIH/5rGC/+izg//ps4P/6rSE/+q0hP/qtIT/6LKC/8eCRcTuwJWzekkRZwAAAAcAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIeEkSb9Kogs/ptIf/67WG/+u2h//rtof/67aH/+u2 + h//rtoj/67aI/+u2iP/rt4j/67eJ/+u3if/rt4n/67eJ/+u3if/rt4n/67eK/+u3iv/ruIr/67iK/+u4 + iv/ruIr/7LiL/+y4i//suIv/7LiL/+y5jP/suYz/7LmM/+y5jP/suYz/7LmM/+y5jP/suY3/7LmM/+y5 + jf/suo3/7LqN/+y6jf/suo3/7LqN/+y6jv/suo7/7LqO/+y6jv/suo7/7LqO/+y6jv/suo7/67mN/+m4 + jP/ntov/4bGH/9aof//Alm3/pH5W/z1mPv8xlXP/LLmL/wmobv8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKlaf8CpWn/AqVp/wKl + af8CpWn/Bqdt/ya2hf8+pYT/PGY9/5t7Uf/BlGn/1qV4/+Kvgf/ns4T/6bWG/+q0hf/rtYb/67WG/+u1 + hv/ps4T/xoFEw/HBlrN6ShJtAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAh5ShNz1aiCzui0hv/rt4j/67eI/+u3iP/rt4n/67eJ/+u3if/rt4n/67eJ/+u4iv/ruIr/67iK/+u4 + iv/ruIr/67iL/+u4i//ruYv/67mL/+y5jP/suYz/7LmM/+y5jP/suo3/7LqN/+y6jf/suo3/7LqN/+y6 + jf/suo3/7LqN/+y6jv/suo7/7LuO/+y7jv/su47/7LuO/+y7jv/su4//7LuP/+y7j//su4//7LuP/+y7 + j//su4//7LuP/+y7j//su4//7LuP/+y7kP/ruo7/6rqP/+e3jf/gsYj/0KR7/7mQaP9Jb0X/Jopl/zO8 + kf8KqnH/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKm + a/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKm + a/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/AqZr/wKma/8Cpmv/CKlw/yq5iv83nXv/Q2xC/7eM + Yf/QoXX/4K6B/+i0hv/ptof/6raH/+u3iP/rtof/67aH/+m0hf/EgELC9sOVsntLE3EAAAAIAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJhcGDYJVIXnWqYDO6bWH/+u4iv/ruIr/67iL/+u4 + i//ruIv/67iL/+u5jP/ruYz/67mM/+u5jP/ruYz/67mN/+u6jf/ruo3/67qN/+y6jv/suo7/7LqO/+y6 + jv/suo7/7LqP/+y6j//suo//7LuP/+y7j//su4//7LuQ/+y7kP/su5D/7LuQ/+y7kP/svJH/7LyR/+y8 + kf/svJH/7LyR/+y8kf/svJH/7LyR/+y8kv/svJL/7LyS/+y8kv/svZL/7LyS/+y8kv/svZL/7L2S/+u8 + kf/qvJH/57mP/9+zif/PpXz/W3xS/xx/Wf85v5X/Dax1/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKnbP8Cp2z/Aqds/wKn + bP8Cp2z/Aqds/wKnbP8Cp2z/Capy/zC8kP8rkGz/U3hO/8+hdf/froL/6LWJ/+q3if/qt4n/67iK/+u3 + iv/rt4n/6bWH/8R/QsH3w5SxhFYhdyYXBg0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAA9JgsSjGIxfdWmfc3ksIT/5rOH/+azh//ms4f/57SH/+e0iP/ntIj/57SI/+e0iP/ntIj/57WJ/+e1 + if/ntYn/57WJ/+e1iv/ntYr/57WK/+e2i//ntov/57aL/+e2i//ntoz/57aM/+e2jP/nt4z/6LeN/+i3 + jf/ot43/6LeN/+i3jf/ot43/6LeN/+i4jv/ouI7/6LiO/+i4jv/ouI7/6LiO/+i4jv/ouI7/6LiP/+i4 + j//ouI//6LiP/+i4j//ouI//6LmP/+i4j//ouY//57iO/+a4jv/kto3/3rGI/3CJYP8Ye1T/Pr6X/xCu + eP8DqG7/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKo + bf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wOo + bv8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/Aqht/wKobf8CqG3/DKx0/za+ + lP8kiWT/Y4NZ/96tgf/ksYX/5bKG/+azh//ms4b/5rOG/+azhv/ksYT/xH9DwffBka+OYzF8PSYLEgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU0xDhmXcESC06V8zOe1if/quIv/6riL/+q4 + jP/quYz/6rmM/+q5jf/quY3/6rmN/+u6jv/ruo7/67qO/+u6jv/ruo7/67qO/+u6j//ruo//67qP/+u7 + kP/ru5D/67uQ/+u7kP/ru5D/67uR/+u7kf/ru5H/67yR/+u8kf/rvJH/67yS/+u8kv/rvJL/67yS/+u8 + kv/rvJL/672T/+u9k//rvZP/7L2T/+y9k//svZP/7L2U/+y9lP/svZT/7L2U/+y9lP/svZT/7L2U/+y9 + lP/rvZP/6ryT/+m8kv/Or4f/EXRM/4HYwv+T38r/pePR/6bj0f+m49H/puPR/6bj0f+m49H/puPR/6bj + 0f+m49H/puPR/6bj0f+m49H/puPR/4TYvv9Kw5r/Cqx0/wKpb/8CqW//Aqlv/wKpb/8CqW//Aqlv/wKp + b/8CqW//Aqlv/wKpb/8CqW//Aqlv/wKpb/8CqW//Bqty/0jDmv90y6//puPR/6bj0f+m49H/puPR/6bj + 0f+m49H/puPR/6bj0f+m49H/puPR/6bj0f+l49H/l+DL/47gzP8egVv/taV5/+i3iv/pt4v/6riL/+q4 + i//quIv/6riL/+i2if/EgUXB98GPrplyRIFNMQ4ZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABUzQQIKF7UojSpHrL6biN/+y6j//suo//7LqP/+y7kP/su5D/7LuQ/+y7kP/su5H/7LuR/+y8 + kf/svJH/7LyS/+y8kv/tvJL/7byS/+28kv/tvZP/7b2T/+29k//tvZT/7b2U/+29lP/tvZT/7b2U/+29 + lP/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+lf/tv5b/7b+W/+2/lv/tv5b/7b+W/+2/ + lv/tv5b/7b+X/+2/l//tv5f/7b+X/+2/l//tv5f/7cCX/+2/l//tv5f/7b+X/+2/l/9+lWz/HnFH/wZo + Pf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/1LD + n/8Ornf/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOqcP8DqnD/A6pw/wOq + cP8HrHP/SsOd/xJrQP8xd0z/NHlO/zR5Tv8sdkv/Bmg9/wZoPf8GaD3/Bmg9/wZoPf8GaD3/Bmg9/wZo + Pf8GaD3/DmtA/22NYv/su5D/7LqP/+y6j//suo//7LqO/+y6jv/suo7/6riM/8WDScL3wI6so31ThlM0 + ECAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJYOBImrIhijtGheMrquY//7LuR/+y7 + kf/svJH/7LyR/+y8kv/svJL/7LyS/+y9k//svZP/7L2T/+29lP/tvZT/7b2U/+29lP/tvZT/7b2U/+2+ + lf/tvpX/7b6V/+2+lv/tvpb/7b6W/+2+lv/tv5f/7b+X/+2/l//tv5f/7b+X/+2/l//tv5f/7cCY/+3A + mP/twJj/7cCY/+3AmP/twJj/7cCZ/+3Amf/twJn/7cCZ/+3Amf/uwZr/7sGa/+3Amf/uwZr/7sGa/+7B + mv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7B + mv/uwZr/7sGa/+3Amf/twJn/7cCZ/+G2jv8eb0X/Pr6Y/wqud/8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wOr + cv8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wOrcv8Dq3L/A6ty/wasdP88wZn/EmxB/+Gziv/tvpX/7b6V/+29 + lP/tvZT/7b2U/+29lP/tvZT/7L2T/+y9k//svZP/7LyS/+y8kv/svJL/7LyS/+y8kv/svJH/7LyR/+y7 + kf/su5H/7LuQ/+y7kP/quY7/xYRLwva/jausiGKMWDgSJgAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAlw7FCyzkW2T0KF1yeq6kP/svZL/7L2S/+y9k//svZP/7L2T/+y9lP/svZT/7L2U/+y+ + lP/tvpX/7b6V/+2+lf/tvpX/7b+W/+2/lv/tv5b/7b+W/+2/l//tv5f/7b+X/+2/l//twJj/7cCY/+3A + mP/twJj/7cCY/+3Amf/twJn/7cCZ/+3Bmf/twZn/7cGZ/+3Bmf/twZn/7cGZ/+3Bmv/twZr/7sGa/+7B + mv/uwZr/7sGa/+7Bmv/uwpv/7sGa/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7C + m//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwpv/7sKb/+7Cm//uwZr/7sKb/+7Cm//uwZr/4reP/x5v + Rf8+v5n/Cq94/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOsc/8DrHP/A6xz/wOs + c/8DrHP/Bq11/zzBmv8SbEH/4bSM/+2/l//tv5b/7b+W/+2/lv/tvpX/7b6V/+2+lf/tvpX/7b6V/+2+ + lf/svZT/7L2U/+y9lP/svZP/7L2T/+y9k//svZL/7LyS/+y8kv/svJL/7LyR/+q6kP/Fhk7C9ryJqLST + b5FcOxQsAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADYT4WMryce5nQnnXI6ruR/+y9 + lP/svpX/7L6V/+y+lf/svpb/7L6W/+y+lv/sv5b/7b+W/+2/l//tv5f/7b+X/+2/l//twJj/7cCY/+3A + mP/twJj/7cCY/+3Amf/twZn/7cGZ/+3Bmv/twZr/7cGa/+3Bmv/twZv/7cGb/+3Bm//twpv/7cKb/+3C + m//twpz/7sKc/+7CnP/uwpz/7sKc/+7Dnf/uwpz/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7D + nf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/uw53/7sOd/+7D + nf/uw53/7sOd/+7Dnf/uw53/7sOd/+7Dnf/juZP/HnFF/z6/mv8KsHr/A611/wOtdf8DrXX/A611/wOt + df8DrXX/A611/wOtdf8DrXX/A611/wOtdf8DrXX/A611/wOtdf8Grnf/PMKb/xJtQf/hto7/7cCZ/+3A + mP/twJj/7cCY/+3AmP/tv5f/7b+X/+2/l//tv5b/7b+W/+2/lv/svpb/7L6W/+y+lv/svpX/7L6V/+y+ + lf/svZT/7L2U/+y9lP/svZT/6ruR/8WIUcL2vIiovp99lmE+FjIAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAANiQRc4xKiIns2dcsfqvZT/7b+W/+2/l//tv5f/7b+X/+2/mP/tv5j/7cCY/+7A + mf/uwJn/7sCZ/+7Amf/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bm//uwZv/7sGb/+7Cm//uwpv/7sKc/+7C + nP/uwpz/7sKc/+7Dnf/uw53/7sOd/+7Dnv/uw57/7sOe/+7Dnv/uw57/7sOe/+7Dnv/uw57/78Sf/+/E + n//vxJ//78Sf/+/En//vxJ//78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/E + oP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/EoP/vxKD/78Sg/+/En//vxJ//78Sf/+S6 + lP8fcUX/P8Cb/wuwfP8DrXb/A612/wOtdv8DrXb/A612/wOtdv8DrXb/A612/wOtdv8DrXb/A612/wOt + dv8DrXb/A612/waueP88wpz/E21B/+K3kP/uwZv/7sGb/+7Bm//uwZr/7sGa/+7Bmv/uwZr/7sCZ/+7A + mf/uwJn/7cCY/+3AmP/twJj/7b+Y/+2/l//tv5f/7b+X/+2/lv/tvpb/7b6W/+2+lf/rvJT/xYlTwva7 + iKbFp4edYkEXOAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABGRCGj7KrpKjzZxyx+a5 + kf/oupL/6LuT/+i7k//ou5P/6LuU/+i7lP/ovJT/6LyU/+i8lP/ovJX/6LyV/+m9lv/pvZb/6b2W/+m9 + l//pvZf/6b2X/+m9l//pvZf/6b6Y/+m+mP/pvpj/6b6Y/+m+mf/pvpn/6b+Z/+m/mv/pv5r/6b+a/+m/ + mv/pv5r/6b+a/+rAm//qwJv/6sCb/+rAm//qwJv/6sCb/+rAm//qwJv/6sCb/+rAm//qwJv/6sCc/+rB + nP/qwJz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rBnP/qwZz/6sGc/+rB + nP/qwZz/6sCc/+rAnP/qwJz/6sCc/+rAm//qwJv/4LeR/yNzR/9Avpv/DbJ//wOueP8Drnj/A654/wOu + eP8Drnj/A654/wOueP8Drnj/A654/wOueP8Drnj/A654/wOueP8Drnj/Bq96/zzDnf8TbkH/3rOM/+m9 + l//pvZf/6b2X/+m9lv/pvZb/6b2W/+i8lf/ovJX/6LyV/+i8lP/ovJT/6LuU/+i7lP/ou5T/6LuT/+i7 + k//oupL/6LqS/+i6kv/oupL/6LqS/+a4j//GiVTD9rqGpcyvkqFkQho+AAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAEZkQbRNK3m6fMm2/F6ryV/+y+l//sv5j/7L+Y/+y/mP/sv5n/7L+Z/+y/ + mf/sv5n/7MCa/+zAmv/swJr/7MCb/+zAm//swZv/7MGb/+zBm//swZv/7MGc/+zBnP/swZz/7cKd/+3C + nf/twp3/7cKd/+3Cnv/twp7/7cOe/+3Dnv/tw5//7cOf/+3Dn//tw5//7cOg/+3Dn//tw6D/7cOg/+3D + oP/txKD/7cSg/+3EoP/txKD/7cSg/+3EoP/txKD/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3F + of/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKH/7cSh/+3Eof/txKD/7cSg/+3E + oP/ju5b/KnZK/0C9mf8OtID/A695/wOvef8Dr3n/A695/wOvef8Dr3n/A695/wOvef8Dr3n/A695/wOv + ef8Dr3n/A695/wOvef8Jsn3/PcOf/xNuQf/gt5H/7MGc/+zBm//swZv/7MGb/+zBm//swZv/7MCb/+zA + mv/swJr/7MCa/+zAmv/sv5n/7L+Z/+y/mP/sv5j/7L+Y/+y+l//svpf/7L6X/+u+l//rvpb/6r2V/8eM + WMP2uYSj07ebpmZEG0QAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVmRRxJ1rugq8uZ + bcTsv5n/7cKb/+3CnP/twpz/7sOc/+7DnP/uw53/7sOd/+7Dnf/uw57/7sOe/+7Env/uxJ7/7sSe/+7E + n//uxZ//7sWf/+7FoP/uxaD/7sWg/+7FoP/uxaD/7sWh/+7Gof/uxqH/7sah/+/Gov/vxqL/78ai/+/G + ov/vxqL/78ej/+/Ho//vx6P/78ej/+/HpP/vx6T/78ek/+/IpP/vyKT/78ik/+/IpP/vyKT/78ik/+/I + pf/vyKT/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/Ipf/vyKX/78il/+/I + pf/vyKX/78il/+/Ipf/vyKX/78il/+/IpP/vyKT/78ik/+S+mv8qd0v/Qb6a/w20gf8DsHr/A7B6/wOw + ev8DsHr/A7B6/wOwev8DsHr/A7B6/wOwev8DsHr/A7B6/wOwev8DsHr/A7B6/wqzf/89w57/F3FD/+K6 + lf/uxaD/7sWg/+7Fn//uxZ//7sSf/+7Env/uxJ7/7sSe/+7Dnv/uw57/7sOd/+7Dnf/uw53/7sOc/+7D + nP/twpz/7cKc/+3Cm//twpv/7cKb/+3Cmv/rwJj/xo1Zw/W5g6LXvKCoZkUcSQAAAAUAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABWdFHlDcwKWsyZdtxOzAm//uw53/7sSe/+7Env/uxJ7/7sSe/+/E + n//vxJ//78Sf/+/En//vxaD/78Wg/+/Fof/vxaH/78Wh/+/Gof/vxqH/78ai/+/Gov/vxqL/78aj/+/G + o//vx6P/78ej/+/HpP/vx6T/78ek//DIpP/wyKT/8Mik//DIpP/wyKX/8Mil//DIpf/wyKb/8Mim//DI + pv/wyKb/8Mim//DJpv/wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJ + p//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJp//wyaf/8Mmn//DJ + p//wyaf/5b+d/yp3S/9Bvpv/DrWD/wSxfP8EsXz/BLF8/wSxfP8EsXz/BLF8/wSxfP8EsXz/BLF8/wSx + fP8EsXz/BLF8/wSxfP8EsXz/DLSB/z/Cnf8gc0b/47uX/+/Gov/vxqL/78ah/+/Gof/vxaH/78Wh/+/F + of/vxaD/78Wg/+/FoP/vxJ//78Sf/+/En//vxJ//7sSe/+7Env/uxJ7/7sOd/+7Dnf/uw53/7sOd/+zB + mv/Hjl3D9biBoN3BpatnRR5QAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGaEcgVePF + qa/Jl2rC7MKd/+7En//uxJ//7sWf/+/FoP/vxaD/78Wg/+/FoP/vxaH/78ah/+/Gof/vxqH/78ai/+/H + ov/vx6L/78ej/+/Ho//vx6P/78ek/+/HpP/vyKT/78ik/+/IpP/vyKX/78il/+/Ipf/wyKX/8Mil//DJ + pv/wyab/8Mmm//DJp//wyaf/8Mmn//DJp//wyqf/8Mqn//DKp//wyqf/8Mqo//DKqP/wyqj/8Mqo//DK + qP/wyqj/8Mqo//DKqf/wyqj/8Mqp//DKqf/wyqn/8Mqp//DKqf/wyqn/8Mqp//DKqf/wyqn/8Mqp//DK + qf/wyqn/8Mqp//DKqP/wyqn/8Mqo//DKqP/wyqj/8Mqo//DKqP/lwJ7/KnhL/0G/nf8OtoX/BLJ+/wSy + fv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8Esn7/BLJ+/wSyfv8LtYP/QMKf/yB0 + Rv/jvZj/78ek/+/HpP/vx6P/78ej/+/Hov/vx6L/78ai/+/Gof/vxqH/78ah/+/Fof/vxaD/78Wg/+/F + oP/vxaD/7sWf/+7En//uxJ//7sSe/+7Env/uxJ7/7MKc/8eQXsP0t4Cf4sWprWhHIFUAAAAGAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZpSCJa58issciVasLtw5//7sWh/+7Gof/vxqH/78ah/+/G + ov/vxqL/78ej/+/Ho//vx6P/78ek/+/HpP/vx6T/78ek/+/IpP/vyKX/78il/+/Ipf/vyKb/78im/+/J + pv/vyab/78mm//DJp//wyaf/8Mmn//DKqP/wyqj/8Mqo//DKqP/wyqj/8Mqp//DKqf/wyqn/8Mqp//DL + qf/wy6n/8Mup//DLqf/wy6r/8Muq//DLqv/wy6r/8Muq//DLqv/wy6v/8Mur//DLq//wy6v/8Mur//DL + q//wy6v/8Myr//DLq//wzKv/8Myr//DLq//wy6v/8Mur//DLq//wy6v/8Mur//DLq//wy6v/8Mur//DL + qv/wy6r/8Muq/+XBn/8qeEz/Qb+d/w63hv8Es3//BLN//wSzf/8Es3//BLN//wSzf/8Es3//BLN//wSz + f/8Es3//BLN//wSzf/8Es3//BLN//wu2hP9Aw6D/IHRG/+O9mv/vyKb/78il/+/Ipf/vyKX/78ik/+/I + pP/vx6T/78ek/+/Ho//vx6P/78ej/+/Ho//vxqL/78ai/+/Gov/vxqH/7sah/+7Fof/uxaH/7sWg/+7F + oP/sw57/yJFhxPS3f53nya2uaUgiWgAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB2lJ + I2DszbCyx5Vowe3EoP/vx6P/78ej/+/HpP/vx6T/78ek/+/HpP/vyKX/78il/+/Ipf/vyKb/78im/+/I + pv/vyab/78mn/+/Jp//vyaf/78mn/+/JqP/vyqj/78qo//DKqf/wyqn/8Mqp//DKqf/wyqn/8Muq//DL + qv/wy6r/8Muq//DLq//wy6v/8Myr//DMq//wzKv/8Myr//DMrP/wzKz/8Mys//DMrP/wzKz/8Mys//DM + rP/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DN + rf/wza3/8M2t//DNrf/wza3/8M2t//DNrf/wza3/8M2t//DMrP/wzKz/5cKh/yt5TP9BwJ7/DriH/wS0 + gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/BLSB/wS0gf8EtIH/C7eF/0DE + of8gdUb/47+c/+/JqP/vyaf/78mn/+/Jp//vyab/78mm/+/Ipv/vyKb/78im/+/Ipf/vyKX/78il/+/H + pP/vx6T/78ek/+/HpP/vx6P/78ej/+7Gov/uxqL/7sai/+3EoP/Ik2PE9LZ9nO3NsbBpSSNgAAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHa0slZPHQsrLHlGjA6MGe/+rCoP/qw6D/6sOh/+rD + of/qw6H/68Oh/+vDof/rxKL/68Si/+vEo//rxaP/68Wj/+vFpP/rxaT/68Wk/+vFpP/rxqX/68al/+vG + pf/sxqb/7Mam/+zGpv/sxqb/7Men/+zHp//sx6f/7Men/+zHp//syKj/7Mio/+zIqP/syKn/7Mip/+zI + qf/syKn/7Mip/+zIqf/syKn/7Mmq/+zJqv/syar/7Mmq/+zJqv/syar/7cmq/+3Jqv/tyar/7cmq/+3J + qv/tyav/7cmr/+3Jq//tyar/7cmq/+3Jqv/tyav/7cmr/+3Jqv/tyar/7cmq/+3Jqv/tyar/7cmq/+zJ + qv/tyar/7Mmq/+zJqv/iv5//K3hM/0HAn/8OuYj/BLWC/wS1gv8EtYL/BLWC/wS1gv8EtYL/BLWC/wS1 + gv8EtYL/BLWC/wS1gv8EtYL/BLWC/wS1gv8LuIb/QMSi/yB0R//fu5n/68al/+vGpf/rxaT/68Wk/+vF + pP/rxaT/68Wk/+vEo//rxKP/68Si/+vEov/rw6H/68Oh/+vDof/qw6H/6sOh/+rDoP/qwqD/6sKg/+rC + n//qwp//6MCd/8eTZsT1tX6b8NCxsWtLJWQAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAhrTCdq9dO2s8WTZ8DrxKL/7sek/+7Hpf/ux6X/7sim/+7Ipv/uyKb/7sim/+7Ipv/uyKf/7smo/+7J + qP/uyaj/7smo/+/Jqf/vyqn/78qp/+/Kqf/vyqr/78qq/+/Kqv/vy6v/78ur/+/Lq//vy6v/78ur/+/M + rP/vzKz/78ys/+/Mrf/vzK3/78yt/+/Mrf/vzK3/782t/+/Nrf/wza7/8M2u//DNrv/wza7/8M2u//DN + rv/wza7/8M2v//DNr//wzq//8M6v//DOr//wzq//8M6v//DOr//wzq//8M6w//DOr//wzq//8M6v//DO + sP/wzq//8M6w//DOr//wzq//8M6v//DOr//wzq//8M6v//DNrv/wza7/8M2u/+XDo/8rek3/QcGf/w66 + iv8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wS2hP8EtoT/BLaE/wu5 + iP9AxaP/IHZH/+O/nv/vyqn/78qp/+/Kqf/vyqn/78mp/+7JqP/uyaj/7smo/+7JqP/uyKf/7sim/+7I + pv/uyKb/7sim/+7Ipv/ux6X/7sel/+7HpP/ux6T/7sek/+7GpP/sxKH/yZZpxPS1fZn207Sxa0wnagAA + AAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACGxNKW341bWzw5Jlvu7Hpf/wyqn/8Mqp//DK + qf/wyqn/8Muq//DLqv/wy6r/8Mur//DLq//wy6v/8Myr//DMq//wzKz/8Mys//DMrf/wzK3/8M2t//DN + rf/xza7/8c2u//HNrv/xzq//8c6v//HOr//xzq//8c6v//HOsP/xzrD/8c6w//HPsP/xz7H/8c+x//HP + sf/xz7H/8c+x//HPsf/x0LL/8dCy//HQsv/x0LL/8dCy//HQs//x0LL/8dCz//HQs//x0LP/8dCz//HQ + s//x0LP/8dCz//LRs//x0LP/8dCz//HQs//x0LP/8dCz//HQs//x0LP/8dCz//HQs//x0LP/8dCz//HQ + s//x0LP/8dCz//HQsv/x0LL/5san/yt6Tv9BwaD/DruL/wS3hf8Et4X/BLeF/wS3hf8Et4X/BLeF/wS3 + hf8Et4X/BLeF/wS3hf8Et4X/BLeF/wS3hf8Et4X/C7qJ/0DFpP8hdkj/5cKi//DNrf/wza3/8Myt//DM + rP/wzKz/8Mys//DMrP/wzKv/8Mur//DLq//wy6r/8Muq//DLqv/wyqn/8Mqp//DKqf/wyqn/8Mqp/+/K + qP/vyqj/78mn/+7Ipv/Jl2rE87V8mPnUtbJsTSltAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAJbE4qc/3ZuLTDkWS97smo//HLq//xy6v/8cur//HMrP/xzKz/8cys//HMrP/xzK3/8c2t//HN + rf/xza7/8c2u//HNrv/xza7/8c2v//HOr//xzq//8c6v//HOsP/xzrD/8c6w//LPsf/yz7H/8s+x//LP + sf/yz7L/8s+y//LQsv/y0LP/8tCz//LQs//y0LP/8tCz//LQs//y0bT/8tG0//LRtP/y0bT/8tG0//LR + tP/y0bT/8tG0//LRtP/y0bX/8tG1//LRtf/y0bX/8tG1//LStf/y0bX/8tG1//LStf/y0rX/8tK1//LS + tf/y0rX/8tK1//LRtf/y0bX/8tK1//LRtf/y0bX/8tG1//LRtf/y0bX/8tG0//LRtP/nx6n/LHtO/0HC + of8OvI3/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4h/8EuIf/BLiH/wS4 + h/8Lu4v/QMak/yJ3SP/lw6T/8c6v//HOr//xzq//8c2v//HNrv/xza7/8c2u//HNrv/xza3/8cyt//HM + rf/xzKz/8cys//HMrP/xzKz/8cur//HLq//wy6r/8Muq//DKqv/wyqr/78in/8mYbcXzs3qW/ti4smxO + KnMAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADIkFQ98YUF5/di2scSSZ77uyar/8cys//HM + rP/xzKz/8c2t//HNrf/xza3/8c2u//HNrv/xza7/8c6u//HOr//xzq//8c6v//HPsP/xz7D/8c+w//HP + sf/xz7H/8c+x//LPsf/yz7H/8tCy//LQsv/y0LP/8tCz//LQs//y0bP/8tG0//LRtP/y0bT/8tG0//LR + tP/y0bT/8tG0//LStf/y0rX/8tK1//LStf/y0rb/8tK2//LStv/y0rb/8tK2//LStv/y0rb/8tK2//LT + tv/y07b/8tO2//LTt//y07f/8tO3//LTtv/y07f/8tO3//LTt//y07f/8tO3//LTtv/y07b/8tO2//LS + tv/y0rb/8tK2//LStv/y0rb/8tK2/+fIq/8se07/QsKi/w69jv8FuYj/BbmI/wW5iP8FuYj/BbmI/wW5 + iP8FuYj/BbmI/wW5iP8FuYj/BbmI/wW5iP8FuYj/BbmI/wy7jP9AxqT/IndI/+XEpf/xz7H/8c+x//HP + sP/xz7D/8c+w//HOr//xzq//8c6v//HOrv/xzq7/8c2u//HNrv/xza3/8c2t//HNrf/xzKz/8cys//HM + rP/wzKv/8Myr//DLqv/vyqn/yZlvxfO0fZf+2LWvfGFBeTIkFQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABPS0aFYhvUX/92LawxJRqvu/LrP/xza7/8c2u//HNrv/xzq//8c6v//HOr//xzrD/8c6w//HP + sP/xz7D/8c+x//HPsf/xz7H/8dCy//HQsv/x0LP/8dCz//LQs//y0LP/8tCz//LRtP/y0bT/8tG0//LR + tP/y0bX/8tG1//LStf/y0rX/8tK2//LStv/y0rb/8tK2//LStv/y07f/8tO3//LTt//y07f/8tO3//LT + t//y07j/8tO4//LTuP/y1Lj/8tS4//LUuP/z1Ln/89S5//PUuf/z1Ln/89S5//PUuf/z1Ln/89S5//PU + uf/z1Ln/89S5//PUuf/z1Ln/89S5//PUuf/y1Lj/89S5//LUuP/y1Lj/8tS4//LUuP/y07j/58mt/yx8 + Tv9Cw6P/Dr6Q/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6iv8Fuor/BbqK/wW6 + iv8Fuor/DLyO/0DHpv8ieEj/5sSm//LQs//x0LP/8dCy//HQsv/x0LL/8c+x//HPsf/xz7H/8c+w//HP + sP/xzrD/8c6w//HOr//xzq//8c6v//HNrv/xza7/8c2u//HNrf/xza3/8M2t/+/Lq//Jm3HF87aAl/7Y + tq6Hbk9/PS0aFQAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFHNR8clX1jhf3Yta/ElWy+78ut//HO + sP/xzrD/8c6w//HPsf/xz7H/8c+x//HPsv/xz7L/8dCy//HQs//x0LP/8dCz//HQs//x0bT/8dG0//LR + tf/y0bX/8tK1//LStf/y0rb/8tK2//LStv/y0rb/8tK3//LSt//y07f/8tO3//LTuP/y07j/8tO4//LT + uP/y1Ln/8tS5//LUuf/y1Ln/8tS5//LUuf/y1Lr/8tS6//LUuv/z1Lr/89S6//PUuv/z1Lr/89W6//PV + uv/z1br/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PVu//z1bv/89W7//PV + u//z1br/89W6//PVuv/z1Lr/89S6//PUuv/nyq7/LHxP/0LEo/8OvpH/BbuL/wW7i/8Fu4v/BbuL/wW7 + i/8Fu4v/BbuL/wW7i/8Fu4v/BbuL/wW7i/8Fu4v/BbuL/wW7i/8MvY//QMem/yJ4SP/mxqj/8tG1//LR + tf/x0bT/8dG0//HRtP/x0LP/8dCz//HQs//x0LP/8dCy//HPsv/xz7L/8c+x//HPsf/xz7H/8c+w//HO + sP/xzrD/8c6v//HOr//xzq//78yt/8qcdMXzuIOX/te0rZV9Y4VHNR8cAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAkw5IyGfiHCL/de0rsSWbr/ryKr/7cut/+3Lrf/ty67/7cyu/+3Mrv/tzK//7cyv/+3M + r//tza//7c2w/+3NsP/tzbH/7c6x/+3Osf/uzrH/7s6y/+7Osv/uzrL/7s+z/+7Ps//uz7P/7s+z/+7P + tP/u0LT/7tC0/+7QtP/u0LX/7tC1/+7Qtf/v0bb/79G2/+/Rtv/v0bb/79G2/+/Rt//v0bf/79K3/+/S + t//v0rf/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/S + uP/v07n/79O5/+/Tuf/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+/SuP/v0rj/79K4/+XI + rf8tfU7/QsSk/w6/k/8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8jf8FvI3/BbyN/wW8 + jf8FvI3/BbyN/wy+kf9AyKj/InlI/+LEpv/uzrL/7s6y/+7Osv/uzrH/7c6x/+3Osf/tzbH/7c2w/+3N + sP/tza//7cyv/+3Mr//tzK//7cyu/+3Mrv/ty67/7cut/+3Lrf/sy6z/7Mqs/+zKrP/ryar/yp52xvS6 + h5j917Ornodvikw5IyEAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACUT0mKKqWf5H91rSsxJdwv+3M + rv/vzrH/786x/+/Osf/vzrL/78+y//DPsv/wz7L/8M+z//DQs//w0LP/8NC0//DQtP/w0LX/8NC1//DR + tf/w0bX/8NG2//DRtv/w0bb/8NK3//DSt//w0rf/8dK3//HSt//x0rj/8dO4//HTuf/x07n/8dO5//HT + uf/x07n/8dS6//HUuv/x1Lr/8dS6//HUuv/x1Lv/8dS7//HUu//x1Lv/8dS7//HUu//x1Lv/8dW8//HV + vP/x1bz/8dW8//HVvP/x1bz/8dW8//HVvP/x1bz/8tW8//LVvP/x1bz/8dW8//HVvP/x1bz/8dW8//HV + vP/x1bz/8dW8//HVvP/x1bz/8dS7//HUu//x1Lv/58qw/zB/T/9DxaT/EsGX/wW9j/8FvY//Bb2P/wW9 + j/8FvY//Bb2P/wW9j/8FvY//Bb2P/wW9j/8FvY//Bb2P/wW9j/8FvY//DL+T/0DJqf8iekj/5MWp//DR + tv/w0bb/8NG1//DRtf/w0LX/8NC1//DQtP/w0LT/8NCz//DQs//wz7P/8M+y//DPsv/vz7L/786x/+/O + sf/vzrH/786w/+/NsP/vzbD/782w/+3Lrf/KoHnG9LuJmP3Ws6qqlX6QUT0mKAAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAANRPicvs5+KlP3XtKvFmnO/8NCz//LRtf/y0bX/8tK2//LStv/y0rb/8tK3//LT + t//y07f/8tO4//LTuP/y07j/8tO4//LUuf/y1Ln/89S6//PUuv/z1Lr/89W7//PVu//z1bv/89W7//PV + u//z1bz/89a8//PWvP/z1r3/89a9//PWvf/z1r3/89a9//PXvv/z177/89e+//PXvv/z177/89e+//PX + v//z17//9Ni///TYv//02L//9Ni///TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TY + wP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9NjA//TYwP/02MD/9Ni///TY + v//qzrT/OoNU/0LBof8Twpj/Bb6Q/wW+kP8FvpD/Bb6Q/wW+kP8FvpD/Bb6Q/wW+kP8FvpD/Bb6Q/wW+ + kP8FvpD/Bb6Q/wW+kP8MwJT/QMmq/yN6Sf/nya7/89W7//PVuv/z1Lr/8tS5//LUuf/y1Ln/8tO4//LT + uP/y07j/8tO3//LTt//y07f/8tK2//LStv/y0rb/8tK2//LRtf/y0bX/8tG1//LRtf/y0bT/8M+y/8uh + esb0vYyZ/dazqbKeiZRRPicvAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1RBKzS8qpec/da0qcab + dsDw0LT/8tK2//LTt//y07f/8tO3//LTuP/y07j/8tS4//LUuP/y1Ln/8tS5//LUuf/y1br/8tW6//PV + uv/z1bv/89W7//PVu//z1rz/89a8//PWvP/z1rz/89a9//PXvf/z173/89e9//PXvv/z177/89e+//PX + vv/z177/89i///PYv//z2MD/89jA//PYwP/02MD/9NjA//TYwP/02cH/9NnB//TZwf/02cH/9NnB//TZ + wf/02cH/9NnB//TZwf/02cH/9NnB//TZwf/02cL/9NnC//TZwv/02cL/9NnC//TZwv/02cL/9NnB//TZ + wf/02cH/9NnB//TZwf/02cH/9NnB//TZwf/02cH/9NnB/+rPtv86hFX/RMKj/xLDmf8Fv5L/Bb+S/wa/ + kv8Gv5L/Bb+S/wW/kv8Gv5L/Bb+S/wW/kv8Fv5L/Bb+S/wW/kv8Fv5L/Bb+S/w3Blv9Ayqv/I3tK/+fK + r//z1rz/89W7//PVu//z1bv/89W6//PVuv/y1Lr/8tS6//LUuf/y1Ln/8tS4//LUuP/y07j/8tO4//LT + t//y07f/8tO3//LStv/y0rb/8tK2//LStf/w0LP/y6F9x/S+jpn91rOnvKmWnFRBKzQAAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAEVUMtOsOxoKD917Spxpx4wPDRtv/z1Ln/89S5//PUuf/z1Ln/89S6//PU + uv/z1Lr/89W7//PVu//z1bv/89W8//PWvP/z1rz/89a9//PWvf/z1r3/9Ne+//TXvv/0177/9Ne+//TX + v//017//9Ni///TYv//02MD/9NjA//TYwP/02MD/9NnB//TZwf/02cH/9NnB//TZwv/02cL/9NnC//TZ + wv/02cL/9NrC//Tawv/02sP/9NrD//Xaw//12sP/9drD//Xaw//12sP/9drD//Xaw//12sT/9drE//Xa + xP/12sT/9drE//XaxP/12sT/9drE//XaxP/12sP/9drE//Xaw//12sP/9drD//Xaw//12sP/9drD//Xa + w//12sP/6tC4/zuEVv9Gw6P/E8Sa/wfAk/8HwJP/B8CT/wjAk/8IwJP/CMCT/wjAk/8KwJT/CMCT/wjA + k/8IwJP/CMCT/wfAk/8HwJP/DsKX/0LKrP8lfEv/6Mux//TXvv/0177/89a9//PWvf/z1rz/89a8//PW + vP/z1bz/89W7//PVu//z1bv/89W6//PUuv/z1Lr/89S5//PUuf/z1Ln/89O4//PTuP/z07j/89O4//HR + tf/MpIDH9MCRmv3Ws6bDsaCfVUMtOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARWRC5Ay7urp/3W + s6fGnXnA8NK3//PUuf/z1br/89W6//PVuv/z1bv/89a7//PWu//z1rz/89a8//PWvP/z1r3/89e9//PX + vf/z177/89e+//TXvv/02L//9Ni///TYv//02L//9NjA//TYwP/02cD/9NnA//TZwf/02cH/9NnB//TZ + wv/02cL/9NrC//Tawv/02sL/9NrD//Taw//02sP/9NrD//Taw//128T/9dvE//XbxP/128T/9dvE//Xb + xP/128T/9dvF//Xbxf/128X/9dvF//Xbxf/128X/9dvF//Xcxf/13MX/9dvF//Xcxf/13MX/9dvF//Xb + xf/128X/9dvF//Xbxf/128X/9dvF//XbxP/128T/9dvE//XbxP/r0bn/PodY/0jEpP8WxZ3/C8GW/wrB + lv8LwZb/CMGV/wjBlf8IwZX/CsGW/wrBlv8KwZb/CsGW/wvBlv8LwZb/C8GW/wrBlv8Rw5r/Rcut/yd+ + TP/ozLL/9Ni///TYv//0177/89e+//PXvv/z173/89e9//PWvf/z1rz/89a8//PWvP/z1rv/89W7//PV + u//z1bv/89W6//PVuv/z1Ln/89S5//PUuf/z1Lj/8dK3/8ykgcf0wZOa/dWypcq6qqZWRC5AAAAABAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAABVhGMUXRwbCp/daypsegfcHx1Lr/89W7//PWvP/z1rz/89a8//PW + vf/z1r3/89e9//PXvv/z177/89e+//PYv//z2L//89i///TYwP/02MD/9NjA//TYwP/02cH/9NnB//TZ + wf/02cL/9NrC//Tawv/02sL/9NrD//Taw//02sP/9NrD//TbxP/028T/9NvE//TbxP/028X/9dvF//Xb + xf/128X/9dvF//Xcxv/13Mb/9dzG//Xcxv/13Mb/9dzG//Xcxv/13Mb/9dzG//Xcx//13Mf/9dzH//Xc + x//13Mf/9d3H//Xcx//13Mf/9dzH//Xcx//13Mf/9dzH//Xcx//13Mf/9dzH//Xcx//13Mb/9dzG//Xc + xv/13Mb/9dzG/+vSuv8+h1j/S8Wn/xzHoP8RxJn/EcSZ/xLEmf8QxJn/EcSZ/xPEmv8TxJr/EMSZ/xDE + mf8RxJn/EcSZ/xDDmf8Qw5n/EMOZ/xfFnf9Iza//KX9N/+jOtP/02cH/9NnB//TYwP/02MD/9NjA//PY + v//z2L//89i///PXvv/z177/89e+//PXvf/z1r3/89a9//PWvP/z1rz/89a8//PVu//z1bv/89W7//PV + u//x07n/zKaEx/TDl5v+1rGk0cCvqVhGMUUAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWUczTNnI + uK391rOkx6F+wezQtv/u0rn/7tK5/+7Suf/u0rr/7tK6/+7Tuv/v07v/79O7/+/Tu//v1Lz/79S8/+/U + vP/v1L3/79W9/+/Vvf/v1b7/79W+/+/Vvv/v1b//8Na///DWv//w1sD/8NbA//DWwP/w18D/8NfB//DX + wf/w18H/8NfB//DYwv/w2ML/8NjC//DYwv/w2MP/8djD//HYw//x2cP/8dnD//HZw//x2cT/8dnE//HZ + xP/x2cT/8dnE//HZxP/x2cT/8dnE//HZxP/x2cT/8dnF//HZxf/x2cX/8dnF//HZxf/x2sX/8dnF//Ha + xf/x2cX/8dnF//HZxP/x2cT/8dnE//HZxP/x2cT/8dnE//HZxP/x2cT/6NC5/0CIWf9fzLH/PNCv/zLM + qf8xzKn/Msyp/zLMqf8yzKn/NMyp/zTMqf8zzKn/Mcyp/zPMqf80zKn/NMyp/zHMqf8yzKn/N86s/1/T + uf8qgE7/5cuy/+/Vvv/v1b7/79W9/+/Vvf/v1b3/79S9/+/UvP/v1Lz/79S8/+/Tu//v07v/79O7/+7T + uv/u0rr/7tK6/+7Suf/u0rn/7tK5/+7RuP/u0bj/7tG4/+3Ptf/MpoXH9MWam/7VsqLYx7etWUczTAAA + AAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVaSTVR3s28sfzWs6THoYHB8NO6//HVvf/x1b3/8da+//LW + vv/y1r7/8ta///LWv//y1r//8tfA//LXwP/y18D/8tfB//LYwf/y2MH/8tjC//LYwv/y2ML/8tnD//PZ + w//z2cP/89nE//PZxP/z2cT/89rE//PaxP/z2sX/89rF//Paxf/z2sX/89vG//Pbxv/z28b/89vG//Pb + x//z28f/89vH//Pcx//z3Mf/89zH//TcyP/03Mj/9NzI//TcyP/03Mj/9NzI//TcyP/03Mj/9NzI//Td + yf/03cn/9N3J//Tdyf/03cn/9N3J//Tdyf/03cn/9N3J//Tdyf/03cn/9N3J//TcyP/03Mj/9NzI//Tc + yP/03Mj/9NzI//TcyP/r0r3/RIpc/2rPtf9M07X/RNGv/0LQr/9C0K//QdCv/0PRr/9B0K//QtCv/0LQ + r/9B0K//Q9Gv/0PQr/9D0K//Q9Cv/0PQr/9I0rL/a9a9/y2BUP/ozrb/8tnD//LYwv/y2ML/8tjC//LY + wf/y2MH/8tfB//LXwP/y18D/8tfA//LWv//y1r//8ta///LWvv/y1r7/8da+//HVvf/x1b3/8dW8//HV + vP/x1Lz/79O6/82piMj0xZub/tWxod3Mu7BaSTVRAAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABlpK + N1bj0sGy/NWyocikg8Lx1r7/9NjA//TZwf/02cH/9NnC//TZwv/02sL/9NrC//Taw//02sP/9NrE//Ta + xP/028T/9NvE//Xbxf/128X/9dvF//Xcxf/13Mb/9dzG//Xcxv/13Mf/9d3H//Xdx//13cj/9d3I//Xd + yP/13cj/9d3J//Xeyf/13sn/9d7J//Xeyf/13sn/9t7K//beyv/238r/9t/K//bfyv/238v/9t/L//bf + y//238v/9t/L//bfy//238v/9t/M//bfzP/24Mz/9t/M//bgzP/24Mz/9uDM//bgzP/24Mz/9uDM//bg + zP/24Mz/9uDM//bgzP/24Mz/9t/M//bfzP/238v/9t/L//bfy//238v/9t/L/+zVwP9GjF7/a9C2/0/V + t/9H0rL/R9Ky/0XSsf9F0rH/R9Ky/0bSsf9G0rH/RdKx/0fSsv9H0rL/SNKy/0fSsv9G0rH/RdKx/0vU + tP9t17//MYRS/+nQuf/13Mb/9dzF//Xcxf/128X/9dvF//TbxP/028T/9NrE//Taw//02sP/9NrD//Ta + wv/02sL/9NnC//TZwv/02cH/9NnB//TYwP/02MD/9NjA//TYv//y1r3/zaqLyPTHnpz+1bCf49HAsVpK + N1YAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGW0w5XOnXxrT81rKhyKSFwvLXv//02sL/9NrD//Ta + w//02sP/9NrE//TbxP/028T/9NvF//Tbxf/028X/9NvF//Xcxv/13Mb/9dzH//Xcx//13cf/9d3H//Xd + yP/13cj/9d3I//XdyP/13sn/9d7J//Xeyv/13sr/9d7K//Xeyv/138v/9d/L//Xfy//138v/9t/L//bf + y//238z/9t/M//bgzP/24Mz/9uDM//bgzf/24M3/9uDN//bgzf/24M3/9uDN//bgzf/24M7/9uDO//bg + zv/24M7/9uDO//bhzv/24M7/9uDO//bhzv/24M7/9uDO//bhzv/24c7/9uDO//bgzv/24M7/9uDN//bg + zf/24M3/9uDN//bgzf/24M3/7NbC/0mOYP9w0bj/Vte6/0zUtf9M1LX/TNS1/03Utf9K1LX/S9S1/0vU + tf9L1LX/S9S1/0zUtf9M1LX/StS1/0nUtP9M1LX/UdW3/3LYwf83h1b/6dG7//XdyP/13cf/9d3H//Xc + x//13Mf/9dzG//Tcxv/028X/9NvF//Tbxf/028X/9NvE//TaxP/02sT/9NrD//Taw//02sP/9NrC//TZ + wv/02cL/9NnB//LXv//NqozI9MihnP7UsZ7p1sWzW0w5XAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAdbTDph7drItvzVsp/IpYfC8tjB//Taw//02sT/9NrE//TaxP/028X/9NvF//Tbxf/028b/9NvG//Tc + x//13Mf/9dzH//Xcx//13Mj/9d3I//XdyP/13cn/9d3J//Xdyf/13cn/9d7K//Xeyv/13sr/9d7L//Xe + y//138v/9d/M//XfzP/138z/9t/M//bfzP/238z/9t/M//bgzf/24M3/9uDN//bgzf/24M7/9uDO//bg + zv/24M7/9uDO//bhzv/24c7/9uHO//bhz//24c//9uHP//bhz//24c//9uHP//bhz//24c//9uHP//bh + z//24c//9uHP//bhz//24c//9uHP//bhz//24c//9uHP//bhzv/24M7/9uDO//bgzv/s1sP/TpFj/3PS + uP9Z2Lr/UNW2/1DVtv9R1bf/UdW3/1DVtv9R1bf/UNW2/07Vtv9P1bb/UdW2/1HVtv9Q1bb/UNW2/1DV + tv9U1rj/dNnC/zqJWP/q0rz/9d3J//Xdyf/13cj/9d3I//XcyP/13Mf/9dzH//Xcx//03Mf/9NvG//Tb + xv/028X/9NvF//Tbxf/02sT/9NrE//TaxP/02sP/9NrD//TZw//02cL/8tfA/82sjsj0yaOd/tSwnOzZ + xrVbTDphAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB1xOPWbz3sy3/NWznsmoisLy2cL/9dvF//Xc + xv/13Mb/9dzG//Xcx//13Mf/9d3H//XdyP/13cj/9d3I//Xdyf/13sn/9d7J//Xeyf/23sr/9t/K//bf + yv/238v/9t/L//bfy//238z/9t/M//bgzP/24Mz/9uDN//bgzf/24M3/9uDN//bhzv/24c7/9uHO//bh + zv/24c//9uHP//bhz//24s//9uLP//fiz//34s//9+LQ//fi0P/34tD/9+LQ//fi0P/34tD/9+LQ//fi + 0P/34tH/9+LR//fj0f/349H/9+PR//fj0f/349H/9+LR//fj0f/349H/9+LR//fi0f/34tH/9+LQ//fi + 0P/34tD/9+LQ//fi0P/34tD/9+LQ/+7Zxf9Sk2b/d9S7/1/Zvf9T1rn/VNa5/1TWuf9V1rn/Vda5/1TW + uf9U1rn/VNa5/1XWuf9W1rn/VNa5/1TWuf9V1rn/V9a5/1vXu/9328P/PIpZ/+vUvv/238v/9t/K//bf + yv/23sr/9d7J//Xeyf/13sn/9d3J//XdyP/13cj/9d3I//Xdx//13Mf/9dzH//Xcxv/13Mb/9dzG//Xc + xf/128X/9dvF//Xbxf/y2ML/zq2QyfTKpZ3+1bGb8t3LtlxOPWYAAAAHAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAIXE4/bPjjz7j81bOdyaiLwvPaxP/13Mf/9d3H//Xdx//13cf/9d3I//XeyP/13sj/9d7J//Xe + yf/13sn/9d7K//Xfyv/138r/9t/L//bfy//238v/9uDM//bgzP/24Mz/9uDM//bgzf/24M3/9uHN//bh + zv/24c7/9uHO//bhzv/24c7/9uHP//biz//24s//9uLP//bi0P/24tD/9uLQ//fi0P/349D/9+PR//fj + 0f/349H/9+PR//fj0f/349H/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj + 0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PS//fj0v/349L/9+PR//fj0f/349H/7trG/1aW + aP961Lv/Ytq//1nYuv9a2Lr/W9i7/1vYu/9b2Lr/Wdi6/1nYuv9Z17r/Wde6/1rYuv9Z17r/Wde6/1rY + uv9b2Lr/YNi8/3zbxP9Cjl3/7NXA//bgzP/24Mz/9t/L//bfy//238v/9d/K//Xfyv/13sr/9d7J//Xe + yf/13sn/9d7J//XeyP/13cj/9d3H//Xdx//13cf/9dzH//Xcxv/13Mb/9dzG//PZxP/PrpLJ9cunnv7V + sZr24M23XE4/agAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhcT0Bw++XSuPzVs5vJqY3D79bB//DY + xP/w2MT/8NjE//DZxf/x2cX/8dnF//HZxf/x2sb/8drG//Hax//x2sf/8dvI//HbyP/x28j/8dvI//Hb + yf/y3Mn/8tzJ//Lcyv/y3Mr/8tzK//Lcy//y3cv/8t3L//Ldy//y3cz/8t7M//LezP/y3s3/8t7N//Pe + zf/z3s7/897O//Pfzv/z387/89/O//Pfzv/z387/89/P//Pfz//z38//8+DP//Pgz//z4M//8+DP//Pg + 0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg0P/z4ND/8+DQ//Pg + 0P/z4ND/8+DP//Pgz//z4M//89/P//Pfz//r18X/Wpds/3/Vvf9p28D/Yti8/1/YvP9h2Lz/X9i8/17Y + vP9g2Lz/YNi8/2DYvP9e2Lv/X9i7/2LYvP9g2Lv/YNi7/2DYu/9k2L3/hd7J/z+NXf/n0b3/8tzJ//Lc + yf/x28n/8dvI//HbyP/x28j/8drH//Hax//x2sf/8drG//Haxv/x2cX/8dnF//HZxf/w2cX/8NjE//DY + xP/w2MT/8NjD//DXw//w18L/7tbA/86vlMn1zaqe/tSxmfvl0LdcT0BwAAAACAAAAAAAAAAAAAAAAAAA + AAAAAAAAFxQRDGVYSnb+59O4/NWzm8qrkMPy2sX/89zI//PcyP/z3Mj/9N3J//Tdyf/03cn/9N3K//Td + yv/03sv/9N7L//Tey//03sv/9N/M//TfzP/038z/9N/N//Tfzf/0383/9eDO//Xgzv/14M7/9eDP//Xg + z//14c//9eHP//Xh0P/14dD/9eHQ//Xh0P/14tH/9eLR//Xi0f/14tH/9eLR//Xi0v/14tL/9eLS//bj + 0v/249L/9uPS//bj0v/249P/9uPT//bj0//249P/9uPT//bj0//249P/9uPT//bj0//249T/9uPU//bj + 1P/249P/9uPU//bj0//249T/9uPT//bj0//249P/9uPT//bj0//249P/9uPT//bj0//249P/9uPS/+7a + yP9knXP/g9a//3Dcw/9q2r//adq//2nav/9o2r//adq//2nav/9n2r//Z9q//2zav/9o2r7/Z9q+/2ja + vv9o2r7/Z9q+/2vav/+K38r/RpFh/+vVwv/0383/9N/N//Tfzf/038z/9N/M//TfzP/03sv/9N7L//Te + y//03sv/9N3K//Tdyv/03cr/9N3J//Tdyf/z3Mj/89zI//PcyP/z3Mj/89zH//Pbx//x2sT/z7KXyfXO + rJ/+1rKY/ufRtmFURnUJCAcKAAAAAAAAAAAAAAAAAAAAAAAAAAArJiARdGlcfP7n07f81rWcyqyRw/Pd + yf/238r/9t/L//bfy//238z/9t/M//bgzP/24Mz/9uDN//bgzf/24M3/9uHO//bhzv/24c7/9uHO//bh + z//34s//9+LQ//fi0P/34tD/9+LQ//fj0f/349H/9+PR//fj0v/349L/9+PS//fj0v/349L/9+TT//fk + 0//35NP/9+TU//fk1P/35NT/9+TU//fl1P/35dT/+OXV//jl1f/45dX/+OXV//jl1f/45dX/+OXV//jl + 1f/45dX/+OXW//jl1v/45tb/+OXW//jm1v/45tb/+ObW//jm1v/45tb/+ObW//jm1v/45tb/+ObW//jl + 1v/45db/+OXW//jl1f/45dX/+OXV//jl1f/45dX/8N3M/2yhef+M2MH/eN3F/3Hbwv9y28L/cNvC/3Db + wv9y28L/ctvC/3Hbwv9w28L/ctvC/3Hbwf9v28H/ctvC/3Lbwv9w28H/ctvB/4/gzP9Rl2n/7dfE//fi + 0P/34tD/9+LP//fhz//24c//9uHO//bhzv/24c7/9uDN//bgzf/24M3/9uDM//bgzP/238z/9t/M//bf + y//238v/9t/K//beyv/23sr/9t7K//PcyP/QspjK9dCun/7Xs5n+5tK1c2hbfCsmIBEAAAAAAAAAAAAA + AAAAAAAAAAAAATcxKRmFe26D/ufTtvzYuJ3KrZPE9N7K//bfzP/24M3/9uDN//bgzf/24M7/9uDO//bh + zv/24c//9uHP//bhz//24c//9uLQ//bi0P/34tD/9+LR//fi0f/349H/9+PR//fj0v/349L/9+PS//fk + 0//35NP/9+TT//fk1P/35NT/9+TU//fk1P/35dX/9+XV//fl1f/35dX/9+XV//fl1v/35db/+OXW//jm + 1v/45tb/+ObW//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+OfY//jn + 2P/459j/+OfY//jn2P/459j/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm1//45tf/+ObX//jm + 1//w3s7/dKZ+/5PaxP+A3sj/fN3F/3rcxf953MX/fN3F/3vdxf963MX/e93F/37dxf973MX/edzE/3vc + xf973MT/e9zE/3ncxP983cX/l+HO/1uccP/u2sf/9+PS//fj0f/34tH/9+LR//fi0P/24tD/9uLQ//bh + z//24c//9uHP//bhz//24c7/9uDO//bgzv/24M3/9uDN//bgzf/238z/9t/M//bfy//238v/9N3K/9Cz + msr10LGf/te1mf7m0bSEem2COTMqGAAAAAEAAAAAAAAAAAAAAAAAAAABPDYuHo+Geof+59O0/Ni6ncuv + lsT03sz/9uDN//bhzv/24c7/9uHO//bhz//24s//9uLP//bi0P/24tD/9uLQ//bi0f/249H/9+PR//fj + 0f/349L/9+PS//fk0v/35NP/9+TT//fk0//35NP/9+TU//fk1P/35dT/9+XV//fl1f/35dX/9+XV//fl + 1f/35tb/9+bW//fm1v/35tb/+ObX//jm1//45tf/+ObX//jn1//459f/+OfX//jn2P/459j/+OfY//jn + 2P/459j/+OfY//jn2P/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn + 2f/459n/+OfZ//jn2P/459j/+OfY//jn2P/459j/+OfY//Dfz/99q4X/mtvG/4ngyv+F3sf/hd7H/4Xe + x/+F3sf/g97H/4Tex/+G3sf/gt7G/4Tex/+E3sf/ht7H/4Pexv+E3sb/hN3G/4Tex/+d4s//aqN5/+7b + yP/35NP/9+TS//fj0v/349L/9+PR//fj0f/249H/9uLR//bi0P/24tD/9uLQ//biz//24s//9uHP//bh + zv/24c7/9uHO//bgzf/24M3/9uDN//bgzP/03cr/0LSbyvXRsqD+2bia/ubRs4+Geoc+ODAdAAAAAQAA + AAAAAAAAAAAAAAAAAAJCOzMlnpSKjv7m0rP82ryey6+XxPTfzf/24c7/9uHP//bhz//24c//9uLQ//bi + 0P/24tD/9uLR//bi0f/24tH/9uPS//fj0v/349L/9+PT//fj0//35NP/9+TT//fk1P/35NT/9+TU//fk + 1f/35dX/9+XV//fl1f/35db/9+XW//fl1v/35tb/9+bX//fm1//45tf/+ObX//jm1//45tj/+OfY//jn + 2P/459j/+OfY//jn2P/459n/+OfZ//jn2f/459n/+OfZ//jn2f/459n/+Oja//jo2v/46Nr/+Oja//jo + 2v/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/+Oja//jn2f/459n/+OfZ//jn2f/459n/+OfZ//jn + 2f/459n/8eDR/4Ouif+k3sv/k+HM/47gyv+N38r/jt/K/47fyv+O38r/jt/K/5Dfyv+O38r/kN/J/47f + yf+O38n/j9/J/4vfyf+O38n/kODK/6bj0f9yp3//79vK//fk1P/35NP/9+TT//fj0//349L/9+PS//fj + 0v/249L/9uLR//bi0f/24tH/9uLQ//bi0P/24dD/9uHP//bhz//24c//9uHO//bgzv/24M7/9uDO//Te + y//QtZ3K9dKzoP7ZuZr+5dCxnZOJjkI7MyUAAAACAAAAAAAAAAAAAAAAAAAAAkU/NyyqoZiV/ufSsvzb + vZ7MsZnF9ODO//fi0P/34tD/9+PR//fj0f/349H/9+PS//fj0v/35NL/9+TT//fk0//35NP/9+TT//fk + 1P/35dT/9+XU//fl1f/45dX/+ObV//jm1v/45tb/+ObW//jm1//45tf/+OfX//jn1//459j/+OfY//jn + 2P/459j/+OfZ//jo2f/46Nn/+OjZ//jo2f/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/+enb//np + 2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//np + 2//56dv/+enb//np2//56dv/+enb//np2//56dv/+enb//jo2v/y4dL/jbSR/63hzv+c4s7/mOHN/5rh + zf+Z4cz/mOHM/5jhzP+Z4cz/muHM/5nhzP+a4cz/muHM/5rhzP+Z4cv/muHM/5jgy/+X4Mv/rubU/3ut + hv/w3s3/+ObV//jl1f/45dX/9+XU//fl1P/35NT/9+TT//fk0//35NP/9+TT//fk0v/349L/9+PS//fj + 0v/349H/9+PR//fj0f/34tD/9+LQ//fi0P/34s//9N/N/9G2n8v11Lah/tu8mv7m0K+qoZiVRT83LAAA + AAIAAAAAAAAAAAAAAAAAAAADR0I6MLKqoZr+59Gw/Ny/nsyym8Xw28r/8t7N//Lezf/y3s3/8t/O//Pf + zv/z387/89/P//Pfz//z4M//8+DQ//Pg0P/z4ND/8+HR//Ph0f/z4dL/9OHS//Th0v/04tL/9OLT//Ti + 0//04tP/9OPU//Tj1P/049T/9OPU//Tj1f/049X/9OTV//Tk1f/15Nb/9eTW//Xk1v/15Nf/9eTX//Xl + 1//15df/9eXX//Xl1//15dj/9eXY//Xl2P/15dj/9eXY//Xm2P/15tj/9ebZ//Xm2f/15tn/9ebZ//Xm + 2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tn/9ebZ//Xm2f/15tj/9eXY//Xl + 2P/15dj/9eXY//Df0f+VuJf/tODO/6jiz/+j4c7/pOHO/6Hhzf+i4c7/ouHN/6Lhzf+j4c3/ouHN/6Hg + zP+j4M3/o+DN/6PgzP+j4Mz/o+DM/6PgzP+15NT/hrGN/+3by//04tL/9OHS//Ph0v/z4dH/8+HR//Ph + 0f/z4ND/8+DQ//Pg0P/z4M//89/P//Pfz//z387/89/O//Lfzv/y3s3/8t7N//Lezf/y3sz/8t7M//Ld + zP/w28n/0Legy/XVuKH+3L2b/ubQrrGpoJlHQjowAAAAAwAAAAAAAAAAAAAAAAAAAANKRD03vbWtoP7n + 0a/93cGfzLKcxfPfzv/14dD/9eHQ//Xi0f/14tH/9eLR//Xi0v/14tL/9ePS//Xj0//149P/9ePT//Xj + 1P/15NT/9uTU//bk1f/25NX/9uTV//bk1f/25db/9uXW//bl1v/25db/9uXX//bm1//25tf/9ubX//bm + 2P/25tj/9ubY//bn2f/359n/9+fZ//fn2f/359r/9+fa//fn2v/359r/9+ja//fo2v/36Nr/9+jb//fo + 2//36Nv/9+jb//fo2//36Nv/9+jb//fo2//36Nv/9+nc//fo2//36Nv/9+nc//fp3P/36dz/9+nc//fo + 2//36dz/9+jb//fo2//36Nv/9+jb//fo2//36Nv/9+jb//fo2//36Nv/8uPU/6G/n/+949H/suXS/67j + 0f+v49H/rePQ/7Dj0f+t49D/r+PQ/63j0P+v49D/reLQ/6/j0P+v49D/r+PP/63iz/+v48//r+LP/77m + 1v+UuZb/797O//bk1f/25NX/9uTV//bk1f/15NT/9eTU//Xj1P/149P/9ePT//Xj0//149L/9eLS//Xi + 0v/14tH/9eLR//Xi0f/14dD/9eHQ//Th0P/04c//9ODP//Pfzf/RuKLL9da5of7dv5v+5s+tvLOroEpE + PTcAAAADAAAAAAAAAAAAAAAAAAAABEpFPzzEvLSm/ubRrv3ew5/MtJ7F9eLR//fk0//35NT/9+XU//fl + 1P/35dT/9+XV//fl1f/35tX/9+bW//fm1v/35tb/9+bX//jn1//459f/+OfX//jn2P/459j/+OfY//jo + 2f/46Nn/+OjZ//jo2v/46Nr/+Oja//jp2v/46dr/+Onb//jp2//46dv/+Onb//jq3P/46tz/+Orc//nq + 3P/56t3/+erd//nq3f/56t3/+erd//nq3f/56t3/+evd//nr3f/5697/+eve//nr3v/5697/+eve//nr + 3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr3v/5697/+eve//nr + 3v/5697/+evd//nr3f/15tj/rcWp/8Xl1f+859X/uubV/7jm1f+45tT/uebU/7jm1P+45dT/uOXT/7rl + 1P+45dP/uOXT/7nl0/+55dP/ueXT/7jl0/+45dP/x+jY/6LBof/w4dD/+OfY//jn2P/459j/+OfX//jn + 1//35tf/9+bX//fm1v/35tb/9+bW//fm1f/35dX/9+XV//fl1P/35dT/9+XU//fk1P/35NP/9+TT//fk + 0v/35NL/9eHQ/9G5o8v117ui/t7BnP7m0KzDu7OlSkU/PAAAAAQAAAAAAAAAAAAAAAAAAAAETEdCQs3G + vqz+59Kt/d/EoM21n8b149L/+OXV//jl1f/45dX/+ObW//jm1v/45tb/+ObX//jm1//459f/+OfY//jn + 2P/459j/+OfZ//jo2f/46Nn/+OjZ//jo2v/46Nr/+eja//np2//56dv/+enb//np2//56dz/+enc//nq + 3P/56tz/+erd//nq3f/56t3/+erd//nq3f/5697/+eve//nr3v/5697/+eve//nr3//569//+evf//nr + 3//569//+evf//ns3//57N//+ezf//ns3//67OD/+uzg//rs4P/67OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//rs4P/57N//+ezf//ns3//57N//+ezf//nr3//569//+evf//bn2/+3y7H/zebY/8Xo + 2P/D59f/wefX/8Pn1//D59f/xOfW/8Xn1v/D59b/w+fW/8Pn1f/C59X/w+fV/8Tm1v/D5tX/xObV/8Pm + 1f/P6dr/ssmt//Dh0f/359n/+Oja//jo2f/46Nn/+OjZ//jn2f/459j/+OfY//jn1//459f/+ObX//jm + 1//45tb/+ObW//jm1v/45dX/+OXV//jl1f/45dX/9+XU//fl1P/14tH/0rqlzPXYvaL+3sKc/ubQqszF + vatMR0JCAAAABAAAAAAAAAAAAAAAAAAAAAVNSERI1MzErv7n0av938agzbWhxvXj0//45db/+OXW//jm + 1v/45tf/+ObX//jm1//45tj/+OfY//jn2P/459n/+OfZ//jn2f/459n/+Oja//jo2v/46Nr/+Ojb//no + 2//56dv/+enb//np3P/56dz/+enc//np3f/56t3/+erd//nq3f/56t3/+ere//nq3v/56t7/+eve//nr + 3v/569//+evf//nr3//569//+evg//nr4P/57OD/+ezg//ns4P/57OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//rs4P/67OH/+uzg//rs4f/67OH/+uzh//rs4P/67OD/+uzg//rs4P/67OD/+uzg//rs + 4P/67OD/+uzg//ns4P/57OD/9ujc/8PRuv/V59n/zOja/83o2f/N6Nn/zOjZ/8zo2f/M6Nn/zufZ/8zn + 2f/N59n/zefZ/83n2P/O59j/zefY/87n2P/N59f/zOfX/9bp2/++z7b/8OLS//jn2v/46Nv/+Oja//jo + 2v/46Nr/+OjZ//jn2f/459n/+OfZ//jn2P/459j/+ObY//jm1//45tf/+ObX//jm1v/45db/+OXW//jl + 1f/45dX/9+XV//Xj0v/Su6fM9dm+o/7fxJ3+5s+p0srDrU1IREgAAAAFAAAAAAAAAAAAAAAAAAAABU5K + Rk3b0smz/ufRqvnexaPQuqbJ9uTV//jm1//45tf/+ObX//jn2P/459j/+OfY//jn2f/46Nn/+OjZ//jo + 2f/46Nr/+Oja//jo2v/46Nv/+Onb//jp2//56dz/+enc//np3P/56tz/+erc//nq3f/56t3/+erd//nq + 3v/56t7/+eve//nr3v/569//+evf//nr3//569//+ezg//ns4P/57OD/+ezg//ns4P/57OD/+ezh//rs + 4f/67OH/+uzh//rs4f/67OH/+u3h//rt4f/67eH/+u3h//rt4f/67eH/+u3h//rt4v/67eL/+u3i//rt + 4v/67eH/+u3i//rt4v/67eH/+u3h//rt4f/67eH/+u3h//rs4f/67OH/+uzh//rs4f/26d3/z9fC/9zp + 2//W6tz/1erb/9Xq2//U6tv/1Orb/9Tp2//W6dv/1unb/9Xp2//U6dr/1Ona/9To2v/U6Nr/1OjZ/9To + 2f/V6Nn/3erc/8zXwP/v49P/+Ojb//np3P/46dv/+Onb//jo2//46Nr/+Oja//jo2v/46Nn/+OjZ//jn + 2f/459j/+OfY//jn2P/459j/+ObX//jm1//45tf/+ObW//jm1v/45tb/9uTU/9K8p8z22cCj/uDGnf7m + 0Kja0ciyTkpGTQAAAAUAAAAAAAAAAAAAAAAAAAAFTktGU9/WzrT+59Gq+d/Go9G8qMr25dX/+OfY//jn + 2P/459j/+OjZ//jo2f/46Nn/+Oja//jo2v/46Nr/+Ona//jp2//46dv/+Onb//jp3P/46tz/+erc//nq + 3P/56t3/+erd//nq3f/5697/+eve//nr3v/5697/+eve//nr3//569//+ezf//ns3//57OD/+ezg//ns + 4P/57OD/+ezh//ns4f/57eH/+e3h//rt4f/67eH/+u3i//rt4v/67eL/+u3i//rt4v/67eL/+u3i//rt + 4v/67eL/+u7i//rt4v/67uL/+u7i//ru4v/67uL/+u7j//ru4v/67uL/+u7i//ru4v/67eL/+u3i//rt + 4v/67eL/+u3i//rt4v/67eL/+u3i//jr3//W28j/4urd/93r3v/c693/3Ord/9zq3f/b6tz/3erd/93q + 3f/d6t3/2+rc/9zq3P/b6dz/3Onc/9zp2//b6dv/3Onb/93p2//i693/1dvH//Dk1f/46dz/+erc//nq + 3P/46tz/+Onc//jp2//46dv/+Onb//jp2v/46Nr/+Oja//jo2v/46Nn/+OjZ//jn2P/459j/+OfY//jn + 2P/459f/+OfX//jm1//25NT/072pzPbawqT+4ced/ubPp9/VzLNOS0ZTAAAABQAAAAAAAAAAAAAAAAAA + AAZPTUlZ5tzTt/7m0aj538ej0Luoy/Lh0v/049T/9OPU//Tj1f/049X/9OTW//Xk1v/15Nb/9eTX//Xl + 1//15df/9eXY//Xl2P/15dj/9ebZ//Xm2f/15tn/9eba//bm2v/259r/9ufa//bn2//259v/9ufb//bo + 3P/26Nz/9ujc//bo3f/26N3/9und//bp3f/26d3/9+ne//fp3v/36d7/9+ne//fp3v/36t//9+rf//fq + 3//36t//9+rf//fq3//36uD/9+rg//fq4P/36uD/9+vg//fr4P/36+D/9+vg//fr4P/36+D/9+vg//fr + 4P/36+D/9+vg//fr4P/36+D/9+vg//fr4P/36+D/9+vg//fq4P/36uD/9+rg//fq4P/36t//9und/9vd + zP/m6d3/4und/+Hp3f/h6Nz/4ujc/+Do3P/g6Nv/4ejb/+Do2//g6Nv/4efb/+Dn2v/f59r/4Ofa/+Hn + 2v/h5tn/4ebZ/+Xn2//b3Mr/7+LU//Xl2f/15tr/9ebZ//Xm2f/15tn/9eXY//Xl2P/15dj/9eXX//Xl + 1//15Nf/9eTW//Xk1v/05Nb/9OPV//Tj1f/049T/9OPU//Ti1P/04tT/9OLT//Lg0f/TvKrM9trCpP7h + yJ3+5c+m5dvRtk9NSVkAAAAGAAAAAAAAAAAAAAAAAAAABk9NS13q4Na6/ufSqPnfyaTQvKnL9eTW//bm + 1//25tj/9ubY//fm2P/359n/9+fZ//fn2f/359r/9+fa//fo2v/36Nv/9+jb//fo2//36Nv/9+nc//fp + 3P/36dz/+Ond//jp3f/46d3/+Ore//jq3v/46t7/+Ore//jq3//469//+Ovf//jr3//46+D/+Ovg//jr + 4P/46+D/+Ozg//js4f/47OH/+Ozh//js4f/57OH/+ezh//ns4v/57OL/+ezi//nt4v/57eL/+e3i//nt + 4v/57eL/+e3j//nt4//57eP/+e3j//nt4//57eP/+e3j//nt4//57eP/+e3j//nt4//57eL/+e3i//nt + 4v/57eL/+e3i//nt4v/57eL/+ezi//ns4v/46+D/4+HR/+vr4P/p69//5+vf/+jr3//m69//5+ve/+fr + 3v/o6t7/5+re/+fq3v/o6t3/6Ord/+jq3f/m6d3/5unc/+jp3P/o6dz/6+rd/+Ti0v/x5dj/9+jc//fp + 3P/36dz/9+jc//fo2//36Nv/9+jb//fo2//36Nr/9+fa//fn2f/359n/9+fZ//fn2f/35tj/9ubY//bm + 2P/25tf/9ubX//bl1//25db/9ePV/9O+q83228Ok/uLJnv7lz6Xq39W4T01LXQAAAAYAAAAAAAAAAAAA + AAAAAAAGTk1LW+ng17v+6NSq+eDKpNK9q8r25tj/+eja//no2//56Nv/+enb//np3P/56dz/+enc//np + 3P/56t3/+erd//nq3f/56t7/+ere//nq3v/5697/+evf//nr3//569//+evg//rs4P/67OD/+uzg//rs + 4f/67OH/+uzh//rs4f/67eL/+u3i//rt4v/67eL/+u3j//rt4//67eP/+u3j//ru4//67uP/+u7k//ru + 5P/67uT/+u7k//ru5P/67uT/+u7k//ru5P/67uX/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//rv + 5f/67+X/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//ru5f/67+X/+u7k//ru5P/67uT/+u7k//nt + 4//p5tj/8O3j/+7t4//u7eL/7u3i/+7t4v/u7OL/7uzi/+7s4v/u7OH/7uzh/+7s4f/u7OH/7+vg/+3r + 4P/u6+D/7uvg/+7r3//x7OD/6+bY//Pn2//46t7/+evf//nr3//5697/+ere//nq3v/56t7/+erd//nq + 3f/56t3/+enc//np3P/56dz/+enc//np2//56Nv/+ejb//no2v/46Nr/+Oja//jn2f/25tf/07+szfbc + xaX+48uf/ufSp+jf1bpOTUtbAAAABgAAAAAAAAAAAAAAAAAAAAVHRkRD19LNuv7s27P54Mum0r6sy/fn + 2f/56dv/+enc//np3P/56dz/+erc//nq3f/56t3/+erd//nq3v/56t7/+eve//nr3v/569//+evf//nr + 3//57OD/+ezg//ns4P/67OH/+uzh//rs4f/67eH/+u3i//rt4v/67eL/+u3i//rt4//67eP/+u7j//ru + 4//67uP/+u7k//ru5P/67uT/+u7k//ru5P/67+X/+u/l//rv5f/67+X/+u/l//rv5f/67+X/+u/l//rv + 5f/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv + 5v/67+b/+u/m//rv5v/67+X/+u/l//rv5f/67+X/+e7k/+/q3f/z7+T/8O7k//Lu4//x7uP/8e7j//Pu + 4//x7eP/8e7i//Hu4v/x7uL/8u3i//Ht4v/x7eH/8u3h//Lt4f/x7eH/8e3g//Ps4f/x6dz/9une//ns + 4P/57OD/+ezg//nr3//569//+evf//nr3//5697/+ere//nq3v/56t3/+erd//nq3f/56tz/+enc//np + 3P/56dz/+enb//np2//46dv/+Oja//fn2P/TwK3N9t3Gpf7jzaD+69qxy8bAq0dGREMAAAAFAAAAAAAA + AAAAAAAAAAAABB8fHhi1srCo+vXx8Pvt4MfUwbHN9+fa//np3P/56dz/+enc//np3P/56t3/+erd//nq + 3f/56t7/+ere//nr3v/5697/+evf//nr3//569//+ezg//ns4P/57OD/+uzh//rs4f/67OH/+u3h//rt + 4f/67eL/+u3i//rt4v/67eP/+u3j//ru4//67uP/+u7k//ru5P/67uT/+u7k//ru5P/67uT/+u/l//rv + 5f/67+X/+u/l//rv5f/67+X/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//vw5v/78Ob/+/Dm//vw + 5v/78Ob/+/Dm//vw5v/78Ob/+/Dm//vw5v/67+b/+u/m//rv5v/67+b/+u/m//rv5v/67+b/+u/m//rv + 5f/57uT/8uvf//Xv5f/07+T/9O/k//Pu4//07uP/9O7j//Tu4//z7uP/9O7i//Tu4v/07uL/9O3i//Tt + 4v/07eH/9O3h//Tt4f/07eD/9e3h//Pq3v/36t7/+ezg//ns4P/57OD/+ezg//nr3//569//+evf//nr + 3v/5697/+ere//nq3v/56t3/+erd//nq3f/56dz/+enc//np3P/56dz/+enb//np2//46Nv/9+fZ/9TB + r8735NK0/fHmzfbt5cxta2l8Hx8eGAAAAAQAAAAAAAAAAAAAAAAAAAACAAAACkFBQEOdm5mX9fHt7vz4 + 9f/8+PX//Pj2//z49v/8+fb//Pn2//z59v/8+fb//Pn2//z59//9+ff//fn3//369//9+vf//fr4//36 + +P/9+vj//fr4//36+f/9+/n//fv5//37+f/9+/n//fv6//37+v/+/Pr//vz6//78+//+/Pv//vz7//78 + +//+/fv//v38//79/P/+/fz//v38//79/f/+/f3//v79//7+/f/+/v3///79///+/v///v7///7+///+ + /v///v7////+/////v////////////////////////////////////////////////////////////// + //////////////////////////////////////7////+//79/f/5+/r//P79//v9/f/7/f3/+/38//r9 + /P/6/fz/+vz8//r8/P/6/Pv/+vz7//r8+//6/Pv/+vz7//n7+v/5+/r/+fv6//r8+v/7/Pn/+vr4//r5 + +P/9+/r//fv6//37+f/9+/n//fv5//37+f/9+vj//fr4//36+P/9+vj//fr4//369//9+ff//fn3//35 + 9//8+ff//Pn2//z59v/8+fb//Pn2//z49v/8+Pb//Pj1//nz7uzj3dbBbGtpfEFBQEMAAAAKAAAAAgAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAADS4uLi5AQEBdMjIytpKSkv+VlZX/lZWV/5WVlf+Wlpb/lpaW/5aW + lv+Xl5f/l5eX/5eXl/+Xl5f/mJiY/5iYmP+ZmZn/mZmZ/5qamv+ampr/mpqa/5ubm/+bm5v/nJyc/5yc + nP+dnZ3/nZ2d/56env+enp7/n5+f/5+fn/+goKD/oKCg/6CgoP+hoaH/oaGh/6Kiov+ioqL/o6Oj/6Oj + o/+jo6T/pKSk/6SkpP+lpaX/paWl/6Wlpf+mpqb/pqam/6ampv+mpqf/p6en/6enp/+np6f/p6en/6io + qP+oqKj/qKio/6ioqP+oqKj/qKio/6ioqP+oqKj/qKio/6ioqP+oqKj/qKio/6enp/+np6f/p6en/6en + p/+mpqf/pqam/6SlpP+mp6f/pKam/6Smpv+kpqX/o6Wl/6Olpf+ipKT/oqSk/6KkpP+ho6P/oaOj/6Ci + ov+goqL/n6Gg/5+hof+eoKD/nqCg/52fn/+dn57/nJ2c/52dnf+cnJz/nJyc/5ycnP+bm5v/m5ub/5qa + mv+ampr/mZmZ/5mZmf+YmJj/mJiY/5iYmP+Xl5f/l5eX/5eXl/+Wlpb/lpaW/5aWlv+VlZX/lZWV/5KS + kv8+Pj6+SUlJdEVFRVcuLi4uAAAADQAAAAQAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAFAAAACwAA + ABoZGRl9yMjI/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/ysvK/8vMzP/LzMz/y8zM/8vM + zP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vMzP/LzMz/y8zM/8vM + y//Ly8v/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zM + zP/MzMz/zMzM/8zMzP/MzMz/zMzM/8zMzP/Ly8v/xsbG/yYmJoMAAAAjAAAAEgAAAAsAAAAFAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAADRkZGXLc3Nz/4uLi/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//i4+L/4+Pj/+Lj4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj + 4//i4+P/4uPj/+Lj4//i4+P/4uPj/+Lj4//j4+P/4uPj/+Lj4v/j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj + 4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/+Pj4//j4+P/4+Pj/9vb + 2//S0tL4BgYGbQAAAAoAAAAFAAAAAgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAACAAAAXtra2vLl5eX/8PDw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx/+/w8P/x8fH/8fHx//Dx + 8f/w8fH/8PHx//Hx8f/w8fH/8PHx//Dx8f/w8fH/8PHx//Dx8f/w8fH/8PHx//Hx8f/w8fH/8PHx//Hx + 8f/x8fH/8PHw//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx/+7u7v/m5ub/1tbW/5SUlK4AAAA5AAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAA2d3d3mr+/v/LGxsb/09PT/+Li + 4v/u7u7/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/7u7u/+Li + 4v/U1NT/x8fH/8TExP/Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/wsPC/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Cw8L/w8PD/8PDw//Dw8P/w8PD/8PD + w//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/8PDw//Dw8P/w8PD/7S0 + tOSHh4eqAAAAPgAAAAgAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAA2AAAAXiAgIHFWVlaKwsLC4uTk5P/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/j4+P/wsLC4llZWYwfHx9xAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYBAgJnAQICZwECAmcBAgJnAAAAZgAAAGYBAgJnAAAAZgAAAGYAAABmAAAAZgAA + AGYBAgJnAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAVQAAADAAAAAGAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAACAAAACgAA + AC1JSUl/4+Pj//Hx8f/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy/+Pj + 4/9AQEB8AAAALQAAAAsAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADBSERBAAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAIAAAACAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAGHZ2dn45eXl/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm + 5v/m5ub/5ubm/+bm5v/m5ub/5ubm/+bm5v/l5eX/3Nzc+wAAAGQAAAADAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADAAAAYOHh4fbs7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs7P/s7Oz/7Ozs/+zs + 7P/j4+P4AAAAYQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAABg5+fn9vPz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8vLy/+3t7f8AAABmAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAgAAAF7c3Nzy5OTk/+3t7f/x8fH/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz + 8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8fHx/+7u + 7v/j4+P/2tra8gAAAF4AAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAANnp6epyysrLftra26MTE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/xMTE/8TE + xP/ExMT/xMTE/8TExP/ExMT/xMTE/8TExP/ExMT/u7u777Ozs+BqamqRAAAANgAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAACAAAAKAAAAFEAAABXAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABcAAAAUwAAACoAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAAgAA + AAIAAAACAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAgAAAAIAAAACAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////////////////////////// + //////////////////////////////////////////////////////////////////////z///////// + //////////+AB//////////////////+AAH//////////////////AAA//////////////////gAAH// + ///////////////wAAA/////////////////4AAAH////////////////8AAAA////////////////+A + AAAH/////gAAAAAAAAAAAAAAAAAAf+AAAAAAAAAAAAAAAAAAAAfAAAAAAAAAAAAAAAAAAAADwAAAAAAA + AAAAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAA + AAAAAAAD+AAAAAAAAAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAA + AAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/gA + AAAAAAAAAAAAAAAAAA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/gAAAAAAAAAAAAAAAAA + AA/4AAAAAAAAAAAAAAAAAAAP+AAAAAAAAAAAAAAAAAAAD/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAA + AAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAA + AAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AA + AAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAA + AAfwAAAAAAAAAAAAAAAAAAAH8AAAAAAAAAAAAAAAAAAAB/AAAAAAAAAAAAAAAAAAAAfwAAAAAAAAAAAA + AAAAAAAH8AAAAAAAAAAAAAAAAAAAB+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAA + AAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AA + AAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAA + AAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAA + AAAAAAAD4AAAAAAAAAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPgAAAAAAAAAAAAAAAAAAAD4AAAAAAA + AAAAAAAAAAAAA+AAAAAAAAAAAAAAAAAAAAPAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAA + AAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAA + AAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAA + AAAAAAABwAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAA + AAAAAAAAAAAAAcAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAAAAAAAAAAAcAA + AAAAAAAAAAAAAAAAAAHgAAAAAAAAAAAAAAAAAAAD8AAAAAAAAAAAAAAAAAAAB/wAAAAAAAAAAAAAAAAA + AD/8AAAAAAAAAAAAAAAAAAA//gAAAAAAAAAAAAAAAAAAf/8AAAAAAAAAAAAAAAAAAf//wAAAAAAAD/// + /////////+AAAAAAAB/////////////gAAAAAAAf////////////4AAAAAAAH////////////+AAAAAA + AB/////////////wAAAAAAA/////////////+AAAAAAAf/////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + /////////////////////////////////////////////////////////////ygAAAAwAAAAYAAAAAEA + IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAEAAAABAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAA + AAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAMAAAAEAAAABAAA + AAQAAAAEAAAAAwAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAwAAAAQAAAAFAAAABgAAAAcAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAA + AAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAIAAAACQAA + AA0AAAASAAAAFQAAABUAAAASAAAADQAAAAkAAAAIAAAACAAAAAgAAAAIAAAACAAAAAgAAAAHAAAABgAA + AAYAAAAEAAAAAwAAAAIAAAACAAAABwAAAAwAAAAPAAAAEgAAABMAAAAUAAAAFAAAABQAAAAUAAAAFAAA + ABQAAAAUAAAAFAAAABQAAAAUAAAAFQAAABUAAAAVAAAAFQAAABUAAAAVAAAAFQAAABUAAAAVAAAAFQAA + ABUAAAAWAAAAGwAAACQDAQAyEQgATwwFAEgAAAAxAAAAJAAAABkAAAAVAAAAFAAAABQAAAAUAAAAFAAA + ABQAAAATAAAAEgAAAA8AAAAMAAAACAAAAAUAAAAFAAAAEAAAABoAAAAhAAAAJgAAACoAAAArAAAAKwAA + ACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAAACwAAAAsAAAALAAA + ACwAAAAsAAAALAAAAC0AAAAwAAAAOwEAAE0QCwF+Cmg++x4/JcMIAQBpAAAATAAAADoAAAAvAAAALQAA + ACwAAAAsAAAALAAAACsAAAAqAAAAJgAAACEAAAAaAAAAEQAAAAkAAAAGAAAAGwAAACwAAAA4AAAAQAAA + AEUAAABIAAAASQAAAEoAAABKAAAASgAAAEoAAABKAAAASgAAAEoAAABKAAAASgAAAEoAAABKAAAASgAA + AEoAAABKAAAASgAAAEoAAABKAAAASgAAAE0AAABVAAAAZQ0DAIsKZT37F6xx/wpvQ/8cKRbDBgAAfQAA + AGMAAABTAAAASgAAAEkAAABJAAAASQAAAEgAAABGAAAAQQAAADkAAAAsAAAAHgAAAA4AAAAHAAAAJAAA + ADoAAABWEQkAdxwPAIQcDwCGGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsP + AIgbDwCIGw8AiBsPAIgbDwCIGw8AiBsPAIgbDwCIGg8AihgNAI8VDACYFQkArgpkO/sXpWz/AJpU/wSh + XP8Kb0P/HCIO0xQJAKQWDACVGQ4AjBsPAIgbDwCIGw8AiBwPAIYcDwCEHRAAgAkFAFsAAAA8AAAAJgAA + ABIAAAAIAAAAJDIbAX5cPhnNgF426YtqQ+uLaUPri2pE64tqROuLakTri2pE64tqROuLakTri2pE64tq + ROuLakTri2pE64tqROuLakTrjGpF64xqReuMakXrjGpF64tqReuKaETrhGRB7HhbO+5kSi/xDmQ7/huk + bv8Anln/AJpX/wCZVv8IpWP/DG9E/0c/JPdvUzXvfmA+7YdnQuyKakTri2lD64tpQ+uLakPrjGpE6m1I + G9lGJwGTAAAAKQAAABMAAAAIAAAAHU0sA7HPtJr81quF/9Oke//To3r/06N6/9Okev/TpHv/06R7/9Ok + e//TpHv/06R7/9OlfP/UpX3/1KV9/9Slff/UpX3/1KZ9/9Smff/Upn3/1KZ9/9KkfP/Knnf/upJu/596 + XP8UZj3/HqJv/wKhXv8Am1r/AZxb/wGcW/8Am1j/C6ho/w5uRP90XkH/r4hm/8SYcf/PoHj/0qJ6/9Kj + ef/So3n/06R7/9y4mf2FYDfLRSYCPQAAABEAAAAINR0DH25GGcXdso3/zZFc/8yPWv/MkFv/zJBb/82R + XP/NkVz/zZFc/82SXf/Nkl3/zZJe/82SXv/Nkl7/zZNe/86TX//Ok1//zpNf/86TX//Ok1//zJJe/8iO + XP+6hVf/oXJK/xhkO/8kmmv/BKRk/wCdXP8Bnl3/AZ5d/wGeXf8Bnl3/AJ1b/w6rbf8SbUP/f1k1/7B8 + Tv/BiFb/yY5Z/8uOWv/Mj1n/zI9Z/9Wjdv+nhmTVYjcFUwAAAAsAAAAFVjEGI3tVK8Lkto//2Z5p/9qe + av/an2v/2p5r/9qea//an2z/2p9s/9qfbP/aoG3/2qBu/9qgbv/boG7/26Bu/9uhb//boW//26Fw/9ui + cP/aoXD/159u/8uWaP+1hVz/HWU8/ySUaP8GqWr/AJ9f/wGgYP8BoGD/AaBg/wGgYP8BoGD/AaBg/wCg + X/8RrnP/FGxC/5BnQv/Cjl//0Zhm/9ecaf/Znmn/2Z5p/9+rff+xkG/UaTwIWQAAAAUAAAACaDwJK4lm + PsXqvpf/5Kp4/+SqeP/kq3n/5Kt5/+Sref/kq3r/5ax7/+Wse//lrHv/5a18/+WtfP/lrXz/5a19/+Wt + ff/lrX3/5a59/+Stff/jrX3/3ah6/8qZb/8laD//KI9l/wqtcP8AoWH/AqJk/wKiZP8ComT/AqJk/wKi + ZP8ComT/AqJk/wKiZP8AomP/FLB3/xhrQv+le1T/1qBx/+Cndv/jqXj/5Kp3/+e0h/+5mHfTbkAKYAAA + AAMAAAABbkEMM5NxTMbmuZL/4Kd2/+Cndv/gp3f/4Kh4/+CoeP/gqXj/4Kl5/+Cpev/gqnr/4Kp6/+Gq + e//hqnv/4ap7/+GrfP/hq3z/4at8/+CqfP/eqXv/16N2/y9tQ/83hl7/DrF2/wCjZf8CpGf/AqRn/wKk + Z/8CpGf/AqRn/wKkZ/8CpGf/AqRn/wKkZ/8CpGf/AKVn/xiwfP8ha0L/vYti/9ykdP/fpnb/36Z1/+Kv + gv++nXvUckQNZgAAAAEAAAAAb0IPPZ5+XcrtwZr/6rOE/+q0hP/qtIX/6rSF/+q1hv/qtYf/6rWH/+q2 + h//rtoj/67aI/+u3if/rt4n/67eJ/+u3iv/rt4r/67eK/+u4iv/ruIr/PHZL/0KCWP8Ms3r/AKZn/wCm + af8Apmn/AKVo/wKmav8Cpmr/AqZq/wKmav8Cpmr/AqZq/wCnav8Ap2v/AKZo/wCpav8Vrnr/Mm9F/+Cs + ff/qs4T/6rOD/+u5jf/EooHTckQQbQAAAAAAAAAAbUMRR6eJa83luZP/4ax+/+Gsf//hrYD/4a2A/+Gu + gf/iroH/4q6C/+Kvg//ir4P/4q+E/+KvhP/isIX/4rCF/+Owhf/jsIX/47GG/+Oxhv/jsYb/aoVf/4bW + vv+B0rj/gNK3/3/Rtv9+0rf/dc+y/2TMqf8BqG3/Aqhu/wKobv8BqG3/XMml/3POsP95zrP/eM6x/3bN + sP91z7L/RbKN/0x3Tv/hrH7/4at+/+Kxhf/JpoXUc0cSdQAAAAAAAAAAb0UUUrGWeNDuw53/67mN/+u6 + jf/ruo7/67qP/+y7j//su5D/7LyR/+y8kf/svJL/7L2S/+y9kv/svZP/7L2T/+y9lP/svZT/7L6U/+y+ + lP/svpX/ToNZ/0iBV/9Lglj/TIJY/06DWv9Uglj/KXhO/2DOrP8BqnH/A6ty/wOrcv8CqnH/V8yn/y55 + T/9ril//Yopf/1+IXf9giF7/X4ld/3SPZP/ruY3/67mM/+y8kf/OqorUckgVfAAAAAAAAAAAbkYXW7ic + gdLuw57/7LyR/+y8kv/svZP/7b2U/+29lP/tvpX/7b6V/+2+lv/tv5f/7b+X/+2/mP/twJj/7cCY/+3A + mf/twJn/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/7sGa/+7Bmv/uwZr/NHpQ/1fNqv8CrXX/A612/wOt + dv8CrXX/Tsql/zd7Uf/tvpX/7b6V/+29lP/svZP/7L2T/+y8kv/svJH/7LuR/+29k//TrYzTckkYgwAA + AAAAAAAAbUgbZb+kiNLmvJb/5LWN/+S2jv/kto7/5LeP/+S3kP/kuJD/5biR/+W5kv/luZL/5bmT/+W6 + lP/lupT/5bqU/+W7lf/mu5X/5ruV/+a7lv/mu5b/5ruW/+a7lv/mu5b/5ruW/+a7lv/mu5X/OnxT/03L + pv8Br3n/A696/wOvev8Crnn/Q8mi/zp9U//kuJH/5LiQ/+S3j//kt4//5LaO/+S2jf/jtYz/47SL/+O1 + jP/XspDSckociwAAAAAAAAAAbUkebsaojtPuxaH/7cKb/+7Cm//uwpz/7sOd/+7Dnv/uxJ7/7sSf/+7F + oP/uxaD/78Wh/+/Gov/vxqL/78ai/+/Go//vxqP/78ej/+/Ho//vx6T/78ek/+/HpP/vx6T/78ek/+/H + o//vx6P/QIFY/0XKpf8Csn3/BLJ+/wSyfv8Dsn3/Psmi/0SDWf/uxJ//7sSe/+7Dnv/uw53/7sKc/+7C + m//twpv/7cGa/+3Bmv/ZspDReVMpj2BAGwYAAAAAbUoid82wldLvx6X/78Wh/+/Fof/vxqL/78ai/+/H + o//vx6T/78il/+/Ipf/wyKb/8Mmn//DJp//wyaf/8Mqo//DKqP/wyqn/8Mqp//DKqv/wyqr/8Mqq//DK + qv/wyqr/8Mqq//DKqv/wyqn/RoRc/zvKo/8CtYH/BLWC/wS1gv8DtYH/NMmg/0mGXf/vyKX/78ek/+/H + o//vxqL/78ai/+/Fof/uxaD/7sSg/+7Env/XspHRhmVAlWREHxEAAAAAbEwlgNK0l9LnwJ3/5r+b/+a/ + nP/nwJ3/58Ce/+fBn//nwqD/58Kg/+jCof/ow6L/6MOj/+jEo//oxKT/6MSk/+jEpP/pxaX/6cWl/+nF + pv/pxab/6cWm/+nFpv/pxab/6cWm/+nFpv/pxaX/SoZe/zPKo/8CuIX/BLiG/wS4hv8DuIX/K8mf/02H + X//nwqD/58Gf/+fBn//nwJ7/58Cd/+a/nP/mv5v/5r6a/+a9mv/WsZHQkXRSmmJFIhoAAAAAa00qiNi5 + ndHwyqr/8Mqq//DLq//wy6z/8Myt//DMrf/wza7/8c2v//HOsP/xzrD/8c+x//HPsf/xz7L/8dCz//HQ + s//x0LP/8dCz//HQtP/y0bT/8tG0//LRtP/y0bT/8tG0//HQtP/x0LP/T4tk/yvKo/8Duon/BbqK/wW6 + iv8Euon/I8mf/1ONZf/xza//8M2u//DMrf/wzK3/8Mus//DLq//wyqr/8Mqq/+/JqP/Vs5LPm4Bknl1D + JCRbQycHdlw8j9i5ntHxza7/8c2u//HOsP/xz7D/8c+x//HQsv/x0LP/8tCz//LRtP/y0bX/8tK2//LS + tv/y0rb/8tO3//LTt//y07j/8tS4//PUuf/z1Ln/89S5//PUuf/z1Ln/89S5//LUuP/y1Lj/V49o/yXL + o/8DvY3/Bb2O/wW9jv8EvY3/Hcqh/1mSaf/y0LP/8dCz//HQsv/xz7H/8c+w//HOr//xza7/8c2u//DN + rf/Vs5XPp492pVxEJy9eRysUiHFVldi6n9Doxqn/6Meq/+jIq//oyKz/6cmt/+nJrv/pyq//6cqv/+rL + sP/qzLH/6syy/+rMsv/qzbP/6s2z/+vOtP/rzrX/6861/+vOtf/rzrX/6861/+vOtf/rzrX/6861/+vO + tf/rzrX/XZFr/x3MpP8Cv5D/BL+R/wS/kf8Dv5D/Fsui/1mSa//pyq//6cqv/+nJrf/pya3/6Mis/+jH + q//ox6r/6Map/+fGqP/Us5TOsJuEqF1GKzdcRy8flYBpmta5n8/y07f/8tO4//LUuf/y1Lr/8tW7//PV + u//z1bz/89a9//PXvv/z17//89e///PYwP/z2MD/9NjB//TZwf/02cL/9NnC//TZwv/02cL/9NrD//Ta + w//02cL/9NnC//TZwv/02cL/aJhz/yrRrP8axp3/Hcae/x3Gnv8cxp3/JdGs/2WZdP/z1r3/89W8//PV + u//y1bv/8tS6//LTuf/y07j/8tK3//LStv/UtJfNu6iVrltHLkFYRjEqopF9ota6oc7z1bz/89a9//PX + vv/z17//89jA//TYwf/02cH/9NnC//Taw//02sT/9NrE//Tbxf/028X/9dvG//Xcxv/13Mf/9dzH//Xc + x//13Mf/9d3I//XdyP/13cj/9dzH//Xcx//13Mf/dp98/03bvv9F0rL/R9Ky/0fSsv9G0rL/Sdu+/3Kg + fP/02cL/9NjB//TYwP/z2MD/89e///PWvv/z1r3/89W8//PVu//TtJnMwrKhs1lHMUtXRzM1rp+Op9W5 + oc3qz7f/6s+4/+vQuf/r0br/69K7/+zSvP/s073/7NO+/+zUvv/t1L//7dXA/+3Wwf/t1sH/7dbC/+3X + wv/u18P/7tfD/+7XxP/u18T/7tfE/+7YxP/u2MT/7tjE/+7Xw//u18P/e6KA/1Xfwv9R1bb/UdW2/1HV + tv9R1bb/U97B/3ehfv/s073/7NO9/+zSvP/r0bv/69G5/+vQuP/qz7j/6s+3/+rOtv/StJnNy7urtlhI + NFNWSDdBu62frtS6osz028T/9NvF//Tcxv/03Mf/9d3I//Xdyf/13sr/9d7K//Xfy//138z/9d/M//bg + zf/24M7/9uHO//bhz//24c//9uHP//bi0P/24tD/9uLQ//bi0P/24tD/9uLQ//bhz//24c//iqyM/2Ph + xv9h2b3/Ydm9/2HZvP9g2Lz/YuLH/4ari//13sr/9d7K//Xdyf/13cj/9NzH//Tcxv/028X/9NvE//Ta + xP/Stp3M0sS1uVhKOFtUSDlMxrqutNO6o8z13cj/9d7J//Xeyv/138v/9d/M//bgzP/24M3/9uHO//bh + z//24tD/9uLQ//bj0f/349H/9+PS//fk0v/35NP/9+TT//fk0//35NT/9+XU//fk1P/35NT/9+TU//fk + 0//35NP/mbSX/3njy/943MP/edzD/3jcw/933ML/d+PM/5W0lv/24c7/9uDN//bgzP/138z/9d/L//Xe + yv/13sn/9d3I//Xdx//Stp3K2su9uVdKO2RTSD1Wz8S4uNO6pMvt1sL/7dfD/+3YxP/t2MX/7tnG/+7a + x//u2sj/79vJ/+/byv/v3Mv/79zM//DdzP/w3s3/8N7O//Dezv/w38//8N/P//Hfz//x39D/8d/Q//Hf + 0P/x39D/8d/Q//Hfz//w38//qLuh/5Hizv+Q3Mf/kNzH/5Hcxv+Q28b/j+LN/6O5nv/v28n/7trI/+7a + x//u2cb/7djF/+3YxP/t18P/7NbC/+zVwf/Qtp7L4tPEuldMP2xTS0Ff2MzCudK6psr24c//9uLQ//bi + 0f/249L/9+PT//fk1P/35dT/9+XV//fl1v/35tb/9+bX//jn2P/459j/+OfZ//jo2f/46Nr/+Oja//jo + 2v/46Nr/+Oja//jo2v/46Nr/+Oja//jo2v/46Nr/wMy1/7Do1f+w49D/sOPQ/7Djz/+x48//sOfU/7zK + s//35dX/9+XU//fk0//249L/9uPS//bi0f/24tD/9uHP//bhzv/Qt6HK6NnLvFZOQ3NTTERp4dXKvNK7 + p8v349P/9+TU//fk1P/35dX/9+XW//jm1//45tj/+OfZ//jn2f/46Nr/+Oja//jp2//46dz/+enc//np + 3f/56t3/+erd//nq3f/56t7/+ere//nq3v/56t7/+ere//nq3f/56t3/1dfE/8vp2//K5tf/y+fX/8rm + 1v/K5tb/y+jZ/9DXw//459j/+ObY//jm1//35db/9+XV//fk1P/35NT/9+PT//fj0v/QuKPJ7t7RvVVO + RntTTkhy6d3SvNG7qcrv3M3/793O/+/ez//w3tD/8N/R//Dg0v/x4NP/8eHU//Hi1P/y4tX/8uPW//Lj + 1//y5Nj/8uTY//Pk2f/z5dn/8+XZ//Pl2v/z5dr/8+Xa//Pl2v/z5dr/8+Xa//Pl2v/z5dn/39vM/9rl + 2P/Z5Nb/2uTW/9rj1f/Z49X/2ePV/9zbyv/w4NP/8eDS//Dg0v/w39H/8N7Q/+/ez//v3c7/79zN/+7b + zP/Pt6TK9eXXvVZQSoJSTkt78ebcxNG8qsr459j/+OfY//jo2f/46Nr/+Onb//jp3P/56tz/+erd//nr + 3v/569//+ezf//ns4P/57OD/+e3h//rt4f/67eL/+u3i//rt4v/67uP/+u7j//ru4//67uP/+u7i//rt + 4v/67eL/8Ojb/+/t4f/u7OD/7uvf/+7r3//u697/7uvf/+/n2f/46dz/+erc//jp3P/46dv/+Oja//jo + 2f/459j/+OfY//jm1//Ru6jK++vdwFVRTYhOTElr5d/azPn08Pr8+Pb//Pn2//z59v/9+ff//fr3//36 + +P/9+/n//fv5//37+v/+/Pr//vz7//79/P/+/fz//v39//7+/f///v7///7+/////v////////////// + ////////////////////////+/z7//v+/f/7/fz/+vz8//r8+//6/Pv/+vz6//r6+f/9+/r//fv5//37 + +f/9+vj//fr4//359//8+fb//Pn2//z49v/48+757ufh1FBOS3Y+PT04RURDdz8+Pr9/fn3/gH9+/4GA + f/+BgYD/g4KB/4SDgv+FhIP/hoWE/4eGhf+IiIf/iomI/4uKif+Mi4r/jYyL/46Njf+Pjo7/kI+O/5GQ + j/+RkJD/kpGQ/5KRkP+SkZD/kpGQ/5GRkP+RkI//kI+P/4+Qj/+Pjo3/jY6N/4yMjP+Li4r/ioqJ/4mI + h/+Hhob/hoWE/4WEg/+Eg4L/g4KB/4KBgP+BgH//gH9+/39+ff9APz7BSEdGgEJBQEUAAAAGAAAAGxgY + GIHPz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/P + z//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/P + z//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/8YGBiCAAAAHAAA + AAcAAAAAAAAAAAAAAFDX19fd8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/4+Pj6bq6 + ur4AAAA+AAAAAAAAAAAAAAAAAAAAAAAAACgAAABSLCwsddjY2PvZ2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ + 2f/Z2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ2f/Z2dn/2dnZ/9nZ2f9GRkaCAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAWgAAAD8AAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAEAAAAYezs7Pby8vL/8vLy//Ly + 8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v/y8vL/8vLy//Ly8v8HBwdoAAAABwAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARMfH + x8nx8fH78/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8vLy/crL + y80CBARHAAAAAIXu4AEAAAAAAAAAAJb27AEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAGgAAAEYAAABkAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZQAAAEgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAMAAAAFAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABQAAAAMAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD///////8AAPAAAAAADwAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAADgAAAAAAB + //+AAAAAAAH//4AAAAAAAQAAgAAAAAAB//+AAAAAAAH//4AAAAAAAP//gAAAAAAAz8+AAAAAAADP/4AA + AAAAAE6nAAAAAAAApM8AAAAAAACnLAAAAAAAAHqlAAAAAAAAp6cAAAAAAABWpQAAAAAAAE5OAAAAAAAA + VaUAAAAAAAAqKgAAAAAAAPeBAAAAAAAAKioAAAAAAAD3+gAAAAAAAPX1AAAAAAAAK/oAAAAAAAD19QAA + AAAAAPX4wAAAAAADVlbAAAAAAAP7gcAAAAAAA/X18AAC3//////wAAP////19fAAA/////////////// + //////////////////////////////////8oAAAAIAAAAEAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAMAAAACAAAAAwAAAAIAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAQAAAAEAAAAEAAAADwwEAC4IAgApAAAADwAAAAQAAAABAAAAAQAA + AAEAAAABAAAAAQAAAAEAAAABAAAAAAAAAAMAAAAEAAAACAAAAAkAAAAKAAAACgAAAAoAAAAKAAAACgAA + AAoAAAAKAAAACgAAAAoAAAAKAAAACgAAAAoAAAAKAAAACwAAABcLAwBKCGg9+whlPPYEAAA8AAAAFwAA + AAsAAAAKAAAACgAAAAoAAAAJAAAACAAAAAUAAAADAAAACgAAABQAAAAdAAAAIwAAACQAAAAlAAAAJQAA + ACUAAAAlAAAAJQAAACUAAAAmAAAAJgAAACYAAAAmAAAAJgAAACcAAAAwBQAAVwlmPPkLp2X/Ep5i/whi + OvUCAABJAAAALAAAACUAAAAlAAAAJQAAACMAAAAdAAAAFAAAAAsAAAAYAAAALQAAAEEAAABLAAAATwAA + AFEAAABRAAAAUQAAAFEAAABRAAAAUQAAAFEAAABRAAAAUQAAAFEAAABSAAAAWQMAAHMJYzr3D6Vn/wCc + WP8An1v/Fptj/whgOPIBAABlAAAAVAAAAFEAAABRAAAATAAAAEIAAAAvAAAAGgAAAB5XMAN4XjQEx100 + BNxcMwTfXDME31wzBN9cMwTfXDME31wzBN9cMwTfXDME31wzBN9cMwTfXDME31kxBOBNKgPkDl83/ROj + af8AoF3/AZ1c/wGdW/8BpGH/G5Vh/xBcM/tULgTiWjIE4FwzBN9dNATdYDUEylcwA30AAAAhIRMCHXtK + EbLNrZDs1auG/tethv/YrYf/2K2H/9iuiP/Yroj/2K6J/9iuif/Yr4n/2K+J/9ivif/VrYf/xJ99/xxo + QP8WoWr/AKVk/wGgYf8BoGH/AaBh/wCfYP8CqGf/JJBh/yVqQv/PpoH/1quF/9arhf7RtJjxcUEKrgAA + ABdjOQoilGYyrsaSZNfXnGj/15tn/9abZ//WnGj/1pxp/9acaf/XnWr/151q/9eea//Xnmv/2J5s/9ac + a/8naED/GZ1p/wCpaf8AomT/AqNm/wKjZv8Co2b/AqNm/wCiZP8CrG3/KItc/zJsQv/Xm2f/1ppn/82d + dOF7SxaxKRgEDHZGECahdEWty5Vlz96lc//epXP/3qZ0/96mdf/ep3b/3qd2/9+od//fqHf/36h4/9+o + eP/fqXn/OXFH/1+5l/9LyJ3/ScKZ/0XCmP8+vZD/Aqdr/wKna/89vI//SMKZ/0rDmv9LyZ//ba2L/0l3 + S//dpHL/0qF12YpeLK9tQQ8RfE0WLamDV7DKlWfN4qt7/+KsfP/irH3/4q1+/+Ktf//jroD/466A/+Ov + gf/jr4H/46+C/+Ovgv9DeU//MXxQ/zR6T/83ek//KHhO/z3Blv8Cq3D/Aqtw/zvBlf8seU7/PHtQ/zh8 + UP81fFD/VH1S/+Gre//Uo3jYlm9BsnxNFht6Ths1sI1mssmVac/fq37/4Kx//+CtgP/grYH/4K6C/+Cv + g//hr4P/4a+E/+GwhP/hsIX/4bCG/+Gwhv/hsIb/4bCG/+Gwhv9Fdkz/NsSa/wKudv8Crnb/NcSZ/0V2 + TP/grYH/4K2A/+Csf//frH7/36t9/9Ciediee1O0ek4bJHlQIT+5mXe1zptvx+y8kf/svZL/7b2T/+2+ + lP/tvpX/7b+W/+2/lv/tv5f/7cCX/+3AmP/twJj/7cCY/+3AmP/twJj/7cCY/1B+VP8xxZv/A7F8/wOx + fP8wxJv/UH5T/+2+lP/tvZP/7L2S/+y8kv/su5D/16h/0qmKaLl5UCExeFImRr+ihLnImXDP4bOM/+G0 + jP/itY7/4rWP/+K2kf/it5H/47iS/+O4k//juZT/47mU/+O5lP/juZX/47mV/+O5lf/juZX/V39W/yvG + nP8DtoP/A7aD/yzHnP9Yf1X/4raQ/+K1jv/htI3/4bOM/+Gyiv/Po3vXtJd5vXhSJj13VCxQxqyRvNCi + e8rvxKD/78Wh/+/Fov/vxqP/78ek/+/Hpf/wyKb/8Min//DJp//wyaf/8Mmo//DJqP/wyaj/8Mmo//DJ + qP9kiGD/J8if/wS6if8Euon/Jcme/2WHX//vxqT/78ai/+/Fof/vxKD/7sSf/9aqhNG9o4m/d1QsRnVW + MlfMtJy/yZ970OS9m//kvpz/5b6d/+W/n//lwKD/5sGh/+bCov/mwqP/5sOk/+bDpP/nw6X/58Sl/+fE + pf/nxKX/58Ol/2uJYv8gyqL/Ar2P/wK9j/8eyqH/aohh/+W/n//lv57/5L6c/+S9m//kvJr/zaaD1saw + mcN1VjJRdFg5YdO9p7/QqYbK8c2u//HOr//xz7H/8c+y//LQs//y0LT/8tG1//LStv/y0rb/8tK3//LT + t//y07f/8tO3//LTt//y07f/epNv/yjPqf8VxJv/FcSb/ybQqf95km3/8c+y//HPsf/xzq//8c2u//HM + rf/Vro3Qz7qlxXRYOV1yWz9q2MWwwcmlh9Dnxqn/58er/+fIrP/oya7/6Mqv/+nLsP/py7H/6cyy/+nM + s//qzbT/6s20/+rNtP/qzbT/6s20/+rNtP+Fl3X/TNu9/0fSsv9H0rL/Sty+/4OVcv/oya7/58it/+fH + q//nxqn/5sWo/86qi9bVwq/Fcls/aHFdRXLfzLnB0K6QyfPWvP/z173/89i+//TYv//02cH/9NrC//Tb + w//028T/9dvE//Xcxf/13MX/9dzG//Xcxv/13Mb/9dzG/5ilhf9d38L/XNi6/1zYuv9c38P/laOC//TZ + wP/02L//89e9//PWvP/z1rv/1LOVz97LuMVxXUV0cF9Ke+bUwsHJq5DQ6c+3/+rQuf/q0br/69K8/+vT + vf/r077/7NTA/+zVwf/s1sL/7NbC/+3Ww//t1sP/7dfD/+3Xw//t1sP/pKyQ/3rfxv972L//e9i//3nf + xv+iqoz/69K8/+rRuv/q0Ln/6c+4/+nOtv/NrpTW5NHAxXNjToFvYFCF69rLw9G0m8r13sn/9d7K//bf + y//24M3/9uDO//bhz//24tD/9uLR//fj0f/349L/9+PS//fk0//35NP/9+TT//fj0v/Bwqr/p+XQ/6jg + y/+p4Mv/puXQ/8HBqP/24M3/9t/M//Xfy//13sn/9d3I/9a4ns/q2MjDdGZWjHBlWI3w4NHByrCa0OvV + w//r1sT/7NfG/+zYx//t2sn/7drK/+7by//u3Mz/7t3N/+/dzv/v3c7/797P/+/ez//v3s//797P/9PM + uf/G4c//yN3M/8nczP/F383/z8q1/+3ZyP/s2Mb/7NfF/+vWw//q1MH/zLKb1fDdzcJ1a16Xc2timfXl + 18HSuaTL9+TT//fl1f/35tb/+ObX//jn2P/46Nn/+Oja//jp2//56dz/+erc//nq3f/56t3/+erd//nq + 3f/56t3/6+HR/+np3P/q6dr/6una/+jo2f/q4M//+ObX//jm1v/35dX/9+TU//fj0v/VvajP9uXUwHdw + ZqR1cGqj++zewcq1o9Lt3M3/7t3O/+7e0P/v39H/7+DS//Dh1P/w4tX/8eLW//Hj1//x5Nj/8eTY//Hk + 2f/y5Nn/8uTZ//Hk2P/t4tX/7uPX/+7i1v/t4tb/7eHU/+ve0P/v39L/797Q/+7dz//t3M3/7dvL/864 + pdb35ta/hYB5q3NwbJr58+3l8+zm8fz18P/89fH//Pbx//z28v/89/P//fj0//349f/9+fX//fn2//76 + 9v/++vf//vv4//77+P/++/j//vv3//z59v/++vf//vr2//359v/9+fX//Pfz//348//89/L//Pbx//z2 + 8f/89fD/9O3n8vrz7eOHg3+qamhmU2VjYZxVU1LXhoaF/4iHhv+IiIf/iYiH/4uKif+Mi4r/jYyL/46N + jP+Pjo3/j4+O/5GQj/+RkI//kZCP/5GQj/+RkI//kZCP/5CPjv+Pjo3/jo2M/42Mi/+Mi4r/i4qJ/4mJ + iP+JiIf/iIeG/4eGhf9YV1bZYmFfqGpoZl0AAAAAAAAABhoaGm3v7+/78fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx + 8f/x8fH/8fHx//Hx8f/x8fH/8PDw/UFBQXoAAAAOAAAAAAAAAAAAAAAAAAAAPDIyMoXT09P/09PT/9PT + 0//T09P/09PT/9PT0//T09P/09PT/9PT0//T09P/KioqeAAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAA + AGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABlAAAAPgAAAAEAAAAAAAAAAAAAAAAAAAACAAAAVN3d + 3eDz8/P/8/Pz//Pz8//z8/P/8/Pz//Pz8//z8/P/8/Pz/+Dg4OQAAABWAAAABgAAAAYAAAAGAAAABgAA + AAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAUAAAACAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAqAAAAVAAAAGYAAABmAAAAZgAAAGYAAABmAAAAZgAAAGYAAABmAAAAVgAAACwAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAAEAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAEAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAAeAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACAAAABwAAAAcAAAAPgAf//4AH/////////////KAAAABAAAAAgAAAAAQAgAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAoAAAAWAAAAGQAAABkAAAAZAAAAGQAAABkAAAAZAAAAGQEAACcBAAAoAAAAGQAA + ABkAAAAZAAAAFgAAAAoAAAAmAAAAUQAAAFsAAABbAAAAWwAAAFsAAABbAAAAWwAAAGUGaD3/Bmg9/wEA + AGcAAABbAAAAXAAAAFEAAAAoAAAAFk4uB5pkOgvTZTsM02U7DNNlOwzTZTsM02M6DNQGaD3/Badj/wSn + ZP8GaD3/YjkL1GQ6C9JRLwiaAAAAF3RJGB2IZT/Q9Na8//DJpf/wyab/8Mqn/+/Jp/8GaD3/Bats/wCj + ZP8Ao2T/Bqxs/wZoPf/y1bn+jWpEzn1LEiB/ViYzmn5g2Oe+m//hr4P/4rCE/+Kwhv8GaD3/kNC3/4zQ + tv8GqXD/A6pw/4rQtv+Q0Lf/Bmg9/52BY9l9UiE4fV02Sq2XgNnwzKz/7cKc/+7En//uxaD/Bmg9/wZo + Pf8GaD3/B7N//wK3gf8GaD3/Bmg9/wZoPf+umYDYfFoxTHlfQWG6qJbh6cmt/+bDo//nxKb/58ao/+jG + qf/ox6r/CGk+/wa7i/8Cv47/DGo//+bCo//pyKz/u6mW3nxhQmN8aVF5y7ur3vPZwf/y1r3/89e///PY + wf/z2cL/89rD/yJ0S/8PxZr/Csmd/yNzSv/y1bz/8tjA/8q4qdp+aVJ5fnBgjdHDteHs1sP/7NbC/+zX + xf/t2cf/7trI/+7ayf9Vi2j/Tti6/0rdvv9Ximb/7NXC/+vVwv/PwLHefnFhjX53bqHe0cXc9uXV//bm + 1//359n/9+jb//fp3P/36dz/orae/5Tjzv+S5tH/pbWc//bl1v/25NT/3c7C2H53bqWcmJS68u3n8/jw + 6v/48uz/+fPu//n07//69PH/+vXx/+Pm3v/i8uv/4PLr/+Lk2//48ez/9/Dq//Dr5fGmo5+6YGBgaFtb + W8+UlJT/lpaW/5eXl/+YmJj/mpqa/5qamv+Zmpn/mpqa/5mZmf+Wl5b/lpaW/5SUlP9RUVHJZ2dnYAAA + AAsyMjJ08PDw/fHx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/x8fH/8fHx//Hx8f/n5+fxAAAAXQAA + AAAAAAAAAAAAPRsbG23h4eHm8/Pz//Pz8//z8/P/6Ojo71BQUH8AAABmAAAAZgAAAGYAAABmAAAAXQAA + ADQAAAAAAAAAAAAAAAIAAAAvAAAAVwAAAGYAAABmAAAAZgAAAFwAAAA2AAAABgAAAAYAAAAGAAAABgAA + AAQAAAABAAAAAAAAAAAAAAAAAAAAAQAAAAQAAAAGAAAABgAAAAYAAAAEAAAAAgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAQAAgAEAAYABgAHAf4AB + + + \ No newline at end of file diff --git a/Epole/업로드폼/XLSsync.vb b/Epole/업로드폼/XLSsync.vb new file mode 100644 index 0000000..cdeb39b --- /dev/null +++ b/Epole/업로드폼/XLSsync.vb @@ -0,0 +1,786 @@ +Imports System.IO +Imports System.Text + +Public Class XLSSync + ' Dim FN As String = vbNullString + + Structure Str_Macro + Dim FileName As String + Dim Desc As String + End Structure + + Dim Srcfile As String = "" '// ҷ ̰ų ҷӴ + Dim DesFile As String = "" + Dim findCnt As Integer = 0 + Dim ListOk As ArrayList + Dim ListDel As ArrayList + + Dim MacroPattern As String = "xlssync" + Dim IniFile As String = My.Application.Info.DirectoryPath & "\macro\" & MacroPattern & "\default.ini" + Dim MacroPath As String = My.Application.Info.DirectoryPath & "\macro\" & MacroPattern + + Dim Log1, log2 As ArrayList + + Dim Macro() As Str_Macro + + Private Sub Load_Macro() + Dim Ini As MyINI2 + Dim DI As New DirectoryInfo(Me.MacroPath) + If Not DI.Exists Then DI.Create() + + Dim FI() As FileInfo = DI.GetFiles(Me.MacroPattern & "*.ini") + ReDim Macro(FI.GetUpperBound(0)) '//ũ Ѵ. + + Dim I As Integer = 0 + Me.cmb_macro.Items.Clear() + Me.cmb_macro.Items.Add("") + For Each F As FileInfo In FI + Me.Macro(I).FileName = F.FullName + Ini = New MyINI2(F.FullName) + Me.Macro(I).Desc = Ini.Read("main", "desc", "⺻") + Me.cmb_macro.Items.Add(Me.Macro(I).Desc) + I += 1 + Next + End Sub + + Private Sub XLSImport_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + ' Me.ListView3.COLSIZE_SAVE() + Me.Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Load_Macro() + Me.cmb_macro.SelectedIndex = 0 + Try + Me.srcview.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) + Me.desview.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) + + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip3.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip4.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Catch ex As Exception + + End Try + End Sub + + Private Sub Load_Setting(Optional ByVal Macroindex As Integer = 0) + Dim ini As MyINI2 + If Macroindex = 0 Then + ini = New MyINI2(IniFile) + Else + ini = New MyINI2(Me.Macro(Macroindex - 1).FileName) + End If + + If ini.Exist = False Then + MsgBox("ȯ ʾƼ ҷ ߽ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Me.tb_srcstt.Text = ini.Read("normal", "srcstartpos", "1") '// + Me.tb_srcend.Text = ini.Read("normal", "srcendpos", "0") '// + Me.tb_desstt.Text = ini.Read("normal", "destartpos", "1") '// + Me.tb_desend.Text = ini.Read("normal", "desendpos", "0") '// + + Me.Srcfile = ini.Read("normal", "srcfile", "") + Me.DesFile = ini.Read("normal", "desfile", "") + + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel3.Controls + A.ȣ = ini.Read("CURSETNUMsrc", A.Name) + A.ڿڸ = ini.Read("CURSETSPLsrc", A.Name) + A.üũ = ini.Read("CURSETNULsrc", A.Name, False) + Next + + + + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel6.Controls + A.ȣ = ini.Read("CURSETNUMdes", A.Name) + A.ڿڸ = ini.Read("CURSETSPLdes", A.Name) + A.üũ = ini.Read("CURSETNULdes", A.Name, False) + Next + + For Each A As Control In Me.TableLayoutPanel7.Controls + If A.GetType.Name.ToUpper = "IMPCTL" Then + CType(A, MyControlOLEDBv2.ImpCtl).ȣ = ini.Read("CURSETNUMin", A.Name) + CType(A, MyControlOLEDBv2.ImpCtl).ڿڸ = ini.Read("CURSETSPLin", A.Name) + CType(A, MyControlOLEDBv2.ImpCtl).üũ = ini.Read("CURSETNULin", A.Name, False) + ElseIf A.GetType.Name.ToUpper = "TEXTBOX" Then + A.Text = ini.Read("CURSETNUMout", A.Name) + End If + Next + + End Sub + + Private Sub Save_Setting(Optional ByVal Macroindex As Integer = 0) '// մϴ. + '// / ȣ ؽƮ̴. + Dim Macroname As String + Dim ini As MyINI2 + If Macroindex = 0 Then + ini = New MyINI2(IniFile) + Macroname = "⺻" + ElseIf Macroindex = -999 Then '//̰ ο ũ ߰. ũ ϸ Ѵ. + Macroname = InputBox("ũ Էϼ", "Է", "űԸũ") + Dim i As Integer = 0 + Dim NewName As String = "" +NewName: + i += 1 + NewName = Me.MacroPath & "\" & Me.MacroPattern & Format(Me.Macro.GetUpperBound(0) + i + 1, "00") & ".ini" + If New FileInfo(NewName).Exists Then GoTo NewName + ini = New MyINI2(NewName) + Else + ini = New MyINI2(Me.Macro(Macroindex - 1).FileName) + Macroname = Me.Macro(Macroindex - 1).Desc + End If + ini.Write("main", "desc", Macroname) + + ini.Write("normal", "srcstartpos", Me.tb_srcstt.Text) '// + ini.Write("normal", "srcendpos", Me.tb_srcend.Text) '// + ini.Write("normal", "destartpos", Me.tb_desstt.Text) '// + ini.Write("normal", "desendpos", Me.tb_desend.Text) '// + + ini.Write("normal", "srcfile", Me.Srcfile) + ini.Write("normal", "desfile", Me.DesFile) + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel3.Controls '// ؽƮڽ + ini.Write("CURSETNUMsrc", A.Name, A.ȣ) + ini.Write("CURSETSPLsrc", A.Name, A.ڿڸ) + ini.Write("CURSETNULsrc", A.Name, A.üũ) + Next + For Each A As MyControlOLEDBv2.ImpCtl In Me.TableLayoutPanel6.Controls '// ؽƮڽ + ini.Write("CURSETNUMdes", A.Name, A.ȣ) + ini.Write("CURSETSPLdes", A.Name, A.ڿڸ) + ini.Write("CURSETNULdes", A.Name, A.üũ) + Next + + For Each A As Control In Me.TableLayoutPanel7.Controls + If A.GetType.Name.ToUpper = "IMPCTL" Then + ini.Write("CURSETNUMin", CType(A, MyControlOLEDBv2.ImpCtl).Name, CType(A, MyControlOLEDBv2.ImpCtl).ȣ) + ini.Write("CURSETSPLin", CType(A, MyControlOLEDBv2.ImpCtl).Name, CType(A, MyControlOLEDBv2.ImpCtl).ڿڸ) + ini.Write("CURSETNULin", CType(A, MyControlOLEDBv2.ImpCtl).Name, CType(A, MyControlOLEDBv2.ImpCtl).üũ) + ElseIf A.GetType.Name.ToUpper = "TEXTBOX" Then + ini.Write("CURSETNUMout", A.Name, A.Text) + End If + Next + + End Sub + + + Private Function GetFPData(ByVal sender As MyControlOLEDBv2.ImpCtl, ByVal Drow As FarPoint.Win.Spread.Row, ByVal CustFp1 As FarPoint.Win.Spread.FpSpread) As String + '// ¥̸ FORMAT ؼ Ѵ" + + Dim SUbidx As Integer + Dim VALSTR As String + + If sender.ȣ = "" Then '// ٴ¶̴. + Return "" + Else '//ִ. + SUbidx = sender.ȣ + If CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text = "" Then + ' MsgBox("̾ ٷκ") + Return "" '//; + End If + If sender.ڿڸ = "" OrElse sender.ڿڸ = "0,0" Then '//ڿڸȮ ״ + VALSTR = CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + Return VALSTR + + Else '//ڿڸⰡ ߶ ش. + Dim DIV() As String = sender.ڿڸ.Split(",") + If DIV(1) = "0" Then '//ۺ + Try + VALSTR = (CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1)) + Catch ex As Exception + VALSTR = CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + End Try + Return VALSTR + + Else '/ + Try + VALSTR = CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1, DIV(1)) + Catch ex As Exception + VALSTR = CustFp1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + End Try + Return VALSTR + End If + End If + End If + + End Function + Private Function GetFPData(ByVal sender As MyControlOLEDBv2.ImpCtl, ByVal Drow As Integer, ByVal CustFp1 As FarPoint.Win.Spread.FpSpread) As String + '// ¥̸ FORMAT ؼ Ѵ" + + Dim SUbidx As Integer + Dim VALSTR As String + + If sender.ȣ = "" Then '// ٴ¶̴. + Return "" + Else '//ִ. + SUbidx = sender.ȣ + If CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text = "" Then + ' MsgBox("̾ ٷκ") + Return "" '//; + End If + If sender.ڿڸ = "" OrElse sender.ڿڸ = "0,0" Then '//ڿڸȮ ״ + VALSTR = CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text + Return VALSTR + + Else '//ڿڸⰡ ߶ ش. + Dim DIV() As String = sender.ڿڸ.Split(",") + If DIV(1) = "0" Then '//ۺ + Try + VALSTR = (CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1)) + Catch ex As Exception + VALSTR = CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text + End Try + Return VALSTR + + Else '/ + Try + VALSTR = CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1, DIV(1)) + Catch ex As Exception + VALSTR = CustFp1.ActiveSheet.Cells(Drow, CInt(SUbidx - 1)).Text + End Try + Return VALSTR + End If + End If + End If + + End Function + Private Function NullCHeck1() As Boolean + For Each C As Control In Me.TableLayoutPanel3.Controls + If C.GetType.Name.ToUpper = "IMPCTL" Then + If CType(C, MyControlOLEDBv2.ImpCtl).ȣ <> "" AndAlso CType(C, MyControlOLEDBv2.ImpCtl).üũ Then '//üũȰ Ѵ. + Return True + End If + End If + Next + Return False + End Function + Private Function NullCHeck2() As Boolean + For Each C As Control In Me.TableLayoutPanel6.Controls + If C.GetType.Name.ToUpper = "IMPCTL" Then + If CType(C, MyControlOLEDBv2.ImpCtl).ȣ <> "" AndAlso CType(C, MyControlOLEDBv2.ImpCtl).üũ Then '//üũȰ Ѵ. + Return True + End If + End If + Next + Return False + End Function + + '''ȭ 信 ī͸ ǥմϴ + Private Sub vcount(ByVal number As String, ByVal lastnum As String) + Me.lb_cnt.Text = number & "/" & lastnum + My.Application.DoEvents() + End Sub + Private Sub RunSrc() '//ƾ ߰ ִ°ͻ̴ (Ÿȣ) + + Dim 1 As String '//մ notnull ̴ + Dim 2 As String '//մ notnull ̴ + Dim 3 As String '//մ notnull ̴ + Dim 4 As String '//մ notnull ̴ + Dim 5 As String '//մ notnull ̴ + Dim 6 As String '//մ notnull ̴ + Dim 7 As String '//մ notnull ̴ + + Dim ˻ As String + + Dim NullChk As Boolean = Me.NullCHeck1 '//̰ üũ + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + + Addlog("=====ġ=====", True) + Addlog2("=====ġ=====", True) + + Dim StartCnt As Integer = CInt(Me.tb_srcstt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_srcend.Text) = 0, Me.srcview.ActiveSheet.RowCount - 1, CInt(Me.tb_srcend.Text)) + + For Each Dr As FarPoint.Win.Spread.Row In Me.srcview.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + vcount(Dr.Index + 1, EndCnt) + NullVal = False + Try + 1 = Me.GetFPData(Me.srcctl1, Dr, Me.srcview).ToUpper + 2 = Me.GetFPData(Me.srcctl2, Dr, Me.srcview).ToUpper + 3 = Me.GetFPData(Me.srcctl3, Dr, Me.srcview).ToUpper + 4 = Me.GetFPData(Me.srcctl4, Dr, Me.srcview).ToUpper + 5 = Me.GetFPData(Me.srcctl5, Dr, Me.srcview).ToUpper + 6 = Me.GetFPData(Me.srcctl6, Dr, Me.srcview).ToUpper + 7 = Me.GetFPData(Me.srcctl7, Dr, Me.srcview).ToUpper + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.srcctl1.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.srcctl2.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.srcctl3.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.srcctl4.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + If Me.srcctl5.üũ Then NullVal &= IIf(5.Trim = "", "", "X") + If Me.srcctl6.üũ Then NullVal &= IIf(6.Trim = "", "", "X") + If Me.srcctl7.üũ Then NullVal &= IIf(7.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + '// ̺κп . + ˻ = CStr(1 & 2 & 3 & 4 & 5 & 6 & 7).Trim + If ˻ = "" Then + Addlog("[X] ˻ ڰ ϴ ٹȣ=" & Dr.Index + 1) + Else + Me.RunDesc(˻, Dr.Index) + End If ' + End If + + Catch ex As ConstraintException '//ߺ + ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + Catch ex As Exception + ' AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + Addlog("[Ϸ] " & Me.ListDel.Count & " ġ ʾҽϴ") + Addlog2("[Ϸ] " & Me.ListOk.Count & " ġմϴ") + If findCnt = 0 Then + MsgBox("ġϴ ϴ" & vbCrLf & vbCrLf & "α׳ ؼ 󼼳 Ȯ ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + MsgBox(findCnt & " ġմϴ" & vbCrLf & vbCrLf & "α׳ ؼ 󼼳 Ȯ ֽϴ", MsgBoxStyle.Information, "Ȯ") + End If + + synclog.Show() + '//arrylist ڿ . + Me.ListDel.Sort() + 'Me.ListDel.Reverse() + For Each Idx As Integer In Me.ListDel + synclog.view1.ActiveSheet.RowCount += 1 '// + For ci As Integer = 0 To Me.srcview.ActiveSheet.ColumnCount - 1 + synclog.view1.ActiveSheet.Cells(synclog.view1.ActiveSheet.RowCount - 1, ci).Text = Me.srcview.ActiveSheet.Cells(Idx, ci).Text + Next + Next + + Me.ListOk.Sort() + 'Me.ListOk.Reverse() + For Each Idx As Integer In Me.ListOk + synclog.view2.ActiveSheet.RowCount += 1 '// + For ci As Integer = 0 To Me.srcview.ActiveSheet.ColumnCount - 1 + synclog.view2.ActiveSheet.Cells(synclog.view2.ActiveSheet.RowCount - 1, ci).Text = Me.srcview.ActiveSheet.Cells(Idx, ci).Text + Next + Next + + 'synclog.view1.SaveExcel("c:\Ը.xls", FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders) + 'synclog.view2.SaveExcel("c:\Ը.xls", FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders) + End Sub + + Private Sub RunDesc(ByVal SearchText As String, ByVal Srcrownum As Integer) '// + '//Ű ˻ؾ ؽƮ . + '//ġϴ ׸ ã쿡 ͸ Ѵ. + '//ãĴ ǹ̴ chk_allcheck ư üũ¿. Ǿ ˻ û ̴. + + Dim 1 As String '//մ notnull ̴ + Dim 2 As String '//մ notnull ̴ + Dim 3 As String '//մ notnull ̴ + Dim 4 As String '//մ notnull ̴ + Dim 5 As String '//մ notnull ̴ + Dim 6 As String '//մ notnull ̴ + Dim 7 As String '//մ notnull ̴ + + Dim NullChk As Boolean = Me.NullCHeck2 '//̰ üũ + Dim NullVal As String = "" + + Dim cnt As Integer = -1 + Dim Find As Boolean = False + + ' Addlog(" Ȯ") + Dim StartCnt As Integer = CInt(Me.tb_desstt.Text) + Dim EndCnt As Integer = IIf(CInt(Me.tb_desend.Text) = 0, Me.desview.ActiveSheet.RowCount - 1, CInt(Me.tb_desend.Text)) + + For Each Dr As FarPoint.Win.Spread.Row In Me.desview.ActiveSheet.Rows '//ο쿡شϴµ ٺѴ + If Dr.Index + 1 >= StartCnt AndAlso Dr.Index + 1 <= EndCnt Then '//ε ̻ϰ쿡 Ѵ. + NullVal = False + Try + 1 = Me.GetFPData(Me.desctl1, Dr, Me.desview).ToUpper + 2 = Me.GetFPData(Me.desctl2, Dr, Me.desview).ToUpper + 3 = Me.GetFPData(Me.desctl3, Dr, Me.desview).ToUpper + 4 = Me.GetFPData(Me.desctl4, Dr, Me.desview).ToUpper + 5 = Me.GetFPData(Me.desctl5, Dr, Me.desview).ToUpper + 6 = Me.GetFPData(Me.desctl6, Dr, Me.desview).ToUpper + 7 = Me.GetFPData(Me.desctl7, Dr, Me.desview).ToUpper + + If NullChk Then '//ΰ üũÿ üũȰ null̶ nullval true ٲ۴. + NullVal = "" + If Me.desctl1.üũ Then NullVal &= IIf(1.Trim = "", "", "X") + If Me.desctl2.üũ Then NullVal &= IIf(2.Trim = "", "", "X") + If Me.desctl3.üũ Then NullVal &= IIf(3.Trim = "", "", "X") + If Me.desctl4.üũ Then NullVal &= IIf(4.Trim = "", "", "X") + If Me.desctl5.üũ Then NullVal &= IIf(5.Trim = "", "", "X") + If Me.desctl6.üũ Then NullVal &= IIf(6.Trim = "", "", "X") + If Me.desctl7.üũ Then NullVal &= IIf(7.Trim = "", "", "X") + Else + NullVal = "X" '//⺻false Ѵ. + End If + + If NullVal.Trim <> "" AndAlso SearchText.Trim.ToUpper = CStr(1 & 2 & 3 & 4 & 5 & 6 & 7).ToUpper Then 'false϶ ߰Ѵ. true ΰǷ Ѿ. + '//Ͽ ãҴ. ׷ ؿ κ ؼ ش 縦 ش. + '//˾ƾҰ ȣ ٹȣ + '//ٹȣ srcrownum ̰ srcview ٹȣ̴. + '//ٹȣ dr.index ϸȴ. + findCnt += 1 '//Ƚ Ѵ. + Find = True + If Me.chk_test.Checked Then + Addlog2("*ǽ [O] " & SearchText & " ٹȣ:" & Srcrownum + 1 & " ٹȣ:" & Dr.Index + 1) + Else + Addlog2("[O] " & SearchText & " ٹȣ:" & Srcrownum + 1 & " ٹȣ:" & Dr.Index + 1) + Apply_Column(Srcrownum, Dr.Index) + End If + If Not Me.chk_allcheck.Checked Then Exit For '// ȮξѴ. + End If + Catch ex As ConstraintException '//ߺ + ' AddLog("ȣߺ", "ߺ ȣ:" & ȣ) + Catch ex As Exception + ' AddLog(ex.InnerException.ToString, ex.Message.ToString) + End Try + End If + Next + + '//ϷǾ ãҴٸ addlog2 ϰ ׷ addlog Ѵ. + If Find = False Then '//ãǷ Ը Ը д + Addlog("[X] " & SearchText & " ٹȣ:" & Srcrownum + 1) + 'synclog.view2.ActiveSheet.Rows(Srcrownum).Remove() + Me.ListDel.Add(Srcrownum) + Else '// ݴ + Me.ListOk.Add(Srcrownum) + 'synclog.view1.ActiveSheet.Rows(Srcrownum).Remove() + End If + 'Addlog(" ȮοϷ") + End Sub + + Private Sub Apply_Column(ByVal srcnum As Integer, ByVal desnum As Integer) + '// ͸ Ѵ. ٹȣ ִ. + '//ĪŰ 8 in1~8 Ǵ out1~8 ̴. in ڸ ɼ ϴ. + '// 8 ġ˴ϴ. + Dim ð As String '//մ notnull ̴ + Dim 2 As String '//մ notnull ̴ + Dim 3 As String '//մ notnull ̴ + Dim 4 As String '//մ notnull ̴ + Dim 5 As String '//մ notnull ̴ + Dim 6 As String '//մ notnull ̴ + Dim 7 As String '//մ notnull ̴ + Dim 8 As String + + ð = Me.GetFPData(Me.in1, desnum, Me.desview).ToUpper + 2 = Me.GetFPData(Me.in2, desnum, Me.desview).ToUpper + 3 = Me.GetFPData(Me.in3, desnum, Me.desview).ToUpper + 4 = Me.GetFPData(Me.in4, desnum, Me.desview).ToUpper + 5 = Me.GetFPData(Me.in5, desnum, Me.desview).ToUpper + 6 = Me.GetFPData(Me.in6, desnum, Me.desview).ToUpper + 7 = Me.GetFPData(Me.in7, desnum, Me.desview).ToUpper + 8 = Me.GetFPData(Me.in8, desnum, Me.desview).ToUpper + + If ð.Length = 3 Then ð = "0" & ð + + SetFpData(srcnum, out1.Text, ð) + SetFpData(srcnum, out2.Text, 2) + SetFpData(srcnum, out3.Text, 3) + + SetFpData(srcnum, out4.Text, 4) + SetFpData(srcnum, out5.Text, 5) + SetFpData(srcnum, out6.Text, 6) + SetFpData(srcnum, out7.Text, 7) + SetFpData(srcnum, out8.Text, 8) + '//͸ Դ. + '//Ƿ out1~8 ش ͸ ϸ ָȴ. + + End Sub + + Private Sub SetFpData(ByVal srcnum As Integer, ByVal colnum As String, ByVal SeTvalue As String, Optional ByVal formatmask As String = "") + '// srcview , ͸ Ѵ. column 0̰ų ̸ ʴ´. + If colnum = "0" OrElse colnum = "" Then Return + If IsNumeric(colnum) = False Then Return '//ڰ ƴϸ ʴ´. + + If SeTvalue = "" Then '//̾ + Addlog("[X] Ϸκ ϴ. ȣ:" & colnum + 1) + Return + End If + + '//⼭ ʹ 0̻ ̴. ش ϴ ȮѴ. + Try + Me.srcview.ActiveSheet.Cells(srcnum, colnum - 1).Text = SeTvalue + Catch ex As Exception + Addlog("ȣ:" & colnum + 1 & " ʰų Ÿ Դϴ") + End Try + + End Sub + + Private Sub Addlog(ByVal Msg As String, Optional ByVal reset As Boolean = False) + If reset Then synclog.RichTextBox1.Clear() + synclog.RichTextBox1.AppendText(Msg & vbCrLf) + End Sub + Private Sub Addlog2(ByVal Msg As String, Optional ByVal reset As Boolean = False) + If reset Then synclog.RichTextBox2.Clear() + synclog.RichTextBox2.AppendText(Msg & vbCrLf) + End Sub + + '//α׺κ ޸𸮷 մϴ + + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click + Me.Close() + End Sub + + + Private Sub srcview_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles srcview.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + ElseIf (e.Data.GetDataPresent(DataFormats.StringFormat)) Then + ' MsgBox("string") + e.Effect = DragDropEffects.Copy + ElseIf (e.Data.GetDataPresent(DataFormats.Text)) Then + ' MsgBox("text") + e.Effect = DragDropEffects.Copy + Else + e.Effect = DragDropEffects.None + End If + End Sub + Private Sub RenameColumnname2() + For i As Integer = 0 To Me.desview.Sheets.Count - 1 + For Each CL As FarPoint.Win.Spread.Column In Me.desview.Sheets(i).Columns + Me.desview.Sheets(i).Columns(CL.Index).Label = CL.Index + 1 + Next + Next + End Sub + Private Sub RenameColumnname1() + For i As Integer = 0 To Me.srcview.Sheets.Count - 1 + For Each CL As FarPoint.Win.Spread.Column In Me.srcview.Sheets(i).Columns + Me.srcview.Sheets(i).Columns(CL.Index).Label = CL.Index + 1 + Next + Next + End Sub + Private Sub desview_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desview.DragEnter + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + e.Effect = DragDropEffects.Copy + ElseIf (e.Data.GetDataPresent(DataFormats.StringFormat)) Then + ' MsgBox("string") + e.Effect = DragDropEffects.Copy + ElseIf (e.Data.GetDataPresent(DataFormats.Text)) Then + ' MsgBox("text") + e.Effect = DragDropEffects.Copy + Else + e.Effect = DragDropEffects.None + End If + End Sub + Private Sub desview_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles desview.DragDrop + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + Dim STR() As String = CType(e.Data.GetData(DataFormats.FileDrop), String()) + If Me.desview.IsExcelFile(STR(0)) = False Then + MsgBox(STR(0) & vbCrLf & " ƴմϴ") + Else + If Me.desview.OpenExcel(STR(0), FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(STR(0) & vbCrLf & " ҷü ϴ") + Else '//ҷ 缳Ѵ. + RenameColumnname1() + End If + End If + ElseIf (e.Data.GetDataPresent(DataFormats.StringFormat)) Then + Dim Fi As New System.IO.FileInfo(e.Data.GetData(DataFormats.StringFormat)) + If Me.desview.IsExcelFile(Fi.FullName) = False Then + MsgBox(Fi.FullName & vbCrLf & " ƴմϴ") + Else + If Me.desview.OpenExcel(Fi.FullName, FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(Fi.FullName & vbCrLf & " ҷü ϴ") + End If + End If + ElseIf (e.Data.GetDataPresent(DataFormats.Text)) Then + Dim STR() As String = CType(e.Data.GetData(DataFormats.Text), String()) + If Me.desview.IsExcelFile(STR(0)) = False Then + MsgBox(STR(0) & vbCrLf & " ƴմϴ") + Else + If Me.desview.OpenExcel(STR(0), FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(STR(0) & vbCrLf & " ҷü ϴ") + End If + End If + End If + End Sub + Private Sub srcview_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles srcview.DragDrop + If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then + Dim STR() As String = CType(e.Data.GetData(DataFormats.FileDrop), String()) + If Me.srcview.IsExcelFile(STR(0)) = False Then + MsgBox(STR(0) & vbCrLf & " ƴմϴ") + Else + If Me.srcview.OpenExcel(STR(0), FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(STR(0) & vbCrLf & " ҷü ϴ") + Else '//ҷ 缳Ѵ. + RenameColumnname1() + End If + End If + ElseIf (e.Data.GetDataPresent(DataFormats.StringFormat)) Then + Dim Fi As New System.IO.FileInfo(e.Data.GetData(DataFormats.StringFormat)) + If Me.srcview.IsExcelFile(Fi.FullName) = False Then + MsgBox(Fi.FullName & vbCrLf & " ƴմϴ") + Else + If Me.srcview.OpenExcel(Fi.FullName, FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(Fi.FullName & vbCrLf & " ҷü ϴ") + End If + End If + ElseIf (e.Data.GetDataPresent(DataFormats.Text)) Then + Dim STR() As String = CType(e.Data.GetData(DataFormats.Text), String()) + If Me.srcview.IsExcelFile(STR(0)) = False Then + MsgBox(STR(0) & vbCrLf & " ƴմϴ") + Else + If Me.srcview.OpenExcel(STR(0), FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) = False Then + MsgBox(STR(0) & vbCrLf & " ҷü ϴ") + End If + End If + End If + End Sub + + Private Sub desview_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) + + End Sub + Private Sub srcview_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) + + End Sub + + + Private Sub bt_srcfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_srcfile.Click + Dim OD As New OpenFileDialog + OD.FileName = Me.Srcfile + OD.Filter = "MS Office Excel WorkSheet(*.xls)|*.xls" + OD.FilterIndex = 1 + ' OD.RestoreDirectory = True + If OD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + MsgBox("ҷⰡ ҵǾϴ", MsgBoxStyle.Critical, "Ȯ") + Else + ReadXls(OD.FileName, Me.srcview) + Me.Srcfile = OD.FileName + RenameColumnname1() + 'synclog.view1.OpenExcel(OD.FileName, FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) '//Ը + 'synclog.view2.OpenExcel(OD.FileName, FarPoint.Excel.ExcelOpenFlags.RowAndColumnHeaders) '//Ը + End If + End Sub + + Private Sub ReadXls(ByVal Filename As String, ByRef custfp1 As FarPoint.Win.Spread.FpSpread) '//Read xls File + + custfp1.OpenExcel(Filename) + For index As Integer = 0 To custfp1.Sheets.Count - 1 + For Each Cl As FarPoint.Win.Spread.Column In custfp1.Sheets(index).Columns '//Set columns label + Cl.Label = Cl.Index + 1 + Next + Next + ''// 5 ̸ īƮ Ѵ. + Dim As Int16 = 0 + For Each Row As FarPoint.Win.Spread.Row In custfp1.ActiveSheet.Rows + If custfp1.ActiveSheet.Cells(Row.Index, 0).Text = "" AndAlso custfp1.ActiveSheet.Cells(Row.Index, 1).Text = "" AndAlso custfp1.ActiveSheet.Cells(Row.Index, 2).Text = "" Then + ' MsgBox(Row.Index) + += 1 + Else + = 0 + End If + If >= 10 Then + ' MsgBox("˻Ϸ" & Row.Index) + custfp1.ActiveSheet.RowCount = Row.Index + 1 - 10 + Exit For + End If + Next + End Sub + + + Private Sub tb_desfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_desfile.Click + Dim OD As New OpenFileDialog + OD.FileName = Me.DesFile + OD.Filter = "MS Office Excel WorkSheet(*.xls)|*.xls" + OD.FilterIndex = 1 + ' OD.RestoreDirectory = True + If OD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + MsgBox("ҷⰡ ҵǾϴ", MsgBoxStyle.Critical, "Ȯ") + Else + ReadXls(OD.FileName, Me.desview) + Me.DesFile = OD.FileName + RenameColumnname2() + End If + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + If MsgBox("Ͻðڽϱ?" & vbCrLf & vbCrLf & "Ϸɋ ϴ", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + MsgBox(" ҵǾϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + findCnt = 0 + Me.ListOk = New ArrayList + Me.ListDel = New ArrayList + Me.Log1 = New ArrayList + Me.log2 = New ArrayList + + + Me.RunSrc() + End Sub + + Private Sub bt_srcsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_srcsave.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + a.FileName = "ٲ.xls" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.srcview.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine("[Ʈȣ] ʺ ʽϴ.") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_dessave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dessave.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + a.FileName = ".xls" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.srcview.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine("[Ʈȣ] ʺ ʽϴ.") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + Private Sub bt_macrosave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_macrosave.Click + If Me.cmb_macro.SelectedIndex <= 0 Then + MsgBox(" ũΰ õʾҽϴ", MsgBoxStyle.Information, "Ȯ") + Return + End If + Me.Save_Setting(Me.cmb_macro.SelectedIndex) + MsgBox("ũΰ Ǿϴ", MsgBoxStyle.Information, "Ȯ") + Me.Load_Macro() + + End Sub + + Private Sub bt_macrosavenew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_macrosavenew.Click + Me.Save_Setting(-999) + MsgBox("ũΰ Ǿϴ", MsgBoxStyle.Information, "Ȯ") + Me.Load_Macro() + End Sub + + Private Sub cmb_macro_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_macro.SelectedIndexChanged + Load_Setting(Me.cmb_macro.SelectedIndex) + End Sub + + Private Sub bt_macrodel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_macrodel.Click + If Me.cmb_macro.SelectedIndex <= 0 Then + MsgBox(" ũΰ õʾҽϴ", MsgBoxStyle.Information, "Ȯ") + Return + End If + File.Delete(Me.Macro(Me.cmb_macro.SelectedIndex - 1).FileName) + MsgBox("ũΰ Ǿϴ", MsgBoxStyle.Information, "Ȯ") + Me.Load_Macro() + End Sub + + Private Sub chk_test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_test.Click + + End Sub +End Class diff --git a/Epole/업로드폼/syncLOg.Designer.vb b/Epole/업로드폼/syncLOg.Designer.vb new file mode 100644 index 0000000..6348e4c --- /dev/null +++ b/Epole/업로드폼/syncLOg.Designer.vb @@ -0,0 +1,4281 @@ + _ +Partial Class synclog + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim TipAppearance1 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType25 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType26 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType27 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType28 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType29 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType30 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType31 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType32 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType33 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType34 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType35 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType36 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType37 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType38 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType39 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType40 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType41 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType42 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType43 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType44 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType45 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType46 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType47 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType48 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType49 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType50 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType51 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType52 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType53 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType54 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType55 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType56 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType57 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType58 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType59 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType60 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType61 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType62 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType63 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType64 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType65 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType66 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType67 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType68 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType69 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType70 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType71 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType72 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType73 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType74 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType75 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType76 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType77 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType78 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType79 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType80 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType81 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType82 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType83 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType84 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType85 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType86 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType87 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType88 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType89 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType90 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType91 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType92 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType93 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType94 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType95 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType96 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType97 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType98 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType99 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType100 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType101 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType102 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType103 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType104 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType105 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType106 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType107 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType108 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType109 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType110 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType111 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType112 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType113 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType114 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType115 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType116 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType117 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType118 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType119 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType120 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType121 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType122 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType123 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType124 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType125 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType126 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType127 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType128 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType129 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType130 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType131 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType132 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType133 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType134 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType135 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType136 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType137 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType138 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType139 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType140 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType141 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType142 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType143 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType144 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType145 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType146 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType147 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType148 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType149 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType150 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType151 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType152 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType153 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType154 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType155 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType156 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType157 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType158 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType159 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType160 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType161 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType162 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType163 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType164 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType165 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType166 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType167 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType168 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType169 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType170 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType171 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType172 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType173 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType174 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType175 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType176 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType177 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType178 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType179 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType180 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType181 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType182 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType183 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType184 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType185 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType186 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType187 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType188 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType189 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType190 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType191 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType192 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType193 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType194 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType195 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType196 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType197 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType198 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType199 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType200 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType201 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType202 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType203 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType204 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType205 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType206 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType207 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType208 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType209 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType210 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType211 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType212 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType213 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType214 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType215 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType216 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType217 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType218 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType219 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType220 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType221 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType222 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType223 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType224 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType225 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType226 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType227 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType228 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType229 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType230 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType231 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType232 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType233 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType234 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType235 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType236 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType237 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType238 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType239 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType240 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType241 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType242 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType243 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType244 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType245 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType246 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType247 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType248 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType249 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType250 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType251 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType252 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType253 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType254 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType255 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType256 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType257 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType258 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType259 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType260 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType261 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType262 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType263 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType264 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType265 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType266 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType267 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType268 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType269 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType270 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType271 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType272 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType273 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType274 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType275 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType276 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType277 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType278 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType279 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType280 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType281 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType282 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType283 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType284 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType285 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType286 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType287 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType288 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType289 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType290 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType291 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType292 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType293 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType294 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType295 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType296 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType297 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType298 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType299 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType300 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType301 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType302 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType303 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType304 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType305 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType306 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType307 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType308 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType309 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType310 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType311 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType312 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType313 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType314 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType315 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType316 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType317 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType318 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType319 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType320 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType321 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType322 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType323 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType324 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType325 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType326 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType327 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType328 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType329 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType330 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType331 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType332 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType333 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType334 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType335 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType336 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType337 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType338 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType339 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType340 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType341 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType342 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType343 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType344 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType345 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType346 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType347 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType348 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType349 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType350 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType351 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType352 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType353 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType354 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType355 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType356 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType357 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType358 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType359 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType360 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType361 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType362 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType363 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType364 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType365 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType366 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType367 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType368 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType369 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType370 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType371 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType372 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType373 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType374 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType375 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType376 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType377 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType378 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType379 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType380 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType381 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType382 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType383 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType384 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType385 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType386 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType387 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType388 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType389 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType390 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType391 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType392 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType393 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType394 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType395 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType396 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType397 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType398 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType399 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType400 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType401 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType402 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType403 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType404 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType405 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType406 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType407 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType408 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType409 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType410 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType411 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType412 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType413 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType414 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType415 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType416 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType417 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType418 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType419 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType420 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType421 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType422 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType423 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType424 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType425 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType426 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType427 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType428 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType429 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType430 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType431 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType432 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType433 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType434 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType435 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType436 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType437 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType438 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType439 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType440 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType441 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType442 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType443 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType444 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType445 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType446 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType447 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType448 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType449 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType450 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType451 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType452 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType453 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType454 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType455 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType456 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType457 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType458 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType459 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType460 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType461 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType462 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType463 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType464 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType465 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType466 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType467 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType468 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType469 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType470 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType471 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType472 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType473 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType474 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType475 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType476 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType477 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType478 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType479 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType480 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType481 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType482 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType483 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType484 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType485 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType486 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType487 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType488 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType489 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType490 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType491 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType492 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType493 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType494 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType495 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType496 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType497 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType498 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType499 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType500 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TipAppearance2 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim TextCellType501 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType502 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType503 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType504 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType505 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType506 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType507 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType508 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType509 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType510 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType511 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType512 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType513 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType514 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType515 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType516 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType517 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType518 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType519 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType520 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType521 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType522 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType523 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType524 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType525 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType526 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType527 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType528 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType529 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType530 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType531 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType532 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType533 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType534 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType535 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType536 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType537 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType538 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType539 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType540 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType541 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType542 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType543 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType544 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType545 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType546 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType547 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType548 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType549 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType550 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType551 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType552 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType553 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType554 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType555 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType556 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType557 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType558 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType559 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType560 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType561 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType562 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType563 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType564 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType565 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType566 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType567 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType568 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType569 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType570 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType571 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType572 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType573 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType574 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType575 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType576 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType577 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType578 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType579 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType580 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType581 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType582 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType583 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType584 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType585 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType586 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType587 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType588 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType589 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType590 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType591 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType592 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType593 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType594 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType595 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType596 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType597 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType598 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType599 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType600 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType601 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType602 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType603 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType604 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType605 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType606 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType607 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType608 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType609 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType610 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType611 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType612 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType613 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType614 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType615 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType616 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType617 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType618 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType619 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType620 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType621 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType622 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType623 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType624 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType625 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType626 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType627 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType628 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType629 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType630 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType631 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType632 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType633 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType634 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType635 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType636 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType637 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType638 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType639 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType640 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType641 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType642 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType643 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType644 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType645 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType646 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType647 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType648 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType649 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType650 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType651 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType652 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType653 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType654 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType655 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType656 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType657 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType658 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType659 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType660 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType661 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType662 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType663 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType664 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType665 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType666 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType667 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType668 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType669 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType670 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType671 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType672 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType673 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType674 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType675 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType676 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType677 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType678 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType679 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType680 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType681 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType682 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType683 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType684 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType685 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType686 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType687 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType688 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType689 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType690 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType691 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType692 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType693 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType694 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType695 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType696 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType697 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType698 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType699 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType700 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType701 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType702 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType703 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType704 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType705 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType706 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType707 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType708 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType709 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType710 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType711 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType712 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType713 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType714 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType715 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType716 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType717 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType718 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType719 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType720 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType721 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType722 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType723 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType724 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType725 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType726 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType727 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType728 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType729 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType730 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType731 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType732 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType733 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType734 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType735 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType736 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType737 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType738 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType739 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType740 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType741 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType742 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType743 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType744 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType745 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType746 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType747 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType748 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType749 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType750 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType751 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType752 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType753 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType754 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType755 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType756 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType757 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType758 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType759 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType760 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType761 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType762 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType763 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType764 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType765 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType766 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType767 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType768 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType769 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType770 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType771 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType772 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType773 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType774 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType775 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType776 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType777 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType778 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType779 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType780 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType781 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType782 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType783 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType784 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType785 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType786 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType787 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType788 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType789 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType790 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType791 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType792 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType793 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType794 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType795 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType796 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType797 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType798 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType799 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType800 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType801 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType802 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType803 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType804 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType805 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType806 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType807 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType808 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType809 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType810 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType811 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType812 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType813 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType814 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType815 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType816 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType817 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType818 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType819 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType820 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType821 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType822 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType823 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType824 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType825 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType826 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType827 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType828 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType829 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType830 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType831 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType832 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType833 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType834 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType835 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType836 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType837 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType838 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType839 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType840 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType841 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType842 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType843 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType844 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType845 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType846 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType847 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType848 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType849 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType850 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType851 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType852 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType853 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType854 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType855 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType856 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType857 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType858 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType859 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType860 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType861 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType862 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType863 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType864 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType865 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType866 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType867 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType868 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType869 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType870 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType871 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType872 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType873 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType874 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType875 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType876 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType877 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType878 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType879 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType880 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType881 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType882 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType883 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType884 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType885 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType886 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType887 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType888 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType889 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType890 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType891 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType892 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType893 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType894 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType895 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType896 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType897 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType898 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType899 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType900 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType901 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType902 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType903 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType904 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType905 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType906 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType907 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType908 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType909 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType910 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType911 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType912 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType913 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType914 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType915 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType916 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType917 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType918 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType919 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType920 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType921 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType922 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType923 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType924 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType925 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType926 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType927 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType928 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType929 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType930 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType931 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType932 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType933 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType934 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType935 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType936 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType937 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType938 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType939 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType940 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType941 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType942 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType943 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType944 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType945 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType946 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType947 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType948 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType949 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType950 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType951 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType952 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType953 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType954 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType955 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType956 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType957 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType958 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType959 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType960 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType961 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType962 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType963 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType964 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType965 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType966 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType967 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType968 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType969 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType970 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType971 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType972 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType973 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType974 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType975 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType976 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType977 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType978 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType979 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType980 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType981 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType982 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType983 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType984 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType985 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType986 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType987 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType988 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType989 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType990 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType991 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType992 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType993 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType994 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType995 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType996 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType997 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType998 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType999 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType1000 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + 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.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.RichTextBox2 = New System.Windows.Forms.RichTextBox + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem + Me.view1 = New MyControlOLEDBv2.MyFpoint + Me.save1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_out1 = New System.Windows.Forms.ToolStripMenuItem + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.view2 = New MyControlOLEDBv2.MyFpoint + Me.view2_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.save2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem + Me.ContextMenuStrip1.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.ContextMenuStrip2.SuspendLayout() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.save1.SuspendLayout() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view2_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.save2.SuspendLayout() + Me.SuspendLayout() + ' + 'RichTextBox1 + ' + Me.RichTextBox1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.RichTextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichTextBox1.Location = New System.Drawing.Point(3, 455) + Me.RichTextBox1.Name = "RichTextBox1" + Me.RichTextBox1.Size = New System.Drawing.Size(482, 156) + 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(135, 54) + ' + 'bt_clear + ' + Me.bt_clear.Name = "bt_clear" + Me.bt_clear.Size = New System.Drawing.Size(134, 22) + Me.bt_clear.Text = "모두지우기" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(131, 6) + ' + 'bt_savelist + ' + Me.bt_savelist.Name = "bt_savelist" + Me.bt_savelist.Size = New System.Drawing.Size(134, 22) + Me.bt_savelist.Text = "저장" + ' + '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.RichTextBox2, 1, 1) + Me.TableLayoutPanel1.Controls.Add(Me.RichTextBox1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.view1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.view2, 1, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 162.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(976, 614) + Me.TableLayoutPanel1.TabIndex = 1 + ' + 'RichTextBox2 + ' + Me.RichTextBox2.ContextMenuStrip = Me.ContextMenuStrip2 + Me.RichTextBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.RichTextBox2.Location = New System.Drawing.Point(491, 455) + Me.RichTextBox2.Name = "RichTextBox2" + Me.RichTextBox2.Size = New System.Drawing.Size(482, 156) + Me.RichTextBox2.TabIndex = 1 + Me.RichTextBox2.Text = "" + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ToolStripSeparator1, Me.ToolStripMenuItem3}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip1" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(135, 54) + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(134, 22) + Me.ToolStripMenuItem2.Text = "모두지우기" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(131, 6) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(134, 22) + Me.ToolStripMenuItem3.Text = "저장" + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Nothing + Me.view1.About = "3.0.2003.2005" + Me.view1.AccessibleDescription = "view1, Sheet1, Row 0, Column 0, " + Me.view1.BackColor = System.Drawing.SystemColors.Control + Me.view1.ContextMenuStrip = Me.save1 + Me.view1.CurrentDel = False + Me.view1.DeleteKey = False + Me.view1.Dock = System.Windows.Forms.DockStyle.Fill + Me.view1.EditFromSpace = True + Me.view1.FIRST_FOCUSINDEX = 0 + Me.view1.Location = New System.Drawing.Point(3, 3) + Me.view1.Name = "view1" + Me.view1.NextRow_Index = -1 + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.SameRowheight = True + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(482, 446) + Me.view1.TabIndex = 2 + TipAppearance1.BackColor = System.Drawing.SystemColors.Info + TipAppearance1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance1.ForeColor = System.Drawing.SystemColors.InfoText + Me.view1.TextTipAppearance = TipAppearance1 + Me.view1.선택줄번호 = CType(-1, Short) + ' + 'save1 + ' + Me.save1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_out1}) + Me.save1.Name = "save1" + Me.save1.Size = New System.Drawing.Size(123, 26) + ' + 'bt_out1 + ' + Me.bt_out1.Name = "bt_out1" + Me.bt_out1.Size = New System.Drawing.Size(122, 22) + Me.bt_out1.Text = "내보내기" + ' + '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.RowCount = 0 + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 36.0! + Me.view1_Sheet1.Columns.Get(0).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 65.0! + Me.view1_Sheet1.Columns.Get(1).CellType = TextCellType2 + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType21 + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType22 + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType23 + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType24 + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType25 + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType26 + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType27 + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).CellType = TextCellType28 + Me.view1_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).CellType = TextCellType29 + Me.view1_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).CellType = TextCellType30 + Me.view1_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).CellType = TextCellType31 + Me.view1_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).CellType = TextCellType32 + Me.view1_Sheet1.Columns.Get(31).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(32).CellType = TextCellType33 + Me.view1_Sheet1.Columns.Get(32).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(32).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).CellType = TextCellType34 + Me.view1_Sheet1.Columns.Get(33).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).CellType = TextCellType35 + Me.view1_Sheet1.Columns.Get(34).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(35).CellType = TextCellType36 + Me.view1_Sheet1.Columns.Get(35).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(35).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(36).CellType = TextCellType37 + Me.view1_Sheet1.Columns.Get(36).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(36).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(37).CellType = TextCellType38 + Me.view1_Sheet1.Columns.Get(37).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(37).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(38).CellType = TextCellType39 + Me.view1_Sheet1.Columns.Get(38).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(38).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(39).CellType = TextCellType40 + Me.view1_Sheet1.Columns.Get(39).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(39).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(40).CellType = TextCellType41 + Me.view1_Sheet1.Columns.Get(40).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(40).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(41).CellType = TextCellType42 + Me.view1_Sheet1.Columns.Get(41).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(41).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(42).CellType = TextCellType43 + Me.view1_Sheet1.Columns.Get(42).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(42).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(43).CellType = TextCellType44 + Me.view1_Sheet1.Columns.Get(43).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(43).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(44).CellType = TextCellType45 + Me.view1_Sheet1.Columns.Get(44).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(44).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(45).CellType = TextCellType46 + Me.view1_Sheet1.Columns.Get(45).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(45).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(46).CellType = TextCellType47 + Me.view1_Sheet1.Columns.Get(46).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(46).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(47).CellType = TextCellType48 + Me.view1_Sheet1.Columns.Get(47).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(47).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(48).CellType = TextCellType49 + Me.view1_Sheet1.Columns.Get(48).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(48).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(49).CellType = TextCellType50 + Me.view1_Sheet1.Columns.Get(49).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(49).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(50).CellType = TextCellType51 + Me.view1_Sheet1.Columns.Get(50).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(50).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(51).CellType = TextCellType52 + Me.view1_Sheet1.Columns.Get(51).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(51).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(52).CellType = TextCellType53 + Me.view1_Sheet1.Columns.Get(52).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(52).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(53).CellType = TextCellType54 + Me.view1_Sheet1.Columns.Get(53).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(53).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(54).CellType = TextCellType55 + Me.view1_Sheet1.Columns.Get(54).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(54).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(55).CellType = TextCellType56 + Me.view1_Sheet1.Columns.Get(55).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(55).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(56).CellType = TextCellType57 + Me.view1_Sheet1.Columns.Get(56).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(56).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(57).CellType = TextCellType58 + Me.view1_Sheet1.Columns.Get(57).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(57).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(58).CellType = TextCellType59 + Me.view1_Sheet1.Columns.Get(58).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(58).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(59).CellType = TextCellType60 + Me.view1_Sheet1.Columns.Get(59).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(59).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(60).CellType = TextCellType61 + Me.view1_Sheet1.Columns.Get(60).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(60).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(61).CellType = TextCellType62 + Me.view1_Sheet1.Columns.Get(61).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(61).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(62).CellType = TextCellType63 + Me.view1_Sheet1.Columns.Get(62).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(62).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(63).CellType = TextCellType64 + Me.view1_Sheet1.Columns.Get(63).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(63).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(64).CellType = TextCellType65 + Me.view1_Sheet1.Columns.Get(64).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(64).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(65).CellType = TextCellType66 + Me.view1_Sheet1.Columns.Get(65).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(65).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(66).CellType = TextCellType67 + Me.view1_Sheet1.Columns.Get(66).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(66).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(67).CellType = TextCellType68 + Me.view1_Sheet1.Columns.Get(67).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(67).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(68).CellType = TextCellType69 + Me.view1_Sheet1.Columns.Get(68).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(68).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(69).CellType = TextCellType70 + Me.view1_Sheet1.Columns.Get(69).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(69).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(70).CellType = TextCellType71 + Me.view1_Sheet1.Columns.Get(70).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(70).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(71).CellType = TextCellType72 + Me.view1_Sheet1.Columns.Get(71).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(71).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(72).CellType = TextCellType73 + Me.view1_Sheet1.Columns.Get(72).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(72).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(73).CellType = TextCellType74 + Me.view1_Sheet1.Columns.Get(73).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(73).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(74).CellType = TextCellType75 + Me.view1_Sheet1.Columns.Get(74).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(74).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(75).CellType = TextCellType76 + Me.view1_Sheet1.Columns.Get(75).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(75).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(76).CellType = TextCellType77 + Me.view1_Sheet1.Columns.Get(76).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(76).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(77).CellType = TextCellType78 + Me.view1_Sheet1.Columns.Get(77).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(77).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(78).CellType = TextCellType79 + Me.view1_Sheet1.Columns.Get(78).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(78).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(79).CellType = TextCellType80 + Me.view1_Sheet1.Columns.Get(79).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(79).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(80).CellType = TextCellType81 + Me.view1_Sheet1.Columns.Get(80).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(80).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(81).CellType = TextCellType82 + Me.view1_Sheet1.Columns.Get(81).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(81).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(82).CellType = TextCellType83 + Me.view1_Sheet1.Columns.Get(82).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(82).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(83).CellType = TextCellType84 + Me.view1_Sheet1.Columns.Get(83).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(83).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(84).CellType = TextCellType85 + Me.view1_Sheet1.Columns.Get(84).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(84).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(85).CellType = TextCellType86 + Me.view1_Sheet1.Columns.Get(85).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(85).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(86).CellType = TextCellType87 + Me.view1_Sheet1.Columns.Get(86).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(86).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(87).CellType = TextCellType88 + Me.view1_Sheet1.Columns.Get(87).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(87).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(88).CellType = TextCellType89 + Me.view1_Sheet1.Columns.Get(88).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(88).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(89).CellType = TextCellType90 + Me.view1_Sheet1.Columns.Get(89).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(89).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(90).CellType = TextCellType91 + Me.view1_Sheet1.Columns.Get(90).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(90).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(91).CellType = TextCellType92 + Me.view1_Sheet1.Columns.Get(91).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(91).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(92).CellType = TextCellType93 + Me.view1_Sheet1.Columns.Get(92).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(92).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(93).CellType = TextCellType94 + Me.view1_Sheet1.Columns.Get(93).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(93).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(94).CellType = TextCellType95 + Me.view1_Sheet1.Columns.Get(94).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(94).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(95).CellType = TextCellType96 + Me.view1_Sheet1.Columns.Get(95).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(95).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(96).CellType = TextCellType97 + Me.view1_Sheet1.Columns.Get(96).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(96).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(97).CellType = TextCellType98 + Me.view1_Sheet1.Columns.Get(97).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(97).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(98).CellType = TextCellType99 + Me.view1_Sheet1.Columns.Get(98).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(98).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(99).CellType = TextCellType100 + Me.view1_Sheet1.Columns.Get(99).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(99).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(100).CellType = TextCellType101 + Me.view1_Sheet1.Columns.Get(100).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(100).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(101).CellType = TextCellType102 + Me.view1_Sheet1.Columns.Get(101).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(101).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(102).CellType = TextCellType103 + Me.view1_Sheet1.Columns.Get(102).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(102).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(103).CellType = TextCellType104 + Me.view1_Sheet1.Columns.Get(103).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(103).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(104).CellType = TextCellType105 + Me.view1_Sheet1.Columns.Get(104).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(104).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(105).CellType = TextCellType106 + Me.view1_Sheet1.Columns.Get(105).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(105).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(106).CellType = TextCellType107 + Me.view1_Sheet1.Columns.Get(106).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(106).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(107).CellType = TextCellType108 + Me.view1_Sheet1.Columns.Get(107).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(107).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(108).CellType = TextCellType109 + Me.view1_Sheet1.Columns.Get(108).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(108).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(109).CellType = TextCellType110 + Me.view1_Sheet1.Columns.Get(109).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(109).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(110).CellType = TextCellType111 + Me.view1_Sheet1.Columns.Get(110).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(110).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(111).CellType = TextCellType112 + Me.view1_Sheet1.Columns.Get(111).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(111).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(112).CellType = TextCellType113 + Me.view1_Sheet1.Columns.Get(112).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(112).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(113).CellType = TextCellType114 + Me.view1_Sheet1.Columns.Get(113).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(113).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(114).CellType = TextCellType115 + Me.view1_Sheet1.Columns.Get(114).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(114).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(115).CellType = TextCellType116 + Me.view1_Sheet1.Columns.Get(115).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(115).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(116).CellType = TextCellType117 + Me.view1_Sheet1.Columns.Get(116).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(116).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(117).CellType = TextCellType118 + Me.view1_Sheet1.Columns.Get(117).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(117).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(118).CellType = TextCellType119 + Me.view1_Sheet1.Columns.Get(118).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(118).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(119).CellType = TextCellType120 + Me.view1_Sheet1.Columns.Get(119).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(119).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(120).CellType = TextCellType121 + Me.view1_Sheet1.Columns.Get(120).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(120).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(121).CellType = TextCellType122 + Me.view1_Sheet1.Columns.Get(121).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(121).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(122).CellType = TextCellType123 + Me.view1_Sheet1.Columns.Get(122).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(122).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(123).CellType = TextCellType124 + Me.view1_Sheet1.Columns.Get(123).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(123).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(124).CellType = TextCellType125 + Me.view1_Sheet1.Columns.Get(124).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(124).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(125).CellType = TextCellType126 + Me.view1_Sheet1.Columns.Get(125).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(125).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(126).CellType = TextCellType127 + Me.view1_Sheet1.Columns.Get(126).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(126).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(127).CellType = TextCellType128 + Me.view1_Sheet1.Columns.Get(127).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(127).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(128).CellType = TextCellType129 + Me.view1_Sheet1.Columns.Get(128).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(128).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(129).CellType = TextCellType130 + Me.view1_Sheet1.Columns.Get(129).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(129).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(130).CellType = TextCellType131 + Me.view1_Sheet1.Columns.Get(130).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(130).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(131).CellType = TextCellType132 + Me.view1_Sheet1.Columns.Get(131).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(131).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(132).CellType = TextCellType133 + Me.view1_Sheet1.Columns.Get(132).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(132).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(133).CellType = TextCellType134 + Me.view1_Sheet1.Columns.Get(133).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(133).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(134).CellType = TextCellType135 + Me.view1_Sheet1.Columns.Get(134).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(134).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(135).CellType = TextCellType136 + Me.view1_Sheet1.Columns.Get(135).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(135).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(136).CellType = TextCellType137 + Me.view1_Sheet1.Columns.Get(136).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(136).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(137).CellType = TextCellType138 + Me.view1_Sheet1.Columns.Get(137).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(137).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(138).CellType = TextCellType139 + Me.view1_Sheet1.Columns.Get(138).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(138).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(139).CellType = TextCellType140 + Me.view1_Sheet1.Columns.Get(139).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(139).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(140).CellType = TextCellType141 + Me.view1_Sheet1.Columns.Get(140).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(140).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(141).CellType = TextCellType142 + Me.view1_Sheet1.Columns.Get(141).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(141).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(142).CellType = TextCellType143 + Me.view1_Sheet1.Columns.Get(142).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(142).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(143).CellType = TextCellType144 + Me.view1_Sheet1.Columns.Get(143).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(143).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(144).CellType = TextCellType145 + Me.view1_Sheet1.Columns.Get(144).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(144).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(145).CellType = TextCellType146 + Me.view1_Sheet1.Columns.Get(145).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(145).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(146).CellType = TextCellType147 + Me.view1_Sheet1.Columns.Get(146).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(146).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(147).CellType = TextCellType148 + Me.view1_Sheet1.Columns.Get(147).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(147).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(148).CellType = TextCellType149 + Me.view1_Sheet1.Columns.Get(148).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(148).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(149).CellType = TextCellType150 + Me.view1_Sheet1.Columns.Get(149).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(149).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(150).CellType = TextCellType151 + Me.view1_Sheet1.Columns.Get(150).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(150).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(151).CellType = TextCellType152 + Me.view1_Sheet1.Columns.Get(151).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(151).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(152).CellType = TextCellType153 + Me.view1_Sheet1.Columns.Get(152).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(152).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(153).CellType = TextCellType154 + Me.view1_Sheet1.Columns.Get(153).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(153).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(154).CellType = TextCellType155 + Me.view1_Sheet1.Columns.Get(154).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(154).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(155).CellType = TextCellType156 + Me.view1_Sheet1.Columns.Get(155).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(155).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(156).CellType = TextCellType157 + Me.view1_Sheet1.Columns.Get(156).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(156).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(157).CellType = TextCellType158 + Me.view1_Sheet1.Columns.Get(157).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(157).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(158).CellType = TextCellType159 + Me.view1_Sheet1.Columns.Get(158).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(158).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(159).CellType = TextCellType160 + Me.view1_Sheet1.Columns.Get(159).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(159).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(160).CellType = TextCellType161 + Me.view1_Sheet1.Columns.Get(160).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(160).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(161).CellType = TextCellType162 + Me.view1_Sheet1.Columns.Get(161).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(161).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(162).CellType = TextCellType163 + Me.view1_Sheet1.Columns.Get(162).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(162).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(163).CellType = TextCellType164 + Me.view1_Sheet1.Columns.Get(163).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(163).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(164).CellType = TextCellType165 + Me.view1_Sheet1.Columns.Get(164).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(164).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(165).CellType = TextCellType166 + Me.view1_Sheet1.Columns.Get(165).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(165).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(166).CellType = TextCellType167 + Me.view1_Sheet1.Columns.Get(166).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(166).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(167).CellType = TextCellType168 + Me.view1_Sheet1.Columns.Get(167).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(167).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(168).CellType = TextCellType169 + Me.view1_Sheet1.Columns.Get(168).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(168).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(169).CellType = TextCellType170 + Me.view1_Sheet1.Columns.Get(169).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(169).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(170).CellType = TextCellType171 + Me.view1_Sheet1.Columns.Get(170).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(170).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(171).CellType = TextCellType172 + Me.view1_Sheet1.Columns.Get(171).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(171).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(172).CellType = TextCellType173 + Me.view1_Sheet1.Columns.Get(172).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(172).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(173).CellType = TextCellType174 + Me.view1_Sheet1.Columns.Get(173).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(173).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(174).CellType = TextCellType175 + Me.view1_Sheet1.Columns.Get(174).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(174).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(175).CellType = TextCellType176 + Me.view1_Sheet1.Columns.Get(175).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(175).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(176).CellType = TextCellType177 + Me.view1_Sheet1.Columns.Get(176).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(176).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(177).CellType = TextCellType178 + Me.view1_Sheet1.Columns.Get(177).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(177).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(178).CellType = TextCellType179 + Me.view1_Sheet1.Columns.Get(178).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(178).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(179).CellType = TextCellType180 + Me.view1_Sheet1.Columns.Get(179).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(179).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(180).CellType = TextCellType181 + Me.view1_Sheet1.Columns.Get(180).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(180).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(181).CellType = TextCellType182 + Me.view1_Sheet1.Columns.Get(181).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(181).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(182).CellType = TextCellType183 + Me.view1_Sheet1.Columns.Get(182).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(182).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(183).CellType = TextCellType184 + Me.view1_Sheet1.Columns.Get(183).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(183).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(184).CellType = TextCellType185 + Me.view1_Sheet1.Columns.Get(184).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(184).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(185).CellType = TextCellType186 + Me.view1_Sheet1.Columns.Get(185).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(185).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(186).CellType = TextCellType187 + Me.view1_Sheet1.Columns.Get(186).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(186).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(187).CellType = TextCellType188 + Me.view1_Sheet1.Columns.Get(187).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(187).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(188).CellType = TextCellType189 + Me.view1_Sheet1.Columns.Get(188).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(188).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(189).CellType = TextCellType190 + Me.view1_Sheet1.Columns.Get(189).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(189).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(190).CellType = TextCellType191 + Me.view1_Sheet1.Columns.Get(190).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(190).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(191).CellType = TextCellType192 + Me.view1_Sheet1.Columns.Get(191).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(191).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(192).CellType = TextCellType193 + Me.view1_Sheet1.Columns.Get(192).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(192).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(193).CellType = TextCellType194 + Me.view1_Sheet1.Columns.Get(193).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(193).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(194).CellType = TextCellType195 + Me.view1_Sheet1.Columns.Get(194).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(194).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(195).CellType = TextCellType196 + Me.view1_Sheet1.Columns.Get(195).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(195).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(196).CellType = TextCellType197 + Me.view1_Sheet1.Columns.Get(196).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(196).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(197).CellType = TextCellType198 + Me.view1_Sheet1.Columns.Get(197).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(197).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(198).CellType = TextCellType199 + Me.view1_Sheet1.Columns.Get(198).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(198).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(199).CellType = TextCellType200 + Me.view1_Sheet1.Columns.Get(199).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(199).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(200).CellType = TextCellType201 + Me.view1_Sheet1.Columns.Get(200).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(200).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(201).CellType = TextCellType202 + Me.view1_Sheet1.Columns.Get(201).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(201).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(202).CellType = TextCellType203 + Me.view1_Sheet1.Columns.Get(202).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(202).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(203).CellType = TextCellType204 + Me.view1_Sheet1.Columns.Get(203).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(203).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(204).CellType = TextCellType205 + Me.view1_Sheet1.Columns.Get(204).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(204).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(205).CellType = TextCellType206 + Me.view1_Sheet1.Columns.Get(205).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(205).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(206).CellType = TextCellType207 + Me.view1_Sheet1.Columns.Get(206).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(206).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(207).CellType = TextCellType208 + Me.view1_Sheet1.Columns.Get(207).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(207).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(208).CellType = TextCellType209 + Me.view1_Sheet1.Columns.Get(208).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(208).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(209).CellType = TextCellType210 + Me.view1_Sheet1.Columns.Get(209).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(209).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(210).CellType = TextCellType211 + Me.view1_Sheet1.Columns.Get(210).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(210).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(211).CellType = TextCellType212 + Me.view1_Sheet1.Columns.Get(211).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(211).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(212).CellType = TextCellType213 + Me.view1_Sheet1.Columns.Get(212).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(212).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(213).CellType = TextCellType214 + Me.view1_Sheet1.Columns.Get(213).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(213).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(214).CellType = TextCellType215 + Me.view1_Sheet1.Columns.Get(214).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(214).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(215).CellType = TextCellType216 + Me.view1_Sheet1.Columns.Get(215).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(215).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(216).CellType = TextCellType217 + Me.view1_Sheet1.Columns.Get(216).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(216).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(217).CellType = TextCellType218 + Me.view1_Sheet1.Columns.Get(217).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(217).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(218).CellType = TextCellType219 + Me.view1_Sheet1.Columns.Get(218).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(218).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(219).CellType = TextCellType220 + Me.view1_Sheet1.Columns.Get(219).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(219).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(220).CellType = TextCellType221 + Me.view1_Sheet1.Columns.Get(220).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(220).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(221).CellType = TextCellType222 + Me.view1_Sheet1.Columns.Get(221).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(221).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(222).CellType = TextCellType223 + Me.view1_Sheet1.Columns.Get(222).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(222).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(223).CellType = TextCellType224 + Me.view1_Sheet1.Columns.Get(223).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(223).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(224).CellType = TextCellType225 + Me.view1_Sheet1.Columns.Get(224).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(224).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(225).CellType = TextCellType226 + Me.view1_Sheet1.Columns.Get(225).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(225).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(226).CellType = TextCellType227 + Me.view1_Sheet1.Columns.Get(226).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(226).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(227).CellType = TextCellType228 + Me.view1_Sheet1.Columns.Get(227).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(227).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(228).CellType = TextCellType229 + Me.view1_Sheet1.Columns.Get(228).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(228).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(229).CellType = TextCellType230 + Me.view1_Sheet1.Columns.Get(229).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(229).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(230).CellType = TextCellType231 + Me.view1_Sheet1.Columns.Get(230).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(230).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(231).CellType = TextCellType232 + Me.view1_Sheet1.Columns.Get(231).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(231).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(232).CellType = TextCellType233 + Me.view1_Sheet1.Columns.Get(232).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(232).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(233).CellType = TextCellType234 + Me.view1_Sheet1.Columns.Get(233).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(233).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(234).CellType = TextCellType235 + Me.view1_Sheet1.Columns.Get(234).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(234).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(235).CellType = TextCellType236 + Me.view1_Sheet1.Columns.Get(235).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(235).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(236).CellType = TextCellType237 + Me.view1_Sheet1.Columns.Get(236).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(236).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(237).CellType = TextCellType238 + Me.view1_Sheet1.Columns.Get(237).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(237).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(238).CellType = TextCellType239 + Me.view1_Sheet1.Columns.Get(238).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(238).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(239).CellType = TextCellType240 + Me.view1_Sheet1.Columns.Get(239).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(239).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(240).CellType = TextCellType241 + Me.view1_Sheet1.Columns.Get(240).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(240).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(241).CellType = TextCellType242 + Me.view1_Sheet1.Columns.Get(241).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(241).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(242).CellType = TextCellType243 + Me.view1_Sheet1.Columns.Get(242).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(242).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(243).CellType = TextCellType244 + Me.view1_Sheet1.Columns.Get(243).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(243).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(244).CellType = TextCellType245 + Me.view1_Sheet1.Columns.Get(244).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(244).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(245).CellType = TextCellType246 + Me.view1_Sheet1.Columns.Get(245).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(245).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(246).CellType = TextCellType247 + Me.view1_Sheet1.Columns.Get(246).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(246).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(247).CellType = TextCellType248 + Me.view1_Sheet1.Columns.Get(247).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(247).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(248).CellType = TextCellType249 + Me.view1_Sheet1.Columns.Get(248).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(248).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(249).CellType = TextCellType250 + Me.view1_Sheet1.Columns.Get(249).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(249).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(250).CellType = TextCellType251 + Me.view1_Sheet1.Columns.Get(250).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(250).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(251).CellType = TextCellType252 + Me.view1_Sheet1.Columns.Get(251).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(251).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(252).CellType = TextCellType253 + Me.view1_Sheet1.Columns.Get(252).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(252).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(253).CellType = TextCellType254 + Me.view1_Sheet1.Columns.Get(253).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(253).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(254).CellType = TextCellType255 + Me.view1_Sheet1.Columns.Get(254).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(254).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(255).CellType = TextCellType256 + Me.view1_Sheet1.Columns.Get(255).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(255).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(256).CellType = TextCellType257 + Me.view1_Sheet1.Columns.Get(256).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(256).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(257).CellType = TextCellType258 + Me.view1_Sheet1.Columns.Get(257).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(257).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(258).CellType = TextCellType259 + Me.view1_Sheet1.Columns.Get(258).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(258).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(259).CellType = TextCellType260 + Me.view1_Sheet1.Columns.Get(259).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(259).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(260).CellType = TextCellType261 + Me.view1_Sheet1.Columns.Get(260).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(260).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(261).CellType = TextCellType262 + Me.view1_Sheet1.Columns.Get(261).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(261).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(262).CellType = TextCellType263 + Me.view1_Sheet1.Columns.Get(262).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(262).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(263).CellType = TextCellType264 + Me.view1_Sheet1.Columns.Get(263).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(263).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(264).CellType = TextCellType265 + Me.view1_Sheet1.Columns.Get(264).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(264).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(265).CellType = TextCellType266 + Me.view1_Sheet1.Columns.Get(265).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(265).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(266).CellType = TextCellType267 + Me.view1_Sheet1.Columns.Get(266).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(266).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(267).CellType = TextCellType268 + Me.view1_Sheet1.Columns.Get(267).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(267).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(268).CellType = TextCellType269 + Me.view1_Sheet1.Columns.Get(268).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(268).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(269).CellType = TextCellType270 + Me.view1_Sheet1.Columns.Get(269).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(269).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(270).CellType = TextCellType271 + Me.view1_Sheet1.Columns.Get(270).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(270).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(271).CellType = TextCellType272 + Me.view1_Sheet1.Columns.Get(271).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(271).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(272).CellType = TextCellType273 + Me.view1_Sheet1.Columns.Get(272).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(272).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(273).CellType = TextCellType274 + Me.view1_Sheet1.Columns.Get(273).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(273).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(274).CellType = TextCellType275 + Me.view1_Sheet1.Columns.Get(274).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(274).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(275).CellType = TextCellType276 + Me.view1_Sheet1.Columns.Get(275).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(275).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(276).CellType = TextCellType277 + Me.view1_Sheet1.Columns.Get(276).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(276).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(277).CellType = TextCellType278 + Me.view1_Sheet1.Columns.Get(277).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(277).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(278).CellType = TextCellType279 + Me.view1_Sheet1.Columns.Get(278).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(278).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(279).CellType = TextCellType280 + Me.view1_Sheet1.Columns.Get(279).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(279).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(280).CellType = TextCellType281 + Me.view1_Sheet1.Columns.Get(280).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(280).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(281).CellType = TextCellType282 + Me.view1_Sheet1.Columns.Get(281).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(281).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(282).CellType = TextCellType283 + Me.view1_Sheet1.Columns.Get(282).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(282).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(283).CellType = TextCellType284 + Me.view1_Sheet1.Columns.Get(283).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(283).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(284).CellType = TextCellType285 + Me.view1_Sheet1.Columns.Get(284).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(284).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(285).CellType = TextCellType286 + Me.view1_Sheet1.Columns.Get(285).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(285).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(286).CellType = TextCellType287 + Me.view1_Sheet1.Columns.Get(286).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(286).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(287).CellType = TextCellType288 + Me.view1_Sheet1.Columns.Get(287).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(287).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(288).CellType = TextCellType289 + Me.view1_Sheet1.Columns.Get(288).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(288).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(289).CellType = TextCellType290 + Me.view1_Sheet1.Columns.Get(289).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(289).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(290).CellType = TextCellType291 + Me.view1_Sheet1.Columns.Get(290).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(290).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(291).CellType = TextCellType292 + Me.view1_Sheet1.Columns.Get(291).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(291).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(292).CellType = TextCellType293 + Me.view1_Sheet1.Columns.Get(292).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(292).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(293).CellType = TextCellType294 + Me.view1_Sheet1.Columns.Get(293).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(293).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(294).CellType = TextCellType295 + Me.view1_Sheet1.Columns.Get(294).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(294).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(295).CellType = TextCellType296 + Me.view1_Sheet1.Columns.Get(295).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(295).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(296).CellType = TextCellType297 + Me.view1_Sheet1.Columns.Get(296).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(296).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(297).CellType = TextCellType298 + Me.view1_Sheet1.Columns.Get(297).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(297).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(298).CellType = TextCellType299 + Me.view1_Sheet1.Columns.Get(298).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(298).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(299).CellType = TextCellType300 + Me.view1_Sheet1.Columns.Get(299).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(299).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(300).CellType = TextCellType301 + Me.view1_Sheet1.Columns.Get(300).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(300).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(301).CellType = TextCellType302 + Me.view1_Sheet1.Columns.Get(301).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(301).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(302).CellType = TextCellType303 + Me.view1_Sheet1.Columns.Get(302).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(302).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(303).CellType = TextCellType304 + Me.view1_Sheet1.Columns.Get(303).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(303).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(304).CellType = TextCellType305 + Me.view1_Sheet1.Columns.Get(304).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(304).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(305).CellType = TextCellType306 + Me.view1_Sheet1.Columns.Get(305).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(305).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(306).CellType = TextCellType307 + Me.view1_Sheet1.Columns.Get(306).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(306).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(307).CellType = TextCellType308 + Me.view1_Sheet1.Columns.Get(307).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(307).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(308).CellType = TextCellType309 + Me.view1_Sheet1.Columns.Get(308).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(308).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(309).CellType = TextCellType310 + Me.view1_Sheet1.Columns.Get(309).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(309).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(310).CellType = TextCellType311 + Me.view1_Sheet1.Columns.Get(310).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(310).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(311).CellType = TextCellType312 + Me.view1_Sheet1.Columns.Get(311).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(311).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(312).CellType = TextCellType313 + Me.view1_Sheet1.Columns.Get(312).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(312).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(313).CellType = TextCellType314 + Me.view1_Sheet1.Columns.Get(313).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(313).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(314).CellType = TextCellType315 + Me.view1_Sheet1.Columns.Get(314).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(314).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(315).CellType = TextCellType316 + Me.view1_Sheet1.Columns.Get(315).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(315).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(316).CellType = TextCellType317 + Me.view1_Sheet1.Columns.Get(316).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(316).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(317).CellType = TextCellType318 + Me.view1_Sheet1.Columns.Get(317).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(317).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(318).CellType = TextCellType319 + Me.view1_Sheet1.Columns.Get(318).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(318).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(319).CellType = TextCellType320 + Me.view1_Sheet1.Columns.Get(319).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(319).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(320).CellType = TextCellType321 + Me.view1_Sheet1.Columns.Get(320).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(320).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(321).CellType = TextCellType322 + Me.view1_Sheet1.Columns.Get(321).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(321).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(322).CellType = TextCellType323 + Me.view1_Sheet1.Columns.Get(322).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(322).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(323).CellType = TextCellType324 + Me.view1_Sheet1.Columns.Get(323).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(323).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(324).CellType = TextCellType325 + Me.view1_Sheet1.Columns.Get(324).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(324).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(325).CellType = TextCellType326 + Me.view1_Sheet1.Columns.Get(325).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(325).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(326).CellType = TextCellType327 + Me.view1_Sheet1.Columns.Get(326).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(326).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(327).CellType = TextCellType328 + Me.view1_Sheet1.Columns.Get(327).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(327).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(328).CellType = TextCellType329 + Me.view1_Sheet1.Columns.Get(328).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(328).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(329).CellType = TextCellType330 + Me.view1_Sheet1.Columns.Get(329).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(329).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(330).CellType = TextCellType331 + Me.view1_Sheet1.Columns.Get(330).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(330).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(331).CellType = TextCellType332 + Me.view1_Sheet1.Columns.Get(331).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(331).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(332).CellType = TextCellType333 + Me.view1_Sheet1.Columns.Get(332).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(332).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(333).CellType = TextCellType334 + Me.view1_Sheet1.Columns.Get(333).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(333).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(334).CellType = TextCellType335 + Me.view1_Sheet1.Columns.Get(334).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(334).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(335).CellType = TextCellType336 + Me.view1_Sheet1.Columns.Get(335).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(335).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(336).CellType = TextCellType337 + Me.view1_Sheet1.Columns.Get(336).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(336).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(337).CellType = TextCellType338 + Me.view1_Sheet1.Columns.Get(337).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(337).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(338).CellType = TextCellType339 + Me.view1_Sheet1.Columns.Get(338).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(338).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(339).CellType = TextCellType340 + Me.view1_Sheet1.Columns.Get(339).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(339).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(340).CellType = TextCellType341 + Me.view1_Sheet1.Columns.Get(340).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(340).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(341).CellType = TextCellType342 + Me.view1_Sheet1.Columns.Get(341).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(341).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(342).CellType = TextCellType343 + Me.view1_Sheet1.Columns.Get(342).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(342).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(343).CellType = TextCellType344 + Me.view1_Sheet1.Columns.Get(343).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(343).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(344).CellType = TextCellType345 + Me.view1_Sheet1.Columns.Get(344).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(344).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(345).CellType = TextCellType346 + Me.view1_Sheet1.Columns.Get(345).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(345).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(346).CellType = TextCellType347 + Me.view1_Sheet1.Columns.Get(346).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(346).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(347).CellType = TextCellType348 + Me.view1_Sheet1.Columns.Get(347).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(347).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(348).CellType = TextCellType349 + Me.view1_Sheet1.Columns.Get(348).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(348).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(349).CellType = TextCellType350 + Me.view1_Sheet1.Columns.Get(349).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(349).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(350).CellType = TextCellType351 + Me.view1_Sheet1.Columns.Get(350).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(350).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(351).CellType = TextCellType352 + Me.view1_Sheet1.Columns.Get(351).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(351).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(352).CellType = TextCellType353 + Me.view1_Sheet1.Columns.Get(352).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(352).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(353).CellType = TextCellType354 + Me.view1_Sheet1.Columns.Get(353).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(353).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(354).CellType = TextCellType355 + Me.view1_Sheet1.Columns.Get(354).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(354).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(355).CellType = TextCellType356 + Me.view1_Sheet1.Columns.Get(355).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(355).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(356).CellType = TextCellType357 + Me.view1_Sheet1.Columns.Get(356).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(356).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(357).CellType = TextCellType358 + Me.view1_Sheet1.Columns.Get(357).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(357).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(358).CellType = TextCellType359 + Me.view1_Sheet1.Columns.Get(358).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(358).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(359).CellType = TextCellType360 + Me.view1_Sheet1.Columns.Get(359).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(359).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(360).CellType = TextCellType361 + Me.view1_Sheet1.Columns.Get(360).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(360).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(361).CellType = TextCellType362 + Me.view1_Sheet1.Columns.Get(361).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(361).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(362).CellType = TextCellType363 + Me.view1_Sheet1.Columns.Get(362).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(362).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(363).CellType = TextCellType364 + Me.view1_Sheet1.Columns.Get(363).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(363).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(364).CellType = TextCellType365 + Me.view1_Sheet1.Columns.Get(364).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(364).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(365).CellType = TextCellType366 + Me.view1_Sheet1.Columns.Get(365).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(365).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(366).CellType = TextCellType367 + Me.view1_Sheet1.Columns.Get(366).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(366).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(367).CellType = TextCellType368 + Me.view1_Sheet1.Columns.Get(367).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(367).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(368).CellType = TextCellType369 + Me.view1_Sheet1.Columns.Get(368).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(368).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(369).CellType = TextCellType370 + Me.view1_Sheet1.Columns.Get(369).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(369).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(370).CellType = TextCellType371 + Me.view1_Sheet1.Columns.Get(370).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(370).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(371).CellType = TextCellType372 + Me.view1_Sheet1.Columns.Get(371).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(371).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(372).CellType = TextCellType373 + Me.view1_Sheet1.Columns.Get(372).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(372).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(373).CellType = TextCellType374 + Me.view1_Sheet1.Columns.Get(373).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(373).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(374).CellType = TextCellType375 + Me.view1_Sheet1.Columns.Get(374).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(374).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(375).CellType = TextCellType376 + Me.view1_Sheet1.Columns.Get(375).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(375).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(376).CellType = TextCellType377 + Me.view1_Sheet1.Columns.Get(376).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(376).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(377).CellType = TextCellType378 + Me.view1_Sheet1.Columns.Get(377).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(377).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(378).CellType = TextCellType379 + Me.view1_Sheet1.Columns.Get(378).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(378).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(379).CellType = TextCellType380 + Me.view1_Sheet1.Columns.Get(379).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(379).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(380).CellType = TextCellType381 + Me.view1_Sheet1.Columns.Get(380).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(380).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(381).CellType = TextCellType382 + Me.view1_Sheet1.Columns.Get(381).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(381).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(382).CellType = TextCellType383 + Me.view1_Sheet1.Columns.Get(382).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(382).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(383).CellType = TextCellType384 + Me.view1_Sheet1.Columns.Get(383).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(383).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(384).CellType = TextCellType385 + Me.view1_Sheet1.Columns.Get(384).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(384).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(385).CellType = TextCellType386 + Me.view1_Sheet1.Columns.Get(385).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(385).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(386).CellType = TextCellType387 + Me.view1_Sheet1.Columns.Get(386).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(386).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(387).CellType = TextCellType388 + Me.view1_Sheet1.Columns.Get(387).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(387).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(388).CellType = TextCellType389 + Me.view1_Sheet1.Columns.Get(388).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(388).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(389).CellType = TextCellType390 + Me.view1_Sheet1.Columns.Get(389).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(389).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(390).CellType = TextCellType391 + Me.view1_Sheet1.Columns.Get(390).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(390).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(391).CellType = TextCellType392 + Me.view1_Sheet1.Columns.Get(391).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(391).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(392).CellType = TextCellType393 + Me.view1_Sheet1.Columns.Get(392).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(392).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(393).CellType = TextCellType394 + Me.view1_Sheet1.Columns.Get(393).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(393).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(394).CellType = TextCellType395 + Me.view1_Sheet1.Columns.Get(394).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(394).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(395).CellType = TextCellType396 + Me.view1_Sheet1.Columns.Get(395).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(395).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(396).CellType = TextCellType397 + Me.view1_Sheet1.Columns.Get(396).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(396).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(397).CellType = TextCellType398 + Me.view1_Sheet1.Columns.Get(397).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(397).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(398).CellType = TextCellType399 + Me.view1_Sheet1.Columns.Get(398).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(398).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(399).CellType = TextCellType400 + Me.view1_Sheet1.Columns.Get(399).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(399).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(400).CellType = TextCellType401 + Me.view1_Sheet1.Columns.Get(400).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(400).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(401).CellType = TextCellType402 + Me.view1_Sheet1.Columns.Get(401).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(401).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(402).CellType = TextCellType403 + Me.view1_Sheet1.Columns.Get(402).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(402).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(403).CellType = TextCellType404 + Me.view1_Sheet1.Columns.Get(403).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(403).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(404).CellType = TextCellType405 + Me.view1_Sheet1.Columns.Get(404).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(404).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(405).CellType = TextCellType406 + Me.view1_Sheet1.Columns.Get(405).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(405).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(406).CellType = TextCellType407 + Me.view1_Sheet1.Columns.Get(406).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(406).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(407).CellType = TextCellType408 + Me.view1_Sheet1.Columns.Get(407).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(407).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(408).CellType = TextCellType409 + Me.view1_Sheet1.Columns.Get(408).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(408).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(409).CellType = TextCellType410 + Me.view1_Sheet1.Columns.Get(409).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(409).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(410).CellType = TextCellType411 + Me.view1_Sheet1.Columns.Get(410).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(410).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(411).CellType = TextCellType412 + Me.view1_Sheet1.Columns.Get(411).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(411).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(412).CellType = TextCellType413 + Me.view1_Sheet1.Columns.Get(412).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(412).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(413).CellType = TextCellType414 + Me.view1_Sheet1.Columns.Get(413).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(413).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(414).CellType = TextCellType415 + Me.view1_Sheet1.Columns.Get(414).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(414).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(415).CellType = TextCellType416 + Me.view1_Sheet1.Columns.Get(415).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(415).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(416).CellType = TextCellType417 + Me.view1_Sheet1.Columns.Get(416).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(416).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(417).CellType = TextCellType418 + Me.view1_Sheet1.Columns.Get(417).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(417).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(418).CellType = TextCellType419 + Me.view1_Sheet1.Columns.Get(418).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(418).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(419).CellType = TextCellType420 + Me.view1_Sheet1.Columns.Get(419).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(419).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(420).CellType = TextCellType421 + Me.view1_Sheet1.Columns.Get(420).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(420).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(421).CellType = TextCellType422 + Me.view1_Sheet1.Columns.Get(421).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(421).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(422).CellType = TextCellType423 + Me.view1_Sheet1.Columns.Get(422).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(422).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(423).CellType = TextCellType424 + Me.view1_Sheet1.Columns.Get(423).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(423).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(424).CellType = TextCellType425 + Me.view1_Sheet1.Columns.Get(424).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(424).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(425).CellType = TextCellType426 + Me.view1_Sheet1.Columns.Get(425).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(425).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(426).CellType = TextCellType427 + Me.view1_Sheet1.Columns.Get(426).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(426).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(427).CellType = TextCellType428 + Me.view1_Sheet1.Columns.Get(427).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(427).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(428).CellType = TextCellType429 + Me.view1_Sheet1.Columns.Get(428).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(428).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(429).CellType = TextCellType430 + Me.view1_Sheet1.Columns.Get(429).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(429).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(430).CellType = TextCellType431 + Me.view1_Sheet1.Columns.Get(430).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(430).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(431).CellType = TextCellType432 + Me.view1_Sheet1.Columns.Get(431).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(431).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(432).CellType = TextCellType433 + Me.view1_Sheet1.Columns.Get(432).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(432).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(433).CellType = TextCellType434 + Me.view1_Sheet1.Columns.Get(433).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(433).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(434).CellType = TextCellType435 + Me.view1_Sheet1.Columns.Get(434).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(434).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(435).CellType = TextCellType436 + Me.view1_Sheet1.Columns.Get(435).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(435).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(436).CellType = TextCellType437 + Me.view1_Sheet1.Columns.Get(436).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(436).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(437).CellType = TextCellType438 + Me.view1_Sheet1.Columns.Get(437).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(437).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(438).CellType = TextCellType439 + Me.view1_Sheet1.Columns.Get(438).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(438).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(439).CellType = TextCellType440 + Me.view1_Sheet1.Columns.Get(439).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(439).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(440).CellType = TextCellType441 + Me.view1_Sheet1.Columns.Get(440).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(440).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(441).CellType = TextCellType442 + Me.view1_Sheet1.Columns.Get(441).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(441).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(442).CellType = TextCellType443 + Me.view1_Sheet1.Columns.Get(442).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(442).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(443).CellType = TextCellType444 + Me.view1_Sheet1.Columns.Get(443).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(443).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(444).CellType = TextCellType445 + Me.view1_Sheet1.Columns.Get(444).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(444).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(445).CellType = TextCellType446 + Me.view1_Sheet1.Columns.Get(445).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(445).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(446).CellType = TextCellType447 + Me.view1_Sheet1.Columns.Get(446).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(446).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(447).CellType = TextCellType448 + Me.view1_Sheet1.Columns.Get(447).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(447).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(448).CellType = TextCellType449 + Me.view1_Sheet1.Columns.Get(448).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(448).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(449).CellType = TextCellType450 + Me.view1_Sheet1.Columns.Get(449).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(449).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(450).CellType = TextCellType451 + Me.view1_Sheet1.Columns.Get(450).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(450).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(451).CellType = TextCellType452 + Me.view1_Sheet1.Columns.Get(451).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(451).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(452).CellType = TextCellType453 + Me.view1_Sheet1.Columns.Get(452).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(452).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(453).CellType = TextCellType454 + Me.view1_Sheet1.Columns.Get(453).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(453).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(454).CellType = TextCellType455 + Me.view1_Sheet1.Columns.Get(454).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(454).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(455).CellType = TextCellType456 + Me.view1_Sheet1.Columns.Get(455).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(455).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(456).CellType = TextCellType457 + Me.view1_Sheet1.Columns.Get(456).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(456).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(457).CellType = TextCellType458 + Me.view1_Sheet1.Columns.Get(457).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(457).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(458).CellType = TextCellType459 + Me.view1_Sheet1.Columns.Get(458).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(458).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(459).CellType = TextCellType460 + Me.view1_Sheet1.Columns.Get(459).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(459).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(460).CellType = TextCellType461 + Me.view1_Sheet1.Columns.Get(460).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(460).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(461).CellType = TextCellType462 + Me.view1_Sheet1.Columns.Get(461).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(461).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(462).CellType = TextCellType463 + Me.view1_Sheet1.Columns.Get(462).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(462).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(463).CellType = TextCellType464 + Me.view1_Sheet1.Columns.Get(463).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(463).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(464).CellType = TextCellType465 + Me.view1_Sheet1.Columns.Get(464).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(464).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(465).CellType = TextCellType466 + Me.view1_Sheet1.Columns.Get(465).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(465).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(466).CellType = TextCellType467 + Me.view1_Sheet1.Columns.Get(466).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(466).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(467).CellType = TextCellType468 + Me.view1_Sheet1.Columns.Get(467).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(467).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(468).CellType = TextCellType469 + Me.view1_Sheet1.Columns.Get(468).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(468).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(469).CellType = TextCellType470 + Me.view1_Sheet1.Columns.Get(469).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(469).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(470).CellType = TextCellType471 + Me.view1_Sheet1.Columns.Get(470).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(470).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(471).CellType = TextCellType472 + Me.view1_Sheet1.Columns.Get(471).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(471).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(472).CellType = TextCellType473 + Me.view1_Sheet1.Columns.Get(472).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(472).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(473).CellType = TextCellType474 + Me.view1_Sheet1.Columns.Get(473).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(473).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(474).CellType = TextCellType475 + Me.view1_Sheet1.Columns.Get(474).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(474).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(475).CellType = TextCellType476 + Me.view1_Sheet1.Columns.Get(475).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(475).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(476).CellType = TextCellType477 + Me.view1_Sheet1.Columns.Get(476).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(476).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(477).CellType = TextCellType478 + Me.view1_Sheet1.Columns.Get(477).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(477).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(478).CellType = TextCellType479 + Me.view1_Sheet1.Columns.Get(478).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(478).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(479).CellType = TextCellType480 + Me.view1_Sheet1.Columns.Get(479).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(479).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(480).CellType = TextCellType481 + Me.view1_Sheet1.Columns.Get(480).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(480).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(481).CellType = TextCellType482 + Me.view1_Sheet1.Columns.Get(481).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(481).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(482).CellType = TextCellType483 + Me.view1_Sheet1.Columns.Get(482).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(482).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(483).CellType = TextCellType484 + Me.view1_Sheet1.Columns.Get(483).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(483).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(484).CellType = TextCellType485 + Me.view1_Sheet1.Columns.Get(484).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(484).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(485).CellType = TextCellType486 + Me.view1_Sheet1.Columns.Get(485).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(485).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(486).CellType = TextCellType487 + Me.view1_Sheet1.Columns.Get(486).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(486).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(487).CellType = TextCellType488 + Me.view1_Sheet1.Columns.Get(487).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(487).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(488).CellType = TextCellType489 + Me.view1_Sheet1.Columns.Get(488).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(488).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(489).CellType = TextCellType490 + Me.view1_Sheet1.Columns.Get(489).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(489).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(490).CellType = TextCellType491 + Me.view1_Sheet1.Columns.Get(490).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(490).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(491).CellType = TextCellType492 + Me.view1_Sheet1.Columns.Get(491).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(491).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(492).CellType = TextCellType493 + Me.view1_Sheet1.Columns.Get(492).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(492).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(493).CellType = TextCellType494 + Me.view1_Sheet1.Columns.Get(493).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(493).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(494).CellType = TextCellType495 + Me.view1_Sheet1.Columns.Get(494).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(494).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(495).CellType = TextCellType496 + Me.view1_Sheet1.Columns.Get(495).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(495).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(496).CellType = TextCellType497 + Me.view1_Sheet1.Columns.Get(496).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(496).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(497).CellType = TextCellType498 + Me.view1_Sheet1.Columns.Get(497).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(497).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(498).CellType = TextCellType499 + Me.view1_Sheet1.Columns.Get(498).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(498).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(499).CellType = TextCellType500 + Me.view1_Sheet1.Columns.Get(499).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(499).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view1_Sheet1.ZoomFactor = 0.95! + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view1.SetActiveViewport(0, 1, 0) + ' + 'view2 + ' + Me.view2.AAutoAddrowInLast = Nothing + Me.view2.About = "3.0.2003.2005" + Me.view2.AccessibleDescription = "view2, Sheet1, Row 0, Column 0, " + Me.view2.BackColor = System.Drawing.SystemColors.Control + Me.view2.CurrentDel = False + Me.view2.DeleteKey = False + Me.view2.Dock = System.Windows.Forms.DockStyle.Fill + Me.view2.EditFromSpace = True + Me.view2.FIRST_FOCUSINDEX = 0 + Me.view2.Location = New System.Drawing.Point(491, 3) + Me.view2.Name = "view2" + Me.view2.NextRow_Index = -1 + Me.view2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view2.SameRowheight = True + Me.view2.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view2_Sheet1}) + Me.view2.Size = New System.Drawing.Size(482, 446) + Me.view2.TabIndex = 3 + TipAppearance2.BackColor = System.Drawing.SystemColors.Info + TipAppearance2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance2.ForeColor = System.Drawing.SystemColors.InfoText + Me.view2.TextTipAppearance = TipAppearance2 + Me.view2.선택줄번호 = CType(-1, Short) + ' + 'view2_Sheet1 + ' + Me.view2_Sheet1.Reset() + Me.view2_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.view2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.view2_Sheet1.RowCount = 0 + Me.view2_Sheet1.ColumnHeader.Rows.Get(0).Height = 34.0! + Me.view2_Sheet1.Columns.Get(0).CellType = TextCellType501 + Me.view2_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(1).CellType = TextCellType502 + Me.view2_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(2).CellType = TextCellType503 + Me.view2_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(3).CellType = TextCellType504 + Me.view2_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(4).CellType = TextCellType505 + Me.view2_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(5).CellType = TextCellType506 + Me.view2_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(6).CellType = TextCellType507 + Me.view2_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(7).CellType = TextCellType508 + Me.view2_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(8).CellType = TextCellType509 + Me.view2_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(9).CellType = TextCellType510 + Me.view2_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(10).CellType = TextCellType511 + Me.view2_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(11).CellType = TextCellType512 + Me.view2_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(12).CellType = TextCellType513 + Me.view2_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(13).CellType = TextCellType514 + Me.view2_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(14).CellType = TextCellType515 + Me.view2_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(15).CellType = TextCellType516 + Me.view2_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(16).CellType = TextCellType517 + Me.view2_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(17).CellType = TextCellType518 + Me.view2_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(18).CellType = TextCellType519 + Me.view2_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(19).CellType = TextCellType520 + Me.view2_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(20).CellType = TextCellType521 + Me.view2_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(21).CellType = TextCellType522 + Me.view2_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(22).CellType = TextCellType523 + Me.view2_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(23).CellType = TextCellType524 + Me.view2_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(24).CellType = TextCellType525 + Me.view2_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(25).CellType = TextCellType526 + Me.view2_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(26).CellType = TextCellType527 + Me.view2_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(27).CellType = TextCellType528 + Me.view2_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(28).CellType = TextCellType529 + Me.view2_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(29).CellType = TextCellType530 + Me.view2_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(30).CellType = TextCellType531 + Me.view2_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(31).CellType = TextCellType532 + Me.view2_Sheet1.Columns.Get(31).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(32).CellType = TextCellType533 + Me.view2_Sheet1.Columns.Get(32).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(32).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(33).CellType = TextCellType534 + Me.view2_Sheet1.Columns.Get(33).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(33).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(34).CellType = TextCellType535 + Me.view2_Sheet1.Columns.Get(34).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(34).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(35).CellType = TextCellType536 + Me.view2_Sheet1.Columns.Get(35).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(35).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(36).CellType = TextCellType537 + Me.view2_Sheet1.Columns.Get(36).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(36).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(37).CellType = TextCellType538 + Me.view2_Sheet1.Columns.Get(37).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(37).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(38).CellType = TextCellType539 + Me.view2_Sheet1.Columns.Get(38).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(38).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(39).CellType = TextCellType540 + Me.view2_Sheet1.Columns.Get(39).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(39).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(40).CellType = TextCellType541 + Me.view2_Sheet1.Columns.Get(40).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(40).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(41).CellType = TextCellType542 + Me.view2_Sheet1.Columns.Get(41).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(41).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(42).CellType = TextCellType543 + Me.view2_Sheet1.Columns.Get(42).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(42).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(43).CellType = TextCellType544 + Me.view2_Sheet1.Columns.Get(43).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(43).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(44).CellType = TextCellType545 + Me.view2_Sheet1.Columns.Get(44).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(44).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(45).CellType = TextCellType546 + Me.view2_Sheet1.Columns.Get(45).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(45).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(46).CellType = TextCellType547 + Me.view2_Sheet1.Columns.Get(46).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(46).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(47).CellType = TextCellType548 + Me.view2_Sheet1.Columns.Get(47).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(47).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(48).CellType = TextCellType549 + Me.view2_Sheet1.Columns.Get(48).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(48).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(49).CellType = TextCellType550 + Me.view2_Sheet1.Columns.Get(49).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(49).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(50).CellType = TextCellType551 + Me.view2_Sheet1.Columns.Get(50).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(50).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(51).CellType = TextCellType552 + Me.view2_Sheet1.Columns.Get(51).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(51).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(52).CellType = TextCellType553 + Me.view2_Sheet1.Columns.Get(52).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(52).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(53).CellType = TextCellType554 + Me.view2_Sheet1.Columns.Get(53).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(53).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(54).CellType = TextCellType555 + Me.view2_Sheet1.Columns.Get(54).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(54).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(55).CellType = TextCellType556 + Me.view2_Sheet1.Columns.Get(55).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(55).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(56).CellType = TextCellType557 + Me.view2_Sheet1.Columns.Get(56).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(56).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(57).CellType = TextCellType558 + Me.view2_Sheet1.Columns.Get(57).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(57).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(58).CellType = TextCellType559 + Me.view2_Sheet1.Columns.Get(58).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(58).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(59).CellType = TextCellType560 + Me.view2_Sheet1.Columns.Get(59).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(59).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(60).CellType = TextCellType561 + Me.view2_Sheet1.Columns.Get(60).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(60).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(61).CellType = TextCellType562 + Me.view2_Sheet1.Columns.Get(61).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(61).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(62).CellType = TextCellType563 + Me.view2_Sheet1.Columns.Get(62).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(62).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(63).CellType = TextCellType564 + Me.view2_Sheet1.Columns.Get(63).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(63).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(64).CellType = TextCellType565 + Me.view2_Sheet1.Columns.Get(64).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(64).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(65).CellType = TextCellType566 + Me.view2_Sheet1.Columns.Get(65).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(65).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(66).CellType = TextCellType567 + Me.view2_Sheet1.Columns.Get(66).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(66).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(67).CellType = TextCellType568 + Me.view2_Sheet1.Columns.Get(67).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(67).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(68).CellType = TextCellType569 + Me.view2_Sheet1.Columns.Get(68).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(68).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(69).CellType = TextCellType570 + Me.view2_Sheet1.Columns.Get(69).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(69).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(70).CellType = TextCellType571 + Me.view2_Sheet1.Columns.Get(70).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(70).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(71).CellType = TextCellType572 + Me.view2_Sheet1.Columns.Get(71).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(71).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(72).CellType = TextCellType573 + Me.view2_Sheet1.Columns.Get(72).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(72).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(73).CellType = TextCellType574 + Me.view2_Sheet1.Columns.Get(73).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(73).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(74).CellType = TextCellType575 + Me.view2_Sheet1.Columns.Get(74).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(74).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(75).CellType = TextCellType576 + Me.view2_Sheet1.Columns.Get(75).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(75).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(76).CellType = TextCellType577 + Me.view2_Sheet1.Columns.Get(76).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(76).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(77).CellType = TextCellType578 + Me.view2_Sheet1.Columns.Get(77).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(77).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(78).CellType = TextCellType579 + Me.view2_Sheet1.Columns.Get(78).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(78).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(79).CellType = TextCellType580 + Me.view2_Sheet1.Columns.Get(79).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(79).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(80).CellType = TextCellType581 + Me.view2_Sheet1.Columns.Get(80).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(80).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(81).CellType = TextCellType582 + Me.view2_Sheet1.Columns.Get(81).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(81).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(82).CellType = TextCellType583 + Me.view2_Sheet1.Columns.Get(82).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(82).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(83).CellType = TextCellType584 + Me.view2_Sheet1.Columns.Get(83).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(83).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(84).CellType = TextCellType585 + Me.view2_Sheet1.Columns.Get(84).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(84).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(85).CellType = TextCellType586 + Me.view2_Sheet1.Columns.Get(85).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(85).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(86).CellType = TextCellType587 + Me.view2_Sheet1.Columns.Get(86).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(86).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(87).CellType = TextCellType588 + Me.view2_Sheet1.Columns.Get(87).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(87).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(88).CellType = TextCellType589 + Me.view2_Sheet1.Columns.Get(88).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(88).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(89).CellType = TextCellType590 + Me.view2_Sheet1.Columns.Get(89).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(89).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(90).CellType = TextCellType591 + Me.view2_Sheet1.Columns.Get(90).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(90).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(91).CellType = TextCellType592 + Me.view2_Sheet1.Columns.Get(91).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(91).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(92).CellType = TextCellType593 + Me.view2_Sheet1.Columns.Get(92).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(92).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(93).CellType = TextCellType594 + Me.view2_Sheet1.Columns.Get(93).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(93).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(94).CellType = TextCellType595 + Me.view2_Sheet1.Columns.Get(94).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(94).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(95).CellType = TextCellType596 + Me.view2_Sheet1.Columns.Get(95).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(95).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(96).CellType = TextCellType597 + Me.view2_Sheet1.Columns.Get(96).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(96).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(97).CellType = TextCellType598 + Me.view2_Sheet1.Columns.Get(97).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(97).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(98).CellType = TextCellType599 + Me.view2_Sheet1.Columns.Get(98).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(98).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(99).CellType = TextCellType600 + Me.view2_Sheet1.Columns.Get(99).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(99).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(100).CellType = TextCellType601 + Me.view2_Sheet1.Columns.Get(100).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(100).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(101).CellType = TextCellType602 + Me.view2_Sheet1.Columns.Get(101).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(101).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(102).CellType = TextCellType603 + Me.view2_Sheet1.Columns.Get(102).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(102).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(103).CellType = TextCellType604 + Me.view2_Sheet1.Columns.Get(103).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(103).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(104).CellType = TextCellType605 + Me.view2_Sheet1.Columns.Get(104).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(104).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(105).CellType = TextCellType606 + Me.view2_Sheet1.Columns.Get(105).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(105).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(106).CellType = TextCellType607 + Me.view2_Sheet1.Columns.Get(106).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(106).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(107).CellType = TextCellType608 + Me.view2_Sheet1.Columns.Get(107).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(107).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(108).CellType = TextCellType609 + Me.view2_Sheet1.Columns.Get(108).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(108).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(109).CellType = TextCellType610 + Me.view2_Sheet1.Columns.Get(109).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(109).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(110).CellType = TextCellType611 + Me.view2_Sheet1.Columns.Get(110).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(110).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(111).CellType = TextCellType612 + Me.view2_Sheet1.Columns.Get(111).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(111).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(112).CellType = TextCellType613 + Me.view2_Sheet1.Columns.Get(112).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(112).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(113).CellType = TextCellType614 + Me.view2_Sheet1.Columns.Get(113).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(113).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(114).CellType = TextCellType615 + Me.view2_Sheet1.Columns.Get(114).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(114).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(115).CellType = TextCellType616 + Me.view2_Sheet1.Columns.Get(115).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(115).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(116).CellType = TextCellType617 + Me.view2_Sheet1.Columns.Get(116).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(116).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(117).CellType = TextCellType618 + Me.view2_Sheet1.Columns.Get(117).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(117).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(118).CellType = TextCellType619 + Me.view2_Sheet1.Columns.Get(118).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(118).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(119).CellType = TextCellType620 + Me.view2_Sheet1.Columns.Get(119).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(119).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(120).CellType = TextCellType621 + Me.view2_Sheet1.Columns.Get(120).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(120).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(121).CellType = TextCellType622 + Me.view2_Sheet1.Columns.Get(121).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(121).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(122).CellType = TextCellType623 + Me.view2_Sheet1.Columns.Get(122).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(122).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(123).CellType = TextCellType624 + Me.view2_Sheet1.Columns.Get(123).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(123).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(124).CellType = TextCellType625 + Me.view2_Sheet1.Columns.Get(124).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(124).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(125).CellType = TextCellType626 + Me.view2_Sheet1.Columns.Get(125).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(125).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(126).CellType = TextCellType627 + Me.view2_Sheet1.Columns.Get(126).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(126).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(127).CellType = TextCellType628 + Me.view2_Sheet1.Columns.Get(127).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(127).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(128).CellType = TextCellType629 + Me.view2_Sheet1.Columns.Get(128).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(128).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(129).CellType = TextCellType630 + Me.view2_Sheet1.Columns.Get(129).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(129).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(130).CellType = TextCellType631 + Me.view2_Sheet1.Columns.Get(130).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(130).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(131).CellType = TextCellType632 + Me.view2_Sheet1.Columns.Get(131).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(131).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(132).CellType = TextCellType633 + Me.view2_Sheet1.Columns.Get(132).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(132).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(133).CellType = TextCellType634 + Me.view2_Sheet1.Columns.Get(133).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(133).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(134).CellType = TextCellType635 + Me.view2_Sheet1.Columns.Get(134).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(134).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(135).CellType = TextCellType636 + Me.view2_Sheet1.Columns.Get(135).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(135).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(136).CellType = TextCellType637 + Me.view2_Sheet1.Columns.Get(136).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(136).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(137).CellType = TextCellType638 + Me.view2_Sheet1.Columns.Get(137).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(137).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(138).CellType = TextCellType639 + Me.view2_Sheet1.Columns.Get(138).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(138).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(139).CellType = TextCellType640 + Me.view2_Sheet1.Columns.Get(139).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(139).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(140).CellType = TextCellType641 + Me.view2_Sheet1.Columns.Get(140).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(140).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(141).CellType = TextCellType642 + Me.view2_Sheet1.Columns.Get(141).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(141).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(142).CellType = TextCellType643 + Me.view2_Sheet1.Columns.Get(142).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(142).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(143).CellType = TextCellType644 + Me.view2_Sheet1.Columns.Get(143).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(143).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(144).CellType = TextCellType645 + Me.view2_Sheet1.Columns.Get(144).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(144).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(145).CellType = TextCellType646 + Me.view2_Sheet1.Columns.Get(145).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(145).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(146).CellType = TextCellType647 + Me.view2_Sheet1.Columns.Get(146).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(146).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(147).CellType = TextCellType648 + Me.view2_Sheet1.Columns.Get(147).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(147).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(148).CellType = TextCellType649 + Me.view2_Sheet1.Columns.Get(148).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(148).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(149).CellType = TextCellType650 + Me.view2_Sheet1.Columns.Get(149).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(149).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(150).CellType = TextCellType651 + Me.view2_Sheet1.Columns.Get(150).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(150).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(151).CellType = TextCellType652 + Me.view2_Sheet1.Columns.Get(151).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(151).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(152).CellType = TextCellType653 + Me.view2_Sheet1.Columns.Get(152).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(152).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(153).CellType = TextCellType654 + Me.view2_Sheet1.Columns.Get(153).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(153).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(154).CellType = TextCellType655 + Me.view2_Sheet1.Columns.Get(154).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(154).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(155).CellType = TextCellType656 + Me.view2_Sheet1.Columns.Get(155).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(155).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(156).CellType = TextCellType657 + Me.view2_Sheet1.Columns.Get(156).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(156).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(157).CellType = TextCellType658 + Me.view2_Sheet1.Columns.Get(157).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(157).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(158).CellType = TextCellType659 + Me.view2_Sheet1.Columns.Get(158).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(158).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(159).CellType = TextCellType660 + Me.view2_Sheet1.Columns.Get(159).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(159).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(160).CellType = TextCellType661 + Me.view2_Sheet1.Columns.Get(160).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(160).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(161).CellType = TextCellType662 + Me.view2_Sheet1.Columns.Get(161).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(161).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(162).CellType = TextCellType663 + Me.view2_Sheet1.Columns.Get(162).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(162).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(163).CellType = TextCellType664 + Me.view2_Sheet1.Columns.Get(163).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(163).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(164).CellType = TextCellType665 + Me.view2_Sheet1.Columns.Get(164).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(164).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(165).CellType = TextCellType666 + Me.view2_Sheet1.Columns.Get(165).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(165).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(166).CellType = TextCellType667 + Me.view2_Sheet1.Columns.Get(166).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(166).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(167).CellType = TextCellType668 + Me.view2_Sheet1.Columns.Get(167).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(167).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(168).CellType = TextCellType669 + Me.view2_Sheet1.Columns.Get(168).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(168).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(169).CellType = TextCellType670 + Me.view2_Sheet1.Columns.Get(169).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(169).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(170).CellType = TextCellType671 + Me.view2_Sheet1.Columns.Get(170).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(170).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(171).CellType = TextCellType672 + Me.view2_Sheet1.Columns.Get(171).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(171).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(172).CellType = TextCellType673 + Me.view2_Sheet1.Columns.Get(172).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(172).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(173).CellType = TextCellType674 + Me.view2_Sheet1.Columns.Get(173).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(173).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(174).CellType = TextCellType675 + Me.view2_Sheet1.Columns.Get(174).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(174).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(175).CellType = TextCellType676 + Me.view2_Sheet1.Columns.Get(175).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(175).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(176).CellType = TextCellType677 + Me.view2_Sheet1.Columns.Get(176).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(176).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(177).CellType = TextCellType678 + Me.view2_Sheet1.Columns.Get(177).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(177).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(178).CellType = TextCellType679 + Me.view2_Sheet1.Columns.Get(178).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(178).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(179).CellType = TextCellType680 + Me.view2_Sheet1.Columns.Get(179).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(179).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(180).CellType = TextCellType681 + Me.view2_Sheet1.Columns.Get(180).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(180).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(181).CellType = TextCellType682 + Me.view2_Sheet1.Columns.Get(181).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(181).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(182).CellType = TextCellType683 + Me.view2_Sheet1.Columns.Get(182).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(182).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(183).CellType = TextCellType684 + Me.view2_Sheet1.Columns.Get(183).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(183).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(184).CellType = TextCellType685 + Me.view2_Sheet1.Columns.Get(184).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(184).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(185).CellType = TextCellType686 + Me.view2_Sheet1.Columns.Get(185).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(185).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(186).CellType = TextCellType687 + Me.view2_Sheet1.Columns.Get(186).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(186).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(187).CellType = TextCellType688 + Me.view2_Sheet1.Columns.Get(187).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(187).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(188).CellType = TextCellType689 + Me.view2_Sheet1.Columns.Get(188).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(188).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(189).CellType = TextCellType690 + Me.view2_Sheet1.Columns.Get(189).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(189).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(190).CellType = TextCellType691 + Me.view2_Sheet1.Columns.Get(190).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(190).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(191).CellType = TextCellType692 + Me.view2_Sheet1.Columns.Get(191).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(191).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(192).CellType = TextCellType693 + Me.view2_Sheet1.Columns.Get(192).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(192).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(193).CellType = TextCellType694 + Me.view2_Sheet1.Columns.Get(193).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(193).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(194).CellType = TextCellType695 + Me.view2_Sheet1.Columns.Get(194).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(194).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(195).CellType = TextCellType696 + Me.view2_Sheet1.Columns.Get(195).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(195).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(196).CellType = TextCellType697 + Me.view2_Sheet1.Columns.Get(196).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(196).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(197).CellType = TextCellType698 + Me.view2_Sheet1.Columns.Get(197).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(197).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(198).CellType = TextCellType699 + Me.view2_Sheet1.Columns.Get(198).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(198).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(199).CellType = TextCellType700 + Me.view2_Sheet1.Columns.Get(199).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(199).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(200).CellType = TextCellType701 + Me.view2_Sheet1.Columns.Get(200).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(200).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(201).CellType = TextCellType702 + Me.view2_Sheet1.Columns.Get(201).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(201).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(202).CellType = TextCellType703 + Me.view2_Sheet1.Columns.Get(202).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(202).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(203).CellType = TextCellType704 + Me.view2_Sheet1.Columns.Get(203).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(203).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(204).CellType = TextCellType705 + Me.view2_Sheet1.Columns.Get(204).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(204).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(205).CellType = TextCellType706 + Me.view2_Sheet1.Columns.Get(205).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(205).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(206).CellType = TextCellType707 + Me.view2_Sheet1.Columns.Get(206).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(206).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(207).CellType = TextCellType708 + Me.view2_Sheet1.Columns.Get(207).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(207).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(208).CellType = TextCellType709 + Me.view2_Sheet1.Columns.Get(208).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(208).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(209).CellType = TextCellType710 + Me.view2_Sheet1.Columns.Get(209).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(209).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(210).CellType = TextCellType711 + Me.view2_Sheet1.Columns.Get(210).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(210).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(211).CellType = TextCellType712 + Me.view2_Sheet1.Columns.Get(211).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(211).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(212).CellType = TextCellType713 + Me.view2_Sheet1.Columns.Get(212).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(212).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(213).CellType = TextCellType714 + Me.view2_Sheet1.Columns.Get(213).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(213).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(214).CellType = TextCellType715 + Me.view2_Sheet1.Columns.Get(214).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(214).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(215).CellType = TextCellType716 + Me.view2_Sheet1.Columns.Get(215).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(215).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(216).CellType = TextCellType717 + Me.view2_Sheet1.Columns.Get(216).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(216).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(217).CellType = TextCellType718 + Me.view2_Sheet1.Columns.Get(217).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(217).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(218).CellType = TextCellType719 + Me.view2_Sheet1.Columns.Get(218).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(218).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(219).CellType = TextCellType720 + Me.view2_Sheet1.Columns.Get(219).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(219).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(220).CellType = TextCellType721 + Me.view2_Sheet1.Columns.Get(220).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(220).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(221).CellType = TextCellType722 + Me.view2_Sheet1.Columns.Get(221).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(221).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(222).CellType = TextCellType723 + Me.view2_Sheet1.Columns.Get(222).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(222).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(223).CellType = TextCellType724 + Me.view2_Sheet1.Columns.Get(223).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(223).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(224).CellType = TextCellType725 + Me.view2_Sheet1.Columns.Get(224).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(224).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(225).CellType = TextCellType726 + Me.view2_Sheet1.Columns.Get(225).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(225).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(226).CellType = TextCellType727 + Me.view2_Sheet1.Columns.Get(226).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(226).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(227).CellType = TextCellType728 + Me.view2_Sheet1.Columns.Get(227).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(227).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(228).CellType = TextCellType729 + Me.view2_Sheet1.Columns.Get(228).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(228).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(229).CellType = TextCellType730 + Me.view2_Sheet1.Columns.Get(229).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(229).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(230).CellType = TextCellType731 + Me.view2_Sheet1.Columns.Get(230).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(230).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(231).CellType = TextCellType732 + Me.view2_Sheet1.Columns.Get(231).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(231).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(232).CellType = TextCellType733 + Me.view2_Sheet1.Columns.Get(232).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(232).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(233).CellType = TextCellType734 + Me.view2_Sheet1.Columns.Get(233).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(233).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(234).CellType = TextCellType735 + Me.view2_Sheet1.Columns.Get(234).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(234).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(235).CellType = TextCellType736 + Me.view2_Sheet1.Columns.Get(235).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(235).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(236).CellType = TextCellType737 + Me.view2_Sheet1.Columns.Get(236).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(236).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(237).CellType = TextCellType738 + Me.view2_Sheet1.Columns.Get(237).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(237).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(238).CellType = TextCellType739 + Me.view2_Sheet1.Columns.Get(238).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(238).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(239).CellType = TextCellType740 + Me.view2_Sheet1.Columns.Get(239).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(239).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(240).CellType = TextCellType741 + Me.view2_Sheet1.Columns.Get(240).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(240).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(241).CellType = TextCellType742 + Me.view2_Sheet1.Columns.Get(241).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(241).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(242).CellType = TextCellType743 + Me.view2_Sheet1.Columns.Get(242).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(242).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(243).CellType = TextCellType744 + Me.view2_Sheet1.Columns.Get(243).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(243).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(244).CellType = TextCellType745 + Me.view2_Sheet1.Columns.Get(244).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(244).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(245).CellType = TextCellType746 + Me.view2_Sheet1.Columns.Get(245).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(245).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(246).CellType = TextCellType747 + Me.view2_Sheet1.Columns.Get(246).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(246).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(247).CellType = TextCellType748 + Me.view2_Sheet1.Columns.Get(247).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(247).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(248).CellType = TextCellType749 + Me.view2_Sheet1.Columns.Get(248).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(248).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(249).CellType = TextCellType750 + Me.view2_Sheet1.Columns.Get(249).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(249).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(250).CellType = TextCellType751 + Me.view2_Sheet1.Columns.Get(250).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(250).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(251).CellType = TextCellType752 + Me.view2_Sheet1.Columns.Get(251).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(251).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(252).CellType = TextCellType753 + Me.view2_Sheet1.Columns.Get(252).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(252).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(253).CellType = TextCellType754 + Me.view2_Sheet1.Columns.Get(253).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(253).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(254).CellType = TextCellType755 + Me.view2_Sheet1.Columns.Get(254).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(254).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(255).CellType = TextCellType756 + Me.view2_Sheet1.Columns.Get(255).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(255).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(256).CellType = TextCellType757 + Me.view2_Sheet1.Columns.Get(256).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(256).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(257).CellType = TextCellType758 + Me.view2_Sheet1.Columns.Get(257).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(257).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(258).CellType = TextCellType759 + Me.view2_Sheet1.Columns.Get(258).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(258).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(259).CellType = TextCellType760 + Me.view2_Sheet1.Columns.Get(259).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(259).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(260).CellType = TextCellType761 + Me.view2_Sheet1.Columns.Get(260).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(260).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(261).CellType = TextCellType762 + Me.view2_Sheet1.Columns.Get(261).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(261).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(262).CellType = TextCellType763 + Me.view2_Sheet1.Columns.Get(262).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(262).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(263).CellType = TextCellType764 + Me.view2_Sheet1.Columns.Get(263).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(263).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(264).CellType = TextCellType765 + Me.view2_Sheet1.Columns.Get(264).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(264).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(265).CellType = TextCellType766 + Me.view2_Sheet1.Columns.Get(265).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(265).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(266).CellType = TextCellType767 + Me.view2_Sheet1.Columns.Get(266).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(266).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(267).CellType = TextCellType768 + Me.view2_Sheet1.Columns.Get(267).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(267).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(268).CellType = TextCellType769 + Me.view2_Sheet1.Columns.Get(268).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(268).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(269).CellType = TextCellType770 + Me.view2_Sheet1.Columns.Get(269).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(269).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(270).CellType = TextCellType771 + Me.view2_Sheet1.Columns.Get(270).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(270).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(271).CellType = TextCellType772 + Me.view2_Sheet1.Columns.Get(271).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(271).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(272).CellType = TextCellType773 + Me.view2_Sheet1.Columns.Get(272).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(272).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(273).CellType = TextCellType774 + Me.view2_Sheet1.Columns.Get(273).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(273).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(274).CellType = TextCellType775 + Me.view2_Sheet1.Columns.Get(274).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(274).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(275).CellType = TextCellType776 + Me.view2_Sheet1.Columns.Get(275).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(275).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(276).CellType = TextCellType777 + Me.view2_Sheet1.Columns.Get(276).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(276).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(277).CellType = TextCellType778 + Me.view2_Sheet1.Columns.Get(277).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(277).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(278).CellType = TextCellType779 + Me.view2_Sheet1.Columns.Get(278).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(278).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(279).CellType = TextCellType780 + Me.view2_Sheet1.Columns.Get(279).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(279).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(280).CellType = TextCellType781 + Me.view2_Sheet1.Columns.Get(280).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(280).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(281).CellType = TextCellType782 + Me.view2_Sheet1.Columns.Get(281).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(281).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(282).CellType = TextCellType783 + Me.view2_Sheet1.Columns.Get(282).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(282).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(283).CellType = TextCellType784 + Me.view2_Sheet1.Columns.Get(283).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(283).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(284).CellType = TextCellType785 + Me.view2_Sheet1.Columns.Get(284).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(284).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(285).CellType = TextCellType786 + Me.view2_Sheet1.Columns.Get(285).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(285).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(286).CellType = TextCellType787 + Me.view2_Sheet1.Columns.Get(286).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(286).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(287).CellType = TextCellType788 + Me.view2_Sheet1.Columns.Get(287).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(287).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(288).CellType = TextCellType789 + Me.view2_Sheet1.Columns.Get(288).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(288).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(289).CellType = TextCellType790 + Me.view2_Sheet1.Columns.Get(289).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(289).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(290).CellType = TextCellType791 + Me.view2_Sheet1.Columns.Get(290).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(290).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(291).CellType = TextCellType792 + Me.view2_Sheet1.Columns.Get(291).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(291).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(292).CellType = TextCellType793 + Me.view2_Sheet1.Columns.Get(292).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(292).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(293).CellType = TextCellType794 + Me.view2_Sheet1.Columns.Get(293).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(293).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(294).CellType = TextCellType795 + Me.view2_Sheet1.Columns.Get(294).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(294).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(295).CellType = TextCellType796 + Me.view2_Sheet1.Columns.Get(295).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(295).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(296).CellType = TextCellType797 + Me.view2_Sheet1.Columns.Get(296).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(296).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(297).CellType = TextCellType798 + Me.view2_Sheet1.Columns.Get(297).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(297).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(298).CellType = TextCellType799 + Me.view2_Sheet1.Columns.Get(298).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(298).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(299).CellType = TextCellType800 + Me.view2_Sheet1.Columns.Get(299).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(299).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(300).CellType = TextCellType801 + Me.view2_Sheet1.Columns.Get(300).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(300).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(301).CellType = TextCellType802 + Me.view2_Sheet1.Columns.Get(301).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(301).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(302).CellType = TextCellType803 + Me.view2_Sheet1.Columns.Get(302).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(302).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(303).CellType = TextCellType804 + Me.view2_Sheet1.Columns.Get(303).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(303).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(304).CellType = TextCellType805 + Me.view2_Sheet1.Columns.Get(304).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(304).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(305).CellType = TextCellType806 + Me.view2_Sheet1.Columns.Get(305).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(305).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(306).CellType = TextCellType807 + Me.view2_Sheet1.Columns.Get(306).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(306).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(307).CellType = TextCellType808 + Me.view2_Sheet1.Columns.Get(307).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(307).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(308).CellType = TextCellType809 + Me.view2_Sheet1.Columns.Get(308).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(308).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(309).CellType = TextCellType810 + Me.view2_Sheet1.Columns.Get(309).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(309).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(310).CellType = TextCellType811 + Me.view2_Sheet1.Columns.Get(310).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(310).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(311).CellType = TextCellType812 + Me.view2_Sheet1.Columns.Get(311).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(311).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(312).CellType = TextCellType813 + Me.view2_Sheet1.Columns.Get(312).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(312).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(313).CellType = TextCellType814 + Me.view2_Sheet1.Columns.Get(313).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(313).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(314).CellType = TextCellType815 + Me.view2_Sheet1.Columns.Get(314).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(314).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(315).CellType = TextCellType816 + Me.view2_Sheet1.Columns.Get(315).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(315).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(316).CellType = TextCellType817 + Me.view2_Sheet1.Columns.Get(316).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(316).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(317).CellType = TextCellType818 + Me.view2_Sheet1.Columns.Get(317).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(317).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(318).CellType = TextCellType819 + Me.view2_Sheet1.Columns.Get(318).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(318).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(319).CellType = TextCellType820 + Me.view2_Sheet1.Columns.Get(319).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(319).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(320).CellType = TextCellType821 + Me.view2_Sheet1.Columns.Get(320).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(320).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(321).CellType = TextCellType822 + Me.view2_Sheet1.Columns.Get(321).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(321).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(322).CellType = TextCellType823 + Me.view2_Sheet1.Columns.Get(322).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(322).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(323).CellType = TextCellType824 + Me.view2_Sheet1.Columns.Get(323).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(323).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(324).CellType = TextCellType825 + Me.view2_Sheet1.Columns.Get(324).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(324).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(325).CellType = TextCellType826 + Me.view2_Sheet1.Columns.Get(325).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(325).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(326).CellType = TextCellType827 + Me.view2_Sheet1.Columns.Get(326).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(326).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(327).CellType = TextCellType828 + Me.view2_Sheet1.Columns.Get(327).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(327).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(328).CellType = TextCellType829 + Me.view2_Sheet1.Columns.Get(328).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(328).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(329).CellType = TextCellType830 + Me.view2_Sheet1.Columns.Get(329).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(329).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(330).CellType = TextCellType831 + Me.view2_Sheet1.Columns.Get(330).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(330).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(331).CellType = TextCellType832 + Me.view2_Sheet1.Columns.Get(331).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(331).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(332).CellType = TextCellType833 + Me.view2_Sheet1.Columns.Get(332).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(332).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(333).CellType = TextCellType834 + Me.view2_Sheet1.Columns.Get(333).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(333).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(334).CellType = TextCellType835 + Me.view2_Sheet1.Columns.Get(334).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(334).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(335).CellType = TextCellType836 + Me.view2_Sheet1.Columns.Get(335).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(335).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(336).CellType = TextCellType837 + Me.view2_Sheet1.Columns.Get(336).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(336).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(337).CellType = TextCellType838 + Me.view2_Sheet1.Columns.Get(337).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(337).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(338).CellType = TextCellType839 + Me.view2_Sheet1.Columns.Get(338).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(338).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(339).CellType = TextCellType840 + Me.view2_Sheet1.Columns.Get(339).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(339).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(340).CellType = TextCellType841 + Me.view2_Sheet1.Columns.Get(340).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(340).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(341).CellType = TextCellType842 + Me.view2_Sheet1.Columns.Get(341).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(341).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(342).CellType = TextCellType843 + Me.view2_Sheet1.Columns.Get(342).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(342).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(343).CellType = TextCellType844 + Me.view2_Sheet1.Columns.Get(343).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(343).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(344).CellType = TextCellType845 + Me.view2_Sheet1.Columns.Get(344).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(344).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(345).CellType = TextCellType846 + Me.view2_Sheet1.Columns.Get(345).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(345).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(346).CellType = TextCellType847 + Me.view2_Sheet1.Columns.Get(346).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(346).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(347).CellType = TextCellType848 + Me.view2_Sheet1.Columns.Get(347).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(347).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(348).CellType = TextCellType849 + Me.view2_Sheet1.Columns.Get(348).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(348).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(349).CellType = TextCellType850 + Me.view2_Sheet1.Columns.Get(349).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(349).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(350).CellType = TextCellType851 + Me.view2_Sheet1.Columns.Get(350).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(350).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(351).CellType = TextCellType852 + Me.view2_Sheet1.Columns.Get(351).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(351).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(352).CellType = TextCellType853 + Me.view2_Sheet1.Columns.Get(352).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(352).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(353).CellType = TextCellType854 + Me.view2_Sheet1.Columns.Get(353).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(353).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(354).CellType = TextCellType855 + Me.view2_Sheet1.Columns.Get(354).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(354).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(355).CellType = TextCellType856 + Me.view2_Sheet1.Columns.Get(355).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(355).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(356).CellType = TextCellType857 + Me.view2_Sheet1.Columns.Get(356).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(356).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(357).CellType = TextCellType858 + Me.view2_Sheet1.Columns.Get(357).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(357).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(358).CellType = TextCellType859 + Me.view2_Sheet1.Columns.Get(358).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(358).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(359).CellType = TextCellType860 + Me.view2_Sheet1.Columns.Get(359).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(359).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(360).CellType = TextCellType861 + Me.view2_Sheet1.Columns.Get(360).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(360).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(361).CellType = TextCellType862 + Me.view2_Sheet1.Columns.Get(361).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(361).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(362).CellType = TextCellType863 + Me.view2_Sheet1.Columns.Get(362).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(362).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(363).CellType = TextCellType864 + Me.view2_Sheet1.Columns.Get(363).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(363).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(364).CellType = TextCellType865 + Me.view2_Sheet1.Columns.Get(364).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(364).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(365).CellType = TextCellType866 + Me.view2_Sheet1.Columns.Get(365).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(365).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(366).CellType = TextCellType867 + Me.view2_Sheet1.Columns.Get(366).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(366).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(367).CellType = TextCellType868 + Me.view2_Sheet1.Columns.Get(367).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(367).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(368).CellType = TextCellType869 + Me.view2_Sheet1.Columns.Get(368).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(368).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(369).CellType = TextCellType870 + Me.view2_Sheet1.Columns.Get(369).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(369).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(370).CellType = TextCellType871 + Me.view2_Sheet1.Columns.Get(370).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(370).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(371).CellType = TextCellType872 + Me.view2_Sheet1.Columns.Get(371).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(371).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(372).CellType = TextCellType873 + Me.view2_Sheet1.Columns.Get(372).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(372).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(373).CellType = TextCellType874 + Me.view2_Sheet1.Columns.Get(373).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(373).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(374).CellType = TextCellType875 + Me.view2_Sheet1.Columns.Get(374).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(374).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(375).CellType = TextCellType876 + Me.view2_Sheet1.Columns.Get(375).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(375).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(376).CellType = TextCellType877 + Me.view2_Sheet1.Columns.Get(376).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(376).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(377).CellType = TextCellType878 + Me.view2_Sheet1.Columns.Get(377).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(377).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(378).CellType = TextCellType879 + Me.view2_Sheet1.Columns.Get(378).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(378).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(379).CellType = TextCellType880 + Me.view2_Sheet1.Columns.Get(379).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(379).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(380).CellType = TextCellType881 + Me.view2_Sheet1.Columns.Get(380).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(380).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(381).CellType = TextCellType882 + Me.view2_Sheet1.Columns.Get(381).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(381).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(382).CellType = TextCellType883 + Me.view2_Sheet1.Columns.Get(382).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(382).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(383).CellType = TextCellType884 + Me.view2_Sheet1.Columns.Get(383).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(383).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(384).CellType = TextCellType885 + Me.view2_Sheet1.Columns.Get(384).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(384).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(385).CellType = TextCellType886 + Me.view2_Sheet1.Columns.Get(385).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(385).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(386).CellType = TextCellType887 + Me.view2_Sheet1.Columns.Get(386).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(386).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(387).CellType = TextCellType888 + Me.view2_Sheet1.Columns.Get(387).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(387).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(388).CellType = TextCellType889 + Me.view2_Sheet1.Columns.Get(388).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(388).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(389).CellType = TextCellType890 + Me.view2_Sheet1.Columns.Get(389).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(389).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(390).CellType = TextCellType891 + Me.view2_Sheet1.Columns.Get(390).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(390).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(391).CellType = TextCellType892 + Me.view2_Sheet1.Columns.Get(391).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(391).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(392).CellType = TextCellType893 + Me.view2_Sheet1.Columns.Get(392).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(392).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(393).CellType = TextCellType894 + Me.view2_Sheet1.Columns.Get(393).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(393).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(394).CellType = TextCellType895 + Me.view2_Sheet1.Columns.Get(394).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(394).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(395).CellType = TextCellType896 + Me.view2_Sheet1.Columns.Get(395).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(395).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(396).CellType = TextCellType897 + Me.view2_Sheet1.Columns.Get(396).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(396).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(397).CellType = TextCellType898 + Me.view2_Sheet1.Columns.Get(397).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(397).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(398).CellType = TextCellType899 + Me.view2_Sheet1.Columns.Get(398).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(398).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(399).CellType = TextCellType900 + Me.view2_Sheet1.Columns.Get(399).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(399).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(400).CellType = TextCellType901 + Me.view2_Sheet1.Columns.Get(400).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(400).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(401).CellType = TextCellType902 + Me.view2_Sheet1.Columns.Get(401).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(401).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(402).CellType = TextCellType903 + Me.view2_Sheet1.Columns.Get(402).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(402).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(403).CellType = TextCellType904 + Me.view2_Sheet1.Columns.Get(403).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(403).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(404).CellType = TextCellType905 + Me.view2_Sheet1.Columns.Get(404).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(404).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(405).CellType = TextCellType906 + Me.view2_Sheet1.Columns.Get(405).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(405).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(406).CellType = TextCellType907 + Me.view2_Sheet1.Columns.Get(406).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(406).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(407).CellType = TextCellType908 + Me.view2_Sheet1.Columns.Get(407).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(407).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(408).CellType = TextCellType909 + Me.view2_Sheet1.Columns.Get(408).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(408).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(409).CellType = TextCellType910 + Me.view2_Sheet1.Columns.Get(409).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(409).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(410).CellType = TextCellType911 + Me.view2_Sheet1.Columns.Get(410).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(410).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(411).CellType = TextCellType912 + Me.view2_Sheet1.Columns.Get(411).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(411).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(412).CellType = TextCellType913 + Me.view2_Sheet1.Columns.Get(412).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(412).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(413).CellType = TextCellType914 + Me.view2_Sheet1.Columns.Get(413).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(413).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(414).CellType = TextCellType915 + Me.view2_Sheet1.Columns.Get(414).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(414).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(415).CellType = TextCellType916 + Me.view2_Sheet1.Columns.Get(415).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(415).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(416).CellType = TextCellType917 + Me.view2_Sheet1.Columns.Get(416).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(416).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(417).CellType = TextCellType918 + Me.view2_Sheet1.Columns.Get(417).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(417).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(418).CellType = TextCellType919 + Me.view2_Sheet1.Columns.Get(418).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(418).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(419).CellType = TextCellType920 + Me.view2_Sheet1.Columns.Get(419).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(419).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(420).CellType = TextCellType921 + Me.view2_Sheet1.Columns.Get(420).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(420).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(421).CellType = TextCellType922 + Me.view2_Sheet1.Columns.Get(421).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(421).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(422).CellType = TextCellType923 + Me.view2_Sheet1.Columns.Get(422).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(422).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(423).CellType = TextCellType924 + Me.view2_Sheet1.Columns.Get(423).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(423).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(424).CellType = TextCellType925 + Me.view2_Sheet1.Columns.Get(424).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(424).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(425).CellType = TextCellType926 + Me.view2_Sheet1.Columns.Get(425).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(425).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(426).CellType = TextCellType927 + Me.view2_Sheet1.Columns.Get(426).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(426).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(427).CellType = TextCellType928 + Me.view2_Sheet1.Columns.Get(427).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(427).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(428).CellType = TextCellType929 + Me.view2_Sheet1.Columns.Get(428).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(428).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(429).CellType = TextCellType930 + Me.view2_Sheet1.Columns.Get(429).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(429).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(430).CellType = TextCellType931 + Me.view2_Sheet1.Columns.Get(430).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(430).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(431).CellType = TextCellType932 + Me.view2_Sheet1.Columns.Get(431).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(431).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(432).CellType = TextCellType933 + Me.view2_Sheet1.Columns.Get(432).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(432).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(433).CellType = TextCellType934 + Me.view2_Sheet1.Columns.Get(433).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(433).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(434).CellType = TextCellType935 + Me.view2_Sheet1.Columns.Get(434).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(434).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(435).CellType = TextCellType936 + Me.view2_Sheet1.Columns.Get(435).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(435).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(436).CellType = TextCellType937 + Me.view2_Sheet1.Columns.Get(436).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(436).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(437).CellType = TextCellType938 + Me.view2_Sheet1.Columns.Get(437).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(437).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(438).CellType = TextCellType939 + Me.view2_Sheet1.Columns.Get(438).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(438).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(439).CellType = TextCellType940 + Me.view2_Sheet1.Columns.Get(439).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(439).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(440).CellType = TextCellType941 + Me.view2_Sheet1.Columns.Get(440).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(440).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(441).CellType = TextCellType942 + Me.view2_Sheet1.Columns.Get(441).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(441).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(442).CellType = TextCellType943 + Me.view2_Sheet1.Columns.Get(442).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(442).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(443).CellType = TextCellType944 + Me.view2_Sheet1.Columns.Get(443).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(443).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(444).CellType = TextCellType945 + Me.view2_Sheet1.Columns.Get(444).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(444).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(445).CellType = TextCellType946 + Me.view2_Sheet1.Columns.Get(445).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(445).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(446).CellType = TextCellType947 + Me.view2_Sheet1.Columns.Get(446).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(446).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(447).CellType = TextCellType948 + Me.view2_Sheet1.Columns.Get(447).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(447).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(448).CellType = TextCellType949 + Me.view2_Sheet1.Columns.Get(448).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(448).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(449).CellType = TextCellType950 + Me.view2_Sheet1.Columns.Get(449).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(449).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(450).CellType = TextCellType951 + Me.view2_Sheet1.Columns.Get(450).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(450).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(451).CellType = TextCellType952 + Me.view2_Sheet1.Columns.Get(451).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(451).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(452).CellType = TextCellType953 + Me.view2_Sheet1.Columns.Get(452).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(452).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(453).CellType = TextCellType954 + Me.view2_Sheet1.Columns.Get(453).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(453).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(454).CellType = TextCellType955 + Me.view2_Sheet1.Columns.Get(454).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(454).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(455).CellType = TextCellType956 + Me.view2_Sheet1.Columns.Get(455).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(455).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(456).CellType = TextCellType957 + Me.view2_Sheet1.Columns.Get(456).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(456).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(457).CellType = TextCellType958 + Me.view2_Sheet1.Columns.Get(457).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(457).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(458).CellType = TextCellType959 + Me.view2_Sheet1.Columns.Get(458).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(458).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(459).CellType = TextCellType960 + Me.view2_Sheet1.Columns.Get(459).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(459).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(460).CellType = TextCellType961 + Me.view2_Sheet1.Columns.Get(460).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(460).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(461).CellType = TextCellType962 + Me.view2_Sheet1.Columns.Get(461).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(461).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(462).CellType = TextCellType963 + Me.view2_Sheet1.Columns.Get(462).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(462).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(463).CellType = TextCellType964 + Me.view2_Sheet1.Columns.Get(463).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(463).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(464).CellType = TextCellType965 + Me.view2_Sheet1.Columns.Get(464).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(464).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(465).CellType = TextCellType966 + Me.view2_Sheet1.Columns.Get(465).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(465).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(466).CellType = TextCellType967 + Me.view2_Sheet1.Columns.Get(466).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(466).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(467).CellType = TextCellType968 + Me.view2_Sheet1.Columns.Get(467).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(467).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(468).CellType = TextCellType969 + Me.view2_Sheet1.Columns.Get(468).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(468).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(469).CellType = TextCellType970 + Me.view2_Sheet1.Columns.Get(469).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(469).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(470).CellType = TextCellType971 + Me.view2_Sheet1.Columns.Get(470).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(470).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(471).CellType = TextCellType972 + Me.view2_Sheet1.Columns.Get(471).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(471).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(472).CellType = TextCellType973 + Me.view2_Sheet1.Columns.Get(472).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(472).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(473).CellType = TextCellType974 + Me.view2_Sheet1.Columns.Get(473).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(473).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(474).CellType = TextCellType975 + Me.view2_Sheet1.Columns.Get(474).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(474).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(475).CellType = TextCellType976 + Me.view2_Sheet1.Columns.Get(475).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(475).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(476).CellType = TextCellType977 + Me.view2_Sheet1.Columns.Get(476).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(476).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(477).CellType = TextCellType978 + Me.view2_Sheet1.Columns.Get(477).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(477).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(478).CellType = TextCellType979 + Me.view2_Sheet1.Columns.Get(478).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(478).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(479).CellType = TextCellType980 + Me.view2_Sheet1.Columns.Get(479).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(479).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(479).Width = 62.0! + Me.view2_Sheet1.Columns.Get(480).CellType = TextCellType981 + Me.view2_Sheet1.Columns.Get(480).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(480).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(481).CellType = TextCellType982 + Me.view2_Sheet1.Columns.Get(481).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(481).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(482).CellType = TextCellType983 + Me.view2_Sheet1.Columns.Get(482).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(482).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(483).CellType = TextCellType984 + Me.view2_Sheet1.Columns.Get(483).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(483).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(484).CellType = TextCellType985 + Me.view2_Sheet1.Columns.Get(484).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(484).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(485).CellType = TextCellType986 + Me.view2_Sheet1.Columns.Get(485).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(485).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(486).CellType = TextCellType987 + Me.view2_Sheet1.Columns.Get(486).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(486).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(487).CellType = TextCellType988 + Me.view2_Sheet1.Columns.Get(487).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(487).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(488).CellType = TextCellType989 + Me.view2_Sheet1.Columns.Get(488).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(488).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(489).CellType = TextCellType990 + Me.view2_Sheet1.Columns.Get(489).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(489).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(490).CellType = TextCellType991 + Me.view2_Sheet1.Columns.Get(490).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(490).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(491).CellType = TextCellType992 + Me.view2_Sheet1.Columns.Get(491).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(491).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(492).CellType = TextCellType993 + Me.view2_Sheet1.Columns.Get(492).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(492).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(493).CellType = TextCellType994 + Me.view2_Sheet1.Columns.Get(493).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(493).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(494).CellType = TextCellType995 + Me.view2_Sheet1.Columns.Get(494).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(494).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(495).CellType = TextCellType996 + Me.view2_Sheet1.Columns.Get(495).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(495).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(496).CellType = TextCellType997 + Me.view2_Sheet1.Columns.Get(496).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(496).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(497).CellType = TextCellType998 + Me.view2_Sheet1.Columns.Get(497).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(497).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(498).CellType = TextCellType999 + Me.view2_Sheet1.Columns.Get(498).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(498).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.Columns.Get(499).CellType = TextCellType1000 + Me.view2_Sheet1.Columns.Get(499).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view2_Sheet1.Columns.Get(499).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view2_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view2_Sheet1.ZoomFactor = 0.95! + Me.view2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view2.SetActiveViewport(0, 1, 0) + ' + 'save2 + ' + Me.save2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem4}) + Me.save2.Name = "save1" + Me.save2.Size = New System.Drawing.Size(123, 26) + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(122, 22) + Me.ToolStripMenuItem4.Text = "내보내기" + ' + 'synclog + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(976, 614) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Name = "synclog" + Me.Text = "메세지폼" + Me.ContextMenuStrip1.ResumeLayout(False) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + Me.save1.ResumeLayout(False) + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view2_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.save2.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 + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents RichTextBox2 As System.Windows.Forms.RichTextBox + Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents view1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents view2 As MyControlOLEDBv2.MyFpoint + Friend WithEvents view2_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents save1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents bt_out1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents save2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/업로드폼/syncLOg.resx b/Epole/업로드폼/syncLOg.resx new file mode 100644 index 0000000..8e7d32f --- /dev/null +++ b/Epole/업로드폼/syncLOg.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 177, 17 + + + 619, 17 + + + 337, 17 + + + 492, 17 + + + 702, 17 + + \ No newline at end of file diff --git a/Epole/업로드폼/syncLOg.vb b/Epole/업로드폼/syncLOg.vb new file mode 100644 index 0000000..9111101 --- /dev/null +++ b/Epole/업로드폼/syncLOg.vb @@ -0,0 +1,54 @@ +Public Class synclog + + 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() <> Windows.Forms.DialogResult.OK Then + MsgBox("ҵǾϴ", MsgBoxStyle.Critical, "") + Else + Me.RichTextBox1.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText) + MsgBox("Ϸ", MsgBoxStyle.Information, "Ȯ") + End If + End Sub + + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click + Me.RichTextBox2.Clear() + End Sub + + Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click + Dim SD As New SaveFileDialog + SD.FileName = "ġlog" & Format(Now, "yyyyMMdd") & ".txt" + If SD.ShowDialog() <> Windows.Forms.DialogResult.OK Then + MsgBox("ҵǾϴ", MsgBoxStyle.Critical, "") + Else + Me.RichTextBox2.SaveFile(SD.FileName, RichTextBoxStreamType.PlainText) + MsgBox("Ϸ", MsgBoxStyle.Information, "Ȯ") + End If + End Sub + + + + Private Sub bt_out1ripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_out1.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + a.FileName = "Ը.xls" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine("[Ʈȣ] ʺ ʽϴ.") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpole.Designer.vb b/Epole/입력폼/AddEpole.Designer.vb new file mode 100644 index 0000000..c7b4b88 --- /dev/null +++ b/Epole/입력폼/AddEpole.Designer.vb @@ -0,0 +1,1848 @@ + _ +Partial Class AddEpole + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType5 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType6 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType55 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType56 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType57 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType58 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType59 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType60 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType61 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType62 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType63 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType64 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType65 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType66 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType67 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType68 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType69 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType70 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType71 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType72 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType73 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType74 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType75 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType76 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType77 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType78 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType79 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType80 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType11 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType12 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType13 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType14 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim TextCellType81 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType15 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_dupchk2 = New System.Windows.Forms.ToolStripDropDownButton() + Me.M_ONUMEQN_NUM = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_20 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_201 = New System.Windows.Forms.ToolStripMenuItem() + Me.구신전산화번호가동일한경우ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_11 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_2 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ONUMNNUM = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripSeparator() + Me.check2ipMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dupchksunloolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.allsavedata = New System.Windows.Forms.ToolStripMenuItem() + Me.currentsavedata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_import = New System.Windows.Forms.ToolStripButton() + Me.bt_print = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_savecolsize = New System.Windows.Forms.ToolStripMenuItem() + Me.뷰상태초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.cm_checkjisunju = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_viewoldnum = New System.Windows.Forms.ToolStripMenuItem() + Me.findtextlStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.savetextoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.cmbt_hnum = New System.Windows.Forms.ToolStripMenuItem() + Me.CmbtnhnumToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.grsfdoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.grsdfipMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gsfoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gdflStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.fdlStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.gttripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.allselolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.gsdfolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gwsolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripSeparator() + Me.gfsdolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label13 = New System.Windows.Forms.Label() + Me.tbf8 = New MyControlOLEDBv2.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.tbf7 = New MyControlOLEDBv2.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tbf6 = New MyControlOLEDBv2.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.tbf5 = New MyControlOLEDBv2.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tbf4 = New MyControlOLEDBv2.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tbf3 = New MyControlOLEDBv2.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tbf2 = New MyControlOLEDBv2.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tbf1 = New MyControlOLEDBv2.MyTextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.ta = New EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.fp = New NewFp() + Me.fp_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fp, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fp_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_edit, Me.lb_pos, Me.lb_ime, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 612) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1957, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(39, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(32, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(39, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(14, 17) + Me.lb_change.Text = "#" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(31, 17) + Me.lb_msg.Text = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk1, Me.bt_dupchk2, Me.bt_find, Me.bt_datasort, Me.bt_import, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.bt_print, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1957, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk1 + ' + Me.bt_dupchk1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem10, Me.ToolStripMenuItem11}) + Me.bt_dupchk1.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk1.Name = "bt_dupchk1" + Me.bt_dupchk1.Size = New System.Drawing.Size(100, 36) + Me.bt_dupchk1.Text = "중복검사" + Me.bt_dupchk1.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem10 + ' + Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(347, 22) + Me.ToolStripMenuItem10.Text = "1. 신 선로명, 전주번호가 같은 경우(지선주 미포함)" + ' + 'ToolStripMenuItem11 + ' + Me.ToolStripMenuItem11.ForeColor = System.Drawing.Color.Black + Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11" + Me.ToolStripMenuItem11.Size = New System.Drawing.Size(347, 22) + Me.ToolStripMenuItem11.Text = "2. 신 전산화번호가 같은 경우" + ' + 'bt_dupchk2 + ' + Me.bt_dupchk2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.M_ONUMEQN_NUM, Me.bt_20, Me.bt_201, Me.구신전산화번호가동일한경우ToolStripMenuItem, Me.ToolStripMenuItem14, Me.bt_11, Me.bt_2, Me.bt_3, Me.ONUMNNUM, Me.ToolStripMenuItem9, Me.check2ipMenuItem, Me.dupchksunloolStripMenuItem, Me.ToolStripMenuItem12, Me.ToolStripMenuItem13}) + Me.bt_dupchk2.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk2.Name = "bt_dupchk2" + Me.bt_dupchk2.Size = New System.Drawing.Size(132, 36) + Me.bt_dupchk2.Text = "중복검사(추가)" + Me.bt_dupchk2.ToolTipText = "중복된 전주번호를 체크합니다" + Me.bt_dupchk2.Visible = False + ' + 'M_ONUMEQN_NUM + ' + Me.M_ONUMEQN_NUM.Name = "M_ONUMEQN_NUM" + Me.M_ONUMEQN_NUM.Size = New System.Drawing.Size(441, 22) + Me.M_ONUMEQN_NUM.Text = "1. 구,신 전산화번호및 선로명,전주번호가 모두 일치하는 경우" + ' + 'bt_20 + ' + Me.bt_20.Name = "bt_20" + Me.bt_20.Size = New System.Drawing.Size(441, 22) + Me.bt_20.Text = "2. 구,신 전산화번호가 다른 경우(같은 줄)" + ' + 'bt_201 + ' + Me.bt_201.Name = "bt_201" + Me.bt_201.Size = New System.Drawing.Size(441, 22) + Me.bt_201.Text = "2-1. 구,신 전산화번호가 같은 경우" + ' + '구신전산화번호가동일한경우ToolStripMenuItem + ' + Me.구신전산화번호가동일한경우ToolStripMenuItem.Name = "구신전산화번호가동일한경우ToolStripMenuItem" + Me.구신전산화번호가동일한경우ToolStripMenuItem.Size = New System.Drawing.Size(441, 22) + Me.구신전산화번호가동일한경우ToolStripMenuItem.Text = "2-2. 구,신 전산화번호가 같은 경우(다른 줄)" + ' + 'ToolStripMenuItem14 + ' + Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14" + Me.ToolStripMenuItem14.Size = New System.Drawing.Size(438, 6) + ' + 'bt_11 + ' + Me.bt_11.Name = "bt_11" + Me.bt_11.Size = New System.Drawing.Size(441, 22) + Me.bt_11.Text = "3. 구,신 선로명,전주번호가 다른경우" + ' + 'bt_2 + ' + Me.bt_2.Name = "bt_2" + Me.bt_2.Size = New System.Drawing.Size(441, 22) + Me.bt_2.Text = "4. 구,신 선로명,전주번호가 다른경우(전주번호에서 ""H"" 가 있는경우)" + ' + 'bt_3 + ' + Me.bt_3.Name = "bt_3" + Me.bt_3.Size = New System.Drawing.Size(441, 22) + Me.bt_3.Text = "5. 구,신 선로명,전주번호가 다른경우(전주번호에서 ""H"" 가 없는경우)" + ' + 'ONUMNNUM + ' + Me.ONUMNNUM.ForeColor = System.Drawing.Color.Silver + Me.ONUMNNUM.Name = "ONUMNNUM" + Me.ONUMNNUM.Size = New System.Drawing.Size(441, 22) + Me.ONUMNNUM.Text = "구전주번호와 신전주번호가 같은 경우(삭제0215)" + Me.ONUMNNUM.Visible = False + ' + 'ToolStripMenuItem9 + ' + Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(438, 6) + ' + 'check2ipMenuItem + ' + Me.check2ipMenuItem.ForeColor = System.Drawing.Color.Black + Me.check2ipMenuItem.Name = "check2ipMenuItem" + Me.check2ipMenuItem.Size = New System.Drawing.Size(441, 22) + Me.check2ipMenuItem.Text = "A. 구 선로명, 전주번호가 같은 경우" + Me.check2ipMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'dupchksunloolStripMenuItem + ' + Me.dupchksunloolStripMenuItem.ForeColor = System.Drawing.Color.Black + Me.dupchksunloolStripMenuItem.Name = "dupchksunloolStripMenuItem" + Me.dupchksunloolStripMenuItem.Size = New System.Drawing.Size(441, 22) + Me.dupchksunloolStripMenuItem.Text = "B. 신 선로명, 전주번호가 같은 경우" + Me.dupchksunloolStripMenuItem.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem12 + ' + Me.ToolStripMenuItem12.ForeColor = System.Drawing.Color.Black + Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12" + Me.ToolStripMenuItem12.Size = New System.Drawing.Size(441, 22) + Me.ToolStripMenuItem12.Text = "C. 구 전산화번호가 같은 경우" + Me.ToolStripMenuItem12.ToolTipText = "중복된 구관리전산번호를 체크합니다" + ' + 'ToolStripMenuItem13 + ' + Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(441, 22) + Me.ToolStripMenuItem13.Text = "D. 구 선로명, 전주번호가 같은 경우(지선주 미포함)" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(121, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(127, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.allsavedata, Me.currentsavedata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(128, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'allsavedata + ' + Me.allsavedata.Name = "allsavedata" + Me.allsavedata.Size = New System.Drawing.Size(181, 22) + Me.allsavedata.Text = "모든 데이터 저장(&1)" + ' + 'currentsavedata + ' + Me.currentsavedata.Name = "currentsavedata" + Me.currentsavedata.Size = New System.Drawing.Size(181, 22) + Me.currentsavedata.Text = "현재 데이터 저장(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'bt_import + ' + Me.bt_import.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.bt_import.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_import.Name = "bt_import" + Me.bt_import.Size = New System.Drawing.Size(130, 36) + Me.bt_import.Text = "엑셀불러오기(&P)" + Me.bt_import.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'bt_print + ' + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(83, 36) + Me.bt_print.Text = "출력(&V)" + Me.bt_print.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(91, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_savecolsize, Me.뷰상태초기화ToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.cm_RenewNum, Me.cm_checkjisunju, Me.ToolStripMenuItem7, Me.cm_viewoldnum, Me.findtextlStripMenuItem, Me.ToolStripMenuItem2, Me.savetextoolStripMenuItem, Me.ToolStripMenuItem1, Me.grsfdoolStripMenuItem, Me.gfsdoolStripMenuItem, Me.allselolStripMenuItem, Me.ToolStripMenuItem8, Me.gfsdolStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 332) + ' + 'bt_savecolsize + ' + Me.bt_savecolsize.Name = "bt_savecolsize" + Me.bt_savecolsize.Size = New System.Drawing.Size(197, 22) + Me.bt_savecolsize.Text = "현재뷰상태저장" + ' + '뷰상태초기화ToolStripMenuItem + ' + Me.뷰상태초기화ToolStripMenuItem.Name = "뷰상태초기화ToolStripMenuItem" + Me.뷰상태초기화ToolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.뷰상태초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(194, 6) + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(197, 22) + Me.ToolStripMenuItem4.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(194, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(197, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'cm_checkjisunju + ' + Me.cm_checkjisunju.Name = "cm_checkjisunju" + Me.cm_checkjisunju.Size = New System.Drawing.Size(197, 22) + Me.cm_checkjisunju.Text = "지선주 다시 확인" + Me.cm_checkjisunju.ToolTipText = "지선주인 전주번호를 찾아 모두 체크합니다" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(194, 6) + ' + 'cm_viewoldnum + ' + Me.cm_viewoldnum.Name = "cm_viewoldnum" + Me.cm_viewoldnum.Size = New System.Drawing.Size(197, 22) + Me.cm_viewoldnum.Text = "(구)선로,전주번호 표시" + ' + 'findtextlStripMenuItem + ' + Me.findtextlStripMenuItem.Name = "findtextlStripMenuItem" + Me.findtextlStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.findtextlStripMenuItem.Text = "문자 검색(&0)" + Me.findtextlStripMenuItem.ToolTipText = "현재 선택된 열에서 입력된 값을 찾습니다." + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(194, 6) + ' + 'savetextoolStripMenuItem + ' + Me.savetextoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current, Me.cmbt_hnum, Me.CmbtnhnumToolStripMenuItem}) + Me.savetextoolStripMenuItem.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.savetextoolStripMenuItem.Name = "savetextoolStripMenuItem" + Me.savetextoolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.savetextoolStripMenuItem.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(292, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(292, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'cmbt_hnum + ' + Me.cmbt_hnum.Name = "cmbt_hnum" + Me.cmbt_hnum.Size = New System.Drawing.Size(292, 22) + Me.cmbt_hnum.Text = "전주번호에 ""H"" 가 포함된 목록(&3)" + ' + 'CmbtnhnumToolStripMenuItem + ' + Me.CmbtnhnumToolStripMenuItem.ForeColor = System.Drawing.Color.Maroon + Me.CmbtnhnumToolStripMenuItem.Name = "CmbtnhnumToolStripMenuItem" + Me.CmbtnhnumToolStripMenuItem.Size = New System.Drawing.Size(292, 22) + Me.CmbtnhnumToolStripMenuItem.Text = "전주번호에 ""H"" 가 포함되지않은 목록(&4)" + Me.CmbtnhnumToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(194, 6) + ' + 'grsfdoolStripMenuItem + ' + Me.grsfdoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.grsdfipMenuItem, Me.gsfoolStripMenuItem, Me.gdflStripMenuItem}) + Me.grsfdoolStripMenuItem.Name = "grsfdoolStripMenuItem" + Me.grsfdoolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.grsfdoolStripMenuItem.Text = "일괄선택-인입" + ' + 'grsdfipMenuItem + ' + Me.grsdfipMenuItem.Name = "grsdfipMenuItem" + Me.grsdfipMenuItem.Size = New System.Drawing.Size(122, 22) + Me.grsdfipMenuItem.Text = "전체선택" + ' + 'gsfoolStripMenuItem + ' + Me.gsfoolStripMenuItem.Name = "gsfoolStripMenuItem" + Me.gsfoolStripMenuItem.Size = New System.Drawing.Size(122, 22) + Me.gsfoolStripMenuItem.Text = "전체해제" + ' + 'gdflStripMenuItem + ' + Me.gdflStripMenuItem.Name = "gdflStripMenuItem" + Me.gdflStripMenuItem.Size = New System.Drawing.Size(122, 22) + Me.gdflStripMenuItem.Text = "선택반전" + ' + 'gfsdoolStripMenuItem + ' + Me.gfsdoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gfsdStripMenuItem, Me.fdlStripMenuItem1, Me.gttripMenuItem1}) + Me.gfsdoolStripMenuItem.Name = "gfsdoolStripMenuItem" + Me.gfsdoolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.gfsdoolStripMenuItem.Text = "일괄선택-기입" + ' + 'gfsdStripMenuItem + ' + Me.gfsdStripMenuItem.Name = "gfsdStripMenuItem" + Me.gfsdStripMenuItem.Size = New System.Drawing.Size(122, 22) + Me.gfsdStripMenuItem.Text = "전채선택" + ' + 'fdlStripMenuItem1 + ' + Me.fdlStripMenuItem1.Name = "fdlStripMenuItem1" + Me.fdlStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.fdlStripMenuItem1.Text = "전체해제" + ' + 'gttripMenuItem1 + ' + Me.gttripMenuItem1.Name = "gttripMenuItem1" + Me.gttripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.gttripMenuItem1.Text = "선택반전" + ' + 'allselolStripMenuItem + ' + Me.allselolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gfsdStripMenuItem1, Me.gsdfolStripMenuItem2, Me.gwsolStripMenuItem2}) + Me.allselolStripMenuItem.Name = "allselolStripMenuItem" + Me.allselolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.allselolStripMenuItem.Text = "일괄선택-선택" + ' + 'gfsdStripMenuItem1 + ' + Me.gfsdStripMenuItem1.Name = "gfsdStripMenuItem1" + Me.gfsdStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.gfsdStripMenuItem1.Text = "전체선택" + ' + 'gsdfolStripMenuItem2 + ' + Me.gsdfolStripMenuItem2.Name = "gsdfolStripMenuItem2" + Me.gsdfolStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gsdfolStripMenuItem2.Text = "전체해제" + ' + 'gwsolStripMenuItem2 + ' + Me.gwsolStripMenuItem2.Name = "gwsolStripMenuItem2" + Me.gwsolStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gwsolStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(194, 6) + ' + 'gfsdolStripMenuItem + ' + Me.gfsdolStripMenuItem.Name = "gfsdolStripMenuItem" + Me.gfsdolStripMenuItem.Size = New System.Drawing.Size(197, 22) + Me.gfsdolStripMenuItem.Text = "선택 삭제" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(194, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(197, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Label13) + Me.Panel1.Controls.Add(Me.tbf8) + Me.Panel1.Controls.Add(Me.Label10) + Me.Panel1.Controls.Add(Me.tbf7) + Me.Panel1.Controls.Add(Me.Label11) + Me.Panel1.Controls.Add(Me.tbf6) + Me.Panel1.Controls.Add(Me.Label12) + Me.Panel1.Controls.Add(Me.tbf5) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.tbf4) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.tbf3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.tbf2) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.tbf1) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 39) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1957, 71) + Me.Panel1.TabIndex = 21 + ' + 'Label13 + ' + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label13.Location = New System.Drawing.Point(966, 42) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(32, 21) + Me.Label13.TabIndex = 53 + Me.Label13.Text = "F12" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf8 + ' + Me.tbf8.BackColor = System.Drawing.Color.White + Me.tbf8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf8.DB_BaseLabel = Nothing + Me.tbf8.DB_ColName = "tbf8" + Me.tbf8.DB_ITEM = False + Me.tbf8.DB_NotNull = False + Me.tbf8.DB_Prompt = "" + Me.tbf8.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf8.DB_WhereType = Nothing + Me.tbf8.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf8.Location = New System.Drawing.Point(999, 42) + Me.tbf8.Name = "tbf8" + Me.tbf8.Size = New System.Drawing.Size(99, 21) + Me.tbf8.TabIndex = 54 + Me.tbf8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf8.Value = "" + Me.tbf8.WHERE_DEFAULT_VALUE = "" + ' + 'Label10 + ' + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label10.Location = New System.Drawing.Point(827, 42) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(32, 21) + Me.Label10.TabIndex = 51 + Me.Label10.Text = "F11" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf7 + ' + Me.tbf7.BackColor = System.Drawing.Color.White + Me.tbf7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf7.DB_BaseLabel = Nothing + Me.tbf7.DB_ColName = "tbf7" + Me.tbf7.DB_ITEM = False + Me.tbf7.DB_NotNull = False + Me.tbf7.DB_Prompt = "" + Me.tbf7.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf7.DB_WhereType = Nothing + Me.tbf7.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf7.Location = New System.Drawing.Point(860, 42) + Me.tbf7.Name = "tbf7" + Me.tbf7.Size = New System.Drawing.Size(99, 21) + Me.tbf7.TabIndex = 52 + Me.tbf7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf7.Value = "" + Me.tbf7.WHERE_DEFAULT_VALUE = "" + ' + 'Label11 + ' + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label11.Location = New System.Drawing.Point(689, 42) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(32, 21) + Me.Label11.TabIndex = 49 + Me.Label11.Text = "F10" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf6 + ' + Me.tbf6.BackColor = System.Drawing.Color.White + Me.tbf6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf6.DB_BaseLabel = Nothing + Me.tbf6.DB_ColName = "tbf6" + Me.tbf6.DB_ITEM = False + Me.tbf6.DB_NotNull = False + Me.tbf6.DB_Prompt = "" + Me.tbf6.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf6.DB_WhereType = Nothing + Me.tbf6.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf6.Location = New System.Drawing.Point(722, 42) + Me.tbf6.Name = "tbf6" + Me.tbf6.Size = New System.Drawing.Size(99, 21) + Me.tbf6.TabIndex = 50 + Me.tbf6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf6.Value = "" + Me.tbf6.WHERE_DEFAULT_VALUE = "" + ' + 'Label12 + ' + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label12.Location = New System.Drawing.Point(554, 42) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(32, 21) + Me.Label12.TabIndex = 47 + Me.Label12.Text = "F9" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf5 + ' + Me.tbf5.BackColor = System.Drawing.Color.White + Me.tbf5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf5.DB_BaseLabel = Nothing + Me.tbf5.DB_ColName = "tbf5" + Me.tbf5.DB_ITEM = False + Me.tbf5.DB_NotNull = False + Me.tbf5.DB_Prompt = "" + Me.tbf5.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf5.DB_WhereType = Nothing + Me.tbf5.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf5.Location = New System.Drawing.Point(587, 42) + Me.tbf5.Name = "tbf5" + Me.tbf5.Size = New System.Drawing.Size(99, 21) + Me.tbf5.TabIndex = 48 + Me.tbf5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf5.Value = "" + Me.tbf5.WHERE_DEFAULT_VALUE = "" + ' + 'Label3 + ' + Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label3.Location = New System.Drawing.Point(418, 42) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(32, 21) + Me.Label3.TabIndex = 45 + Me.Label3.Text = "F8" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf4 + ' + Me.tbf4.BackColor = System.Drawing.Color.White + Me.tbf4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf4.DB_BaseLabel = Nothing + Me.tbf4.DB_ColName = "tbf4" + Me.tbf4.DB_ITEM = False + Me.tbf4.DB_NotNull = False + Me.tbf4.DB_Prompt = "" + Me.tbf4.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf4.DB_WhereType = Nothing + Me.tbf4.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf4.Location = New System.Drawing.Point(451, 42) + Me.tbf4.Name = "tbf4" + Me.tbf4.Size = New System.Drawing.Size(99, 21) + Me.tbf4.TabIndex = 46 + Me.tbf4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf4.Value = "" + Me.tbf4.WHERE_DEFAULT_VALUE = "" + ' + 'Label4 + ' + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label4.Location = New System.Drawing.Point(280, 42) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(32, 21) + Me.Label4.TabIndex = 43 + Me.Label4.Text = "F7" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf3 + ' + Me.tbf3.BackColor = System.Drawing.Color.White + Me.tbf3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf3.DB_BaseLabel = Nothing + Me.tbf3.DB_ColName = "tbf3" + Me.tbf3.DB_ITEM = False + Me.tbf3.DB_NotNull = False + Me.tbf3.DB_Prompt = "" + Me.tbf3.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf3.DB_WhereType = Nothing + Me.tbf3.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf3.Location = New System.Drawing.Point(313, 42) + Me.tbf3.Name = "tbf3" + Me.tbf3.Size = New System.Drawing.Size(99, 21) + Me.tbf3.TabIndex = 44 + Me.tbf3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf3.Value = "" + Me.tbf3.WHERE_DEFAULT_VALUE = "" + ' + 'Label2 + ' + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label2.Location = New System.Drawing.Point(145, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(32, 21) + Me.Label2.TabIndex = 41 + Me.Label2.Text = "F6" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf2 + ' + Me.tbf2.BackColor = System.Drawing.Color.White + Me.tbf2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf2.DB_BaseLabel = Nothing + Me.tbf2.DB_ColName = "tbf2" + Me.tbf2.DB_ITEM = False + Me.tbf2.DB_NotNull = False + Me.tbf2.DB_Prompt = "" + Me.tbf2.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf2.DB_WhereType = Nothing + Me.tbf2.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf2.Location = New System.Drawing.Point(178, 42) + Me.tbf2.Name = "tbf2" + Me.tbf2.Size = New System.Drawing.Size(99, 21) + Me.tbf2.TabIndex = 42 + Me.tbf2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf2.Value = "" + Me.tbf2.WHERE_DEFAULT_VALUE = "" + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label1.Location = New System.Drawing.Point(7, 42) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(32, 21) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "F5" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf1 + ' + Me.tbf1.BackColor = System.Drawing.Color.White + Me.tbf1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf1.DB_BaseLabel = Nothing + Me.tbf1.DB_ColName = "tbf1" + Me.tbf1.DB_ITEM = False + Me.tbf1.DB_NotNull = False + Me.tbf1.DB_Prompt = "" + Me.tbf1.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf1.DB_WhereType = Nothing + Me.tbf1.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf1.Location = New System.Drawing.Point(40, 42) + Me.tbf1.Name = "tbf1" + Me.tbf1.Size = New System.Drawing.Size(99, 21) + Me.tbf1.TabIndex = 40 + Me.tbf1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf1.Value = "" + Me.tbf1.WHERE_DEFAULT_VALUE = "" + ' + 'Panel2 + ' + Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel2.BackColor = System.Drawing.Color.Silver + Me.Panel2.Location = New System.Drawing.Point(8, 34) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1936, 3) + Me.Panel2.TabIndex = 38 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(1331, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 573) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1957, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.AllowNew = True + Me.bs.DataMember = "jjutable" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "번호 ASC" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'Timer1 + ' + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 550) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1957, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'fp + ' + Me.fp.AAutoAddrowInLast = Me.bt_addrow + Me.fp.AccessibleDescription = "fp, Sheet1, Row 0, Column 0, " + Me.fp.ACellImeLabel = Me.lb_ime + Me.fp.ACellposLabel = Me.lb_pos + Me.fp.ACheckBox_ColIndex = CType(28, Short) + Me.fp.ADeleteCell = True + Me.fp.ADeleteRow = True + Me.fp.AEditFromSpace = True + Me.fp.AEditStatusLabel = Me.lb_edit + Me.fp.AFirstColumn_Index = 2 + Me.fp.AllowCellOverflow = True + Me.fp.AllowDragDrop = True + Me.fp.AllowDragFill = True + Me.fp.AllowUserFormulas = True + Me.fp.AMessageLabel = Me.lb_msg + Me.fp.ANextRow_ColIndex = 16 + Me.fp.ASameRowheight = True + Me.fp.BackColor = System.Drawing.SystemColors.Control + Me.fp.ContextMenuStrip = Me.ContextMenuStrip1 + Me.fp.Dock = System.Windows.Forms.DockStyle.Fill + Me.fp.EditModeReplace = True + Me.fp.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fp.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.fp.Location = New System.Drawing.Point(0, 110) + Me.fp.Name = "fp" + Me.fp.RetainSelectionBlock = False + Me.fp.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.fp.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.fp_Sheet1}) + Me.fp.Size = New System.Drawing.Size(1957, 440) + Me.fp.TabIndex = 0 + Me.fp.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fp.SetViewportLeftColumn(0, 0, 9) + Me.fp.SetActiveViewport(0, 0, -1) + ' + 'fp_Sheet1 + ' + Me.fp_Sheet1.Reset() + fp_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.fp_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + fp_Sheet1.ColumnCount = 34 + fp_Sheet1.ColumnHeader.RowCount = 2 + Me.fp_Sheet1.AutoGenerateColumns = False + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 4 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "구전산화번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "구전산번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 6).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 6).Value = "신전산화번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 7).Value = "전산번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 9).ColumnSpan = 5 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 9).Value = "전주번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 18).Value = "COS" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 19).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 19).Value = "상표시찰" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 22).ColumnSpan = 3 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 22).Value = "선로방향" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 26).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 26).Value = "접지" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 31).Value = "선택" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 33).Value = "출력" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "선로명A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "전주번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "관리구B" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "번호B" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "선로명B" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "A1" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "A2" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "A3" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "A4" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "A5" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "장척" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "시공년월" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "시공자" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "휴즈용량" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "1단" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "2단" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "점검일자" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 22).Value = "전방" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "좌측" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "우측" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 25).Value = "비고" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 26).Value = "1A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 27).Value = "2A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 28).Value = "지선" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 29).Value = "인입" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 30).Value = "기입" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 31).Value = "S" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 33).Value = "P" + Me.fp_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.fp_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.fp_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.fp_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.ColumnHeader.Rows.Get(0).Height = 28.0! + Me.fp_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType5.DecimalPlaces = 0 + NumberCellType5.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.fp_Sheet1.Columns.Get(0).CellType = NumberCellType5 + Me.fp_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.fp_Sheet1.Columns.Get(0).Width = 0.0! + Me.fp_Sheet1.Columns.Get(1).AllowAutoSort = True + NumberCellType6.DecimalPlaces = 0 + NumberCellType6.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.fp_Sheet1.Columns.Get(1).CellType = NumberCellType6 + Me.fp_Sheet1.Columns.Get(1).DataField = "번호" + Me.fp_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(1).Tag = "번호" + Me.fp_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(1).Width = 71.0! + Me.fp_Sheet1.Columns.Get(2).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType55.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType55.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(2).CellType = TextCellType55 + Me.fp_Sheet1.Columns.Get(2).DataField = "구관리구" + Me.fp_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(2).Label = "관리구A" + Me.fp_Sheet1.Columns.Get(2).Tag = "구관리구" + Me.fp_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(2).Width = 72.0! + Me.fp_Sheet1.Columns.Get(3).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType56.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType56.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(3).CellType = TextCellType56 + Me.fp_Sheet1.Columns.Get(3).DataField = "구전산번호" + Me.fp_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(3).Label = "번호A" + Me.fp_Sheet1.Columns.Get(3).Tag = "구전산화번호" + Me.fp_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(3).Width = 86.0! + Me.fp_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.fp_Sheet1.Columns.Get(4).CellType = TextCellType57 + Me.fp_Sheet1.Columns.Get(4).DataField = "구선로명" + Me.fp_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(4).Label = "선로명A" + Me.fp_Sheet1.Columns.Get(4).Tag = "구선로명" + Me.fp_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(4).Width = 72.0! + Me.fp_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.fp_Sheet1.Columns.Get(5).CellType = TextCellType58 + Me.fp_Sheet1.Columns.Get(5).DataField = "구전주번호" + Me.fp_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(5).Label = "전주번호" + Me.fp_Sheet1.Columns.Get(5).Tag = "구전주번호" + Me.fp_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(5).Width = 76.0! + TextCellType59.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType59.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(6).CellType = TextCellType59 + Me.fp_Sheet1.Columns.Get(6).DataField = "관리구" + Me.fp_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(6).Label = "관리구B" + Me.fp_Sheet1.Columns.Get(6).Tag = "관리구" + Me.fp_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(6).Width = 78.0! + TextCellType60.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType60.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(7).CellType = TextCellType60 + Me.fp_Sheet1.Columns.Get(7).DataField = "전주번호" + Me.fp_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(7).Label = "번호B" + Me.fp_Sheet1.Columns.Get(7).Tag = "전산화번호" + Me.fp_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(7).Width = 63.0! + Me.fp_Sheet1.Columns.Get(8).CellType = TextCellType61 + Me.fp_Sheet1.Columns.Get(8).DataField = "선로명" + Me.fp_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(8).Label = "선로명B" + Me.fp_Sheet1.Columns.Get(8).Tag = "선로명" + Me.fp_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(8).Width = 96.0! + Me.fp_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType62.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(9).CellType = TextCellType62 + Me.fp_Sheet1.Columns.Get(9).DataField = "번호1" + Me.fp_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(9).Label = "A1" + Me.fp_Sheet1.Columns.Get(9).Tag = "번호1" + Me.fp_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(9).Width = 86.0! + Me.fp_Sheet1.Columns.Get(10).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType63.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(10).CellType = TextCellType63 + Me.fp_Sheet1.Columns.Get(10).DataField = "번호2" + Me.fp_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(10).Label = "A2" + Me.fp_Sheet1.Columns.Get(10).Tag = "번호2" + Me.fp_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(10).Width = 41.0! + Me.fp_Sheet1.Columns.Get(11).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType64.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(11).CellType = TextCellType64 + Me.fp_Sheet1.Columns.Get(11).DataField = "번호3" + Me.fp_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(11).Label = "A3" + Me.fp_Sheet1.Columns.Get(11).Tag = "번호3" + Me.fp_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(11).Width = 41.0! + Me.fp_Sheet1.Columns.Get(12).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType65.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(12).CellType = TextCellType65 + Me.fp_Sheet1.Columns.Get(12).DataField = "번호4" + Me.fp_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(12).Label = "A4" + Me.fp_Sheet1.Columns.Get(12).Tag = "번호4" + Me.fp_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(12).Width = 46.0! + Me.fp_Sheet1.Columns.Get(13).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType66.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(13).CellType = TextCellType66 + Me.fp_Sheet1.Columns.Get(13).DataField = "번호5" + Me.fp_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(13).Label = "A5" + Me.fp_Sheet1.Columns.Get(13).Tag = "번호5" + Me.fp_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(13).Width = 50.0! + TextCellType67.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(14).CellType = TextCellType67 + Me.fp_Sheet1.Columns.Get(14).DataField = "장척" + Me.fp_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(14).Label = "장척" + Me.fp_Sheet1.Columns.Get(14).Tag = "장척" + Me.fp_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(14).Width = 44.0! + TextCellType68.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric + Me.fp_Sheet1.Columns.Get(15).CellType = TextCellType68 + Me.fp_Sheet1.Columns.Get(15).DataField = "시공년월" + Me.fp_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(15).Label = "시공년월" + Me.fp_Sheet1.Columns.Get(15).Locked = False + Me.fp_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(15).Width = 69.0! + Me.fp_Sheet1.Columns.Get(16).CellType = TextCellType69 + Me.fp_Sheet1.Columns.Get(16).DataField = "시공자" + Me.fp_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(16).Label = "시공자" + Me.fp_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(16).Width = 63.0! + Me.fp_Sheet1.Columns.Get(17).CellType = TextCellType70 + Me.fp_Sheet1.Columns.Get(17).DataField = "감독자" + Me.fp_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(17).Tag = "감독자" + Me.fp_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(17).Width = 55.0! + TextCellType71.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType71.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(18).CellType = TextCellType71 + Me.fp_Sheet1.Columns.Get(18).DataField = "COS휴즈용량" + Me.fp_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(18).Label = "휴즈용량" + Me.fp_Sheet1.Columns.Get(18).Tag = "COS휴즈용량" + Me.fp_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType72.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType72.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + TextCellType72.MaxLength = 3 + Me.fp_Sheet1.Columns.Get(19).CellType = TextCellType72 + Me.fp_Sheet1.Columns.Get(19).DataField = "상표시찰1단" + Me.fp_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(19).Label = "1단" + Me.fp_Sheet1.Columns.Get(19).Tag = "상표시찰1단" + Me.fp_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType73.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType73.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.fp_Sheet1.Columns.Get(20).CellType = TextCellType73 + Me.fp_Sheet1.Columns.Get(20).DataField = "상표시찰2단" + Me.fp_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(20).Label = "2단" + Me.fp_Sheet1.Columns.Get(20).Tag = "상표시찰2단" + Me.fp_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(21).CellType = TextCellType74 + Me.fp_Sheet1.Columns.Get(21).DataField = "점검일자" + Me.fp_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(21).Label = "점검일자" + Me.fp_Sheet1.Columns.Get(21).Tag = "점검일자" + Me.fp_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(22).CellType = TextCellType75 + Me.fp_Sheet1.Columns.Get(22).DataField = "선로전방" + Me.fp_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(22).Label = "전방" + Me.fp_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(23).CellType = TextCellType76 + Me.fp_Sheet1.Columns.Get(23).DataField = "선로좌측" + Me.fp_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(23).Label = "좌측" + Me.fp_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(24).CellType = TextCellType77 + Me.fp_Sheet1.Columns.Get(24).DataField = "선로우측" + Me.fp_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(24).Label = "우측" + Me.fp_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(25).CellType = TextCellType78 + Me.fp_Sheet1.Columns.Get(25).DataField = "DL명" + Me.fp_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(25).Label = "비고" + Me.fp_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(25).Width = 100.0! + Me.fp_Sheet1.Columns.Get(26).CellType = TextCellType79 + Me.fp_Sheet1.Columns.Get(26).DataField = "접지저항1" + Me.fp_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(26).Label = "1A" + Me.fp_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(26).Width = 58.0! + TextCellType80.MaxLength = 3 + Me.fp_Sheet1.Columns.Get(27).CellType = TextCellType80 + Me.fp_Sheet1.Columns.Get(27).DataField = "접지저항2" + Me.fp_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(27).Label = "2A" + Me.fp_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(28).CellType = CheckBoxCellType11 + Me.fp_Sheet1.Columns.Get(28).DataField = "인쇄" + Me.fp_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(28).Label = "지선" + Me.fp_Sheet1.Columns.Get(28).Tag = "지선" + Me.fp_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(28).Width = 47.0! + Me.fp_Sheet1.Columns.Get(29).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(29).CellType = CheckBoxCellType12 + Me.fp_Sheet1.Columns.Get(29).DataField = "인입" + Me.fp_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(29).Label = "인입" + Me.fp_Sheet1.Columns.Get(29).Tag = "인입" + Me.fp_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(29).Width = 34.0! + Me.fp_Sheet1.Columns.Get(30).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(30).CellType = CheckBoxCellType13 + Me.fp_Sheet1.Columns.Get(30).DataField = "기입" + Me.fp_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(30).Label = "기입" + Me.fp_Sheet1.Columns.Get(30).Tag = "kiip" + Me.fp_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(30).Width = 37.0! + Me.fp_Sheet1.Columns.Get(31).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(31).CellType = CheckBoxCellType14 + Me.fp_Sheet1.Columns.Get(31).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(31).Label = "S" + Me.fp_Sheet1.Columns.Get(31).Tag = "선택" + Me.fp_Sheet1.Columns.Get(31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(31).Width = 44.0! + Me.fp_Sheet1.Columns.Get(32).AllowAutoSort = True + Me.fp_Sheet1.Columns.Get(32).CellType = TextCellType81 + Me.fp_Sheet1.Columns.Get(32).DataField = "정렬번호" + Me.fp_Sheet1.Columns.Get(32).Width = 34.0! + Me.fp_Sheet1.Columns.Get(33).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(33).CellType = CheckBoxCellType15 + Me.fp_Sheet1.Columns.Get(33).DataField = "출력" + Me.fp_Sheet1.Columns.Get(33).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(33).Label = "P" + Me.fp_Sheet1.Columns.Get(33).Tag = "P" + Me.fp_Sheet1.Columns.Get(33).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(33).Width = 49.0! + Me.fp_Sheet1.DataAutoCellTypes = False + Me.fp_Sheet1.DataAutoSizeColumns = False + Me.fp_Sheet1.FrozenColumnCount = 9 + Me.fp_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.fp_Sheet1.PrintInfo.ShowGrid = False + Me.fp_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.fp_Sheet1.RowHeader.Columns.Get(0).Width = 42.0! + Me.fp_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.fp_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.fp_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.fp_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.fp_Sheet1.Rows.Default.Height = 25.0! + Me.fp_Sheet1.Rows.Default.Resizable = True + Me.fp_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.fp_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.fp_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'AddEpole + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(1957, 634) + Me.Controls.Add(Me.fp) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpole" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "번호찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fp, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fp_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents savetextoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_import As System.Windows.Forms.ToolStripButton + Friend WithEvents fp As NewFp + Friend WithEvents fp_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents grsfdoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents grsdfipMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gsfoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gdflStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents fdlStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gttripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents allselolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gsdfolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gwsolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents gfsdolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk2 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents check2ipMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents dupchksunloolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents allsavedata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents currentsavedata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents findtextlStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_viewoldnum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents M_ONUMEQN_NUM As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ONUMNNUM As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cm_checkjisunju As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cmbt_hnum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CmbtnhnumToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + Friend WithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_print As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_20 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_savecolsize As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bt_11 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_201 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_dupchk1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem10 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem11 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem12 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem13 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 구신전산화번호가동일한경우ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 뷰상태초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem14 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents tbf8 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents tbf7 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tbf6 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents tbf5 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tbf4 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tbf3 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tbf2 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tbf1 As MyControlOLEDBv2.MyTextBox +End Class diff --git a/Epole/입력폼/AddEpole.resx b/Epole/입력폼/AddEpole.resx new file mode 100644 index 0000000..d7fa23a --- /dev/null +++ b/Epole/입력폼/AddEpole.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 331, 17 + + + 927, 17 + + + 1036, 17 + + + 65 + + + 449, 17 + + + 204, 17 + + + 799, 17 + + + 140, 17 + + + 17, 17 + + + 609, 17 + + + 17, 17 + + + 709, 17 + + + 865, 17 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpole.vb b/Epole/입력폼/AddEpole.vb new file mode 100644 index 0000000..233034d --- /dev/null +++ b/Epole/입력폼/AddEpole.vb @@ -0,0 +1,1675 @@ +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''' 2007-10-01 : ҽ : Ƹ(tindevil.nate.com) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Public Class AddEpole + ' Dim NeedIndexSort As Boolean = False + Dim WithEvents DT As ireaDataSet.jjutableDataTable + Dim Sorted As ESorted = ESorted.NULL + 'Dim viewTag As String = "jjun" + Dim IsNew As Boolean = False + + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NewId As Integer = CInt(Me.Get_NewNumber) + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = NewId + NEwrow("") = True + ' NEwrow("Ĺȣ") = "test" + + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & NewId.ToString("00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & NewId.ToString("00000") & "1000" + End If + End Sub + + 'Dim SaveFlag As Boolean = False + Public Sub New(ByVal maxid As Integer) ' QR߰ + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + 'Me.h_si.Enabled = True + 'Me.h_hom.Enabled = True + 'Me.h_kwan.Enabled = True + 'Me.h_kwan1.Enabled = True + 'Me.h_kwan2.Enabled = True + Me.Text = "(Ϲ) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(Ϲ)ȣ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String, ByVal V_si As String, ByVal V_hom As String, ByVal V_kwan As String, ByVal V_kwan1 As String, ByVal V_kwan2 As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. 'QR߰ + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + 'Me.h_si.Text = V_si + 'Me.h_hom.Text = V_hom + 'Me.h_kwan.Text = V_kwan + 'Me.h_kwan1.Text = V_kwan1 + 'Me.h_kwan2.Text = V_kwan2 + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(Ϲ) Է" + IsNew = False + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + bs.EndEdit() + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + + Me.CHk_Modify() + + '//Ű ֱ + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini") + INI.Write("key", "f1", tbf1.Text) + INI.Write("key", "f2", tbf2.Text) + INI.Write("key", "f3", tbf3.Text) + INI.Write("key", "f4", tbf4.Text) + INI.Write("key", "f5", tbf5.Text) + INI.Write("key", "f6", tbf6.Text) + INI.Write("key", "f7", tbf7.Text) + INI.Write("key", "f8", tbf8.Text) + + Frm_Main.bt_find.PerformClick() '//鼭 ˻ư Ѵ.( ٷκ̰ Ѵ) + 'If Me.SaveFlag Then Me.DialogResult = Windows.Forms.DialogResult.OK '//saveflag ƮǾ ok Ѵ. + End Sub + + Private Sub AddEpole_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.F1 Then + If e.Control AndAlso e.Shift Then + If MsgBox("ʺ ʱȭϽðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + fp.ColSize_Init() + End If + End If + End If + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.fp.ASetting_Load(False) + Me.fp.ѱʵ = New String() {"θA", "θB", "ð", "", "", ""} + + Me.bt_dupchk2.Visible = IsPro + + 'Me.view1.AEnterToNextItem(False) + 'Me.JjutableTableAdapter1.Connection.ConnectionString = ConString + + Me.fp.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.SETTOOLTIP() + + '//Ű ֱ + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini") + tbf1.Text = INI.Read("key", "f1") + tbf2.Text = INI.Read("key", "f2") + tbf3.Text = INI.Read("key", "f3") + tbf4.Text = INI.Read("key", "f4") + tbf5.Text = INI.Read("key", "f5") + tbf6.Text = INI.Read("key", "f6") + tbf7.Text = INI.Read("key", "f7") + tbf8.Text = INI.Read("key", "f8") + + + DT = Me.IreaDataSet1.jjutable + + Me.Show() + Me.fp.ACheckBox_ColIndex = Me.fp.ActiveSheet.Columns("").Index + 'MsgBox(Me.view1.ACheckBox_ColIndex) + 'Me.Refresh() Me.ta.Fill(Me.IreaDataSet1.jjutable, Me.h_id.Text) '//id ؼ ͸ ä. + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from ּ where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() ''''''''ͺֱ + + 'If Me.view1.ActiveSheet.RowCount <= 0 Then + ' If MsgBox("Ͱ ʽϴ" & vbCrLf & "Ϸκ ͸ ɴϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "ϰ") = MsgBoxResult.Ok Then + ' Me.bt_import.PerformClick() + ' Else + ' Me.bt_insertrow.PerformClick() + ' End If + 'End If + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ , ALT+ENTER:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.fp, TMSG.ToString) + + 'TMSG = New System.Text.StringBuilder() + 'TMSG.AppendLine() + 'TMSG.AppendLine("˻ 켱 : ->->ѱ") + 'TMSG.AppendLine(" ->0 000 켱 ϴ.") + 'Me.bt_findmenu.ToolTipText = "ͺ̽ ٽ ҷɴϴ" & vbCrLf & "ȣ Ŭϼ" + + End Sub + + Private Sub SetFarPoint() + 'Me.view1.AEnterToNextItem(False) '//Ʈ忡 enter ʰѴ. + Me.fp.DataSource = Me.bs + + 'Dim A As FarPoint.Win.Spread.CellType.TextCellType = Me.view1.ActiveSheet.Columns(2).CellType + 'A.CharacterCasing = CharacterCasing.Upper + 'Me.view1.ActiveSheet.Columns(2).CellType = A + 'Me.view1.ActiveSheet.Columns(3).CellType = A + 'Me.view1.ActiveSheet.Columns(4).CellType = A + 'Me.view1.ActiveSheet.Columns(5).CellType = A + 'Me.view1.ActiveSheet.Columns(6).CellType = A + 'Me.view1.ActiveSheet.Columns(7).CellType = A + 'Me.view1.ActiveSheet.Columns(8).CellType = A + 'Me.view1.ActiveSheet.Columns(9).CellType = A + 'Me.view1.ActiveSheet.Columns(10).CellType = A + 'Me.view1.ActiveSheet.Columns(11).CellType = A + 'Me.view1.ActiveSheet.Columns(12).CellType = A + ''A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric + 'A = Me.view1.ActiveSheet.Columns(13).CellType + 'A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric + + 'Me.view1.ActiveSheet.Columns(23).DataField = "Ĺȣ" + '' Me.view1.ActiveSheet.Columns(22).DataField = "" + + + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.fp_Sheet1.RowCount - 1 + If Me.fp_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.fp_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + Try + Me.ta.Update(Me.IreaDataSet1.jjutable) '//Commit insert/update/delete '''QRڵ + Me.IreaDataSet1.jjutable.AcceptChanges() '//Set All Green + + Try + 'Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ,ð,Ȩ,,1,2) values(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11,:12,0)" + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,0)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.jjutable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount + 'Cmd.Parameters.Add(":8", OleDbType.VarChar).Value = Me.h_si.Text + 'Cmd.Parameters.Add(":9", OleDbType.VarChar).Value = Me.h_hom.Text + 'Cmd.Parameters.Add(":10", OleDbType.VarChar).Value = Me.h_kwan.Text + 'Cmd.Parameters.Add(":11", OleDbType.VarChar).Value = Me.h_kwan1.Text + 'Cmd.Parameters.Add(":12", OleDbType.VarChar).Value = Me.h_kwan2.Text + Cmd.ExecuteNonQuery() + Catch ex As Exception + + ' Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ð=:8,Ȩ=:9,=:10,1=:11,2=:12,ȣ=0 where id=:1" + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=0 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.jjutable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount + ' Cmd.Parameters.Add(":8", OleDbType.VarChar).Value = Me.h_si.Text + ' Cmd.Parameters.Add(":9", OleDbType.VarChar).Value = Me.h_hom.Text + ' Cmd.Parameters.Add(":10", OleDbType.VarChar).Value = Me.h_kwan.Text + ' Cmd.Parameters.Add(":11", OleDbType.VarChar).Value = Me.h_kwan1.Text + ' Cmd.Parameters.Add(":12", OleDbType.VarChar).Value = Me.h_kwan2.Text + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.jjutable.RejectChanges() + NOTICE(" !", Color.Red, Me.lb_msg) + Finally + fp.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + + 'Me.SaveFlag = True + Me.bs.EndEdit() + + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.jjutable, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.jjutable.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + + NOTICE(Me.fp.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_import.Click '//ҷ + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.fp.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 0) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data(False) + Me.fp.ResumeLayout() + End Sub + + + Private Sub dupcheckoldnumoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + NOTICE("ߺǴ [ ȭȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ ȭȣ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + Private Sub check2ipMenuItemem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles check2ipMenuItem.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ֹȣ").Index} + + + NOTICE("ߺǴ [ θ, ֹȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ θ, ֹȣ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub dupchksunloolStripMenuItemuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dupchksunloolStripMenuItem.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ȣ1").Index, _ + Me.fp.ActiveSheet.Columns("ȣ2").Index, _ + Me.fp.ActiveSheet.Columns("ȣ3").Index, _ + Me.fp.ActiveSheet.Columns("ȣ4").Index, _ + Me.fp.ActiveSheet.Columns("ȣ5").Index} + + NOTICE("ߺǴ [ θ,ֹȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ θ,ֹȣ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click '//߰ + If Me.Sorted = ESorted.NULL Then Check_Sorted() + + bs.AddNew() + fp.ActiveSheet.SetActiveCell(fp.ActiveSheet.RowCount, fp.AFirstColumn_Index) '//ùġ Ѵ. + + 'Me.view1.AAddNewRow() + 'SendKeys.Send("{ENTER}") + 'Me.view1.ActiveSheet.Rows.Add(Me.view1.ActiveSheet.RowCount, 1) + ' Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount, 1) + + 'Dim NewRowIndex As Integer = Me.view1.NewRowsU() '//ٿ ϳ ߰ + + ''MsgBox(NewRowIndex) + + 'With Me.view1.ActiveSheet + ' .Cells(NewRowIndex, 0).Value = CInt(Me.h_id.Text) + ' .Cells(NewRowIndex, 1).Value = CInt(Me.Get_NewNumber) + ' '.Cells(NewRowIndex, 23).Value = "" & Format(NewRowIndex, "000000") + ' .ActiveRowIndex = NewRowIndex + ' .SetActiveCell(NewRowIndex, Me.view1.FIRST_FOCUSINDEX) + ' SendKeys.Send("{ENTER}") + ' 'Me.view1.ActiveSheet.AddRowToDataSource(NewRowIndex, True) + 'End With + + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + 'Me.view1.Attach_Ubound(2) '//ٿ ⼭ ٿѺд. + Me.bs.EndEdit() '// ʹ ŷ + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + 'Me.view1.Attach_Ubound(2) + Me.bs.EndEdit() + + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + + Private Sub grsdfipMMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grsdfipMenuItem.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = True + Next + 'Me.view1.ItemCheck_Select(22) + End Sub + + Private Sub olStripMenipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gsfoolStripMenuItem.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = False + Next + 'Me.view1.ItemCheck_Unselect(22) + + End Sub + + Private Sub gdflStripMeipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gdflStripMenuItem.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = Not NVL(dr(""), False) + Next + 'Me.view1.ItemCheck_Reverse(22) + End Sub + + Private Sub dStripMenutripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdStripMenuItem.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = True + Next + 'Me.view1.ItemCheck_Select(23) + + End Sub + + Private Sub lStripMenuItipMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fdlStripMenuItem1.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = False + Next + End Sub + + Private Sub ttripMenuItipMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gttripMenuItem1.Click + For Each dr As DataRow In Me.IreaDataSet1.jjutable.Rows + dr("") = Not NVL(dr(""), False) + Next + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles fp.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + Private Sub view1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles fp.EditModeOff '// + + End Sub + + Private Sub sdStripMenuItemMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdStripMenuItem1.Click + Me.fp.ASelect(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub folStripMenuItuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gsdfolStripMenuItem2.Click + Me.fp.AUnselect(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub gwsolStripMenuIteStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gwsolStripMenuItem2.Click + Me.fp.AReverse(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.fp.ActiveSheet.Rows.Count > 0 Then + Me.fp.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + + End Sub + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.KeyDown + + If (e.KeyCode = Keys.F10) Then + e.Handled = True + e.SuppressKeyPress = True + End If + + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.fp.ActiveSheet.ActiveColumnIndex) + End Sub + + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles fp.DragFillBlockCompleted + + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.jjutable.Rows(fp.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles fp.Change + '//ÿ üũȰ ٲش. + + If e.Column = Me.fp.ACheckBox_ColIndex AndAlso Me.fp.ActiveSheet.Cells(e.Row, Me.fp.ACheckBox_ColIndex).Value = True Then '// + Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.jjutableRow = Me.DT.NewjjutableRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + + Dim AR As Integer = Me.fp.ActiveSheet.ActiveRowIndex + Me.DT.AddjjutableRow(NR) + Me.fp.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Me.Text = Me.fp.ActiveSheet.ActiveRowIndex & "/" & Me.fp.ActiveSheet.ActiveColumnIndex + End Sub + + + + Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles fp.EnterCell + Select Case Me.fp.ActiveSheet.ActiveColumn.Label.ToUpper + + Case "D/L" + + NOTICE("2ϰ쿡 ,;, · Էϼ", Color.Blue, Me.lb_msg) + End Select + End Sub + + + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + + Private Sub gfsdolStripMenuItempMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdolStripMenuItem.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.ActiveSheet.Rows(i).Remove() + Next + + 'For Each Dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows + ' If Dr. Then Dr.Delete() + ' Next + + 'For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + ' With Me.view1.ActiveSheet + ' If .Cells(A.Index, 22).Value = True Then '//õǾ ش Ѵ + ' .Rows(A.Index).Remove() + ' End If + ' End With + ' Next + End Sub + + + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + + '//ʹ (÷ ) + 'Me.fp.SaveExcel(a.FileName) + ' Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + + '//÷ 2ٳ鼭 2ٵ © + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + ' Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveCustomColumnHeaders) + ' Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders) + + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub allsavedataMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allsavedata.Click + Me.bt_save_all.PerformClick() + + End Sub + + Private Sub currentsavedataoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles currentsavedata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub ToolStripButton6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.fp.Focus() + Me.fp.ActiveSheet.SetActiveCell(1, 5) + + End Sub + + Private Sub AddEpole_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.fp.Focus() + Me.fp.Focus() + End Sub + + Private Sub ToolStripButton6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + If MsgBox("ֹȣ Ͱ ĵ˴ϴ" & vbCrLf & vbCrLf & "Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.IreaDataSet1.jjutable.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then '// 123H1R1R2H3 + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + '// 123@1@1@2@3 + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString '//123@001@001@002@003 + + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + + If dr.μ = False Then + ȣ = CStr(ȣ.ToUpper.Replace("K", "C")).Replace("G", "C") & "A" + Else + ȣ = CStr(ȣ.ToUpper.Replace("K", "C")).Replace("G", "C") & "B" + End If + + ȣ = ȣ.Replace("H", "@") + '//H : ٷξչȣ 1 H??? 0000 + '//H ֺ ;ϰ H ĵǾ Ѵ. + 'If ȣ.IndexOf("H") <> -1 Then '//Hִٴ°̴ H ٷξհH 0 ٲ۴. + ' Dim As String = ȣ.Substring(0, ȣ.IndexOf("H") - 3) + ' Dim չȣ As Short = ȣ.Substring(ȣ.IndexOf("H") - 3, 3) + ' Dim Ĺ As String = ȣ.Substring(ȣ.IndexOf("H") + 4) + ' 'ȣ = & Format(չȣ - 1, "000") & "ZZZ" & Ĺ + ' ȣ = & Format(չȣ - 1, "000") & "ZZZ" & ȣ.Substring(ȣ.IndexOf("H") + 1) & Ĺ + 'End If + 'If ȣ.IndexOf("H") <> -1 Then GoTo LBL_H + dr.Ĺȣ = dr.θ & ȣ + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findtextlStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.fp.Search(Me.fp.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.fp.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_viewoldnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_viewoldnum.Click + Me.fp.ActiveSheet.Columns(4).Width = 80 + Me.fp.ActiveSheet.Columns(5).Width = 80 + End Sub + + Private Sub M_OLDSUNNUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub M_ONUMEQN_NUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_ONUMEQN_NUM.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index, _ + Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ֹȣ").Index} + + Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index, _ + Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ȣ1").Index, _ + Me.fp.ActiveSheet.Columns("ȣ2").Index, _ + Me.fp.ActiveSheet.Columns("ȣ3").Index, _ + Me.fp.ActiveSheet.Columns("ȣ4").Index, _ + Me.fp.ActiveSheet.Columns("ȣ5").Index} + + NOTICE("ߺǴ [1. , ȭȣ θ,ֹȣ ġϴ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.AdupCheckSR(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[1. , ȭȣ θ,ֹȣ ġϴ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + Private Sub ONUMNNUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ONUMNNUM.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("ߺǴ [ֹȣ] = [ֹȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + = Me.fp.ActiveSheet.Cells(A.Index, 9).Value & Me.fp.ActiveSheet.Cells(A.Index, 10).Value & Me.fp.ActiveSheet.Cells(A.Index, 11).Value & _ + Me.fp.ActiveSheet.Cells(A.Index, 12).Value & Me.fp.ActiveSheet.Cells(A.Index, 13).Value + = Me.fp.ActiveSheet.Cells(A.Index, 5).Value + + If .ToString <> "" Then + If .ToString = .ToString Then + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True + 'Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True + End If + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[ֹȣ] = [ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + + Private Sub cm_checkjisunju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_checkjisunju.Click + '// ȣ 21 . + Dim A As New System.Text.StringBuilder(" üũ ָ ϰ ˻մϴ") + A.AppendLine() + A.AppendLine("Ͻðڽϱ?(Ϸ Ұ)") + If MsgBox(A.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + + Me.pbar.Minimum = 0 + Me.pbar.Value = 0 + Me.pbar.Maximum = Me.IreaDataSet1.jjutable.Count + + Dim JN As String + For Each Dr As DataRow In Me.IreaDataSet1.jjutable.Rows + pbar.Value += 1 + JN = Dr("ȣ1") & Dr("ȣ2") & Dr("ȣ3") & Dr("ȣ4") & Dr("ȣ5") + If JN.IndexOf("G") > -1 OrElse JN.IndexOf("K") > -1 Then + Dr("μ") = True + Else + Dr("μ") = False + End If + Next + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.jjutable, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.jjutable.Rows + A("") = Not A("") + Next + End Sub + + + Private Sub cmbt_hnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbt_hnum.Click + Dim DT As ireaDataSet.jjutableDataTable + + DT = Me.IreaDataSet1.jjutable.Copy '//̺ īߴ. + + Dim ֹȣ As String + Dim As String + For Each Dr As ireaDataSet.jjutableRow In DT.Rows + '//̺ οκ ֹȣ Hմ³ ãƼ ̺ Ѵ. + ֹȣ = CStr(Dr.ȣ1 & Dr.ȣ2 & Dr.ȣ3 & Dr.ȣ4 & Dr.ȣ5).ToUpper + = CStr(Dr.ֹȣ).ToUpper + If ֹȣ.IndexOf("H") < 0 AndAlso .IndexOf("H") < 0 Then Dr.Delete() + MsgBox() + + Next + DT.AcceptChanges() + + Me.fp.DataSource = DT + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + a.FileName = "HԸ.xls" + + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + + Me.fp.DataSource = Me.bs + + End Sub + + Private Sub CmbtnhnumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbtnhnumToolStripMenuItem.Click + Dim DT As ireaDataSet.jjutableDataTable + + DT = Me.IreaDataSet1.jjutable.Copy '//̺ īߴ. + + Dim ֹȣ As String + Dim As String + For Each Dr As ireaDataSet.jjutableRow In DT.Rows + '//̺ οκ ֹȣ Hմ³ ãƼ ̺ Ѵ. + ֹȣ = CStr(Dr.ȣ1 & Dr.ȣ2 & Dr.ȣ3 & Dr.ȣ4 & Dr.ȣ5).ToUpper + = CStr(Dr.ֹȣ).ToUpper + + If ֹȣ.IndexOf("H") >= 0 OrElse .IndexOf("H") >= 0 Then Dr.Delete() + Next + DT.AcceptChanges() + + Me.fp.DataSource = DT + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + a.FileName = "HԸ.xls" + + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + + Me.fp.DataSource = Me.bs + End Sub + + Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click + Me.bt_print.PerformClick() + End Sub + + Private Sub bt_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.Click + + Me.bs.EndEdit() + If Me.fp.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim A As New printform(Me.IreaDataSet1.jjutable, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + If Admin Then + A.Show() + + Else + A.ShowDialog() + + End If + End Sub + + Private Sub bt_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_2.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("[, θ,ֹȣ ٸ(ֹȣ 'H' ִ°)] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ֹȣ").Index).Text + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ1").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ2").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ3").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ4").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ5").Index).Text + + If (.ToUpper.IndexOf("H") >= 0 OrElse .ToUpper.IndexOf("H") >= 0) AndAlso .ToString <> "" Then '//ȣ Hְ + If .ToString <> .ToString Then '//δٸ + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True + End If + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[, θ,ֹȣ ٸ(ֹȣ 'H' ִ°)] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + Private Sub bt_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_3.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("[, θ,ֹȣ ٸ(ֹȣ 'H' °)] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ֹȣ").Index).Text + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ1").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ2").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ3").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ4").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ5").Index).Text + + If .ToString <> "" AndAlso .ToUpper.IndexOf("H") = -1 AndAlso .ToUpper.IndexOf("H") = -1 Then '//Ѵ ȣ ȣ H + If .ToString <> .ToString Then '//δٸ + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True + End If + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[, θ,ֹȣ ٸ(ֹȣ 'H' °)] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub bt_20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_20.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + NOTICE("[, ȭȣ ٸ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheckSr_inBlank(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar, False) + NOTICE("[, ȭȣ ٸ ] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles fp.CellClick + + End Sub + + Private Sub bt_dup_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Dim 1, 2 As String + Dim fcnt As Integer = 0 + Dim bA() As Short = New Short() {Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ֹȣ").Index} + + NOTICE("ߺǴ [ θ, ֹȣ : ֹ] ãԴϴ...", Me.lb_msg) + + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + + If Not pbar Is Nothing Then + pbar.Value = 0 + pbar.Minimum = 0 + pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1 + End If + + For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + = "" + 1 = "" + + For Each T As Short In bA + &= Me.fp.ActiveSheet.Cells(A, T).Value + Next + 1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("").Index).Text + + If .Trim.ToString <> "" AndAlso 1.ToUpper = "FALSE" Then + For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + 2 = "" + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In bA + &= Me.fp.ActiveSheet.Cells(B, T).Value + Next + 2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("").Index).Text + '//̳ ְ ƴϿѴ. + '// ÷± Ǿִ. + If 2.ToUpper = "FALSE" AndAlso .Trim.ToString = .Trim.ToString Then '//ϰ쿡 A. + fcnt += 1 + Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True + Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True + + End If + End If + Next + End If + If pbar.Value < pbar.Maximum Then pbar.Value += 1 + Me.Invalidate() + Next + 'fcnt = Me.view1.ߺ˻2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ θ, ֹȣ : ֹ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", 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.fp.ASetting_Save(False) + End Sub + + Private Sub view1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles fp.LeaveCell + Select Case Me.fp.ActiveColumn.Label.ToUpper + Case "ô" + Dim Drv As DataRowView = Me.bs.Current + If Me.fp.ActiveSheet.Cells(e.Row, e.Column).Text <> "" Then + Drv("") = False + Else + Drv("") = True + End If + + End Select + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.Arin_Before_KeyDown + ' view1_Arin_AddLog(sender, "信 before_keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + Case Keys.F5 + e.Handled = True + e.SuppressKeyPress = True + If tbf1.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf1.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf1.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Value = tbf1.Text.Trim() + End If + End If + Case Keys.F6 + e.Handled = True + e.SuppressKeyPress = True + If tbf2.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf2.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf2.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf2.Text.Trim() + End If + End If + Case Keys.F7 + e.Handled = True + e.SuppressKeyPress = True + If tbf3.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf3.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf3.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf3.Text.Trim() + End If + End If + Case Keys.F8 + e.Handled = True + e.SuppressKeyPress = True + If tbf4.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf4.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf4.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf4.Text.Trim() + End If + End If + Case Keys.F9 + e.Handled = True + e.SuppressKeyPress = True + If tbf5.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf5.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf5.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf5.Text.Trim() + End If + End If + Case Keys.F10 + e.Handled = True + e.SuppressKeyPress = True + If tbf6.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf6.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf6.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf6.Text.Trim() + End If + End If + Case Keys.F11 + e.Handled = True + e.SuppressKeyPress = True + If tbf7.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf7.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf7.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf7.Text.Trim() + End If + End If + Case Keys.F12 + e.Handled = True + e.SuppressKeyPress = True + If tbf8.Text <> "" Then + If fp_Sheet1.ActiveColumn.DataField = "ð" Then + If Not IsNumeric(tbf8.Text) Then + MsgBox("ڰ Է ֽϴ", MsgBoxStyle.Critical, "Ȯ") + Else + fp_Sheet1.ActiveCell.Value = CInt(tbf8.Text.Trim()) + End If + Else + fp_Sheet1.ActiveCell.Text = tbf8.Text.Trim() + End If + End If + Case Keys.Enter '/ٿ ̿ bt_insertrow + With Me.fp.ActiveSheet + ' Me.Text = .ActiveRowIndex & "/" & .ActiveColumnIndex + Select Case .ActiveColumn.Label.ToUpper + Case "A", "B", "ȣA", "ȣB", "θA", "θB", "ð", "ð", "", "", "D/L" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + Case "ô" '//ô + If .ActiveCell.Text = "" Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + '//ô b06 06 ˻Ѵ + Select Case Pnum.ToUpper + Case "B06", "B6", "06" + Me.fp.Cells2("").Value = True + Me.fp.Cells2("").Value = False + Case Else + Me.fp.Cells2("").Value = False + Me.fp.Cells2("").Value = False + End Select + + End If + Case "A1" '//ֹȣ1(θ ) + '// ġ 1̻̾ 縦 Ҽִ. + '//׸ 缿 Ѵ. + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("θB")).Text Then '// θ ٸ + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + If .ActiveCell.Text = "" Then Me.fp.Cells2("").Value = True + End If + End If + Case "A2" '//ȣ2 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A3" '//ȣ3 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A4" '//ȣ4 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A3")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A5" '//ȣ5 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A3")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("A4")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("A4")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + End Select + End With + + 'If Me.view1.ActiveSheet.ActiveRowIndex = Me.view1.ActiveSheet.RowCount - 1 Then '//ٿ + ' If Me.view1.ANextRow_ColIndex = Me.view1.ActiveSheet.ActiveColumnIndex Then '//ٷΰl + ' Me.bt_addrow.PerformClick() + ' Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.AFirstColumn_Index) + ' e.Handled = True + ' ElseIf Me.view1.ActiveSheet.ActiveColumnIndex = Me.view1.ActiveSheet.ColumnCount - 1 Then '//̶ + ' Me.bt_addrow.PerformClick() + ' Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.AFirstColumn_Index) + ' e.Handled = True + ' End If + 'End If + + End Select + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles fp.Arin_Before_EditModeOff + ' Me.view1_Arin_AddLog(sender, " befoer_editmodeoff") + With Me.fp.ActiveSheet + Select Case .ActiveColumn.Label.ToUpper + Case "ô" 'ôϰ + If .ActiveCell.Text.Length = 1 Then .ActiveCell.Text = "0" & .ActiveCell.Text '//1ڸ տ 0 äش. + Select Case .ActiveCell.Text.ToString.ToUpper + Case "B06", "B6", "06", "6" + Me.fp.Cells2("").Value = True '// + Me.fp.Cells2("").Value = False '// + Case "" '36 ٽ Ȱ + Me.fp.Cells2("").Value = True + Me.fp.Cells2("").Value = False + Case Else + Me.fp.Cells2("").Value = False + Me.fp.Cells2("").Value = False + End Select + Case "A1" '//ֹȣ1 + If .ActiveCell.Text = "" OrElse .ActiveCell.Text = "" Then Me.fp.Cells2("").Value = True '//Ȱȭ + + Case "D/L" '//dl + If .ActiveCell.Value <> "" Then + If .ActiveCell.Value.ToString.IndexOf(";") = -1 Then '//d/l ٸ ԷµǸ տ d/l ٿش. + .ActiveCell.Value = "D/L;" & .ActiveCell.Value.ToString + End If + End If + End Select + End With + End Sub + + Private Sub bt_datasort_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_datasort.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("ĵ͸ Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + For Each dr As ireaDataSet.jjutableRow In Me.IreaDataSet1.jjutable.Rows + dr.Ĺȣ = "" + Next + NOTICE("ĵͰ ʱȭǾϴ.", Me.lb_msg) + End If + End If + End Sub + + Private Sub bt_11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_11.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("[, θ,ֹȣ ٸ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ֹȣ").Index).Text + = Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("θ").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ1").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ2").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ3").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ4").Index).Text & _ + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ActiveSheet.Columns("ȣ5").Index).Text + + If .ToString <> "" Then '//Ѵ ȣ ȣ H + If .ToString <> .ToString Then '//δٸ + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, Me.fp.ACheckBox_ColIndex).Value = True + End If + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[, θ,ֹȣ ٸ] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub bt_201_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_201.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + NOTICE("[, ȭȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.AdupCheckSR(0, Me.fp.ActiveSheet.RowCount - 1, A, B, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[, ȭȣ ] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + + End Sub + + Private Sub ToolStripMenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + + Private Sub ToolStripMenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + + End Sub + + Private Sub ToolStripMenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem11.Click + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + NOTICE("ߺǴ [ ȭȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ ȭȣ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click + Dim 1, 2 As String + Dim fcnt As Integer = 0 + Dim ba() As Short = New Short() {Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ȣ1").Index, _ + Me.fp.ActiveSheet.Columns("ȣ2").Index, _ + Me.fp.ActiveSheet.Columns("ȣ3").Index, _ + Me.fp.ActiveSheet.Columns("ȣ4").Index, _ + Me.fp.ActiveSheet.Columns("ȣ5").Index} + + NOTICE("ߺǴ [ θ,ֹȣ : ֹ] ãԴϴ...", Me.lb_msg) + + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + + If Not pbar Is Nothing Then + pbar.Value = 0 + pbar.Minimum = 0 + pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1 + End If + + For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + = "" + 1 = "" + + For Each T As Short In ba + &= Me.fp.ActiveSheet.Cells(A, T).Value + Next + 1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("").Index).Text + + If .Trim.ToString <> "" AndAlso 1.ToUpper = "FALSE" Then + For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + 2 = "" + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In ba + &= Me.fp.ActiveSheet.Cells(B, T).Value + Next + 2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("").Index).Text + '//̳ ְ ƴϿѴ. + '// ÷± Ǿִ. + If 2.ToUpper = "FALSE" AndAlso .Trim.ToString = .Trim.ToString Then '//ϰ쿡 A. + fcnt += 1 + Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True + Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True + End If + End If + Next + End If + If pbar.Value < pbar.Maximum Then pbar.Value += 1 + If (pbar.Value Mod 100) = 0 Then My.Application.DoEvents() + + Me.Invalidate() + Next + 'fcnt = Me.view1.ߺ˻2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ θ,ֹȣ : ֹ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub ToolStripMenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem12.Click + + Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + NOTICE("ߺǴ [ ȭȣ ] ãԴϴ...", Me.lb_msg) + fcnt = Me.fp.ADupCheck2(0, Me.fp.ActiveSheet.RowCount - 1, A, A, Me.fp.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ ȭȣ ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click + Dim 1, 2 As String + Dim fcnt As Integer = 0 + Dim bA() As Short = New Short() {Me.fp.ActiveSheet.Columns("θ").Index, _ + Me.fp.ActiveSheet.Columns("ֹȣ").Index} + + NOTICE("ߺǴ [ θ, ֹȣ : ֹ] ãԴϴ...", Me.lb_msg) + + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + + If Not pbar Is Nothing Then + pbar.Value = 0 + pbar.Minimum = 0 + pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1 + End If + + For A As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + = "" + 1 = "" + + For Each T As Short In bA + &= Me.fp.ActiveSheet.Cells(A, T).Value + Next + 1 = Me.fp.ActiveSheet.Cells(A, Me.fp.ActiveSheet.Columns("").Index).Text + + If .Trim.ToString <> "" AndAlso 1.ToUpper = "FALSE" Then + For B As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + 2 = "" + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In bA + &= Me.fp.ActiveSheet.Cells(B, T).Value + Next + 2 = Me.fp.ActiveSheet.Cells(B, Me.fp.ActiveSheet.Columns("").Index).Text + '//̳ ְ ƴϿѴ. + '// ÷± Ǿִ. + If 2.ToUpper = "FALSE" AndAlso .Trim.ToString = .Trim.ToString Then '//ϰ쿡 A. + fcnt += 1 + Me.fp.ActiveSheet.Cells(A, Me.fp.ACheckBox_ColIndex).Value = True + Me.fp.ActiveSheet.Cells(B, Me.fp.ACheckBox_ColIndex).Value = True + + End If + End If + Next + End If + If pbar.Value < pbar.Maximum Then pbar.Value += 1 + Me.Invalidate() + Next + 'fcnt = Me.view1.ߺ˻2(0, Me.view1.ActiveSheet.RowCount - 1, A, A, Me.view1.ACheckBox_ColIndex, Me.pbar) + NOTICE("[ θ, ֹȣ : ֹ] ߺ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + + End Sub + + Private Sub ToolStripButton4_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton4.Click + + End Sub + + Private Sub ToolStripButton1_Click_1(sender As System.Object, e As System.EventArgs) + bs.AddNew() + '//ùġ Ѵ. + fp.ActiveSheet.SetActiveCell(fp.ActiveSheet.RowCount, fp.AFirstColumn_Index) + + End Sub + + Private Sub ȭȣѰToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ȭȣѰToolStripMenuItem.Click + 'Dim fcnt As Integer = 0 + Dim A() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + Dim B() As Short = New Short() {Me.fp.ActiveSheet.Columns("").Index, _ + Me.fp.ActiveSheet.Columns("ȭȣ").Index} + + NOTICE("[, ȭȣ ( ٸ)] ãԴϴ...", Me.lb_msg) + 'fcnt = Me.view1.AdupCheckSR(0, Me.view1.ActiveSheet.RowCount - 1, A, B, Me.view1.ACheckBox_ColIndex, Me.pbar) + + + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + Dim Can As Boolean = False + + pbar.Value = 0 + pbar.Minimum = 0 + pbar.Maximum = Me.fp.ActiveSheet.RowCount - 1 + + ''//ڷḦ ĵѴ. + 'For RowIndex As Integer = 0 To Me.view1.ActiveSheet.RowCount - 1 + ' Me.view1.ActiveSheet.Cells(RowIndex, Me.view1.ACheckBox_ColIndex).Value = False + 'Next + + For RowIndex As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + = "" + + '// ش. + ' Me.view1.ActiveSheet.Cells(RowIndex, Me.view1.ACheckBox_ColIndex).Value = False + + '// ȭȣ + For Each T As Short In A + &= Me.fp.ActiveSheet.Cells(RowIndex, T).Value + Next + + 'If = "9593E421" Then + ' Debug.WriteLine("dsf") + 'End If + + '//ǥ + If = "" Then Continue For + + '//γ߰ Ȯ + For RowIndex2 As Integer = 0 To Me.fp.ActiveSheet.RowCount - 1 + + If RowIndex = RowIndex2 Then Continue For '// 170308 + + = "" + + '// ȭȣ + For Each T As Short In B + &= Me.fp.ActiveSheet.Cells(RowIndex2, T).Value + Next + If = "" Then Continue For + + If = Then + fcnt += 1 + Me.fp.ActiveSheet.Cells(RowIndex, Me.fp.ACheckBox_ColIndex).Value = True + Me.fp.ActiveSheet.Cells(RowIndex2, Me.fp.ACheckBox_ColIndex).Value = True + End If + + Next + + + If pbar.Value < pbar.Maximum Then + pbar.Value += 1 + pbar.Refresh() + End If + Next + + NOTICE("[, ȭȣ ( ٸ)] ˻ Ϸ(" & fcnt & " Ͱ õǾϴ)", Me.lb_msg) + End Sub + + Private Sub ʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʱȭToolStripMenuItem.Click + For c As Integer = 1 To fp_Sheet1.ColumnCount + fp_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCable.Designer.vb b/Epole/입력폼/AddEpoleCable.Designer.vb new file mode 100644 index 0000000..fe3e8ba --- /dev/null +++ b/Epole/입력폼/AddEpoleCable.Designer.vb @@ -0,0 +1,1413 @@ + _ +Partial Class AddEpoleCable + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType25 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType26 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType27 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType28 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType29 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType30 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType31 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType32 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType33 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType34 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType35 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType36 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType37 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType38 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType39 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType40 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType41 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType42 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType43 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType44 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType45 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType46 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType47 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType48 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType49 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType50 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType51 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType52 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.servoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.out = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_seldel = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.view1 = New NewFp() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.Detail_CableTableAdapter() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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_ime, Me.lb_pos, Me.lb_edit, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 555) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1172, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(41, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(33, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(41, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(11, 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 = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1172, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(98, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.ToolStripMenuItem.Text = "[관리/전산번호]" + Me.ToolStripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(122, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(129, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(126, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(202, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(202, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.servoolStripMenuItem, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 232) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'servoolStripMenuItem + ' + Me.servoolStripMenuItem.Name = "servoolStripMenuItem" + Me.servoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.servoolStripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.ToolStripMenuItem6, Me.bt_seldel, Me.ToolStripMenuItem7}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(119, 6) + ' + 'bt_seldel + ' + Me.bt_seldel.Name = "bt_seldel" + Me.bt_seldel.Size = New System.Drawing.Size(122, 22) + Me.bt_seldel.Text = "선택삭제" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(119, 6) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(-1, 43) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1175, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(545, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 516) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1172, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "Detail_Cable" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 493) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1172, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.ACellImeLabel = Me.lb_ime + Me.view1.ACellposLabel = Me.lb_pos + Me.view1.ACheckBox_ColIndex = CType(0, Short) + Me.view1.ADeleteCell = True + Me.view1.ADeleteRow = True + Me.view1.AEditFromSpace = True + Me.view1.AEditStatusLabel = Me.lb_change + Me.view1.AFirstColumn_Index = 2 + Me.view1.AllowCellOverflow = True + Me.view1.AllowEditOverflow = True + Me.view1.AMessageLabel = Me.lb_msg + 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.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.EditModeReplace = True + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(0, 82) + Me.view1.Name = "view1" + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Vertical + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1171, 408) + Me.view1.TabIndex = 8 + 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 = 55 + Me.view1_Sheet1.ColumnHeader.RowCount = 3 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AllowNoteEdit = True + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산화번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 8 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "맨홀 및 지상개폐기(현재)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 11).Value = "상대명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).ColumnSpan = 8 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).Value = "맨홀 및 지상개폐기(상대1)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).ColumnSpan = 8 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).Value = "맨홀 및 지상개폐기(상대2)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 28).ColumnSpan = 8 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 28).Value = "맨홀 및 지상개폐기(상대3)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 36).ColumnSpan = 8 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 36).Value = "맨홀 및 지상개폐기(상대4)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 44).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 44).Value = "시공년월" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 45).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 45).Value = "시공회사" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 46).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 46).Value = "공사번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 47).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 47).Value = "감독자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 48).ColumnSpan = 6 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 48).Value = "비고" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 54).RowSpan = 3 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 54).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "단자번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "위치" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "단자번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "위치" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "단자번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 24).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 25).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 25).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 26).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 26).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 27).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 27).Value = "위치" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 28).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 28).Value = "단자번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 32).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 32).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 33).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 33).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 34).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 34).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 35).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 35).Value = "위치" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 36).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 36).Value = "단자번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 40).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 40).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 41).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 41).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 42).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 42).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 43).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 43).Value = "위치" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 48).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 48).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 49).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 49).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 50).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 50).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 51).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 51).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 52).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 52).Value = "5" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 53).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 53).Value = "6" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 0).Value = "*" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 4).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 5).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 6).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 7).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 12).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 13).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 14).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 15).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 20).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 21).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 22).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 23).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 28).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 29).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 30).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 31).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 36).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 37).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 38).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(2, 39).Value = "4" + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 34.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 21.0! + Me.view1_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Label = "*" + Me.view1_Sheet1.Columns.Get(0).Tag = "select" + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 50.0! + NumberCellType1.DecimalPlaces = 0 + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 43.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "관리구" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 49.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).Width = 49.0! + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(4).DataField = "S0번호1" + Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Label = "1" + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 49.0! + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "S0번호2" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Label = "2" + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 49.0! + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "S0번호3" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Label = "3" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 49.0! + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "S0번호4" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Label = "4" + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 49.0! + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "S0SS" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "S0DL" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "S0SW명" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 49.0! + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "S0수용가" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 49.0! + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "S1번호1" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Label = "1" + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 49.0! + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "S1번호2" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Label = "2" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 49.0! + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "S1번호3" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "3" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 49.0! + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(15).DataField = "S1번호4" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Label = "4" + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 49.0! + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(16).DataField = "S1SS" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(17).DataField = "S1DL" + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(18).DataField = "S1SW명" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Width = 49.0! + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(19).DataField = "S1위치" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Width = 49.0! + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(20).DataField = "S2번호1" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Label = "1" + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Width = 41.0! + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(21).DataField = "S2번호2" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Label = "2" + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Width = 41.0! + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType21 + Me.view1_Sheet1.Columns.Get(22).DataField = "S2번호3" + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Label = "3" + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Width = 41.0! + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType22 + Me.view1_Sheet1.Columns.Get(23).DataField = "S2번호4" + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Label = "4" + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Width = 41.0! + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType23 + Me.view1_Sheet1.Columns.Get(24).DataField = "S2SS" + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType24 + Me.view1_Sheet1.Columns.Get(25).DataField = "S2DL" + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType25.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType25 + Me.view1_Sheet1.Columns.Get(26).DataField = "S2SW명" + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Width = 41.0! + Me.view1_Sheet1.Columns.Get(27).CellType = TextCellType26 + Me.view1_Sheet1.Columns.Get(27).DataField = "S2위치" + Me.view1_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Width = 41.0! + Me.view1_Sheet1.Columns.Get(28).CellType = TextCellType27 + Me.view1_Sheet1.Columns.Get(28).DataField = "S3번호1" + Me.view1_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Label = "1" + Me.view1_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Width = 51.0! + Me.view1_Sheet1.Columns.Get(29).CellType = TextCellType28 + Me.view1_Sheet1.Columns.Get(29).DataField = "S3번호2" + Me.view1_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Label = "2" + Me.view1_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Width = 48.0! + Me.view1_Sheet1.Columns.Get(30).CellType = TextCellType29 + Me.view1_Sheet1.Columns.Get(30).DataField = "S3번호3" + Me.view1_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Label = "3" + Me.view1_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Width = 48.0! + Me.view1_Sheet1.Columns.Get(31).CellType = TextCellType30 + Me.view1_Sheet1.Columns.Get(31).DataField = "S3번호4" + Me.view1_Sheet1.Columns.Get(31).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).Label = "4" + Me.view1_Sheet1.Columns.Get(31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).Width = 48.0! + Me.view1_Sheet1.Columns.Get(32).CellType = TextCellType31 + Me.view1_Sheet1.Columns.Get(32).DataField = "S3SS" + Me.view1_Sheet1.Columns.Get(32).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(32).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).CellType = TextCellType32 + Me.view1_Sheet1.Columns.Get(33).DataField = "S3DL" + Me.view1_Sheet1.Columns.Get(33).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType33.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(34).CellType = TextCellType33 + Me.view1_Sheet1.Columns.Get(34).DataField = "S3SW명" + Me.view1_Sheet1.Columns.Get(34).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).Width = 48.0! + Me.view1_Sheet1.Columns.Get(35).CellType = TextCellType34 + Me.view1_Sheet1.Columns.Get(35).DataField = "S3위치" + Me.view1_Sheet1.Columns.Get(35).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(35).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(35).Width = 48.0! + Me.view1_Sheet1.Columns.Get(36).CellType = TextCellType35 + Me.view1_Sheet1.Columns.Get(36).DataField = "S4번호1" + Me.view1_Sheet1.Columns.Get(36).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(36).Label = "1" + Me.view1_Sheet1.Columns.Get(36).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(36).Width = 44.0! + Me.view1_Sheet1.Columns.Get(37).CellType = TextCellType36 + Me.view1_Sheet1.Columns.Get(37).DataField = "S4번호2" + Me.view1_Sheet1.Columns.Get(37).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(37).Label = "2" + Me.view1_Sheet1.Columns.Get(37).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(37).Width = 44.0! + Me.view1_Sheet1.Columns.Get(38).CellType = TextCellType37 + Me.view1_Sheet1.Columns.Get(38).DataField = "S4번호3" + Me.view1_Sheet1.Columns.Get(38).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(38).Label = "3" + Me.view1_Sheet1.Columns.Get(38).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(38).Width = 44.0! + Me.view1_Sheet1.Columns.Get(39).CellType = TextCellType38 + Me.view1_Sheet1.Columns.Get(39).DataField = "S4번호4" + Me.view1_Sheet1.Columns.Get(39).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(39).Label = "4" + Me.view1_Sheet1.Columns.Get(39).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(39).Width = 44.0! + Me.view1_Sheet1.Columns.Get(40).CellType = TextCellType39 + Me.view1_Sheet1.Columns.Get(40).DataField = "S4SS" + Me.view1_Sheet1.Columns.Get(40).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(40).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(41).CellType = TextCellType40 + Me.view1_Sheet1.Columns.Get(41).DataField = "S4DL" + Me.view1_Sheet1.Columns.Get(41).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(41).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType41.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(42).CellType = TextCellType41 + Me.view1_Sheet1.Columns.Get(42).DataField = "S4SW명" + Me.view1_Sheet1.Columns.Get(42).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(42).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(42).Width = 44.0! + Me.view1_Sheet1.Columns.Get(43).CellType = TextCellType42 + Me.view1_Sheet1.Columns.Get(43).DataField = "S4위치" + Me.view1_Sheet1.Columns.Get(43).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(43).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(43).Width = 44.0! + Me.view1_Sheet1.Columns.Get(44).CellType = TextCellType43 + Me.view1_Sheet1.Columns.Get(44).DataField = "시공년월" + Me.view1_Sheet1.Columns.Get(44).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(44).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(44).Width = 62.0! + Me.view1_Sheet1.Columns.Get(45).CellType = TextCellType44 + Me.view1_Sheet1.Columns.Get(45).DataField = "시공회사" + Me.view1_Sheet1.Columns.Get(45).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(45).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(45).Width = 62.0! + TextCellType45.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(46).CellType = TextCellType45 + Me.view1_Sheet1.Columns.Get(46).DataField = "공사번호" + Me.view1_Sheet1.Columns.Get(46).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(46).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(46).Width = 62.0! + Me.view1_Sheet1.Columns.Get(47).CellType = TextCellType46 + Me.view1_Sheet1.Columns.Get(47).DataField = "감독자" + Me.view1_Sheet1.Columns.Get(47).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(47).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(47).Width = 62.0! + Me.view1_Sheet1.Columns.Get(48).CellType = TextCellType47 + Me.view1_Sheet1.Columns.Get(48).DataField = "비고1" + Me.view1_Sheet1.Columns.Get(48).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(48).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(48).Width = 27.0! + Me.view1_Sheet1.Columns.Get(49).CellType = TextCellType48 + Me.view1_Sheet1.Columns.Get(49).DataField = "비고2" + Me.view1_Sheet1.Columns.Get(49).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(49).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(49).Width = 27.0! + Me.view1_Sheet1.Columns.Get(50).CellType = TextCellType49 + Me.view1_Sheet1.Columns.Get(50).DataField = "비고3" + Me.view1_Sheet1.Columns.Get(50).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(50).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(50).Width = 27.0! + Me.view1_Sheet1.Columns.Get(51).CellType = TextCellType50 + Me.view1_Sheet1.Columns.Get(51).DataField = "비고4" + Me.view1_Sheet1.Columns.Get(51).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(51).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(51).Width = 27.0! + Me.view1_Sheet1.Columns.Get(52).CellType = TextCellType51 + Me.view1_Sheet1.Columns.Get(52).DataField = "비고5" + Me.view1_Sheet1.Columns.Get(52).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(52).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(52).Width = 27.0! + Me.view1_Sheet1.Columns.Get(53).CellType = TextCellType52 + Me.view1_Sheet1.Columns.Get(53).DataField = "비고6" + Me.view1_Sheet1.Columns.Get(53).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(53).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(53).Width = 27.0! + Me.view1_Sheet1.Columns.Get(54).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(54).DataField = "출력" + Me.view1_Sheet1.Columns.Get(54).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(54).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(54).Width = 63.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.FrozenColumnCount = 10 + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view1.SetViewportLeftColumn(0, 0, 10) + Me.view1.SetActiveViewport(0, -1, -1) + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'AddEpoleCable + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1172, 577) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleCable" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "맨홀용선로표시찰및케이블계통도" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As NewFp + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents servoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_seldel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.Detail_CableTableAdapter + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpoleCable.resx b/Epole/입력폼/AddEpoleCable.resx new file mode 100644 index 0000000..9f4c28e --- /dev/null +++ b/Epole/입력폼/AddEpoleCable.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 199, 31 + + + 459, 6 + + + 308, 32 + + + 69 + + + 169, 6 + + + 5, 15 + + + 588, 5 + + + 307, 5 + + + 760, 3 + + + 599, 29 + + + 91, 9 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCable.vb b/Epole/입력폼/AddEpoleCable.vb new file mode 100644 index 0000000..dbf511c --- /dev/null +++ b/Epole/입력폼/AddEpoleCable.vb @@ -0,0 +1,773 @@ +Public Class AddEpoleCable + + ' Dim SaveFlag As Boolean = False + Dim DT As ireaDataSet.Detail_CableDataTable + Dim Sorted As ESorted = ESorted.No + Dim viewTag As String = "jcable" + Public PrnForm As printformCable + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) 'Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + NEwrow("1") = "" + NEwrow("2") = "" + NEwrow("3") = "" + NEwrow("4") = "" + NEwrow("5") = "" + + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "(Ȧǥװ뵵) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(Ȧǥװ뵵)(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(Ȧǥװ뵵) Է" + + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.view1.ASetting_Load(False, Me.viewTag) + Me.view1.ѱʵ = New String() {"HASS", "HADL", "HBSS", "HBDL", "ð", "ðȸ", "", "1", "2", "3", "4", "5", "6", _ + "S0밡", "S1ġ", "S2ġ", "S3ġ", "S4ġ", _ +"S0SS", "S1SS", "S2SS", "S3SS", "S4SS", "S0DL", "S1DL", "S2DL", "S3DL", "S4DL"} + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + AddHandler IreaDataSet1.Detail_Cable.TableNewRow, AddressOf NewRowAddToDataTable + DT = Me.IreaDataSet1.Detail_Cable + Me.SETTOOLTIP() + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from detail_cable where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + + + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + End Sub + Private Sub SetFarPoint() + ' Me.view1.AEnterToNextItem() + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + + Try + Me.ta.Update(Me.IreaDataSet1.Detail_Cable) '//Commit insert/update/delete + Me.IreaDataSet1.jjungtable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,6)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Cable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=6 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Cable.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_Cable.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.Detail_Cable, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_Cable.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 6) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.view1.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + PrnForm = New printformCable(Me.IreaDataSet1.Detail_Cable, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + PrnForm.ShowDialog() + + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [/ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 3).Value & Me.view1.ActiveSheet.Cells(A.Index, 4).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("")).Value & Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("ȣ")).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, Me.view1.ACheckBox_ColIndex).Value = True + Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[/ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + Me.view1.ASelect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.AUnselect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.view1.AReverse(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles view1.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff + 'With Me.view1.ActiveSheet + ' Select Case .ActiveColumn.Label + ' Case "Ĺ׿뷮" + ' If (.Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" OrElse _ + ' .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = vbNullString) AndAlso _ + ' .ActiveCell.Text.Length = 4 Then + ' .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + ' 'Else + ' ' Me.Text = .ActiveCell.Text.Length & "/" & .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text + ' End If + ' Case "" + ' Select Case .ActiveCell.Text.ToUpper + ' Case "SW" + ' .ActiveCell.Text = "PAD SW" + ' Case "SK" + ' .ActiveCell.Text = "" + ' Case "TR" + ' .ActiveCell.Text = "PAD TR" + ' Case "TK" + ' .ActiveCell.Text = "󺯾б" + ' End Select + ' End Select + 'End With + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.Detail_Cable.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_CableRow = Me.DT.NewDetail_CableRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_CableRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.IreaDataSet1.jjungtable.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.jjungtableRow In Me.IreaDataSet1.jjungtable.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles servoolStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.jjungtable, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable.Rows + A("") = Not A("") + Next + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.view1.ASetting_Save(False, viewTag) + End Sub + + Private Sub bt_seldel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seldel.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + + With Me.view1.ActiveSheet + Select Case .ActiveColumn.DataField.ToUpper + Case "", "ȣ", "HAڸ", "HBڸ", "HADL", "HA", "HBDL", "DB", _ + "S0ȣ2", "S0ȣ3", "S0ȣ4", _ + "S1ȣ2", "S1ȣ3", "S1ȣ4", _ + "S2ȣ2", "S2ȣ3", "S2ȣ4", _ + "S3ȣ2", "S3ȣ3", "S3ȣ4", _ + "S4ȣ2", "S4ȣ3", "S4ȣ4", _ + "HASS", "HBSS", "ð", "ðȸ", "ȣ", "", "S0ȣ1", "S1ȣ1", "S2ȣ1", "S3ȣ1", "S4ȣ1", "S0SW", "S0밡", "S1SW", "S2SW", "S3SW", "S4SW", "S1ġ", "S2ġ", "S2ġ", "S4ġ", "1", "2", "3", "4", "5", "6" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + 'Case "HADL" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HASS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HASS")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HA" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HASS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HASS")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HADL")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HADL")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HBDL" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBSS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBSS")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HB" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBSS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBSS")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBDL")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBDL")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + + 'Case "s1ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s1ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s1ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + 'Case "s3ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s3ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s3ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + 'Case "s4ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s4ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s4ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + ' Case "3" '//ȣ3 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + ' Case "4" '//ȣ4 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + ' Case "5" '//ȣ5 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("3")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("4")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("4")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + End Select + End With + End Select + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCable2.Designer.vb b/Epole/입력폼/AddEpoleCable2.Designer.vb new file mode 100644 index 0000000..4bbd90b --- /dev/null +++ b/Epole/입력폼/AddEpoleCable2.Designer.vb @@ -0,0 +1,1274 @@ + _ +Partial Class AddEpoleCable2 + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType25 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType26 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType27 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType28 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType29 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType30 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType31 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType32 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.servoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.out = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_seldel = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.view1 = New NewFp() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TA = New EpoleNet.ireaDataSetTableAdapters.Detail_Cable2TableAdapter() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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_ime, Me.lb_pos, Me.lb_edit, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 555) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1172, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(41, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(33, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(41, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(11, 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 = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1172, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(98, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.ToolStripMenuItem.Text = "[관리/전산번호]" + Me.ToolStripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(122, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(129, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(126, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(202, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(202, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.servoolStripMenuItem, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 210) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'servoolStripMenuItem + ' + Me.servoolStripMenuItem.Name = "servoolStripMenuItem" + Me.servoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.servoolStripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.ToolStripMenuItem6, Me.bt_seldel, Me.ToolStripMenuItem7}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(119, 6) + ' + 'bt_seldel + ' + Me.bt_seldel.Name = "bt_seldel" + Me.bt_seldel.Size = New System.Drawing.Size(122, 22) + Me.bt_seldel.Text = "선택삭제" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(119, 6) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(-1, 43) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1175, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(545, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 516) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1172, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "Detail_Cable2" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 493) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1172, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.ACellImeLabel = Me.lb_ime + Me.view1.ACellposLabel = Me.lb_pos + Me.view1.ACheckBox_ColIndex = CType(0, Short) + Me.view1.ADeleteCell = True + Me.view1.ADeleteRow = True + Me.view1.AEditFromSpace = True + Me.view1.AEditStatusLabel = Me.lb_change + Me.view1.AFirstColumn_Index = 2 + Me.view1.AllowCellOverflow = True + Me.view1.AllowEditOverflow = True + Me.view1.AMessageLabel = Me.lb_msg + 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.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.EditModeReplace = True + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(0, 82) + Me.view1.Name = "view1" + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Vertical + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1171, 408) + Me.view1.TabIndex = 8 + Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.SetViewportLeftColumn(0, 0, 2) + Me.view1.SetActiveViewport(0, -1, -1) + ' + 'view1_Sheet1 + ' + Me.view1_Sheet1.Reset() + 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 + view1_Sheet1.ColumnCount = 35 + view1_Sheet1.ColumnHeader.RowCount = 2 + Me.view1_Sheet1.ActiveColumnIndex = -1 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산화번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "지상변압기(HA)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "지상변압기(HB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).Value = "지상개폐기(상대1)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 16).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 16).Value = "지상개폐기(상대2)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).Value = "지상개폐기(상대3)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 24).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 24).Value = "지상개폐기(상대4)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 28).ColumnSpan = 6 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 28).Value = "비고" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 34).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 34).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "단자명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "단자명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "단자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "단자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "단자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 22).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "단자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 25).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 26).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 27).Value = "구간" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 28).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 29).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 30).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 31).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 32).Value = "5" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 33).Value = "6" + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 21.0! + Me.view1_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Label = "*" + Me.view1_Sheet1.Columns.Get(0).Tag = "select" + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 50.0! + NumberCellType1.DecimalPlaces = 0 + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 62.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "관리구" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 50.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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 = 50.0! + Me.view1_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(4).DataField = "HA단자명" + 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).Locked = False + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 62.0! + Me.view1_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "HASS" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Label = "S/S" + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 62.0! + Me.view1_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "HADL" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Label = "D/L" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 62.0! + Me.view1_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "HA구간" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Label = "구간" + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 62.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "HB단자명" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Label = "단자명" + Me.view1_Sheet1.Columns.Get(8).Locked = False + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 62.0! + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "HBSS" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Label = "S/S" + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 62.0! + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "HBDL" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Label = "D/L" + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 62.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "HB구간" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Label = "구간" + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 62.0! + Me.view1_Sheet1.Columns.Get(12).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "S1번호1" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Label = "단자" + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 79.0! + Me.view1_Sheet1.Columns.Get(13).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "S1번호2" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Label = "S/S" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 79.0! + Me.view1_Sheet1.Columns.Get(14).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "S1번호3" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "D/L" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 79.0! + Me.view1_Sheet1.Columns.Get(15).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(15).DataField = "S1SW명" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Label = "구간" + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 79.0! + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(16).DataField = "S2번호1" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Label = "단자" + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Width = 79.0! + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(17).DataField = "S2번호2" + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Label = "S/S" + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Width = 79.0! + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(18).DataField = "S2번호3" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Label = "D/L" + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Width = 79.0! + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(19).DataField = "S2SW명" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Label = "구간" + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Width = 79.0! + Me.view1_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(20).DataField = "S3번호1" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Label = "단자" + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Width = 79.0! + Me.view1_Sheet1.Columns.Get(21).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(21).DataField = "S3번호2" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Label = "S/S" + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Width = 79.0! + Me.view1_Sheet1.Columns.Get(22).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType21 + Me.view1_Sheet1.Columns.Get(22).DataField = "S3번호3" + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Label = "D/L" + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Width = 79.0! + Me.view1_Sheet1.Columns.Get(23).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType22.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType22 + Me.view1_Sheet1.Columns.Get(23).DataField = "S3SW명" + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Label = "구간" + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Width = 79.0! + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType23 + Me.view1_Sheet1.Columns.Get(24).DataField = "S4번호1" + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Label = "단자" + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Width = 79.0! + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType24 + Me.view1_Sheet1.Columns.Get(25).DataField = "S4번호2" + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).Label = "S/S" + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).Width = 79.0! + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType25 + Me.view1_Sheet1.Columns.Get(26).DataField = "S4번호3" + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Label = "D/L" + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Width = 79.0! + TextCellType26.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(27).CellType = TextCellType26 + Me.view1_Sheet1.Columns.Get(27).DataField = "S4SW명" + Me.view1_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Label = "구간" + Me.view1_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Width = 79.0! + Me.view1_Sheet1.Columns.Get(28).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(28).CellType = TextCellType27 + Me.view1_Sheet1.Columns.Get(28).DataField = "비고1" + Me.view1_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Label = "1" + Me.view1_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Width = 35.0! + Me.view1_Sheet1.Columns.Get(29).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(29).CellType = TextCellType28 + Me.view1_Sheet1.Columns.Get(29).DataField = "비고2" + Me.view1_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Label = "2" + Me.view1_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Width = 35.0! + Me.view1_Sheet1.Columns.Get(30).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(30).CellType = TextCellType29 + Me.view1_Sheet1.Columns.Get(30).DataField = "비고3" + Me.view1_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Label = "3" + Me.view1_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Width = 35.0! + Me.view1_Sheet1.Columns.Get(31).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(31).CellType = TextCellType30 + Me.view1_Sheet1.Columns.Get(31).DataField = "비고4" + Me.view1_Sheet1.Columns.Get(31).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).Label = "4" + Me.view1_Sheet1.Columns.Get(31).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(31).Width = 35.0! + Me.view1_Sheet1.Columns.Get(32).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(32).CellType = TextCellType31 + Me.view1_Sheet1.Columns.Get(32).DataField = "비고5" + Me.view1_Sheet1.Columns.Get(32).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(32).Label = "5" + Me.view1_Sheet1.Columns.Get(32).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(32).Width = 35.0! + Me.view1_Sheet1.Columns.Get(33).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(33).CellType = TextCellType32 + Me.view1_Sheet1.Columns.Get(33).DataField = "비고6" + Me.view1_Sheet1.Columns.Get(33).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).Label = "6" + Me.view1_Sheet1.Columns.Get(33).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(33).Width = 35.0! + Me.view1_Sheet1.Columns.Get(34).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(34).DataField = "출력" + Me.view1_Sheet1.Columns.Get(34).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(34).Width = 63.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataMember = "Detail_Cable2" + Me.view1_Sheet1.DataSource = Me.IreaDataSet1 + Me.view1_Sheet1.FrozenColumnCount = 2 + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TA + ' + Me.TA.ClearBeforeFill = True + ' + 'AddEpoleCable2 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1172, 577) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleCable2" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "지중(기기표시찰)" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As NewFp + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents servoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_seldel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TA As EpoleNet.ireaDataSetTableAdapters.Detail_Cable2TableAdapter + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpoleCable2.resx b/Epole/입력폼/AddEpoleCable2.resx new file mode 100644 index 0000000..145f2ca --- /dev/null +++ b/Epole/입력폼/AddEpoleCable2.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 199, 31 + + + 459, 6 + + + 308, 32 + + + 69 + + + 169, 6 + + + 5, 15 + + + 588, 5 + + + 307, 5 + + + 760, 3 + + + 599, 29 + + + 699, 29 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCable2.vb b/Epole/입력폼/AddEpoleCable2.vb new file mode 100644 index 0000000..2a1bbda --- /dev/null +++ b/Epole/입력폼/AddEpoleCable2.vb @@ -0,0 +1,775 @@ +Public Class AddEpoleCable2 + + ' Dim SaveFlag As Boolean = False + Dim DT As ireaDataSet.Detail_Cable2DataTable + Dim Sorted As ESorted = ESorted.No + Dim viewTag As String = "jcable2" + Public PrnForm As printformCable2 + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) 'Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + NEwrow("1") = "" + NEwrow("2") = "" + NEwrow("3") = "" + NEwrow("4") = "" + NEwrow("5") = "" + + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "(ǥ) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(ǥ)(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(ǥ) Է" + + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.view1.ASetting_Load(False, Me.viewTag) + Me.view1.ѱʵ = New String() {"HASS", "HADL", "HBSS", "HBDL", "ð", "ðȸ", "", "1", "2", "3", "4", "5", "6", _ + "S0밡", "S1ġ", "S2ġ", "S3ġ", "S4ġ", _ +"S1ȣ2", "S1ȣ3", _ +"S2ȣ2", "S2ȣ3", _ +"S3ȣ2", "S3ȣ3", _ +"S4ȣ2", "S4ȣ3"} + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + AddHandler IreaDataSet1.Detail_Cable2.TableNewRow, AddressOf NewRowAddToDataTable + DT = Me.IreaDataSet1.Detail_Cable2 + Me.SETTOOLTIP() + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from detail_cable2 where id=" & Me.h_id.Text, Me.TA.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + + + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + End Sub + Private Sub SetFarPoint() + ' Me.view1.AEnterToNextItem() + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + Try + Me.TA.Update(Me.IreaDataSet1.Detail_Cable2) '//Commit insert/update/delete + Me.IreaDataSet1.jjungtable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,8)" + If Me.TA.Connection.State <> ConnectionState.Open Then Me.TA.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.TA.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Cable2.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=8 where id=:1" + If Me.TA.Connection.State <> ConnectionState.Open Then Me.TA.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.TA.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Cable2.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_Cable2.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.TA.Fill(Me.IreaDataSet1.Detail_Cable2, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_Cable2.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 8) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.view1.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + PrnForm = New printformCable2(Me.IreaDataSet1.Detail_Cable2, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + PrnForm.ShowDialog() + + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [/ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 3).Value & Me.view1.ActiveSheet.Cells(A.Index, 4).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("")).Value & Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("ȣ")).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, Me.view1.ACheckBox_ColIndex).Value = True + Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[/ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + Me.view1.ASelect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.AUnselect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.view1.AReverse(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles view1.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff + 'With Me.view1.ActiveSheet + ' Select Case .ActiveColumn.Label + ' Case "Ĺ׿뷮" + ' If (.Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" OrElse _ + ' .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = vbNullString) AndAlso _ + ' .ActiveCell.Text.Length = 4 Then + ' .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + ' 'Else + ' ' Me.Text = .ActiveCell.Text.Length & "/" & .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text + ' End If + ' Case "" + ' Select Case .ActiveCell.Text.ToUpper + ' Case "SW" + ' .ActiveCell.Text = "PAD SW" + ' Case "SK" + ' .ActiveCell.Text = "" + ' Case "TR" + ' .ActiveCell.Text = "PAD TR" + ' Case "TK" + ' .ActiveCell.Text = "󺯾б" + ' End Select + ' End Select + 'End With + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.Detail_Cable2.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_Cable2Row = Me.DT.NewDetail_Cable2Row '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_Cable2Row(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.IreaDataSet1.jjungtable.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.jjungtableRow In Me.IreaDataSet1.jjungtable.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles servoolStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.jjungtable, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable2.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable2.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Cable2.Rows + A("") = Not A("") + Next + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.view1.ASetting_Save(False, viewTag) + End Sub + + Private Sub bt_seldel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seldel.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + + With Me.view1.ActiveSheet + Select Case .ActiveColumn.DataField.ToUpper + Case "", "ȣ", "HAڸ", "HBڸ", "HADL", "HA", "HBDL", "DB", _ + "S0ȣ2", "S0ȣ3", "S0ȣ4", _ + "S1ȣ2", "S1ȣ3", "S1ȣ4", _ + "S2ȣ2", "S2ȣ3", "S2ȣ4", _ + "S3ȣ2", "S3ȣ3", "S3ȣ4", _ + "S4ȣ2", "S4ȣ3", "S4ȣ4", _ + "HASS", "HBSS", "ð", "ðȸ", "ȣ", "", "S0ȣ1", "S1ȣ1", "S2ȣ1", "S3ȣ1", "S4ȣ1", "S0SW", "S0밡", "S1SW", "S2SW", "S3SW", "S4SW", "S1ġ", "S2ġ", "S2ġ", "S4ġ", "1", "2", "3", "4", "5", "6" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + 'Case "HADL" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HASS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HASS")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HA" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HASS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HASS")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HADL")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HADL")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HBDL" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBSS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBSS")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "HB" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBSS")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBSS")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("HBDL")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("HBDL")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "S0ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("S0ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("S0ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + + 'Case "s1ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s1ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s1ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s1ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s1ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s2ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s2ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s2ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + 'Case "s3ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s3ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s3ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s3ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s3ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + 'Case "s4ȣ2" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s4ȣ3" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + 'Case "s4ȣ4" '//ȣ2 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("s4ȣ3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("s4ȣ3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + + ' Case "3" '//ȣ3 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + ' Case "4" '//ȣ4 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("3")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + ' Case "5" '//ȣ5 + ' If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + ' If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("1")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("2")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("3")).Text AndAlso _ + ' .Cells(.ActiveRowIndex, Me.view1.ColIndex2("4")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("4")).Text Then + ' .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + ' End If + ' End If + End Select + End With + End Select + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCableLabel.Designer.vb b/Epole/입력폼/AddEpoleCableLabel.Designer.vb new file mode 100644 index 0000000..d64dda8 --- /dev/null +++ b/Epole/입력폼/AddEpoleCableLabel.Designer.vb @@ -0,0 +1,1898 @@ + _ +Partial Class AddEpoleCableLabel + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.servoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.out = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_seldel = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter() + Me.view1 = New NewFp() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.std7 = New MyControlOLEDBv2.MyTextBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.stc5 = New MyControlOLEDBv2.MyTextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.stc4 = New MyControlOLEDBv2.MyTextBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.stc3 = New MyControlOLEDBv2.MyTextBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.std6 = New MyControlOLEDBv2.MyTextBox() + Me.Label24 = New System.Windows.Forms.Label() + Me.stc2 = New MyControlOLEDBv2.MyTextBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.std5 = New MyControlOLEDBv2.MyTextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.stc1 = New MyControlOLEDBv2.MyTextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.std4 = New MyControlOLEDBv2.MyTextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.stb6 = New MyControlOLEDBv2.MyTextBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.std3 = New MyControlOLEDBv2.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.stb5 = New MyControlOLEDBv2.MyTextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.std2 = New MyControlOLEDBv2.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.stb4 = New MyControlOLEDBv2.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.std1 = New MyControlOLEDBv2.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.stb3 = New MyControlOLEDBv2.MyTextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.stc7 = New MyControlOLEDBv2.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.stb2 = New MyControlOLEDBv2.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.stc6 = New MyControlOLEDBv2.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.stb1 = New MyControlOLEDBv2.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel2.SuspendLayout() + Me.SuspendLayout() + ' + '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_ime, Me.lb_pos, Me.lb_edit, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 555) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1172, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(41, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(33, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(41, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(11, 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 = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1172, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(98, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + Me.bt_dupchk.Visible = False + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + Me.ToolStripMenuItem.Text = "고압[전산번호]" + Me.ToolStripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(122, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(129, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(126, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(202, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(202, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.servoolStripMenuItem, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 232) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'servoolStripMenuItem + ' + Me.servoolStripMenuItem.Name = "servoolStripMenuItem" + Me.servoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.servoolStripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.ToolStripMenuItem6, Me.bt_seldel, Me.ToolStripMenuItem7}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(119, 6) + ' + 'bt_seldel + ' + Me.bt_seldel.Name = "bt_seldel" + Me.bt_seldel.Size = New System.Drawing.Size(122, 22) + Me.bt_seldel.Text = "선택삭제" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(119, 6) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 39) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1172, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(542, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 516) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1172, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "Detail_CableLabel" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 493) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1172, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.ACellImeLabel = Me.lb_ime + Me.view1.ACellposLabel = Me.lb_pos + Me.view1.ACheckBox_ColIndex = CType(0, Short) + Me.view1.ADeleteCell = True + Me.view1.ADeleteRow = True + Me.view1.AEditFromSpace = True + Me.view1.AEditStatusLabel = Me.lb_change + Me.view1.AFirstColumn_Index = 2 + Me.view1.AllowCellOverflow = True + Me.view1.AllowEditOverflow = True + Me.view1.AMessageLabel = Me.lb_msg + Me.view1.ANextRow_ColIndex = -1 + Me.view1.ASameRowheight = True + Me.view1.BackColor = System.Drawing.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.Dock = System.Windows.Forms.DockStyle.Fill + Me.view1.EditModeReplace = True + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(0, 76) + Me.view1.Name = "view1" + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Vertical + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1172, 364) + Me.view1.TabIndex = 8 + 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 = 23 + Me.view1_Sheet1.ColumnHeader.RowCount = 2 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AllowNoteEdit = True + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 6 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "고압(SW1,2,3,4,HA,HB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "고압(HA,HB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).ColumnSpan = 14 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "저압(TR,분기개소,저압입상)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "저압(LB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).Value = "비고" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 22).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 22).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "전산번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "단자명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "S/S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "D/L" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "H1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "H2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "전산번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "저압번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "공급상" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "공급변압기" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "전산번호(전원측)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "전산번호(부하측)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "고객명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "전산번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "저압번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "공급상" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "공급변압기(TR)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "전산번호(전원측)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "전산번호(부하측)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "고객명" + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 68.0! + Me.view1_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Label = "*" + Me.view1_Sheet1.Columns.Get(0).Tag = "select" + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 53.0! + NumberCellType1.DecimalPlaces = 0 + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 54.0! + Me.view1_Sheet1.Columns.Get(2).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "N10" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Label = "전산번호" + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 57.0! + Me.view1_Sheet1.Columns.Get(3).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + Me.view1_Sheet1.Columns.Get(3).DataField = "N1D" + 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 = 43.0! + Me.view1_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(4).DataField = "N1S" + Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Label = "S/S" + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 43.0! + Me.view1_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "N1L" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Label = "D/L" + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 43.0! + Me.view1_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "N1H1" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Label = "H1" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 43.0! + Me.view1_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "N1H2" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Label = "H2" + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 43.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "N20" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Label = "전산번호" + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 43.0! + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "N2J" + 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).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 46.0! + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "N2K" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Label = "공급상" + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 43.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "N2B" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Label = "공급변압기" + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 43.0! + TextCellType11.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "N21" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Label = "전산번호(전원측)" + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 43.0! + TextCellType12.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "N22" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Label = "전산번호(부하측)" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 43.0! + TextCellType13.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "N2C" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "고객명" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 43.0! + Me.view1_Sheet1.Columns.Get(15).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(15).DataField = "N30" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Label = "전산번호" + Me.view1_Sheet1.Columns.Get(15).Locked = False + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 43.0! + Me.view1_Sheet1.Columns.Get(16).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType15.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(16).DataField = "N3J" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Label = "저압번호" + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Width = 41.0! + Me.view1_Sheet1.Columns.Get(17).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(17).DataField = "N3K" + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Label = "공급상" + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Width = 43.0! + Me.view1_Sheet1.Columns.Get(18).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(18).DataField = "N3B" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Label = "공급변압기(TR)" + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Width = 43.0! + Me.view1_Sheet1.Columns.Get(19).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(19).DataField = "N31" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Label = "전산번호(전원측)" + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Width = 43.0! + Me.view1_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(20).DataField = "N32" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Label = "전산번호(부하측)" + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Width = 43.0! + Me.view1_Sheet1.Columns.Get(21).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(21).DataField = "N3C" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Label = "고객명" + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Width = 45.0! + Me.view1_Sheet1.Columns.Get(22).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(22).DataField = "출력" + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Width = 63.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataMember = "Detail_CableLabel" + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view1.SetActiveViewport(0, -1, 0) + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.std7) + Me.Panel2.Controls.Add(Me.Label20) + Me.Panel2.Controls.Add(Me.stc5) + Me.Panel2.Controls.Add(Me.Label26) + Me.Panel2.Controls.Add(Me.stc4) + Me.Panel2.Controls.Add(Me.Label21) + Me.Panel2.Controls.Add(Me.stc3) + Me.Panel2.Controls.Add(Me.Label23) + Me.Panel2.Controls.Add(Me.std6) + Me.Panel2.Controls.Add(Me.Label24) + Me.Panel2.Controls.Add(Me.stc2) + Me.Panel2.Controls.Add(Me.Label25) + Me.Panel2.Controls.Add(Me.std5) + Me.Panel2.Controls.Add(Me.Label18) + Me.Panel2.Controls.Add(Me.stc1) + Me.Panel2.Controls.Add(Me.Label19) + Me.Panel2.Controls.Add(Me.std4) + Me.Panel2.Controls.Add(Me.Label16) + Me.Panel2.Controls.Add(Me.stb6) + Me.Panel2.Controls.Add(Me.Label17) + Me.Panel2.Controls.Add(Me.std3) + Me.Panel2.Controls.Add(Me.Label14) + Me.Panel2.Controls.Add(Me.stb5) + Me.Panel2.Controls.Add(Me.Label15) + Me.Panel2.Controls.Add(Me.std2) + Me.Panel2.Controls.Add(Me.Label10) + Me.Panel2.Controls.Add(Me.stb4) + Me.Panel2.Controls.Add(Me.Label11) + Me.Panel2.Controls.Add(Me.std1) + Me.Panel2.Controls.Add(Me.Label12) + Me.Panel2.Controls.Add(Me.stb3) + Me.Panel2.Controls.Add(Me.Label13) + Me.Panel2.Controls.Add(Me.stc7) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Controls.Add(Me.stb2) + Me.Panel2.Controls.Add(Me.Label4) + Me.Panel2.Controls.Add(Me.stc6) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Controls.Add(Me.stb1) + Me.Panel2.Controls.Add(Me.Label3) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 440) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1172, 53) + Me.Panel2.TabIndex = 22 + ' + 'std7 + ' + Me.std7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std7.DB_BaseLabel = Nothing + Me.std7.DB_ColName = "TextBox1" + Me.std7.DB_ITEM = False + Me.std7.DB_NotNull = False + Me.std7.DB_Prompt = "TextBox1" + Me.std7.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std7.DB_WhereType = Nothing + Me.std7.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std7.Location = New System.Drawing.Point(725, 28) + Me.std7.Name = "std7" + Me.std7.Size = New System.Drawing.Size(45, 21) + Me.std7.TabIndex = 62 + Me.std7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std7.Value = "" + Me.std7.WHERE_DEFAULT_VALUE = "" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(687, 33) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(35, 12) + Me.Label20.TabIndex = 61 + Me.Label20.Text = "고정7" + ' + 'stc5 + ' + Me.stc5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc5.DB_BaseLabel = Nothing + Me.stc5.DB_ColName = "TextBox1" + Me.stc5.DB_ITEM = False + Me.stc5.DB_NotNull = False + Me.stc5.DB_Prompt = "TextBox1" + Me.stc5.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc5.DB_WhereType = Nothing + Me.stc5.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc5.Location = New System.Drawing.Point(897, 4) + Me.stc5.Name = "stc5" + Me.stc5.Size = New System.Drawing.Size(45, 21) + Me.stc5.TabIndex = 60 + Me.stc5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc5.Value = "" + Me.stc5.WHERE_DEFAULT_VALUE = "" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label26.Location = New System.Drawing.Point(859, 9) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(38, 12) + Me.Label26.TabIndex = 59 + Me.Label26.Text = "고정5" + ' + 'stc4 + ' + Me.stc4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc4.DB_BaseLabel = Nothing + Me.stc4.DB_ColName = "TextBox1" + Me.stc4.DB_ITEM = False + Me.stc4.DB_NotNull = False + Me.stc4.DB_Prompt = "TextBox1" + Me.stc4.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc4.DB_WhereType = Nothing + Me.stc4.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc4.Location = New System.Drawing.Point(811, 4) + Me.stc4.Name = "stc4" + Me.stc4.Size = New System.Drawing.Size(45, 21) + Me.stc4.TabIndex = 56 + Me.stc4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc4.Value = "" + Me.stc4.WHERE_DEFAULT_VALUE = "" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label21.Location = New System.Drawing.Point(773, 9) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(38, 12) + Me.Label21.TabIndex = 55 + Me.Label21.Text = "고정4" + ' + 'stc3 + ' + Me.stc3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc3.DB_BaseLabel = Nothing + Me.stc3.DB_ColName = "TextBox1" + Me.stc3.DB_ITEM = False + Me.stc3.DB_NotNull = False + Me.stc3.DB_Prompt = "TextBox1" + Me.stc3.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc3.DB_WhereType = Nothing + Me.stc3.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc3.Location = New System.Drawing.Point(725, 4) + Me.stc3.Name = "stc3" + Me.stc3.Size = New System.Drawing.Size(45, 21) + Me.stc3.TabIndex = 52 + Me.stc3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc3.Value = "" + Me.stc3.WHERE_DEFAULT_VALUE = "" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label23.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label23.Location = New System.Drawing.Point(687, 9) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(38, 12) + Me.Label23.TabIndex = 51 + Me.Label23.Text = "고정3" + ' + 'std6 + ' + Me.std6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std6.DB_BaseLabel = Nothing + Me.std6.DB_ColName = "TextBox1" + Me.std6.DB_ITEM = False + Me.std6.DB_NotNull = False + Me.std6.DB_Prompt = "TextBox1" + Me.std6.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std6.DB_WhereType = Nothing + Me.std6.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std6.Location = New System.Drawing.Point(640, 28) + Me.std6.Name = "std6" + Me.std6.Size = New System.Drawing.Size(45, 21) + Me.std6.TabIndex = 50 + Me.std6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std6.Value = "" + Me.std6.WHERE_DEFAULT_VALUE = "" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(602, 33) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(35, 12) + Me.Label24.TabIndex = 49 + Me.Label24.Text = "고정6" + ' + 'stc2 + ' + Me.stc2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc2.DB_BaseLabel = Nothing + Me.stc2.DB_ColName = "TextBox1" + Me.stc2.DB_ITEM = False + Me.stc2.DB_NotNull = False + Me.stc2.DB_Prompt = "TextBox1" + Me.stc2.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc2.DB_WhereType = Nothing + Me.stc2.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc2.Location = New System.Drawing.Point(640, 4) + Me.stc2.Name = "stc2" + Me.stc2.Size = New System.Drawing.Size(45, 21) + Me.stc2.TabIndex = 48 + Me.stc2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc2.Value = "" + Me.stc2.WHERE_DEFAULT_VALUE = "" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label25.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label25.Location = New System.Drawing.Point(602, 9) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(38, 12) + Me.Label25.TabIndex = 47 + Me.Label25.Text = "고정2" + ' + 'std5 + ' + Me.std5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std5.DB_BaseLabel = Nothing + Me.std5.DB_ColName = "TextBox1" + Me.std5.DB_ITEM = False + Me.std5.DB_NotNull = False + Me.std5.DB_Prompt = "TextBox1" + Me.std5.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std5.DB_WhereType = Nothing + Me.std5.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std5.Location = New System.Drawing.Point(556, 28) + Me.std5.Name = "std5" + Me.std5.Size = New System.Drawing.Size(45, 21) + Me.std5.TabIndex = 46 + Me.std5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std5.Value = "" + Me.std5.WHERE_DEFAULT_VALUE = "" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(518, 33) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(35, 12) + Me.Label18.TabIndex = 45 + Me.Label18.Text = "고정5" + ' + 'stc1 + ' + Me.stc1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc1.DB_BaseLabel = Nothing + Me.stc1.DB_ColName = "TextBox1" + Me.stc1.DB_ITEM = False + Me.stc1.DB_NotNull = False + Me.stc1.DB_Prompt = "TextBox1" + Me.stc1.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc1.DB_WhereType = Nothing + Me.stc1.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc1.Location = New System.Drawing.Point(556, 4) + Me.stc1.Name = "stc1" + Me.stc1.Size = New System.Drawing.Size(45, 21) + Me.stc1.TabIndex = 44 + Me.stc1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc1.Value = "" + Me.stc1.WHERE_DEFAULT_VALUE = "" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label19.Location = New System.Drawing.Point(518, 9) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(38, 12) + Me.Label19.TabIndex = 43 + Me.Label19.Text = "고정1" + ' + 'std4 + ' + Me.std4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std4.DB_BaseLabel = Nothing + Me.std4.DB_ColName = "TextBox1" + Me.std4.DB_ITEM = False + Me.std4.DB_NotNull = False + Me.std4.DB_Prompt = "TextBox1" + Me.std4.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std4.DB_WhereType = Nothing + Me.std4.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std4.Location = New System.Drawing.Point(471, 28) + Me.std4.Name = "std4" + Me.std4.Size = New System.Drawing.Size(45, 21) + Me.std4.TabIndex = 42 + Me.std4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std4.Value = "" + Me.std4.WHERE_DEFAULT_VALUE = "" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(433, 33) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(35, 12) + Me.Label16.TabIndex = 41 + Me.Label16.Text = "고정4" + ' + 'stb6 + ' + Me.stb6.BackColor = System.Drawing.Color.White + Me.stb6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb6.DB_BaseLabel = Nothing + Me.stb6.DB_ColName = "TextBox1" + Me.stb6.DB_ITEM = False + Me.stb6.DB_NotNull = False + Me.stb6.DB_Prompt = "TextBox1" + Me.stb6.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb6.DB_WhereType = Nothing + Me.stb6.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb6.Location = New System.Drawing.Point(471, 4) + Me.stb6.Name = "stb6" + Me.stb6.Size = New System.Drawing.Size(45, 21) + Me.stb6.TabIndex = 40 + Me.stb6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb6.Value = "" + Me.stb6.WHERE_DEFAULT_VALUE = "" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(433, 9) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(35, 12) + Me.Label17.TabIndex = 39 + Me.Label17.Text = "고정6" + ' + 'std3 + ' + Me.std3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std3.DB_BaseLabel = Nothing + Me.std3.DB_ColName = "TextBox1" + Me.std3.DB_ITEM = False + Me.std3.DB_NotNull = False + Me.std3.DB_Prompt = "TextBox1" + Me.std3.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std3.DB_WhereType = Nothing + Me.std3.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std3.Location = New System.Drawing.Point(387, 28) + Me.std3.Name = "std3" + Me.std3.Size = New System.Drawing.Size(45, 21) + Me.std3.TabIndex = 38 + Me.std3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std3.Value = "" + Me.std3.WHERE_DEFAULT_VALUE = "" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(349, 33) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(35, 12) + Me.Label14.TabIndex = 37 + Me.Label14.Text = "고정3" + ' + 'stb5 + ' + Me.stb5.BackColor = System.Drawing.Color.White + Me.stb5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb5.DB_BaseLabel = Nothing + Me.stb5.DB_ColName = "TextBox1" + Me.stb5.DB_ITEM = False + Me.stb5.DB_NotNull = False + Me.stb5.DB_Prompt = "TextBox1" + Me.stb5.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb5.DB_WhereType = Nothing + Me.stb5.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb5.Location = New System.Drawing.Point(387, 4) + Me.stb5.Name = "stb5" + Me.stb5.Size = New System.Drawing.Size(45, 21) + Me.stb5.TabIndex = 36 + Me.stb5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb5.Value = "" + Me.stb5.WHERE_DEFAULT_VALUE = "" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(349, 9) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(35, 12) + Me.Label15.TabIndex = 35 + Me.Label15.Text = "고정5" + ' + 'std2 + ' + Me.std2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std2.DB_BaseLabel = Nothing + Me.std2.DB_ColName = "TextBox1" + Me.std2.DB_ITEM = False + Me.std2.DB_NotNull = False + Me.std2.DB_Prompt = "TextBox1" + Me.std2.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std2.DB_WhereType = Nothing + Me.std2.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std2.Location = New System.Drawing.Point(302, 28) + Me.std2.Name = "std2" + Me.std2.Size = New System.Drawing.Size(45, 21) + Me.std2.TabIndex = 34 + Me.std2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std2.Value = "" + Me.std2.WHERE_DEFAULT_VALUE = "" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(264, 33) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(35, 12) + Me.Label10.TabIndex = 33 + Me.Label10.Text = "고정2" + ' + 'stb4 + ' + Me.stb4.BackColor = System.Drawing.Color.White + Me.stb4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb4.DB_BaseLabel = Nothing + Me.stb4.DB_ColName = "TextBox1" + Me.stb4.DB_ITEM = False + Me.stb4.DB_NotNull = False + Me.stb4.DB_Prompt = "TextBox1" + Me.stb4.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb4.DB_WhereType = Nothing + Me.stb4.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb4.Location = New System.Drawing.Point(302, 4) + Me.stb4.Name = "stb4" + Me.stb4.Size = New System.Drawing.Size(45, 21) + Me.stb4.TabIndex = 32 + Me.stb4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb4.Value = "" + Me.stb4.WHERE_DEFAULT_VALUE = "" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(264, 9) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(35, 12) + Me.Label11.TabIndex = 31 + Me.Label11.Text = "고정4" + ' + 'std1 + ' + Me.std1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.std1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.std1.DB_BaseLabel = Nothing + Me.std1.DB_ColName = "TextBox1" + Me.std1.DB_ITEM = False + Me.std1.DB_NotNull = False + Me.std1.DB_Prompt = "TextBox1" + Me.std1.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.std1.DB_WhereType = Nothing + Me.std1.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.std1.Location = New System.Drawing.Point(217, 28) + Me.std1.Name = "std1" + Me.std1.Size = New System.Drawing.Size(45, 21) + Me.std1.TabIndex = 30 + Me.std1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.std1.Value = "" + Me.std1.WHERE_DEFAULT_VALUE = "" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(179, 33) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(35, 12) + Me.Label12.TabIndex = 29 + Me.Label12.Text = "고정1" + ' + 'stb3 + ' + Me.stb3.BackColor = System.Drawing.Color.White + Me.stb3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb3.DB_BaseLabel = Nothing + Me.stb3.DB_ColName = "TextBox1" + Me.stb3.DB_ITEM = False + Me.stb3.DB_NotNull = False + Me.stb3.DB_Prompt = "TextBox1" + Me.stb3.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb3.DB_WhereType = Nothing + Me.stb3.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb3.Location = New System.Drawing.Point(217, 4) + Me.stb3.Name = "stb3" + Me.stb3.Size = New System.Drawing.Size(45, 21) + Me.stb3.TabIndex = 28 + Me.stb3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb3.Value = "" + Me.stb3.WHERE_DEFAULT_VALUE = "" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(179, 9) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(35, 12) + Me.Label13.TabIndex = 27 + Me.Label13.Text = "고정3" + ' + 'stc7 + ' + Me.stc7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc7.DB_BaseLabel = Nothing + Me.stc7.DB_ColName = "TextBox1" + Me.stc7.DB_ITEM = False + Me.stc7.DB_NotNull = False + Me.stc7.DB_Prompt = "TextBox1" + Me.stc7.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc7.DB_WhereType = Nothing + Me.stc7.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc7.Location = New System.Drawing.Point(131, 28) + Me.stc7.Name = "stc7" + Me.stc7.Size = New System.Drawing.Size(45, 21) + Me.stc7.TabIndex = 26 + Me.stc7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc7.Value = "" + Me.stc7.WHERE_DEFAULT_VALUE = "" + ' + '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.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label2.Location = New System.Drawing.Point(93, 33) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(38, 12) + Me.Label2.TabIndex = 25 + Me.Label2.Text = "고정7" + ' + 'stb2 + ' + Me.stb2.BackColor = System.Drawing.Color.White + Me.stb2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb2.DB_BaseLabel = Nothing + Me.stb2.DB_ColName = "TextBox1" + Me.stb2.DB_ITEM = False + Me.stb2.DB_NotNull = False + Me.stb2.DB_Prompt = "TextBox1" + Me.stb2.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb2.DB_WhereType = Nothing + Me.stb2.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb2.Location = New System.Drawing.Point(131, 4) + Me.stb2.Name = "stb2" + Me.stb2.Size = New System.Drawing.Size(45, 21) + Me.stb2.TabIndex = 24 + Me.stb2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb2.Value = "" + Me.stb2.WHERE_DEFAULT_VALUE = "" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(93, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(35, 12) + Me.Label4.TabIndex = 23 + Me.Label4.Text = "고정2" + ' + 'stc6 + ' + Me.stc6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.stc6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stc6.DB_BaseLabel = Nothing + Me.stc6.DB_ColName = "TextBox1" + Me.stc6.DB_ITEM = False + Me.stc6.DB_NotNull = False + Me.stc6.DB_Prompt = "TextBox1" + Me.stc6.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stc6.DB_WhereType = Nothing + Me.stc6.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stc6.Location = New System.Drawing.Point(44, 28) + Me.stc6.Name = "stc6" + Me.stc6.Size = New System.Drawing.Size(45, 21) + Me.stc6.TabIndex = 22 + Me.stc6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stc6.Value = "" + Me.stc6.WHERE_DEFAULT_VALUE = "" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer)) + Me.Label1.Location = New System.Drawing.Point(6, 33) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(38, 12) + Me.Label1.TabIndex = 21 + Me.Label1.Text = "고정6" + ' + 'stb1 + ' + Me.stb1.BackColor = System.Drawing.Color.White + Me.stb1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.stb1.DB_BaseLabel = Nothing + Me.stb1.DB_ColName = "TextBox1" + Me.stb1.DB_ITEM = False + Me.stb1.DB_NotNull = False + Me.stb1.DB_Prompt = "TextBox1" + Me.stb1.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.stb1.DB_WhereType = Nothing + Me.stb1.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.stb1.Location = New System.Drawing.Point(44, 4) + Me.stb1.Name = "stb1" + Me.stb1.Size = New System.Drawing.Size(45, 21) + Me.stb1.TabIndex = 20 + Me.stb1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.stb1.Value = "" + Me.stb1.WHERE_DEFAULT_VALUE = "" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(6, 9) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(35, 12) + Me.Label3.TabIndex = 19 + Me.Label3.Text = "고정1" + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'AddEpoleCableLabel + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1172, 577) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleCableLabel" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "번호찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As NewFp + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents servoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_seldel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents stb1 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents stc6 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents stc7 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents stb2 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents std2 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents stb4 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents std1 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents stb3 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents std5 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents stc1 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents std4 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents stb6 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents std3 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents stb5 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents stc4 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents stc3 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents std6 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents stc2 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents stc5 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents std7 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpoleCableLabel.resx b/Epole/입력폼/AddEpoleCableLabel.resx new file mode 100644 index 0000000..eaf84d0 --- /dev/null +++ b/Epole/입력폼/AddEpoleCableLabel.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 199, 31 + + + 459, 6 + + + 308, 32 + + + 69 + + + 307, 5 + + + 760, 3 + + + 5, 15 + + + 588, 5 + + + 169, 6 + + + 599, 29 + + + 85, 15 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleCableLabel.vb b/Epole/입력폼/AddEpoleCableLabel.vb new file mode 100644 index 0000000..4439652 --- /dev/null +++ b/Epole/입력폼/AddEpoleCableLabel.vb @@ -0,0 +1,732 @@ +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''' 2007-10-01 : ҽ : Ƹ(tindevil.nate.com) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +Public Class AddEpoleCableLabel + + ' Dim SaveFlag As Boolean = False + Dim DT As ireaDataSet.Detail_CableLabelDataTable + Dim Sorted As ESorted = ESorted.No + Dim viewTag As String = "jcablelabel" + Public PrnForm As printformCableLABEL + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) 'Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + 'NEwrow("1") = "" + 'NEwrow("2") = "" + 'NEwrow("3") = "" + 'NEwrow("4") = "" + 'NEwrow("5") = "" + + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "(̺ǥö) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(̺ǥö)(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(̺ǥö) Է" + + End Sub + + Public Sub FixedSTring(Optional ByVal ReadType As Boolean = True) + Dim a As New tinyIni(My.Application.Info.DirectoryPath & "\FixedString.INI") + '// Ҷ ҷ´. + If ReadType Then + Me.stb1.Text = a.Read(Me.Name & Me.h_id.Text, "fb1", "ġ") + Me.stb2.Text = a.Read(Me.Name & Me.h_id.Text, "fb2", "ڸ") + Me.stb3.Text = a.Read(Me.Name & Me.h_id.Text, "fb3", "S/S") + Me.stb4.Text = a.Read(Me.Name & Me.h_id.Text, "fb4", "D/L") + Me.stb5.Text = a.Read(Me.Name & Me.h_id.Text, "fb5", "") + Me.stb6.Text = a.Read(Me.Name & Me.h_id.Text, "fb6", "") + + Me.stc1.Text = a.Read(Me.Name & Me.h_id.Text, "fc1", "ġ") + Me.stc2.Text = a.Read(Me.Name & Me.h_id.Text, "fc2", "ȸ") + Me.stc3.Text = a.Read(Me.Name & Me.h_id.Text, "fc3", "޻") + Me.stc4.Text = a.Read(Me.Name & Me.h_id.Text, "fc4", "б") + Me.stc5.Text = a.Read(Me.Name & Me.h_id.Text, "fc5", "") + Me.stc6.Text = a.Read(Me.Name & Me.h_id.Text, "fc6", "") + Me.stc7.Text = a.Read(Me.Name & Me.h_id.Text, "fc7", "") + + Me.std1.Text = a.Read(Me.Name & Me.h_id.Text, "fd1", "ġ") + Me.std2.Text = a.Read(Me.Name & Me.h_id.Text, "fd2", "ȸ") + Me.std3.Text = a.Read(Me.Name & Me.h_id.Text, "fd3", "޻") + Me.std4.Text = a.Read(Me.Name & Me.h_id.Text, "fd4", "б") + Me.std5.Text = a.Read(Me.Name & Me.h_id.Text, "fd5", "") + Me.std6.Text = a.Read(Me.Name & Me.h_id.Text, "fd6", "") + Me.std7.Text = a.Read(Me.Name & Me.h_id.Text, "fd7", "") + + Else + a.Write(Me.Name & Me.h_id.Text, "fb1", Me.stb1.Text) + a.Write(Me.Name & Me.h_id.Text, "fb2", Me.stb2.Text) + a.Write(Me.Name & Me.h_id.Text, "fb3", Me.stb3.Text) + a.Write(Me.Name & Me.h_id.Text, "fb4", Me.stb4.Text) + a.Write(Me.Name & Me.h_id.Text, "fb5", Me.stb5.Text) + a.Write(Me.Name & Me.h_id.Text, "fb6", Me.stb6.Text) + + a.Write(Me.Name & Me.h_id.Text, "fc1", Me.stc1.Text) + a.Write(Me.Name & Me.h_id.Text, "fc2", Me.stc2.Text) + a.Write(Me.Name & Me.h_id.Text, "fc3", Me.stc3.Text) + a.Write(Me.Name & Me.h_id.Text, "fc4", Me.stc4.Text) + a.Write(Me.Name & Me.h_id.Text, "fc5", Me.stc5.Text) + a.Write(Me.Name & Me.h_id.Text, "fc6", Me.stc6.Text) + a.Write(Me.Name & Me.h_id.Text, "fc7", Me.stc7.Text) + + + a.Write(Me.Name & Me.h_id.Text, "fd1", Me.std1.Text) + a.Write(Me.Name & Me.h_id.Text, "fd2", Me.std2.Text) + a.Write(Me.Name & Me.h_id.Text, "fd3", Me.std3.Text) + a.Write(Me.Name & Me.h_id.Text, "fd4", Me.std4.Text) + a.Write(Me.Name & Me.h_id.Text, "fd5", Me.std5.Text) + a.Write(Me.Name & Me.h_id.Text, "fd6", Me.std6.Text) + a.Write(Me.Name & Me.h_id.Text, "fd7", Me.std7.Text) + + + End If + + '//ڸ ɴϴ. + a = Nothing + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + Me.FixedSTring(False) + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("N10"), "") = "" AndAlso _ + NVL(Drv("N30"), "") = "" AndAlso _ + NVL(Drv("N20"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.view1.ASetting_Load(False, Me.viewTag) + Me.view1.ѱʵ = New String() { _ + "N1S", "N1L", _ + "N2B", "N2C", _ + "N3B", "N3C" _ + } + + + Me.FixedSTring() '//ںҷ + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + AddHandler IreaDataSet1.Detail_CableLabel.TableNewRow, AddressOf NewRowAddToDataTable + DT = Me.IreaDataSet1.Detail_CableLabel + Me.SETTOOLTIP() + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from Detail_CableLabel where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + + + End Sub + + + + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + End Sub + Private Sub SetFarPoint() + ' Me.view1.AEnterToNextItem() + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + + Try + Me.ta.Update(Me.IreaDataSet1.Detail_CableLabel) '//Commit insert/update/delete + Me.IreaDataSet1.jjungtable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,7)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_CableLabel.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=7 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_CableLabel.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_CableLabel.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.Detail_CableLabel, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_CableLabel.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 7) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.view1.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + + 'Me.bs.EndEdit() + 'If Me.view1.Cells("").Value = False Then + ' MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + ' Return + 'End If + 'Dim Aa As New Cls_CableLabel.PrintForm(Me.DT, True, Me.view1.⺻Ÿε, CType(Me.bs.Current, DataRowView)) + 'Aa.Show() + + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Dim Stastr() As String = New String() {Me.stb1.Text, _ + Me.stb2.Text, _ + Me.stb3.Text, _ + Me.stb4.Text, _ + Me.stb5.Text, _ + Me.stb6.Text, _ + Me.stc1.Text, _ + Me.stc2.Text, _ + Me.stc3.Text, _ + Me.stc4.Text, _ + Me.stc5.Text, _ + Me.stc6.Text, _ + Me.stc7.Text, _ + Me.std1.Text, _ + Me.std2.Text, _ + Me.std3.Text, _ + Me.std4.Text, _ + Me.std5.Text, _ + Me.std6.Text, _ + Me.std7.Text _ + } + PrnForm = New printformCableLABEL(Me.IreaDataSet1.Detail_CableLabel, CType(Me.bs.Current, DataRowView), Stastr) 'Me.view1.ActiveSheet.ActiveRowIndex) + If Admin Then + PrnForm.Show() + Else + PrnForm.ShowDialog() + End If + + + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 2).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("N10")).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, Me.view1.ACheckBox_ColIndex).Value = True + Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("N10"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + Me.view1.ASelect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.AUnselect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.view1.AReverse(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles view1.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff + 'With Me.view1.ActiveSheet + ' Select Case .ActiveColumn.Label + ' Case "Ĺ׿뷮" + ' If (.Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" OrElse _ + ' .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = vbNullString) AndAlso _ + ' .ActiveCell.Text.Length = 4 Then + ' .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + ' 'Else + ' ' Me.Text = .ActiveCell.Text.Length & "/" & .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text + ' End If + ' Case "" + ' Select Case .ActiveCell.Text.ToUpper + ' Case "SW" + ' .ActiveCell.Text = "PAD SW" + ' Case "SK" + ' .ActiveCell.Text = "" + ' Case "TR" + ' .ActiveCell.Text = "PAD TR" + ' Case "TK" + ' .ActiveCell.Text = "󺯾б" + ' End Select + ' End Select + 'End With + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.Detail_CableLabel.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_CableLabelRow = Me.DT.NewDetail_CableLabelRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_CableLabelRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + 'Dim ȣ As String + 'Dim ȣB, ȣb2 As System.Text.StringBuilder + 'Me.pbar.Minimum = 0 + 'Me.pbar.Maximum = Me.IreaDataSet1.Detail_CableLabel.Rows.Count - 1 + 'Me.pbar.Value = 0 + 'Dim Cidx As Int16 = 0 + 'Dim Carray As ArrayList + 'For Each dr As ireaDataSet.Detail_CableLabelRow In Me.IreaDataSet1.Detail_CableLabel.Rows + ' ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + ' If ȣ <> "" Then + ' Cidx = 0 + ' ȣB = New System.Text.StringBuilder + ' ȣb2 = New System.Text.StringBuilder + ' Carray = New ArrayList + ' For Each C As Char In ȣ.ToCharArray + ' If Char.IsLetter(C) Then + ' Carray.Add(C) '//ġ ڸ Ѵ. + ' ȣB.Append("@") '//ڴ @ ȯѴ. + ' Else + ' ȣB.Append(C) '//ڴ ٷ ع. + ' End If + ' Cidx += 1 + ' Next + ' For Each ȣs As String In ȣB.ToString.Split("@") + ' ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + ' Next + ' ȣb2.Remove(ȣb2.Length - 1, 1) '// + ' ȣ = ȣb2.ToString + ' For Each c As Char In Carray '//ڿ ġ ִ + ' Cidx = ȣ.IndexOf("@") + ' If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + ' Next + ' dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + ' If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + ' Else '//ȣ ƹ͵ ° + ' dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + ' End If + 'Next + 'NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles servoolStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.Detail_CableLabel, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = Not A("") + Next + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.view1.ASetting_Save(False, viewTag) + End Sub + + Private Sub bt_seldel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seldel.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown + + + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + 'MsgBox("beforkey") + With Me.view1.ActiveSheet + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End With + End Select + End Sub + + + Private Sub view1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.EditModeOff + + + With Me.view1.ActiveSheet + + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + + 'Me.Text = .ActiveColumn.DataField.ToUpper + Select Case .ActiveColumn.DataField.ToUpper + + Case "N10", "N20", "N21", "N22", "N30", "N31", "N32" + If .ActiveCell.Text.Length > 5 AndAlso .ActiveCell.Text.IndexOf(".") = -1 Then + .ActiveCell.Text = .ActiveCell.Text.Substring(0, 5) & "." & .ActiveCell.Text.Substring(5) + End If + + End Select + End With + + + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleDung.Designer.vb b/Epole/입력폼/AddEpoleDung.Designer.vb new file mode 100644 index 0000000..d62f821 --- /dev/null +++ b/Epole/입력폼/AddEpoleDung.Designer.vb @@ -0,0 +1,1055 @@ + _ +Partial Class AddEpoleDung + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.bt_dchk1 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_dchk2 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_dchk3 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsize = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_findview = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.out = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_chkdel = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.view1 = New MyControlOLEDBv2.MyFpoint() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.Detail_DeungTableAdapter() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 603) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1049, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(14, 17) + Me.lb_change.Text = "#" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(31, 17) + Me.lb_msg.Text = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1049, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dchk1, Me.bt_dchk2, Me.bt_dchk3}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(100, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'bt_dchk1 + ' + Me.bt_dchk1.Name = "bt_dchk1" + Me.bt_dchk1.Size = New System.Drawing.Size(178, 22) + Me.bt_dchk1.Text = "고객번호" + Me.bt_dchk1.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'bt_dchk2 + ' + Me.bt_dchk2.Name = "bt_dchk2" + Me.bt_dchk2.Size = New System.Drawing.Size(178, 22) + Me.bt_dchk2.Text = "관리번호" + Me.bt_dchk2.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'bt_dchk3 + ' + Me.bt_dchk3.Name = "bt_dchk3" + Me.bt_dchk3.Size = New System.Drawing.Size(178, 22) + Me.bt_dchk3.Text = "고객번호+관리번호" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(121, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(128, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(205, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(205, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(130, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(91, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsize, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.bt_findview, Me.ToolStripMenuItem6, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 238) + ' + 'bt_colsize + ' + Me.bt_colsize.Name = "bt_colsize" + Me.bt_colsize.Size = New System.Drawing.Size(165, 22) + Me.bt_colsize.Text = "현재뷰상태저장" + Me.bt_colsize.ToolTipText = "현재 뷰의 열 너비를 저장합니다" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'bt_findview + ' + Me.bt_findview.Name = "bt_findview" + Me.bt_findview.Size = New System.Drawing.Size(165, 22) + Me.bt_findview.Text = "검색" + Me.bt_findview.ToolTipText = "현재 선택된 열에한에서 검색을 합니다" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.bt_chkdel}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "일괄선택-선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'bt_chkdel + ' + Me.bt_chkdel.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bt_chkdel.ForeColor = System.Drawing.Color.Red + Me.bt_chkdel.Name = "bt_chkdel" + Me.bt_chkdel.Size = New System.Drawing.Size(122, 22) + Me.bt_chkdel.Text = "선택삭제" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(-1, 43) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1052, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(422, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 564) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1049, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "Detail_Deung" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 541) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1049, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.AccessibleDescription = "view1, Sheet1, Row 0, Column 0, " + Me.view1.AllowCellOverflow = True + Me.view1.AllowDragDrop = True + Me.view1.AllowDragFill = True + Me.view1.AllowUserFormulas = True + 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.BackColor = System.Drawing.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.CurrentDel = True + Me.view1.DeleteKey = True + Me.view1.EditFromSpace = True + Me.view1.EditModeReplace = True + Me.view1.FIRST_FOCUSINDEX = 2 + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(-1, 79) + Me.view1.Name = "view1" + Me.view1.NextRow_Index = 16 + Me.view1.RetainSelectionBlock = False + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.SameRowheight = True + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1048, 456) + Me.view1.TabIndex = 8 + Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.선택줄번호 = CType(0, Short) + ' + '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 = 17 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AllowNoteEdit = True + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "관리ID" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "고객번호1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 6).Value = "관리번호1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 7).Value = "관리번호2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "관리번호3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 9).Value = "지점명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 10).Value = "전산화번호1" + Me.view1_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 62.0! + Me.view1_Sheet1.Columns.Get(0).AllowAutoSort = True + Me.view1_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Label = "선택" + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 74.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(1).DataField = "관리ID" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 74.0! + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(2).CellType = NumberCellType2 + Me.view1_Sheet1.Columns.Get(2).DataField = "번호" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 74.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.MaxLength = 3 + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(3).DataField = "고객번호1" + Me.view1_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).Locked = False + Me.view1_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).Width = 74.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.MaxLength = 5 + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType2 + Me.view1_Sheet1.Columns.Get(4).DataField = "고객번호2" + Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 67.0! + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType3.MaxLength = 5 + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(5).DataField = "고객번호3" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType4.MaxLength = 8 + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(6).DataField = "관리번호1" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 74.0! + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType5.MaxLength = 2 + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(7).DataField = "관리번호2" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 74.0! + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType6.MaxLength = 5 + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(8).DataField = "관리번호3" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 74.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType7 + 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).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 74.0! + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(10).DataField = "전산화번호1" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 74.0! + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(11).DataField = "전산화번호2" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(12).DataField = "선로명" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(13).DataField = "전주번호1" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(14).DataField = "전주번호2" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(15).DataField = "전주번호3" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(16).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(16).DataField = "출력" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Width = 74.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataMember = "Detail_Deung" + Me.view1_Sheet1.DataSource = Me.IreaDataSet1 + Me.view1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.view1_Sheet1.RowHeader.Columns.Get(0).AllowAutoSort = True + Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.view1_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.view1_Sheet1.Rows.Default.Height = 25.0! + Me.view1_Sheet1.Rows.Default.Resizable = True + 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) + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'AddEpoleDung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1049, 625) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleDung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "정액등 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_dchk1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_dchk2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_findview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.Detail_DeungTableAdapter + Friend WithEvents bt_dchk3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_colsize As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_chkdel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpoleDung.resx b/Epole/입력폼/AddEpoleDung.resx new file mode 100644 index 0000000..1dce535 --- /dev/null +++ b/Epole/입력폼/AddEpoleDung.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 150, 34 + + + 305, 15 + + + 260, 37 + + + 69 + + + 7, 37 + + + 5, 15 + + + 406, 22 + + + 148, 11 + + + 760, 3 + + + 394, 37 + + + 906, 29 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleDung.vb b/Epole/입력폼/AddEpoleDung.vb new file mode 100644 index 0000000..1167bfe --- /dev/null +++ b/Epole/입력폼/AddEpoleDung.vb @@ -0,0 +1,575 @@ +Public Class AddEpoleDung + + ' Dim SaveFlag As Boolean = False + Dim WithEvents DT As ireaDataSet.Detail_DeungDataTable + Dim Sorted As ESorted = ESorted.NULL + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "׵ Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "׵(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "׵ Է" + + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + bs.EndEdit() + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv(""), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + ' Me.view1.Setting_Save(False, "view_deung") + + Frm_Main.bt_find.PerformClick() + ' If Me.SaveFlag Then Me.DialogResult = Windows.Forms.DialogResult.OK + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Me.Detail_DeungTableAdapter.Connection.ConnectionString = ConString + Me.view1.Setting_Load(False, "view_deung") + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + DT = Me.IreaDataSet1.Detail_Deung + Me.SETTOOLTIP() + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from Detail_Deung where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ , ALT+ENTER:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + 'TMSG = New System.Text.StringBuilder() + 'TMSG.AppendLine() + 'TMSG.AppendLine("˻ 켱 : ->->ѱ") + 'TMSG.AppendLine(" ->0 000 켱 ϴ.") + ''Me.bt_find.ToolTipText = "ͺ̽ ٽ ҷɴϴ" & vbCrLf & "ȣ Ŭϼ" + + End Sub + Private Sub SetFarPoint() + Me.view1.EnterToNextItem() + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 2).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 2).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + Try + Me.ta.Update(Me.IreaDataSet1.Detail_Deung) '//Commit insert/update/delete + Me.IreaDataSet1.Detail_Deung.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,2)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Deung.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=2 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_Deung.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_Deung.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.Detail_Deung, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_Deung.Rows.Count <= 0 Then + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Me.bt_addrow.PerformClick() + Return + End If + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 2) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.view1.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + '// + Dim A As New Printform_deung(Me.IreaDataSet1.Detail_Deung, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + A.ShowDialog() + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dchk1.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim () As Short = New Short() {3, 4, 5} ', As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [ȣ] ãԴϴ...", Me.lb_msg) + fcnt = Me.view1.ߺ˻(0, Me.view1.ActiveSheet.RowCount - 1, , , Me.view1.ٹȣ, Me.pbar) + NOTICE("[ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + + Private Sub lStripMenuItemripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dchk2.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim () As Short = New Short() {6, 7, 8} ', As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [ȣ] ãԴϴ...", Me.lb_msg) + fcnt = Me.view1.ߺ˻(0, Me.view1.ActiveSheet.RowCount - 1, , , Me.view1.ٹȣ, Me.pbar) + NOTICE("[ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + + Private Sub bt_dchk3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_dchk3.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim () As Short = New Short() {3, 4, 5, 6, 7, 8} ', As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [ȣ+ȣ] ãԴϴ...", Me.lb_msg) + fcnt = Me.view1.ߺ˻(0, Me.view1.ActiveSheet.RowCount - 1, , , Me.view1.ٹȣ, Me.pbar) + NOTICE("[ȣ+ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_DeungRow = Me.DT.NewDetail_DeungRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_DeungRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.Arin_AddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv(""), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + Me.view1.ItemCheck_Select(Me.view1.ٹȣ) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.ItemCheck_Unselect(Me.view1.ٹȣ) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.view1.ItemCheck_Reverse(Me.view1.ٹȣ) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.EditModeOff + 'With Me.view1.ActiveSheet + ' Select Case .ActiveColumnIndex + ' Case 14 '//󺰵 Է ö. + ' '// ְ ԷµȰ 4̸ ɰ ش. + ' If .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" AndAlso .ActiveCell.Text.Length = 4 Then + ' .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + ' End If + ' Case 10 '//ֹȣ5 ö + ' If Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 6).Text <> "" AndAlso _ + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 7).Text <> "" AndAlso _ + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 8).Text <> "" AndAlso _ + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 9).Text <> "" AndAlso _ + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 10).Text <> "" Then + ' 'MsgBox("ok") + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 7).Text = "-" & Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 7).Text + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 10).Text = "-" & Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 10).Text + ' Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 8).Text = ";" & Me.view1.ActiveSheet.Cells(Me.view1.ActiveSheet.ActiveRowIndex, 8).Text & ";" + + ' End If + + ' End Select + 'End With + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + + + Select Case e.KeyCode + Case Keys.F + If e.Control Then Me.bt_findview.PerformClick() + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + + Case Keys.Enter + With Me.view1.ActiveSheet + Select Case .ActiveColumnIndex + Case 3 To 15 '//ȭȣ - / ð / ð + If .ActiveCell.Text = "" Then + .ActiveCell.Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text + End If + End Select + End With + End Select + End Sub + + Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles view1.Change + '//ÿ üũȰ ٲش. + If e.Column = Me.view1.ٹȣ AndAlso Me.view1.ActiveSheet.Cells(e.Row, Me.view1.ٹȣ).Value = True Then '// + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + + Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles view1.EnterCell + Select Case Me.view1.ActiveSheet.ActiveColumn.Label + Case "", "θ" '// + Me.view1.ImeMode = Windows.Forms.ImeMode.Hangul + NOTICE(" ġ (" & Me.view1.ActiveSheet.ActiveRowIndex + 1 & "," & Me.view1.ActiveSheet.ActiveColumnIndex + 1 & ") Է(ѱ)", Me.lb_msg) + Case Else + Me.view1.ImeMode = Windows.Forms.ImeMode.Alpha + End Select + End Sub + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + Private Sub StripMenuItempMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_findview.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ.", "˻ڸ Էϼ"), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.Detail_Deung, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Deung.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Deung.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_Deung.Rows + A("") = Not A("") + Next + End Sub + + Private Sub BtsavecolsizeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsize.Click + Me.view1.Setting_Save(False, "view_deung") + End Sub + + Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellClick + + End Sub + + Private Sub bt_chkdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkdel.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ٹȣ).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleETC.Designer.vb b/Epole/입력폼/AddEpoleETC.Designer.vb new file mode 100644 index 0000000..f00afdb --- /dev/null +++ b/Epole/입력폼/AddEpoleETC.Designer.vb @@ -0,0 +1,1110 @@ + _ +Partial Class AddEpoleETC + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.StripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dipdfsolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.gdfolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.tripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.kjhoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.allseloolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.MenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.alldellStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.view1 = New MyControlOLEDBv2.MyFpoint() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.MainTableTableAdapter() + Me.etcdetailTableAdapter = New EpoleNet.ireaDataSetTableAdapters.EtcTableTableAdapter() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 620) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1223, 22) + Me.StatusStrip1.TabIndex = 4 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(14, 17) + Me.lb_change.Text = "#" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(31, 17) + Me.lb_msg.Text = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton5, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1223, 39) + Me.ToolStrip1.TabIndex = 1 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StripMenuItem, Me.dipdfsolStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(100, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'StripMenuItem + ' + Me.StripMenuItem.Name = "StripMenuItem" + Me.StripMenuItem.Size = New System.Drawing.Size(159, 22) + Me.StripMenuItem.Text = "[관리/전산번호]" + Me.StripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'dipdfsolStripMenuItem + ' + Me.dipdfsolStripMenuItem.Name = "dipdfsolStripMenuItem" + Me.dipdfsolStripMenuItem.Size = New System.Drawing.Size(159, 22) + Me.dipdfsolStripMenuItem.Text = "[전주번호]" + Me.dipdfsolStripMenuItem.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(117, 36) + Me.bt_find.Text = "데이터확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(127, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(128, 36) + Me.ToolStripButton5.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(205, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(205, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(130, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(91, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.gdfolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.tripMenuItem, Me.ToolStripMenuItem4, Me.kjhoolStripMenuItem, Me.ToolStripMenuItem1, Me.ToolStripMenuItem, Me.alldellStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 254) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'gdfolStripMenuItem + ' + Me.gdfolStripMenuItem.Name = "gdfolStripMenuItem" + Me.gdfolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.gdfolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'tripMenuItem + ' + Me.tripMenuItem.Name = "tripMenuItem" + Me.tripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.tripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'kjhoolStripMenuItem + ' + Me.kjhoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.kjhoolStripMenuItem.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.kjhoolStripMenuItem.Name = "kjhoolStripMenuItem" + Me.kjhoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.kjhoolStripMenuItem.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.allseloolStripMenuItem1, Me.lStripMenuItem2, Me.MenuItem2}) + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.ToolStripMenuItem.Text = "일괄선택-선택" + ' + 'allseloolStripMenuItem1 + ' + Me.allseloolStripMenuItem1.Name = "allseloolStripMenuItem1" + Me.allseloolStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.allseloolStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'MenuItem2 + ' + Me.MenuItem2.Name = "MenuItem2" + Me.MenuItem2.Size = New System.Drawing.Size(122, 22) + Me.MenuItem2.Text = "선택반전" + ' + 'alldellStripMenuItem + ' + Me.alldellStripMenuItem.Name = "alldellStripMenuItem" + Me.alldellStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.alldellStripMenuItem.Text = "선택 삭제" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(152, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(152, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(152, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Nothing + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.AllowCellOverflow = True + Me.view1.AllowDragDrop = True + Me.view1.AllowDragFill = True + Me.view1.AllowDrop = True + Me.view1.AllowUserFormulas = True + Me.view1.BackColor = System.Drawing.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.CurrentDel = True + Me.view1.DeleteKey = True + Me.view1.Dock = System.Windows.Forms.DockStyle.Fill + Me.view1.EditFromSpace = True + Me.view1.EditModeReplace = True + Me.view1.FIRST_FOCUSINDEX = 1 + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(3, 46) + Me.view1.Name = "view1" + Me.view1.NextRow_Index = 14 + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.SameRowheight = True + Me.view1.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Both + Me.view1.ScrollTipPolicy = FarPoint.Win.Spread.ScrollTipPolicy.Both + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1217, 466) + Me.view1.TabIndex = 0 + Me.ToolTip1.SetToolTip(Me.view1, "ALT+ENTER(윗칸복사),SHIFT+ENTER(이전칸으로),ENTER(다음칸으로)") + Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.선택줄번호 = CType(14, Short) + ' + '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 = 17 + Me.view1_Sheet1.ColumnHeader.RowCount = 2 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AllowNoteEdit = True + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "관리구" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 3).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "선로명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 5).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "전주번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 10).ColumnSpan = 4 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 10).Value = "비고" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 11).Value = "시공년월" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 12).Value = "시공자" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 13).Value = "D/L명" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 16).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "번호1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "번호2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "번호3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "번호4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "번호5" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "비고1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "비고2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "비고3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "비고4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "정렬번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "*" + Me.view1_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 27.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 30.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.view1_Sheet1.Columns.Get(0).Width = 76.0! + Me.view1_Sheet1.Columns.Get(1).AllowAutoSort = True + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType2 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 71.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "관리구" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 83.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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 = 79.0! + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + 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).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 95.0! + Me.view1_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "번호1" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 87.0! + Me.view1_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "번호2" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 41.0! + Me.view1_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "번호3" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 43.0! + Me.view1_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "번호4" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 45.0! + Me.view1_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "번호5" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 50.0! + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "비고1" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 61.0! + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "비고2" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Locked = False + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 61.0! + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "비고3" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 61.0! + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "비고4" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 61.0! + Me.view1_Sheet1.Columns.Get(14).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(14).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "선택" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 59.0! + Me.view1_Sheet1.Columns.Get(15).AllowAutoSort = True + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(15).DataField = "정렬번호" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 63.0! + Me.view1_Sheet1.Columns.Get(16).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(16).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(16).DataField = "출력" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Label = "*" + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataMember = "etctable" + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 44.0! + Me.view1_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.view1_Sheet1.Rows.Default.Height = 25.0! + Me.view1_Sheet1.Rows.Default.Resizable = True + 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) + ' + 'bs + ' + Me.bs.DataMember = "etctable" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(3, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1217, 37) + Me.Panel1.TabIndex = 0 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(587, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 0 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 1 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton4}) + Me.bn.Location = New System.Drawing.Point(0, 581) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1223, 39) + Me.bn.TabIndex = 0 + Me.bn.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton4.Checked = True + Me.ToolStripButton4.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton4.Text = "닫기(&X)" + Me.ToolStripButton4.ToolTipText = "현재 창을 닫습니다" + ' + 'Timer1 + ' + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.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.TableLayoutPanel1.ColumnCount = 1 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.view1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 42) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 43.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(1223, 515) + Me.TableLayoutPanel1.TabIndex = 0 + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'etcdetailTableAdapter + ' + Me.etcdetailTableAdapter.ClearBeforeFill = True + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 558) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1223, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 5 + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'AddEpoleETC + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1223, 642) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleETC" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "고압수용 및 저압 중요수용 번호표찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents kjhoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents allseloolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents MenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.MainTableTableAdapter + Friend WithEvents gdfolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents etcdetailTableAdapter As EpoleNet.ireaDataSetTableAdapters.EtcTableTableAdapter + Friend WithEvents alldellStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents StripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents dipdfsolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents tripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpoleETC.resx b/Epole/입력폼/AddEpoleETC.resx new file mode 100644 index 0000000..7cb525a --- /dev/null +++ b/Epole/입력폼/AddEpoleETC.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 298, 9 + + + 340, 43 + + + 450, 43 + + + 92 + + + 442, 7 + + + 178, 9 + + + 25, 15 + + + 583, 43 + + + 776, 6 + + + 183, 43 + + + 877, 6 + + + 614, 9 + + + 20, 36 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpoleETC.vb b/Epole/입력폼/AddEpoleETC.vb new file mode 100644 index 0000000..3e05a8b --- /dev/null +++ b/Epole/입력폼/AddEpoleETC.vb @@ -0,0 +1,783 @@ +Public Class AddEpoleETC + Dim WithEvents DT As ireaDataSet.EtcTableDataTable + Dim Sorted As ESorted = ESorted.NULL + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "߿ ȣǥ Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname2") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "߿ ȣǥ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.view1.EnterToNextItem() + Me.IsNew = True + 'ű۾̹Ƿ id Իؼ ش. + 'MsgBox(New_MID) + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.view1.EnterToNextItem() + Me.Text = "߿ ȣǥ Է" + ' MsgBox("new") + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" AndAlso _ + NVL(Drv("ȣ5"), "") = "" AndAlso NVL(Drv("1"), "") = "" AndAlso NVL(Drv("2"), "") = "" AndAlso NVL(Drv("3"), "") = "" Then + Drv.Delete() + End If + End If + + Me.CHk_Modify() + + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + 'Me.view1.ColSize_Load() + 'Me.view1.ColName_Load() + Me.view1.Setting_Load(False) + 'Ubound.Clear() + + 'Me.etcdetailTableAdapter.Connection.ConnectionString = ConString + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.SETTOOLTIP() + + DT = Me.IreaDataSet1.EtcTable + + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from Ÿ where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + + '''''ͺֱ + ' If Me.view1.ActiveSheet.RowCount <= 0 Then Me.bt_insertrow.PerformClick() + + Me.Show() + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ , ALT+ENTER:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + 'TMSG = New System.Text.StringBuilder() + 'TMSG.AppendLine() + 'TMSG.AppendLine("˻ 켱 : ->->ѱ") + 'TMSG.AppendLine(" ->0 000 켱 ϴ.") + 'Me.bt_findmenu.ToolTipText = "ͺ̽ ٽ ҷɴϴ" & vbCrLf & "ȣ Ŭϼ" + + End Sub + Private Sub SetFarPoint() + Me.view1.EnterToNextItem() + Me.view1.DataSource = Me.bs + + 'Dim A As FarPoint.Win.Spread.CellType.TextCellType = Me.view1.ActiveSheet.Columns(2).CellType + 'A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Ascii + 'A.CharacterCasing = CharacterCasing.Upper + 'Me.view1.ActiveSheet.Columns(2).CellType = A + 'Me.view1.ActiveSheet.Columns(3).CellType = A + 'Me.view1.ActiveSheet.Columns(4).CellType = A + 'Me.view1.ActiveSheet.Columns(5).CellType = A + 'Me.view1.ActiveSheet.Columns(6).CellType = A + 'Me.view1.ActiveSheet.Columns(7).CellType = A + 'Me.view1.ActiveSheet.Columns(8).CellType = A + 'Me.view1.ActiveSheet.Columns(9).CellType = A + 'Me.view1.ActiveSheet.Columns(10).CellType = A + 'Me.view1.ActiveSheet.Columns(11).CellType = A + 'Me.view1.ActiveSheet.Columns(12).CellType = A + 'Me.view1.ActiveSheet.Columns(13).CellType = A + ''A.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric + '' Me.view1.ActiveSheet.Columns(14).DataField = "" + 'Me.view1.ActiveSheet.Columns(15).DataField = "Ĺȣ" + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + Try + + Me.etcdetailTableAdapter.Update(Me.IreaDataSet1.EtcTable) '//Commit insert/update/delete + Me.IreaDataSet1.EtcTable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,9)" + If Me.etcdetailTableAdapter.Connection.State <> ConnectionState.Open Then Me.etcdetailTableAdapter.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.etcdetailTableAdapter.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.EtcTable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=9 where id=:1" + If Me.etcdetailTableAdapter.Connection.State <> ConnectionState.Open Then Me.etcdetailTableAdapter.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.etcdetailTableAdapter.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.EtcTable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname2", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.EtcTable.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data() '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.etcdetailTableAdapter.Fill(Me.IreaDataSet1.EtcTable, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.EtcTable.Rows.Count <= 0 Then + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Me.bt_addrow.PerformClick() + Return + End If + + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 9) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.view1.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim A As New printformsy(Me.IreaDataSet1.EtcTable, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + A.ShowDialog() + End Sub + + Private Sub StripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [/ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 2).Value & Me.view1.ActiveSheet.Cells(A.Index, 3).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, 2).Value & Me.view1.ActiveSheet.Cells(B.Index, 3).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, 14).Value = True + Me.view1.ActiveSheet.Cells(B.Index, 14).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[/ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + + Private Sub dipdfsolStripMenuItemMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dipdfsolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [ֹȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 5).Value & Me.view1.ActiveSheet.Cells(A.Index, 6).Value & Me.view1.ActiveSheet.Cells(A.Index, 7).Value & _ + Me.view1.ActiveSheet.Cells(A.Index, 8).Value & Me.view1.ActiveSheet.Cells(A.Index, 9).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, 5).Value & Me.view1.ActiveSheet.Cells(B.Index, 6).Value & Me.view1.ActiveSheet.Cells(B.Index, 7).Value & _ + Me.view1.ActiveSheet.Cells(B.Index, 8).Value & Me.view1.ActiveSheet.Cells(B.Index, 9).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, 14).Value = True + Me.view1.ActiveSheet.Cells(B.Index, 14).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + + End Sub + + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.Arin_AddNewRow() + 'Dim NewRowIndex As Integer = Me.view1.NewRowsU() + 'With Me.view1.ActiveSheet + ' .Cells(NewRowIndex, 0).Value = CInt(Me.h_id.Text) + ' .Cells(NewRowIndex, 1).Value = CInt(Me.Get_NewNumber) + ' .ActiveRowIndex = NewRowIndex + ' .SetActiveCell(NewRowIndex, Me.view1.FIRST_FOCUSINDEX) + ' SendKeys.Send("{ENTER}") + 'End With + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + ' Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + 'Me.bt_find.PerformClick() + Me.bt_find.PerformClick() + 'Return + 'CHk_Modify() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub allseloolStripMenuItem1nuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allseloolStripMenuItem1.Click + Me.view1.ItemCheck_Select(Me.view1.ٹȣ) + End Sub + + Private Sub lStripMenuItem2enuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.ItemCheck_Unselect(Me.view1.ٹȣ) + End Sub + + Private Sub MenuItem2enuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click + Me.view1.ItemCheck_Reverse(Me.view1.ٹȣ) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + + + With Me.view1.ActiveSheet + ' Me.Text = .ActiveRowIndex & "/" & .ActiveColumnIndex + Select Case .ActiveColumnIndex + Case 2 '//ȭȣ - / ȭȣ - / ð / ð + If .ActiveCell.Text = "" Then + .ActiveCell.Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text + End If + Case 3 '//ȭȣ - ȣ / ȭȣ - ȣ + If .ActiveCell.Text = "" AndAlso _ + .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text <> "" AndAlso _ + .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex - 1).Text Then + Dim Pnum As String = CInt(.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + Dim PnumI As Integer = IIf(Pnum = "", 0, CInt(Pnum)) + .ActiveCell.Text = Format(Pnum, "000") + End If + Case 4 '//θ + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 2).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 2).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 5 '//ֹȣ1,ô + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 2).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 2).Text AndAlso _ + .Cells(.ActiveRowIndex, 4).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 4).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 6 '//ȣ2 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 5).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 5).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 7 '//ȣ3 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 5).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 5).Text AndAlso _ + .Cells(.ActiveRowIndex, 6).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 6).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 8 '//ȣ4 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 5).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 5).Text AndAlso _ + .Cells(.ActiveRowIndex, 6).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 6).Text AndAlso _ + .Cells(.ActiveRowIndex, 7).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 7).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 9 '//ȣ5 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 5).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 5).Text AndAlso _ + .Cells(.ActiveRowIndex, 6).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 6).Text AndAlso _ + .Cells(.ActiveRowIndex, 7).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 7).Text AndAlso _ + .Cells(.ActiveRowIndex, 8).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 8).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + ' Case 9 + ' If .ActiveCell.Text = "" Then + 'Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + '.ActiveCell.Text = Pnum + ' End If + Case 11 '//1,2,3,4 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 9).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 9).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 12 '//1,2,3,4 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 9).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 9).Text AndAlso _ + .Cells(.ActiveRowIndex, 10).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 10).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + Case 13 '//1,2,3,4 + If .ActiveCell.Text = "" AndAlso _ + .Cells(.ActiveRowIndex, 9).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 9).Text AndAlso _ + .Cells(.ActiveRowIndex, 10).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 10).Text AndAlso _ + .Cells(.ActiveRowIndex, 11).Text = .Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), 11).Text Then + Dim Pnum As String = (.Cells(IIf(.ActiveRowIndex > 0, .ActiveRowIndex - 1, 0), .ActiveColumnIndex).Text) + .ActiveCell.Text = Pnum + End If + End Select + End With + + + + + + + If Me.view1.ActiveSheet.ActiveRowIndex = Me.view1.ActiveSheet.RowCount - 1 Then '//ٿ + If Me.view1.NextRow_Index = Me.view1.ActiveSheet.ActiveColumnIndex Then '//ٷΰl + Me.bt_addrow.PerformClick() + Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.FIRST_FOCUSINDEX) + e.Handled = True + ElseIf Me.view1.ActiveSheet.ActiveColumnIndex = Me.view1.ActiveSheet.ColumnCount - 1 Then '//̶ + Me.bt_addrow.PerformClick() + Me.view1.ActiveSheet.SetActiveCell(Me.view1.ActiveSheet.RowCount - 1, Me.view1.FIRST_FOCUSINDEX) + e.Handled = True + End If + End If + + + + End Select + End Sub + + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.EtcTable.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles view1.Change + '//ÿ üũȰ ٲش. + + If e.Column = Me.view1.ٹȣ AndAlso Me.view1.ActiveSheet.Cells(e.Row, Me.view1.ٹȣ).Value = True Then '// + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.EtcTableRow = Me.DT.NewEtcTableRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddEtcTableRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Me.Text = Me.view1.ActiveSheet.ActiveRowIndex & "/" & Me.view1.ActiveSheet.ActiveColumnIndex + End Sub + + + Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles view1.EnterCell + Select Case Me.view1.ActiveSheet.ActiveColumnIndex + Case 4, 10, 11, 12, 13 + Me.view1.ImeMode = Windows.Forms.ImeMode.Hangul + NOTICE(" ġ (" & Me.view1.ActiveSheet.ActiveRowIndex + 1 & "," & Me.view1.ActiveSheet.ActiveColumnIndex + 1 & ") Է(ѱ)", Me.lb_msg) + + Case Else + Me.view1.ImeMode = Windows.Forms.ImeMode.NoControl + NOTICE(" ġ (" & Me.view1.ActiveSheet.ActiveRowIndex + 1 & "," & Me.view1.ActiveSheet.ActiveColumnIndex + 1 & ") Է(Ϲ)", Me.lb_msg) + + End Select + End Sub + + + Private Sub gdfolStripMenuItemtripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gdfolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub alldellStripMenuItemuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alldellStripMenuItem.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ٹȣ).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + ' For Each Dr As ireaDataSet.etctableRow In Me.IreaDataSet1.etctable.Rows + ' If Dr. Then Dr.Delete() + ' Next + + End Sub + + Private Sub ToolStripButton4_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub fdsdfStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + + End Sub + + Private Sub AddEpoleETC_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.IreaDataSet1.EtcTable.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.EtcTableRow In Me.IreaDataSet1.EtcTable.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub tripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.EtcTable, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.EtcTable.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.EtcTable.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.EtcTable.Rows + A("") = Not A("") + Next + End Sub + + Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click + + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.view1.Setting_Save(False) '// + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpolekiki.Designer.vb b/Epole/입력폼/AddEpolekiki.Designer.vb new file mode 100644 index 0000000..facb349 --- /dev/null +++ b/Epole/입력폼/AddEpolekiki.Designer.vb @@ -0,0 +1,1250 @@ + _ +Partial Class AddEpolekiki + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType25 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType26 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType27 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.allsavedata = New System.Windows.Forms.ToolStripMenuItem() + Me.currentsavedata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_import = New System.Windows.Forms.ToolStripButton() + Me.bt_print = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_savecolsize = New System.Windows.Forms.ToolStripMenuItem() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.findtextlStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.savetextoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.allselolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.gsdfolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gwsolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripSeparator() + Me.gfsdolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.view1 = New NewFp() + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.Detail_kikiTableAdapter() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_edit, Me.lb_pos, Me.lb_ime, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1243, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(39, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(32, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(39, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(14, 17) + Me.lb_change.Text = "#" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(31, 17) + Me.lb_msg.Text = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.bt_import, Me.bt_print, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1243, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(121, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(127, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.allsavedata, Me.currentsavedata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(128, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'allsavedata + ' + Me.allsavedata.Name = "allsavedata" + Me.allsavedata.Size = New System.Drawing.Size(181, 22) + Me.allsavedata.Text = "모든 데이터 저장(&1)" + ' + 'currentsavedata + ' + Me.currentsavedata.Name = "currentsavedata" + Me.currentsavedata.Size = New System.Drawing.Size(181, 22) + Me.currentsavedata.Text = "현재 데이터 저장(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'bt_import + ' + Me.bt_import.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.bt_import.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_import.Name = "bt_import" + Me.bt_import.Size = New System.Drawing.Size(130, 36) + Me.bt_import.Text = "엑셀불러오기(&P)" + Me.bt_import.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'bt_print + ' + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(83, 36) + Me.bt_print.Text = "출력(&V)" + Me.bt_print.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(91, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_savecolsize, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.cm_RenewNum, Me.ToolStripMenuItem7, Me.findtextlStripMenuItem, Me.ToolStripMenuItem2, Me.savetextoolStripMenuItem, Me.ToolStripMenuItem1, Me.allselolStripMenuItem, Me.ToolStripMenuItem8, Me.gfsdolStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 244) + ' + 'bt_savecolsize + ' + Me.bt_savecolsize.Name = "bt_savecolsize" + Me.bt_savecolsize.Size = New System.Drawing.Size(165, 22) + Me.bt_savecolsize.Text = "현재뷰상태저장" + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(162, 6) + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(165, 22) + Me.ToolStripMenuItem4.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(162, 6) + ' + 'findtextlStripMenuItem + ' + Me.findtextlStripMenuItem.Name = "findtextlStripMenuItem" + Me.findtextlStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.findtextlStripMenuItem.Text = "문자 검색(&0)" + Me.findtextlStripMenuItem.ToolTipText = "현재 선택된 열에서 입력된 값을 찾습니다." + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'savetextoolStripMenuItem + ' + Me.savetextoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.savetextoolStripMenuItem.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.savetextoolStripMenuItem.Name = "savetextoolStripMenuItem" + Me.savetextoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.savetextoolStripMenuItem.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'allselolStripMenuItem + ' + Me.allselolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gfsdStripMenuItem1, Me.gsdfolStripMenuItem2, Me.gwsolStripMenuItem2}) + Me.allselolStripMenuItem.Name = "allselolStripMenuItem" + Me.allselolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.allselolStripMenuItem.Text = "일괄선택-선택" + ' + 'gfsdStripMenuItem1 + ' + Me.gfsdStripMenuItem1.Name = "gfsdStripMenuItem1" + Me.gfsdStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.gfsdStripMenuItem1.Text = "전체선택" + ' + 'gsdfolStripMenuItem2 + ' + Me.gsdfolStripMenuItem2.Name = "gsdfolStripMenuItem2" + Me.gsdfolStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gsdfolStripMenuItem2.Text = "전체해제" + ' + 'gwsolStripMenuItem2 + ' + Me.gwsolStripMenuItem2.Name = "gwsolStripMenuItem2" + Me.gwsolStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gwsolStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(162, 6) + ' + 'gfsdolStripMenuItem + ' + Me.gfsdolStripMenuItem.Name = "gfsdolStripMenuItem" + Me.gfsdolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.gfsdolStripMenuItem.Text = "선택 삭제" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(-1, 42) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1246, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(616, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 545) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1243, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.AllowNew = True + Me.bs.DataMember = "Detail_kiki" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "번호 ASC" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'Timer1 + ' + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 522) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1243, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.ACellImeLabel = Me.lb_ime + Me.view1.ACellposLabel = Me.lb_pos + Me.view1.ACheckBox_ColIndex = CType(29, Short) + Me.view1.ADeleteCell = True + Me.view1.ADeleteRow = True + Me.view1.AEditFromSpace = True + Me.view1.AEditStatusLabel = Me.lb_edit + Me.view1.AFirstColumn_Index = 2 + Me.view1.AllowCellOverflow = True + Me.view1.AllowDragDrop = True + Me.view1.AllowDragFill = True + Me.view1.AllowUserFormulas = True + Me.view1.AMessageLabel = Me.lb_msg + 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 = 28 + Me.view1.ASameRowheight = True + Me.view1.BackColor = System.Drawing.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.EditModeReplace = True + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.view1.Location = New System.Drawing.Point(0, 81) + Me.view1.Name = "view1" + Me.view1.RetainSelectionBlock = False + 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(1242, 440) + Me.view1.TabIndex = 0 + 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 = 31 + Me.view1_Sheet1.ColumnHeader.RowCount = 2 + Me.view1_Sheet1.ActiveRowIndex = -1 + Me.view1_Sheet1.AllowNoteEdit = True + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + 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, 5).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "전주번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 10).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 10).Value = "1회선" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 15).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 15).Value = "2회선" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 20).Value = "3회선" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 29).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 30).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구B" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호B" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "선로명B" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "A1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "A2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "A3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "A4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "A5" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "D11" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "D12" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "D13" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "D14" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "D15" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "D21" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "D22" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "D23" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "D24" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "D25" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "D31" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "D32" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 22).Value = "D33" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "D34" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "D35" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 29).Value = "S" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 30).Value = "P" + Me.view1_Sheet1.ColumnHeader.Columns.Default.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.ColumnHeader.Rows.Default.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 28.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.view1_Sheet1.Columns.Get(0).Width = 0.0! + Me.view1_Sheet1.Columns.Get(1).AllowAutoSort = True + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType2 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 49.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "관리구" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Label = "관리구B" + Me.view1_Sheet1.Columns.Get(2).Tag = "관리구" + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 77.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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 = "번호B" + Me.view1_Sheet1.Columns.Get(3).Tag = "전산화번호" + Me.view1_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(3).Width = 63.0! + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + 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 = "선로명B" + Me.view1_Sheet1.Columns.Get(4).Tag = "선로명" + Me.view1_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Width = 96.0! + Me.view1_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType4.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "번호1" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(5).Label = "A1" + Me.view1_Sheet1.Columns.Get(5).Tag = "번호1" + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 46.0! + Me.view1_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType5.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "번호2" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(6).Label = "A2" + Me.view1_Sheet1.Columns.Get(6).Tag = "번호2" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 46.0! + Me.view1_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType6.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "번호3" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(7).Label = "A3" + Me.view1_Sheet1.Columns.Get(7).Tag = "번호3" + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 46.0! + Me.view1_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType7.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "번호4" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.view1_Sheet1.Columns.Get(8).Label = "A4" + Me.view1_Sheet1.Columns.Get(8).Tag = "번호4" + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 46.0! + Me.view1_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "번호5" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.view1_Sheet1.Columns.Get(9).Label = "A5" + Me.view1_Sheet1.Columns.Get(9).Tag = "번호5" + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 46.0! + Me.view1_Sheet1.Columns.Get(10).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "회선11" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Label = "D11" + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 59.0! + Me.view1_Sheet1.Columns.Get(11).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "회선12" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Label = "D12" + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 51.0! + Me.view1_Sheet1.Columns.Get(12).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "회선13" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Label = "D13" + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 51.0! + Me.view1_Sheet1.Columns.Get(13).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "회선14" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Label = "D14" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 51.0! + Me.view1_Sheet1.Columns.Get(14).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "회선15" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "D15" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Width = 51.0! + Me.view1_Sheet1.Columns.Get(15).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(15).DataField = "회선21" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Label = "D21" + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Width = 53.0! + Me.view1_Sheet1.Columns.Get(16).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(16).DataField = "회선22" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Label = "D22" + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Width = 51.0! + Me.view1_Sheet1.Columns.Get(17).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(17).DataField = "회선23" + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Label = "D23" + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Width = 51.0! + Me.view1_Sheet1.Columns.Get(18).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(18).DataField = "회선24" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Label = "D24" + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Width = 51.0! + Me.view1_Sheet1.Columns.Get(19).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(19).DataField = "회선25" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Label = "D25" + Me.view1_Sheet1.Columns.Get(19).Tag = "감독자" + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Width = 57.0! + Me.view1_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(20).DataField = "회선31" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Label = "D31" + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(21).DataField = "회선32" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Label = "D32" + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Width = 51.0! + Me.view1_Sheet1.Columns.Get(22).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType21 + Me.view1_Sheet1.Columns.Get(22).DataField = "회선33" + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Label = "D33" + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Width = 51.0! + Me.view1_Sheet1.Columns.Get(23).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType22 + Me.view1_Sheet1.Columns.Get(23).DataField = "회선34" + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Label = "D34" + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Width = 51.0! + Me.view1_Sheet1.Columns.Get(24).BackColor = System.Drawing.Color.White + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType23 + Me.view1_Sheet1.Columns.Get(24).DataField = "회선35" + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Label = "D35" + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Width = 58.0! + TextCellType24.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType24 + Me.view1_Sheet1.Columns.Get(25).DataField = "비고1" + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).Tag = "비고1" + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType25.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType25 + Me.view1_Sheet1.Columns.Get(26).DataField = "비고2" + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Tag = "비고2" + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).CellType = TextCellType26 + Me.view1_Sheet1.Columns.Get(27).DataField = "비고3" + Me.view1_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Tag = "비고3" + Me.view1_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).CellType = TextCellType27 + Me.view1_Sheet1.Columns.Get(28).DataField = "비고4" + Me.view1_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Tag = "비고4" + Me.view1_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(29).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Label = "S" + Me.view1_Sheet1.Columns.Get(29).Tag = "선택" + Me.view1_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Width = 55.0! + Me.view1_Sheet1.Columns.Get(30).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(30).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(30).DataField = "출력" + Me.view1_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Label = "P" + Me.view1_Sheet1.Columns.Get(30).Tag = "P" + Me.view1_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Width = 49.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.view1_Sheet1.PrintInfo.ShowGrid = False + Me.view1_Sheet1.RowHeader.Columns.Default.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 42.0! + Me.view1_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.view1_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.view1_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.RowHeader.Rows.Default.NoteIndicatorColor = System.Drawing.Color.Red + Me.view1_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.view1_Sheet1.Rows.Default.Height = 25.0! + Me.view1_Sheet1.Rows.Default.Resizable = True + 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.SetViewportLeftColumn(0, 0, 3) + Me.view1.SetActiveViewport(0, -1, 0) + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'AddEpolekiki + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(1243, 606) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpolekiki" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "번호찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents savetextoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_import As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As NewFp + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents allselolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gsdfolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gwsolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents gfsdolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents allsavedata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents currentsavedata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents findtextlStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_print As System.Windows.Forms.ToolStripButton + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_savecolsize As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.Detail_kikiTableAdapter + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/AddEpolekiki.resx b/Epole/입력폼/AddEpolekiki.resx new file mode 100644 index 0000000..4e3b4eb --- /dev/null +++ b/Epole/입력폼/AddEpolekiki.resx @@ -0,0 +1,156 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 331, 17 + + + 865, 17 + + + 974, 17 + + + 94 + + + 799, 17 + + + 140, 17 + + + 17, 17 + + + 449, 17 + + + 204, 17 + + + 609, 17 + + + 709, 17 + + + 1106, 17 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpolekiki.vb b/Epole/입력폼/AddEpolekiki.vb new file mode 100644 index 0000000..ed4aa01 --- /dev/null +++ b/Epole/입력폼/AddEpolekiki.vb @@ -0,0 +1,709 @@ +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''' 2007-10-01 : ҽ : Ƹ(tindevil.nate.com) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + +Public Class AddEpolekiki + ' Dim NeedIndexSort As Boolean = False + Dim DT As ireaDataSet.Detail_kikiDataTable + Dim Sorted As ESorted = ESorted.NULL + Dim IsNew As Boolean = False + + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) '//New Row Add & Setting Default Data + Dim NewId As Integer = CInt(Me.Get_NewNumber) + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = NewId + NEwrow("") = True + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & NewId.ToString("00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & NewId.ToString("00000") & "1000" + End If + End Sub + + 'Dim SaveFlag As Boolean = False + Public Sub New(ByVal maxid As Integer) + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "() Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "()ȣ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub Init(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "() Է" + + Me.Display_Data() + + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "() Է" + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + + RemoveHandler DT.TableNewRow, AddressOf NewRowAddToDataTable + + bs.EndEdit() + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + Frm_Main.bt_find.PerformClick() '//鼭 ˻ư Ѵ.( ٷκ̰ Ѵ) + 'If Me.SaveFlag Then Me.DialogResult = Windows.Forms.DialogResult.OK '//saveflag ƮǾ ok Ѵ. + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.view1.ASetting_Load(False) + Me.view1.ѱʵ = New String() {"θB", _ + "D11", "D12", "D13", "D14", "D15", _ + "D21", "D22", "D23", "D24", "D25", _ + "D31", "D32", "D33", "D34", "D35", _ + "3", "4"} + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.SETTOOLTIP() + + DT = Me.IreaDataSet1.Detail_kiki + + Me.Show() + Me.view1.ACheckBox_ColIndex = Me.view1.ActiveSheet.Columns("").Index + + AddHandler DT.TableNewRow, AddressOf NewRowAddToDataTable + + 'Me.Refresh() + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from ⼼ where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() ''''''''ͺֱ + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ , ALT+ENTER:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + End Sub + + Private Sub SetFarPoint() + 'Me.view1.AEnterToNextItem(False) '//Ʈ忡 enter ʰѴ. + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + 'If Me.NeedIndexSort Then '//ȣ ؾҰ + ' Dim DV As New DataView(Me.DT, "", "ȣ ASC", DataViewRowState.CurrentRows) + ' Dim Index As Integer = 0 + ' For Each Drv As DataRowView In DV + ' Index += 1 + ' Drv("ȣ") = Index + ' Next + 'End If + + Try + Me.ta.Update(Me.IreaDataSet1.Detail_kiki) '//Commit insert/update/delete + Me.IreaDataSet1.Detail_kiki.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,4)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_kiki.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=4 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_kiki.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_kiki.RejectChanges() + NOTICE(" !", Color.Red, Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + + 'Me.SaveFlag = True + Me.bs.EndEdit() + + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.Detail_kiki, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_kiki.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_import.Click '//ҷ + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.view1.SuspendLayout() + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 4) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data(False) + Me.view1.ResumeLayout() + End Sub + + + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click '//߰ + If Me.Sorted = ESorted.NULL Then Check_Sorted() + bs.AddNew() + view1.ActiveSheet.SetActiveCell(view1.ActiveSheet.RowCount, view1.AFirstColumn_Index) '//ùġ Ѵ. + 'Me.view1.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + 'Me.view1.Attach_Ubound(2) '//ٿ ⼭ ٿѺд. + Me.bs.EndEdit() '// ʹ ŷ + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso NVL(Drv("ֹȣ"), "") = "" AndAlso NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + 'Me.view1.Attach_Ubound(2) + Me.bs.EndEdit() + + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles view1.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + Private Sub sdStripMenuItemMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdStripMenuItem1.Click + Me.view1.ASelect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub folStripMenuItuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gsdfolStripMenuItem2.Click + Me.view1.AUnselect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub gwsolStripMenuIteStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gwsolStripMenuItem2.Click + Me.view1.AReverse(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + + End Sub + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.Detail_kiki.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + End Sub + + Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles view1.Change + '//ÿ üũȰ ٲش. + + If e.Column = Me.view1.ACheckBox_ColIndex AndAlso Me.view1.ActiveSheet.Cells(e.Row, Me.view1.ACheckBox_ColIndex).Value = True Then '// + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.view1.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_kikiRow = Me.DT.NewDetail_kikiRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_kikiRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick + Me.Text = Me.view1.ActiveSheet.ActiveRowIndex & "/" & Me.view1.ActiveSheet.ActiveColumnIndex + End Sub + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub gfsdolStripMenuItempMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdolStripMenuItem.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + Dim a As New SaveFileDialog + a.Filter = " ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = "[絥ͳ] ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub allsavedataMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles allsavedata.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub currentsavedataoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles currentsavedata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub ToolStripButton6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.view1.Focus() + Me.view1.ActiveSheet.SetActiveCell(1, 5) + End Sub + + Private Sub AddEpole_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub ToolStripButton6_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + If MsgBox("ֹȣ Ͱ ĵ˴ϴ" & vbCrLf & vbCrLf & "Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.IreaDataSet1.Detail_kiki.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.Detail_kikiRow In Me.IreaDataSet1.Detail_kiki.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then '// 123H1R1R2H3 + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + '// 123@1@1@2@3 + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString '//123@001@001@002@003 + + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + + ȣ = ȣ.Replace("H", "@") + '//H : ٷξչȣ 1 H??? 0000 + '//H ֺ ;ϰ H ĵǾ Ѵ. + 'If ȣ.IndexOf("H") <> -1 Then '//Hִٴ°̴ H ٷξհH 0 ٲ۴. + ' Dim As String = ȣ.Substring(0, ȣ.IndexOf("H") - 3) + ' Dim չȣ As Short = ȣ.Substring(ȣ.IndexOf("H") - 3, 3) + ' Dim Ĺ As String = ȣ.Substring(ȣ.IndexOf("H") + 4) + ' 'ȣ = & Format(չȣ - 1, "000") & "ZZZ" & Ĺ + ' ȣ = & Format(չȣ - 1, "000") & "ZZZ" & ȣ.Substring(ȣ.IndexOf("H") + 1) & Ĺ + 'End If + 'If ȣ.IndexOf("H") <> -1 Then GoTo LBL_H + dr.Ĺȣ = dr.θ & ȣ + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles findtextlStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.Detail_kiki, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_kiki.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_kiki.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_kiki.Rows + A("") = Not A("") + Next + End Sub + + Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click + Me.bt_print.PerformClick() + End Sub + + Private Sub bt_print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim A As New printformkiki(Me.IreaDataSet1.Detail_kiki, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + If Admin Then + A.Show() + Else + A.ShowDialog() + End If + 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 view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown + view1_Arin_AddLog(sender, "信 before_keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + With Me.view1.ActiveSheet + ' Me.Text = .ActiveRowIndex & "/" & .ActiveColumnIndex + Select Case .ActiveColumn.Label.ToUpper + Case "B", "ȣB", "θB", "D11", "D12", "D13", "D14", "D15", "D21", "D22", "D23", "D24", ",D25", "D31", "D32", "D33", "D34", "D35" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + Case "A1" '//ֹȣ1(θ ) + '// ġ 1̻̾ 縦 Ҽִ. + '//׸ 缿 Ѵ. + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("θB")).Text Then '// θ ٸ + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A2" '//ȣ2 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A1")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A3" '//ȣ3 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A2")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A4" '//ȣ4 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A3")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "A5" '//ȣ5 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.view1.ColIndex2("θB")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("θB")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A1")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A2")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A3")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A3")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.view1.ColIndex2("A4")).Text = .Cells(.ActiveRowIndex - 1, Me.view1.ColIndex2("A4")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + End Select + End With + + End Select + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff + Me.view1_Arin_AddLog(sender, " befoer_editmodeoff") + With Me.view1.ActiveSheet + Select Case .ActiveColumn.Label.ToUpper + Case "ô" 'ôϰ + Case "A1" '//ֹȣ1 + End Select + End With + End Sub + + Private Sub bt_datasort_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_datasort.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + If MsgBox("ĵ͸ Ͻðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + For Each dr As ireaDataSet.Detail_kikiRow In Me.IreaDataSet1.jjutable.Rows + dr.Ĺȣ = "" + Next + NOTICE("ĵͰ ʱȭǾϴ.", Me.lb_msg) + End If + End If + End Sub + + Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles view1.CellClick + + End Sub + + Private Sub AddEpole_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + If e.KeyCode = Keys.F1 Then + If e.Control AndAlso e.Shift Then + If MsgBox("ʺ ʱȭϽðڽϱ?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + view1.ColSize_Init() + End If + End If + End If + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To view1_Sheet1.ColumnCount + view1_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/AddEpole지중.Designer.vb b/Epole/입력폼/AddEpole지중.Designer.vb new file mode 100644 index 0000000..f467849 --- /dev/null +++ b/Epole/입력폼/AddEpole지중.Designer.vb @@ -0,0 +1,1572 @@ + _ +Partial Class AddEpoleJJ + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton() + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_find = New System.Windows.Forms.ToolStripButton() + Me.bt_datasort = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton() + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem() + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.cm = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem() + Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator() + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator() + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem() + Me.servoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator() + Me.out = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_seldel = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator() + Me.기기명변경ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.t1 = New System.Windows.Forms.ToolStripMenuItem() + Me.t2 = New System.Windows.Forms.ToolStripMenuItem() + Me.t3 = New System.Windows.Forms.ToolStripMenuItem() + Me.t4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator() + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem() + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.fp = New NewFp() + Me.bt_addrow = New System.Windows.Forms.ToolStripButton() + Me.fp_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.ds1 = New EpoleNet.ireaDataSet() + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label13 = New System.Windows.Forms.Label() + Me.tbf8 = New MyControlOLEDBv2.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.tbf7 = New MyControlOLEDBv2.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tbf6 = New MyControlOLEDBv2.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.tbf5 = New MyControlOLEDBv2.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.tbf4 = New MyControlOLEDBv2.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tbf3 = New MyControlOLEDBv2.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tbf2 = New MyControlOLEDBv2.MyTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tbf1 = New MyControlOLEDBv2.MyTextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.h_bigo = New MyControlOLEDBv2.MyTextBox() + Me.h_dan = New MyControlOLEDBv2.MyTextBox() + Me.h_id = New MyControlOLEDBv2.MyTextBox() + Me.h_date = New MyControlOLEDBv2.MyMaskBox() + Me.h_name = New MyControlOLEDBv2.MyTextBox() + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_commit = New System.Windows.Forms.ToolStripButton() + Me.bt_cancel = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.pbar = New System.Windows.Forms.ProgressBar() + Me.ta = New EpoleNet.ireaDataSetTableAdapters.jjungtableTableAdapter() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.cm.SuspendLayout() + CType(Me.fp, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fp_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ds1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.SuspendLayout() + ' + '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_ime, Me.lb_pos, Me.lb_edit, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 558) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1184, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(41, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(33, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(41, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(11, 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 = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1184, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem, Me.lStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(98, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.ToolStripMenuItem.Text = "[관리/전산번호]" + Me.ToolStripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'lStripMenuItem + ' + Me.lStripMenuItem.Name = "lStripMenuItem" + Me.lStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.lStripMenuItem.Text = "[전주번호]" + Me.lStripMenuItem.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(122, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(129, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(126, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(202, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(202, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'cm + ' + Me.cm.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.열너비초기화ToolStripMenuItem, Me.ToolStripMenuItem5, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.servoolStripMenuItem, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.cm.Name = "ContextMenuStrip1" + Me.cm.Size = New System.Drawing.Size(166, 210) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + '열너비초기화ToolStripMenuItem + ' + Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem" + Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.열너비초기화ToolStripMenuItem.Text = "열너비 초기화" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'servoolStripMenuItem + ' + Me.servoolStripMenuItem.Name = "servoolStripMenuItem" + Me.servoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.servoolStripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.ToolStripMenuItem6, Me.bt_seldel, Me.ToolStripMenuItem7, Me.기기명변경ToolStripMenuItem}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(138, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(138, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(138, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(135, 6) + ' + 'bt_seldel + ' + Me.bt_seldel.Name = "bt_seldel" + Me.bt_seldel.Size = New System.Drawing.Size(138, 22) + Me.bt_seldel.Text = "선택삭제" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(135, 6) + ' + '기기명변경ToolStripMenuItem + ' + Me.기기명변경ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.t1, Me.t2, Me.t3, Me.t4}) + Me.기기명변경ToolStripMenuItem.Name = "기기명변경ToolStripMenuItem" + Me.기기명변경ToolStripMenuItem.Size = New System.Drawing.Size(138, 22) + Me.기기명변경ToolStripMenuItem.Text = "기기명 변경" + ' + 't1 + ' + Me.t1.Name = "t1" + Me.t1.Size = New System.Drawing.Size(134, 22) + Me.t1.Text = "PAD SW" + ' + 't2 + ' + Me.t2.Name = "t2" + Me.t2.Size = New System.Drawing.Size(134, 22) + Me.t2.Text = "지상개폐기" + ' + 't3 + ' + Me.t3.Name = "t3" + Me.t3.Size = New System.Drawing.Size(134, 22) + Me.t3.Text = "PAD TR" + ' + 't4 + ' + Me.t4.Name = "t4" + Me.t4.Size = New System.Drawing.Size(134, 22) + Me.t4.Text = "지상변압기" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'fp + ' + Me.fp.AAutoAddrowInLast = Me.bt_addrow + Me.fp.AccessibleDescription = "fp, Sheet1, Row 0, Column 0, " + Me.fp.ACellImeLabel = Me.lb_ime + Me.fp.ACellposLabel = Me.lb_pos + Me.fp.ACheckBox_ColIndex = CType(-1, Short) + Me.fp.ADeleteCell = True + Me.fp.ADeleteRow = True + Me.fp.AEditFromSpace = True + Me.fp.AEditStatusLabel = Me.lb_change + Me.fp.AFirstColumn_Index = 2 + Me.fp.AllowCellOverflow = True + Me.fp.AllowDragDrop = True + Me.fp.AllowDragFill = True + Me.fp.AllowUserFormulas = True + Me.fp.AMessageLabel = Me.lb_msg + Me.fp.ANextRow_ColIndex = 23 + Me.fp.ASameRowheight = True + Me.fp.BackColor = System.Drawing.SystemColors.Control + Me.fp.ContextMenuStrip = Me.cm + Me.fp.Dock = System.Windows.Forms.DockStyle.Fill + Me.fp.EditModeReplace = True + Me.fp.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fp.Location = New System.Drawing.Point(0, 108) + Me.fp.Name = "fp" + Me.fp.RetainSelectionBlock = False + Me.fp.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.fp.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.fp_Sheet1}) + Me.fp.Size = New System.Drawing.Size(1184, 388) + Me.fp.TabIndex = 8 + Me.ToolTip1.SetToolTip(Me.fp, "ALT+ENTER(윗칸복사),SHIFT+ENTER(이전칸으로),ENTER(다음칸으로)") + Me.fp.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fp.SetViewportLeftColumn(0, 0, 13) + Me.fp.SetActiveViewport(0, 0, -1) + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'fp_Sheet1 + ' + Me.fp_Sheet1.Reset() + fp_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.fp_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + fp_Sheet1.ColumnCount = 26 + fp_Sheet1.ColumnHeader.RowCount = 2 + Me.fp_Sheet1.AutoGenerateColumns = False + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 3).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "전산화번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전산번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 5).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "변압기번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 7).ColumnSpan = 6 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 7).Value = "기기번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "기기번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 13).ColumnSpan = 4 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 13).Value = "시공사항" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 17).ColumnSpan = 4 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 17).Value = "변압기사항" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 18).Value = "변압기사항" + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 21).ColumnSpan = 2 + Me.fp_Sheet1.ColumnHeader.Cells.Get(0, 21).Value = "전원,부하 사항" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "관리ID" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "관리구A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "번호A" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "관리구B" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "번호B" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "선로명" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "선로번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "2" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "3" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "4" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "5" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "시공년월" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "시공업체" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "제조년월" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "제조회사" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "선로명" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "선로번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "상" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "용량(형식)" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "기기명" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "정렬번호" + Me.fp_Sheet1.ColumnHeader.Cells.Get(1, 25).Value = "출력" + Me.fp_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.fp_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.fp_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.fp_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.fp_Sheet1.ColumnHeader.Rows.Get(1).Height = 32.0! + Me.fp_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(0).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.fp_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(0).Label = "*" + Me.fp_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(0).Width = 46.0! + Me.fp_Sheet1.Columns.Get(1).BackColor = System.Drawing.Color.White + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.fp_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.fp_Sheet1.Columns.Get(1).DataField = "관리ID" + Me.fp_Sheet1.Columns.Get(1).Label = "관리ID" + Me.fp_Sheet1.Columns.Get(1).Width = 48.0! + Me.fp_Sheet1.Columns.Get(2).BackColor = System.Drawing.Color.White + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.fp_Sheet1.Columns.Get(2).CellType = NumberCellType2 + Me.fp_Sheet1.Columns.Get(2).DataField = "번호" + Me.fp_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(2).Label = "번호" + Me.fp_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(3).BackColor = System.Drawing.Color.White + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(3).CellType = TextCellType1 + Me.fp_Sheet1.Columns.Get(3).DataField = "관리구" + Me.fp_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(3).Label = "관리구A" + Me.fp_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(3).Width = 67.0! + Me.fp_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.White + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(4).CellType = TextCellType2 + Me.fp_Sheet1.Columns.Get(4).DataField = "전산화번호" + Me.fp_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(4).Label = "번호A" + Me.fp_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(4).Width = 63.0! + Me.fp_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.White + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(5).CellType = TextCellType3 + Me.fp_Sheet1.Columns.Get(5).DataField = "관리구2" + Me.fp_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(5).Label = "관리구B" + Me.fp_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.White + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(6).CellType = TextCellType4 + Me.fp_Sheet1.Columns.Get(6).DataField = "전산번호2" + Me.fp_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(6).Label = "번호B" + Me.fp_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.fp_Sheet1.Columns.Get(7).CellType = TextCellType5 + Me.fp_Sheet1.Columns.Get(7).DataField = "선로명" + Me.fp_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(7).Label = "선로명" + Me.fp_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(7).Width = 86.0! + Me.fp_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.White + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(8).CellType = TextCellType6 + Me.fp_Sheet1.Columns.Get(8).DataField = "번호1" + Me.fp_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(8).Label = "선로번호" + Me.fp_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(8).Width = 80.0! + Me.fp_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.White + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(9).CellType = TextCellType7 + Me.fp_Sheet1.Columns.Get(9).DataField = "번호2" + Me.fp_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(9).Label = "2" + Me.fp_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(9).Visible = False + Me.fp_Sheet1.Columns.Get(9).Width = 31.0! + Me.fp_Sheet1.Columns.Get(10).BackColor = System.Drawing.Color.White + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(10).CellType = TextCellType8 + Me.fp_Sheet1.Columns.Get(10).DataField = "번호3" + Me.fp_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(10).Label = "3" + Me.fp_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(10).Visible = False + Me.fp_Sheet1.Columns.Get(10).Width = 31.0! + Me.fp_Sheet1.Columns.Get(11).BackColor = System.Drawing.Color.White + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(11).CellType = TextCellType9 + Me.fp_Sheet1.Columns.Get(11).DataField = "번호4" + Me.fp_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.fp_Sheet1.Columns.Get(11).Label = "4" + Me.fp_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(11).Visible = False + Me.fp_Sheet1.Columns.Get(11).Width = 32.0! + Me.fp_Sheet1.Columns.Get(12).BackColor = System.Drawing.Color.White + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(12).CellType = TextCellType10 + Me.fp_Sheet1.Columns.Get(12).DataField = "번호5" + Me.fp_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.fp_Sheet1.Columns.Get(12).Label = "5" + Me.fp_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(12).Visible = False + Me.fp_Sheet1.Columns.Get(12).Width = 33.0! + Me.fp_Sheet1.Columns.Get(13).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(13).CellType = TextCellType11 + Me.fp_Sheet1.Columns.Get(13).DataField = "시공년월" + Me.fp_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(13).Label = "시공년월" + Me.fp_Sheet1.Columns.Get(13).Locked = False + Me.fp_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(13).Width = 62.0! + Me.fp_Sheet1.Columns.Get(14).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(14).CellType = TextCellType12 + Me.fp_Sheet1.Columns.Get(14).DataField = "시공업체" + Me.fp_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(14).Label = "시공업체" + Me.fp_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(14).Width = 57.0! + Me.fp_Sheet1.Columns.Get(15).CellType = TextCellType13 + Me.fp_Sheet1.Columns.Get(15).DataField = "제조년월" + Me.fp_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(15).Label = "제조년월" + Me.fp_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(16).CellType = TextCellType14 + Me.fp_Sheet1.Columns.Get(16).DataField = "제조회사" + Me.fp_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(16).Label = "제조회사" + Me.fp_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(17).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.fp_Sheet1.Columns.Get(17).CellType = TextCellType15 + Me.fp_Sheet1.Columns.Get(17).DataField = "변압기선로" + Me.fp_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(17).Label = "선로명" + Me.fp_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(18).BackColor = System.Drawing.Color.White + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(18).CellType = TextCellType16 + Me.fp_Sheet1.Columns.Get(18).DataField = "변압기명" + Me.fp_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(18).Label = "선로번호" + Me.fp_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(19).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(19).CellType = TextCellType17 + Me.fp_Sheet1.Columns.Get(19).DataField = "변압기상" + Me.fp_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(19).Label = "상" + Me.fp_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.White + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(20).CellType = TextCellType18 + Me.fp_Sheet1.Columns.Get(20).DataField = "변압기용량" + Me.fp_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(20).Label = "용량(형식)" + Me.fp_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(20).Width = 83.0! + Me.fp_Sheet1.Columns.Get(21).BackColor = System.Drawing.Color.White + TextCellType19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(21).CellType = TextCellType19 + Me.fp_Sheet1.Columns.Get(21).DataField = "전원측" + Me.fp_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(21).Width = 59.0! + Me.fp_Sheet1.Columns.Get(22).BackColor = System.Drawing.Color.White + TextCellType20.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.fp_Sheet1.Columns.Get(22).CellType = TextCellType20 + Me.fp_Sheet1.Columns.Get(22).DataField = "부하측" + Me.fp_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(22).Width = 59.0! + Me.fp_Sheet1.Columns.Get(23).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(23).CellType = TextCellType21 + Me.fp_Sheet1.Columns.Get(23).DataField = "비고1" + Me.fp_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(23).Label = "기기명" + Me.fp_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(23).Width = 49.0! + Me.fp_Sheet1.Columns.Get(24).AllowAutoSort = True + Me.fp_Sheet1.Columns.Get(24).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(24).CellType = TextCellType22 + Me.fp_Sheet1.Columns.Get(24).DataField = "정렬번호" + Me.fp_Sheet1.Columns.Get(24).Label = "정렬번호" + Me.fp_Sheet1.Columns.Get(24).Width = 50.0! + Me.fp_Sheet1.Columns.Get(25).AllowAutoFilter = True + Me.fp_Sheet1.Columns.Get(25).BackColor = System.Drawing.Color.White + Me.fp_Sheet1.Columns.Get(25).CellType = CheckBoxCellType2 + Me.fp_Sheet1.Columns.Get(25).DataField = "출력" + Me.fp_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.Columns.Get(25).Label = "출력" + Me.fp_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.Columns.Get(25).Width = 57.0! + Me.fp_Sheet1.DataAutoCellTypes = False + Me.fp_Sheet1.DataAutoSizeColumns = False + Me.fp_Sheet1.FrozenColumnCount = 13 + Me.fp_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.fp_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.fp_Sheet1.RowHeader.Columns.Get(0).Width = 39.0! + Me.fp_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.fp_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.fp_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.fp_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.fp_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.fp_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.fp_Sheet1.Rows.Default.Height = 25.0! + Me.fp_Sheet1.Rows.Default.Resizable = True + Me.fp_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.fp_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.fp_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'ds1 + ' + Me.ds1.DataSetName = "ireaDataSet" + Me.ds1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'bs + ' + Me.bs.DataMember = "jjungtable" + Me.bs.DataSource = Me.ds1 + Me.bs.Sort = "" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Label13) + Me.Panel1.Controls.Add(Me.tbf8) + Me.Panel1.Controls.Add(Me.Label10) + Me.Panel1.Controls.Add(Me.tbf7) + Me.Panel1.Controls.Add(Me.Label11) + Me.Panel1.Controls.Add(Me.tbf6) + Me.Panel1.Controls.Add(Me.Label12) + Me.Panel1.Controls.Add(Me.tbf5) + Me.Panel1.Controls.Add(Me.Label3) + Me.Panel1.Controls.Add(Me.tbf4) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.tbf3) + Me.Panel1.Controls.Add(Me.Label2) + Me.Panel1.Controls.Add(Me.tbf2) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.tbf1) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 39) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1184, 69) + Me.Panel1.TabIndex = 21 + ' + 'Label13 + ' + Me.Label13.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label13.Location = New System.Drawing.Point(966, 42) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(32, 21) + Me.Label13.TabIndex = 36 + Me.Label13.Text = "F12" + Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf8 + ' + Me.tbf8.BackColor = System.Drawing.Color.White + Me.tbf8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf8.DB_BaseLabel = Nothing + Me.tbf8.DB_ColName = "tbf8" + Me.tbf8.DB_ITEM = False + Me.tbf8.DB_NotNull = False + Me.tbf8.DB_Prompt = "" + Me.tbf8.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf8.DB_WhereType = Nothing + Me.tbf8.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf8.Location = New System.Drawing.Point(999, 42) + Me.tbf8.Name = "tbf8" + Me.tbf8.Size = New System.Drawing.Size(99, 21) + Me.tbf8.TabIndex = 37 + Me.tbf8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf8.Value = "" + Me.tbf8.WHERE_DEFAULT_VALUE = "" + ' + 'Label10 + ' + Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label10.Location = New System.Drawing.Point(827, 42) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(32, 21) + Me.Label10.TabIndex = 34 + Me.Label10.Text = "F11" + Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf7 + ' + Me.tbf7.BackColor = System.Drawing.Color.White + Me.tbf7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf7.DB_BaseLabel = Nothing + Me.tbf7.DB_ColName = "tbf7" + Me.tbf7.DB_ITEM = False + Me.tbf7.DB_NotNull = False + Me.tbf7.DB_Prompt = "" + Me.tbf7.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf7.DB_WhereType = Nothing + Me.tbf7.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf7.Location = New System.Drawing.Point(860, 42) + Me.tbf7.Name = "tbf7" + Me.tbf7.Size = New System.Drawing.Size(99, 21) + Me.tbf7.TabIndex = 35 + Me.tbf7.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf7.Value = "" + Me.tbf7.WHERE_DEFAULT_VALUE = "" + ' + 'Label11 + ' + Me.Label11.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label11.Location = New System.Drawing.Point(689, 42) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(32, 21) + Me.Label11.TabIndex = 32 + Me.Label11.Text = "F10" + Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf6 + ' + Me.tbf6.BackColor = System.Drawing.Color.White + Me.tbf6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf6.DB_BaseLabel = Nothing + Me.tbf6.DB_ColName = "tbf6" + Me.tbf6.DB_ITEM = False + Me.tbf6.DB_NotNull = False + Me.tbf6.DB_Prompt = "" + Me.tbf6.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf6.DB_WhereType = Nothing + Me.tbf6.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf6.Location = New System.Drawing.Point(722, 42) + Me.tbf6.Name = "tbf6" + Me.tbf6.Size = New System.Drawing.Size(99, 21) + Me.tbf6.TabIndex = 33 + Me.tbf6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf6.Value = "" + Me.tbf6.WHERE_DEFAULT_VALUE = "" + ' + 'Label12 + ' + Me.Label12.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label12.Location = New System.Drawing.Point(554, 42) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(32, 21) + Me.Label12.TabIndex = 30 + Me.Label12.Text = "F9" + Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf5 + ' + Me.tbf5.BackColor = System.Drawing.Color.White + Me.tbf5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf5.DB_BaseLabel = Nothing + Me.tbf5.DB_ColName = "tbf5" + Me.tbf5.DB_ITEM = False + Me.tbf5.DB_NotNull = False + Me.tbf5.DB_Prompt = "" + Me.tbf5.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf5.DB_WhereType = Nothing + Me.tbf5.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf5.Location = New System.Drawing.Point(587, 42) + Me.tbf5.Name = "tbf5" + Me.tbf5.Size = New System.Drawing.Size(99, 21) + Me.tbf5.TabIndex = 31 + Me.tbf5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf5.Value = "" + Me.tbf5.WHERE_DEFAULT_VALUE = "" + ' + 'Label3 + ' + Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label3.Location = New System.Drawing.Point(418, 42) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(32, 21) + Me.Label3.TabIndex = 28 + Me.Label3.Text = "F8" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf4 + ' + Me.tbf4.BackColor = System.Drawing.Color.White + Me.tbf4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf4.DB_BaseLabel = Nothing + Me.tbf4.DB_ColName = "tbf4" + Me.tbf4.DB_ITEM = False + Me.tbf4.DB_NotNull = False + Me.tbf4.DB_Prompt = "" + Me.tbf4.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf4.DB_WhereType = Nothing + Me.tbf4.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf4.Location = New System.Drawing.Point(451, 42) + Me.tbf4.Name = "tbf4" + Me.tbf4.Size = New System.Drawing.Size(99, 21) + Me.tbf4.TabIndex = 29 + Me.tbf4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf4.Value = "" + Me.tbf4.WHERE_DEFAULT_VALUE = "" + ' + 'Label4 + ' + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label4.Location = New System.Drawing.Point(280, 42) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(32, 21) + Me.Label4.TabIndex = 26 + Me.Label4.Text = "F7" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf3 + ' + Me.tbf3.BackColor = System.Drawing.Color.White + Me.tbf3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf3.DB_BaseLabel = Nothing + Me.tbf3.DB_ColName = "tbf3" + Me.tbf3.DB_ITEM = False + Me.tbf3.DB_NotNull = False + Me.tbf3.DB_Prompt = "" + Me.tbf3.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf3.DB_WhereType = Nothing + Me.tbf3.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf3.Location = New System.Drawing.Point(313, 42) + Me.tbf3.Name = "tbf3" + Me.tbf3.Size = New System.Drawing.Size(99, 21) + Me.tbf3.TabIndex = 27 + Me.tbf3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf3.Value = "" + Me.tbf3.WHERE_DEFAULT_VALUE = "" + ' + 'Label2 + ' + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label2.Location = New System.Drawing.Point(145, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(32, 21) + Me.Label2.TabIndex = 24 + Me.Label2.Text = "F6" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf2 + ' + Me.tbf2.BackColor = System.Drawing.Color.White + Me.tbf2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf2.DB_BaseLabel = Nothing + Me.tbf2.DB_ColName = "tbf2" + Me.tbf2.DB_ITEM = False + Me.tbf2.DB_NotNull = False + Me.tbf2.DB_Prompt = "" + Me.tbf2.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf2.DB_WhereType = Nothing + Me.tbf2.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf2.Location = New System.Drawing.Point(178, 42) + Me.tbf2.Name = "tbf2" + Me.tbf2.Size = New System.Drawing.Size(99, 21) + Me.tbf2.TabIndex = 25 + Me.tbf2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf2.Value = "" + Me.tbf2.WHERE_DEFAULT_VALUE = "" + ' + 'Label1 + ' + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label1.Location = New System.Drawing.Point(7, 42) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(32, 21) + Me.Label1.TabIndex = 22 + Me.Label1.Text = "F5" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'tbf1 + ' + Me.tbf1.BackColor = System.Drawing.Color.White + Me.tbf1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tbf1.DB_BaseLabel = Nothing + Me.tbf1.DB_ColName = "tbf1" + Me.tbf1.DB_ITEM = False + Me.tbf1.DB_NotNull = False + Me.tbf1.DB_Prompt = "" + Me.tbf1.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.tbf1.DB_WhereType = Nothing + Me.tbf1.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.tbf1.Location = New System.Drawing.Point(40, 42) + Me.tbf1.Name = "tbf1" + Me.tbf1.Size = New System.Drawing.Size(99, 21) + Me.tbf1.TabIndex = 23 + Me.tbf1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tbf1.Value = "" + Me.tbf1.WHERE_DEFAULT_VALUE = "" + ' + 'Panel2 + ' + Me.Panel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel2.BackColor = System.Drawing.Color.Silver + Me.Panel2.Location = New System.Drawing.Point(7, 35) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1171, 3) + Me.Panel2.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(554, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 519) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1184, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 496) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1184, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'AddEpoleJJ + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1184, 580) + Me.Controls.Add(Me.fp) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleJJ" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "번호찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.cm.ResumeLayout(False) + CType(Me.fp, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fp_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ds1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents cm As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents fp As NewFp + Friend WithEvents fp_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents ds1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents servoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_seldel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents 기기명변경ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents t1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents t2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents t3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents t4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.jjungtableTableAdapter + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tbf1 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents tbf8 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents tbf7 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tbf6 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents tbf5 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tbf4 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tbf3 As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tbf2 As MyControlOLEDBv2.MyTextBox +End Class diff --git a/Epole/입력폼/AddEpole지중.resx b/Epole/입력폼/AddEpole지중.resx new file mode 100644 index 0000000..2d4e2db --- /dev/null +++ b/Epole/입력폼/AddEpole지중.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 430, 17 + + + 149, 17 + + + 548, 17 + + + 69 + + + 81, 17 + + + 258, 17 + + + 751, 17 + + + 364, 17 + + + 17, 17 + + + 680, 17 + + + 851, 17 + + \ No newline at end of file diff --git a/Epole/입력폼/AddEpole지중.vb b/Epole/입력폼/AddEpole지중.vb new file mode 100644 index 0000000..095e1ca --- /dev/null +++ b/Epole/입력폼/AddEpole지중.vb @@ -0,0 +1,863 @@ +Public Class AddEpoleJJ + + ' Dim SaveFlag As Boolean = False + Dim DT As ireaDataSet.jjungtableDataTable + Dim Sorted As ESorted = ESorted.No + Public PrnForm As printformjjung + Dim IsNew As Boolean = False + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) 'Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + NEwrow("0") = "ðü:" + NEwrow("2") = "ð:" + + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + + NEwrow("б뷮") = "" + NEwrow("ȭȣ") = "" + NEwrow("θ") = "" + End Sub + + Public Sub New(ByVal maxid As Integer) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "(Ϲ) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(Ϲ)ȣ(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + Me.IsNew = True + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(Ϲ) Է" + + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso NVL(Drv("ȣ2"), "") = "" AndAlso NVL(Drv("ȣ3"), "") = "" AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + + '//Ű ֱ + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini") + INI.Write("key", "f1", tbf1.Text) + INI.Write("key", "f2", tbf2.Text) + INI.Write("key", "f3", tbf3.Text) + INI.Write("key", "f4", tbf4.Text) + INI.Write("key", "f5", tbf5.Text) + INI.Write("key", "f6", tbf6.Text) + INI.Write("key", "f7", tbf7.Text) + INI.Write("key", "f8", tbf8.Text) + + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.fp.ASetting_Load(False) + Me.fp.ѱʵ = New String() {"", "", "θ", "б⼱", "ðü"} + 'Me.view1.AEnterToNextItem(False) + + Me.fp.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + AddHandler ds1.jjungtable.TableNewRow, AddressOf NewRowAddToDataTable + + '//Ű ֱ + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\" & Me.Name & "_static.ini") + tbf1.Text = INI.Read("key", "f1") + tbf2.Text = INI.Read("key", "f2") + tbf3.Text = INI.Read("key", "f3") + tbf4.Text = INI.Read("key", "f4") + tbf5.Text = INI.Read("key", "f5") + tbf6.Text = INI.Read("key", "f6") + tbf7.Text = INI.Read("key", "f7") + tbf8.Text = INI.Read("key", "f8") + + + DT = Me.ds1.jjungtable + Me.SETTOOLTIP() + ''''''''ͺֱ + If Me.IsNew Then '//idͰ ʹ λ ϰѴ. + Dim Cmd As New OleDbCommand("delete from ߼ where id=" & Me.h_id.Text, Me.ta.Connection) + If Cmd.Connection.State <> ConnectionState.Open Then Cmd.Connection.Open() + Cmd.ExecuteNonQuery() + Me.IsNew = False + End If + Display_Data() + + + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.fp, TMSG.ToString) + + End Sub + Private Sub SetFarPoint() + ' Me.view1.AEnterToNextItem() + Me.bs.DataSource = Me.ds1 + Me.bs.DataMember = "jjungtable" + Me.fp.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.fp_Sheet1.RowCount - 1 + If Me.fp_Sheet1.Cells(i, 2).Value > maxCnt Then maxCnt = Me.fp_Sheet1.Cells(i, 2).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.Validate() + Me.bs.EndEdit() + If Not Me.ds1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + Try + 'Dim SQL2 As String = "SELECT * FROM ߼ WHERE (ID = {0}) ORDER BY Ĺȣ, ȣ" + 'SQL2 = String.Format(SQL2, Me.h_id.Text) + 'Dim tacon As New System.Data.OleDb.OleDbConnection(My.Settings.ireaConnectionString) + 'Dim cmd2 As New System.Data.OleDb.OleDbCommand(SQL2, tacon) + 'Dim tadapter As New System.Data.OleDb.OleDbDataAdapter(cmd2) + 'Dim tacmdbulder As New OleDb.OleDbCommandBuilder(tadapter) + 'tadapter.UpdateCommand = tacmdbulder.GetUpdateCommand() + 'tadapter.DeleteCommand = tacmdbulder.GetDeleteCommand() + 'tadapter.InsertCommand = tacmdbulder.GetInsertCommand() + + 'Try + ' Dim cnt As Integer = tadapter.Update(Me.ds1.jjungtable) + ' MsgBox(String.Format("{0} ڷᰡ Ǿϴ", cnt)) + 'Catch ex As Exception + ' MsgBox(ex.Message) + 'End Try + + + 'Me.IreaDataSet1.jjungtable.Clear() + 'tadapter.Fill(Me.IreaDataSet1.jjungtable) + 'Me.IreaDataSet1.jjungtable.AcceptChanges() + + + Me.ta.Update(Me.ds1.jjungtable) '//Commit insert/update/delete + Me.ds1.jjungtable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,1)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.ds1.jjungtable.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=1 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.ds1.jjungtable.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.fp_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.ds1.jjungtable.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + fp.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + + Dim SQL As String = "SELECT * FROM ߼ WHERE (ID = {0}) ORDER BY Ĺȣ, ȣ" + SQL = String.Format(SQL, Me.h_id.Text) + + + 'Dim tacon As New System.Data.OleDb.OleDbConnection(My.Settings.ireaConnectionString) + 'Dim cmd As New System.Data.OleDb.OleDbCommand(SQL, tacon) + 'Dim tadapter As New System.Data.OleDb.OleDbDataAdapter(cmd) + 'Dim tacmdbulder As New OleDb.OleDbCommandBuilder(tadapter) + + 'tadapter.UpdateCommand = tacmdbulder.GetUpdateCommand() + 'tadapter.DeleteCommand = tacmdbulder.GetDeleteCommand() + 'tadapter.InsertCommand = tacmdbulder.GetInsertCommand() + + 'Me.ds1.jjungtable.Clear() + 'tadapter.Fill(Me.ds1.jjungtable) + 'Me.ds1.jjungtable.AcceptChanges() + + Me.ds1.jjungtable.Clear() + + Dim ta2 As New ireaDataSetTableAdapters.jjungtableTableAdapter + Me.ta.Fill(Me.ds1.jjungtable, Me.h_id.Text) '//id ؼ ͸ ä. + Me.ds1.jjungtable.AcceptChanges() + + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.ds1.jjungtable.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + NOTICE(Me.fp.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Me.fp.SuspendLayout() + Dim A As New XLSImport(Me.ds1, Me.h_id.Text, 1) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + Me.fp.ResumeLayout() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.fp.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + PrnForm = New printformjjung(Me.ds1.jjungtable, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + If Admin Then + PrnForm.Show() + Else + PrnForm.ShowDialog() + End If + + + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("ߺǴ [/ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + = Me.fp.ActiveSheet.Cells(A.Index, 3).Value & Me.fp.ActiveSheet.Cells(A.Index, 4).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.fp.ActiveSheet.Cells(B.Index, 3).Value & Me.fp.ActiveSheet.Cells(B.Index, 4).Value + If .ToString = .ToString Then + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, 22).Value = True + Me.fp.ActiveSheet.Cells(B.Index, 22).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + + + + NOTICE("[/ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub lStripMenuItemripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.fp.ActiveSheet.RowCount + + NOTICE("ߺǴ [ֹȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + = Me.fp.ActiveSheet.Cells(A.Index, 6).Value & Me.fp.ActiveSheet.Cells(A.Index, 7).Value & Me.fp.ActiveSheet.Cells(A.Index, 8).Value & _ + Me.fp.ActiveSheet.Cells(A.Index, 9).Value & Me.fp.ActiveSheet.Cells(A.Index, 10).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.fp.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.fp.ActiveSheet.Cells(B.Index, 6).Value & Me.fp.ActiveSheet.Cells(B.Index, 7).Value & Me.fp.ActiveSheet.Cells(B.Index, 8).Value & _ + Me.fp.ActiveSheet.Cells(B.Index, 9).Value & Me.fp.ActiveSheet.Cells(B.Index, 10).Value + If .ToString = .ToString Then + fcnt += 1 + Me.fp.ActiveSheet.Cells(A.Index, 22).Value = True + Me.fp.ActiveSheet.Cells(B.Index, 22).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.fp.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv("θ"), "") = "" AndAlso _ + NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȭȣ"), "") = "" AndAlso _ + NVL(Drv("2"), "") = "" AndAlso _ + NVL(Drv("ȣ2"), "") = "" AndAlso _ + NVL(Drv("ȣ1"), "") = "" AndAlso _ + NVL(Drv("ȣ2"), "") = "" _ + AndAlso NVL(Drv("ȣ3"), "") = "" _ + AndAlso NVL(Drv("ȣ4"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.ds1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.ds1.HasChanges Then + Me.ds1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + + Me.fp.ASelect(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.fp.AUnselect(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.fp.AReverse(Me.fp.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.fp.ActiveSheet.Rows.Count > 0 Then + Me.fp.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles fp.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles fp.Arin_Before_EditModeOff + With Me.fp.ActiveSheet + Select Case .ActiveColumn.Label + Case "Ĺ׿뷮" + If (.Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" OrElse _ + .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = vbNullString) AndAlso _ + .ActiveCell.Text.Length = 4 Then + .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + 'Else + ' Me.Text = .ActiveCell.Text.Length & "/" & .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text + End If + 'Case "" + ' Select Case .ActiveCell.Text.ToUpper + ' Case "SW" + ' .ActiveCell.Text = "PAD SW" + ' Case "SK" + ' .ActiveCell.Text = "" + ' Case "TR" + ' .ActiveCell.Text = "PAD TR" + ' Case "TK" + ' .ActiveCell.Text = "󺯾б" + ' End Select + End Select + End With + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles fp.DragFillBlockCompleted + + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.ds1.jjungtable.Rows(fp.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub view1_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles fp.Change + '//ÿ üũȰ ٲش. + + If e.Column = Me.fp.ACheckBox_ColIndex AndAlso Me.fp.ActiveSheet.Cells(e.Row, Me.fp.ACheckBox_ColIndex).Value = True Then '// + Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen + Else + Me.fp.ActiveSheet.Rows(e.Row).BackColor = Color.White + End If + End Sub + + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.jjungtableRow = Me.DT.NewjjungtableRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + Dim AR As Integer = Me.fp.ActiveSheet.ActiveRowIndex + Me.DT.AddjjungtableRow(NR) + Me.fp.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles fp.EnterCell + + Select Case Me.fp.ActiveColumn.Label + Case "θ", "ðü", "II", "III", "", "" + If Me.fp.ActiveColumn.Label = "" Then + NOTICE("SW=PAD SW,SK=,TR=PAD TR,TK=󺯾б", Color.Blue, Me.lb_msg) + End If + 'SW : PAD SW ǥ. + 'SK : ѱ۷ ⡱ ǥ. + ' TR : 󺯾б PAD TR" + 'TK : 󺯾б ѱ۷ 󺯾б⡱ ǥ. + Case Else + If Me.fp.ActiveColumn.Label = "ð" Then + NOTICE("Է : 2007 08ϰ >> 2007.08", Color.Blue, Me.lb_msg) + + End If + + End Select + End Sub + + + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.fp.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.fp.Focus() + Me.fp.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + Dim ȣ As String + Dim ȣB, ȣb2 As System.Text.StringBuilder + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.ds1.jjungtable.Rows.Count - 1 + Me.pbar.Value = 0 + Dim Cidx As Int16 = 0 + Dim Carray As ArrayList + For Each dr As ireaDataSet.jjungtableRow In Me.ds1.jjungtable.Rows + ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + If ȣ <> "" Then + Cidx = 0 + ȣB = New System.Text.StringBuilder + ȣb2 = New System.Text.StringBuilder + Carray = New ArrayList + For Each C As Char In ȣ.ToCharArray + If Char.IsLetter(C) Then + Carray.Add(C) '//ġ ڸ Ѵ. + ȣB.Append("@") '//ڴ @ ȯѴ. + Else + ȣB.Append(C) '//ڴ ٷ ع. + End If + Cidx += 1 + Next + For Each ȣs As String In ȣB.ToString.Split("@") + ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + Next + ȣb2.Remove(ȣb2.Length - 1, 1) '// + ȣ = ȣb2.ToString + For Each c As Char In Carray '//ڿ ġ ִ + Cidx = ȣ.IndexOf("@") + If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + Next + dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Else '//ȣ ƹ͵ ° + dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + End If + Next + NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles servoolStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.fp.Search(Me.fp.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.fp.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub view1_CellClick(ByVal sender As System.Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles fp.CellClick + + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.ds1.jjungtable, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.ds1.jjungtable.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.ds1.jjungtable.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.ds1.jjungtable.Rows + A("") = Not A("") + Next + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.fp.ASetting_Save(False) + End Sub + + Private Sub bt_seldel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seldel.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub t1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t1.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.Cells("1").Value = "PAD SW" + Next + End Sub + + Private Sub t2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t2.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.Cells("1").Value = "" + Next + End Sub + + Private Sub t3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t3.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.Cells("1").Value = "PAD TR" + Next + End Sub + + Private Sub t4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t4.Click + For i As Integer = Me.fp.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.fp.ActiveSheet.Cells(i, Me.fp.ACheckBox_ColIndex).Value = True Then Me.fp.Cells("1").Value = "󺯾б" + Next + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.Arin_Before_KeyDown + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.F5 + e.Handled = True + e.SuppressKeyPress = True + If tbf1.Text <> "" Then + Me.fp.ActiveSheet.ActiveCell.Text = tbf1.Text.Trim() + End If + Case Keys.F6 + e.Handled = True + e.SuppressKeyPress = True + If tbf2.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf2.Text.Trim() + Case Keys.F7 + e.Handled = True + e.SuppressKeyPress = True + If tbf3.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf3.Text.Trim() + Case Keys.F8 + e.Handled = True + e.SuppressKeyPress = True + If tbf4.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf4.Text.Trim() + Case Keys.F9 + e.Handled = True + e.SuppressKeyPress = True + If tbf5.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf5.Text.Trim() + Case Keys.F10 + e.Handled = True + e.SuppressKeyPress = True + If tbf6.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf6.Text.Trim() + Case Keys.F11 + e.Handled = True + e.SuppressKeyPress = True + If tbf7.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf7.Text.Trim() + Case Keys.F12 + e.Handled = True + e.SuppressKeyPress = True + If tbf8.Text <> "" Then Me.fp.ActiveSheet.ActiveCell.Text = tbf8.Text.Trim() + Case Keys.Enter '/ٿ ̿ bt_insertrow + + With Me.fp.ActiveSheet + Select Case .ActiveColumn.Label.ToUpper + Case "", "", "1", "", "θ", "A", "B", "ȣA", "ȣB", "ð", "ðü", "б", "", "뷮()", "", "ȸ" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + Case "2" '//ȣ2 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("1")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "3" '//ȣ3 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("2")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "4" '//ȣ4 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("3")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + Case "5" '//ȣ5 + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then '//θ,ֹȣ1 ٸ 2 + If .Cells(.ActiveRowIndex, Me.fp.ColIndex2("1")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("1")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("2")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("2")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("3")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("3")).Text AndAlso _ + .Cells(.ActiveRowIndex, Me.fp.ColIndex2("4")).Text = .Cells(.ActiveRowIndex - 1, Me.fp.ColIndex2("4")).Text Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End If + End Select + End With + End Select + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fp.KeyDown + If (e.KeyCode = Keys.F10) Then + e.Handled = True + e.SuppressKeyPress = True + End If + + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.fp.ActiveSheet.ActiveColumnIndex) + End Sub + + Private Sub ʺʱȭToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ʺʱȭToolStripMenuItem.Click + For c As Integer = 1 To fp_Sheet1.ColumnCount + fp_Sheet1.Columns(c - 1).Width = 100 + Next + Application.DoEvents() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/Config.Designer.vb b/Epole/입력폼/Config.Designer.vb new file mode 100644 index 0000000..cd735ad --- /dev/null +++ b/Epole/입력폼/Config.Designer.vb @@ -0,0 +1,419 @@ + _ +Partial Class Config + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 MyControlOLEDBv2.MyCheckBox + 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.AutoSize = True + Me.chb_numcolor.Checked = True + Me.chb_numcolor.CheckState = System.Windows.Forms.CheckState.Checked + Me.chb_numcolor.DB_BaseLabel = Nothing + Me.chb_numcolor.DB_CheckValue = Nothing + Me.chb_numcolor.DB_ColName = "chb_numcolor" + Me.chb_numcolor.DB_ITEM = False + Me.chb_numcolor.DB_OtherValue = False + Me.chb_numcolor.DB_Prompt = "chb_numcolor" + Me.chb_numcolor.DB_Type = System.Data.OleDb.OleDbType.Empty + Me.chb_numcolor.DB_UnCheckVal = Nothing + Me.chb_numcolor.DB_USERCLICK = False + Me.chb_numcolor.DB_WhereType = Nothing + 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.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 MyControlOLEDBv2.MyCheckBox +End Class diff --git a/Epole/입력폼/Config.resx b/Epole/입력폼/Config.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/입력폼/Config.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/입력폼/Config.vb b/Epole/입력폼/Config.vb new file mode 100644 index 0000000..c629a76 --- /dev/null +++ b/Epole/입력폼/Config.vb @@ -0,0 +1,152 @@ +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 <> 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 MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Dim SpINI As New MyINI2(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) + MsgBox("저장이완료되었습니다\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 <> 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 <> 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 <> Windows.Forms.DialogResult.OK Then Return + Me.tb_mf.Text = A.Font.Name & "," & A.Font.Size + End Sub + + +End Class \ No newline at end of file diff --git a/Epole/입력폼/FileManager.Designer.vb b/Epole/입력폼/FileManager.Designer.vb new file mode 100644 index 0000000..e614c1b --- /dev/null +++ b/Epole/입력폼/FileManager.Designer.vb @@ -0,0 +1,872 @@ + _ +Partial Class FileManager + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.TabControl1 = New System.Windows.Forms.TabControl + Me.TabPage1 = New System.Windows.Forms.TabPage + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.lb_newfilename = New System.Windows.Forms.Label + Me.Label6 = New System.Windows.Forms.Label + Me.Label10 = New System.Windows.Forms.Label + Me.Button2 = New System.Windows.Forms.Button + Me.tb_ren_right = New System.Windows.Forms.TextBox + Me.Label7 = New System.Windows.Forms.Label + Me.Label8 = New System.Windows.Forms.Label + Me.tb_ren_left = New System.Windows.Forms.TextBox + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.Button1 = New System.Windows.Forms.Button + Me.Label5 = New System.Windows.Forms.Label + Me.Label4 = New System.Windows.Forms.Label + Me.Label3 = New System.Windows.Forms.Label + Me.tb_chg2 = New System.Windows.Forms.TextBox + Me.Label2 = New System.Windows.Forms.Label + Me.tb_chg1 = New System.Windows.Forms.TextBox + Me.Label1 = New System.Windows.Forms.Label + Me.TabPage2 = New System.Windows.Forms.TabPage + Me.GroupBox4 = New System.Windows.Forms.GroupBox + Me.tn_endrng = New System.Windows.Forms.TextBox + Me.Label11 = New System.Windows.Forms.Label + Me.tb_sttrng = New System.Windows.Forms.TextBox + Me.tb_ref6 = New System.Windows.Forms.TextBox + Me.tb_ref5 = New System.Windows.Forms.TextBox + Me.tb_ref4 = New System.Windows.Forms.TextBox + Me.tb_ref3 = New System.Windows.Forms.TextBox + Me.tb_ref2 = New System.Windows.Forms.TextBox + Me.MyFpoint2 = New MyControlOLEDBv2.MyFpoint + Me.MyFpoint2_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.Label17 = New System.Windows.Forms.Label + Me.tb_ref1 = New System.Windows.Forms.TextBox + Me.Button5 = New System.Windows.Forms.Button + Me.Button4 = New System.Windows.Forms.Button + Me.GroupBox3 = New System.Windows.Forms.GroupBox + Me.Button3 = New System.Windows.Forms.Button + Me.Label9 = New System.Windows.Forms.Label + Me.Label13 = New System.Windows.Forms.Label + Me.tb_del1 = New System.Windows.Forms.TextBox + Me.Label14 = New System.Windows.Forms.Label + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_picselect = New System.Windows.Forms.ToolStripButton + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.cmb_picEXT = New System.Windows.Forms.ToolStripComboBox + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.CHK_SUBDIR = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.bt_exit = New System.Windows.Forms.ToolStripButton + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.pbar1 = New System.Windows.Forms.ToolStripProgressBar + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_total = New System.Windows.Forms.ToolStripStatusLabel + Me.MyFpoint1 = New MyControlOLEDBv2.MyFpoint + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_out = New System.Windows.Forms.ToolStripMenuItem + Me.cm_out_all = New System.Windows.Forms.ToolStripMenuItem + Me.cb_out_filter = New System.Windows.Forms.ToolStripMenuItem + Me.cm_clear = New System.Windows.Forms.ToolStripMenuItem + Me.MyFpoint1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.DirListBox1 = New Microsoft.VisualBasic.Compatibility.VB6.DirListBox + Me.DriveListBox1 = New Microsoft.VisualBasic.Compatibility.VB6.DriveListBox + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox4.SuspendLayout() + CType(Me.MyFpoint2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyFpoint2_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox3.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.MyFpoint1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Location = New System.Drawing.Point(0, 42) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(704, 366) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.GroupBox1) + 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(696, 340) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "이름 변경" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox2.Controls.Add(Me.lb_newfilename) + Me.GroupBox2.Controls.Add(Me.Label6) + Me.GroupBox2.Controls.Add(Me.Label10) + Me.GroupBox2.Controls.Add(Me.Button2) + Me.GroupBox2.Controls.Add(Me.tb_ren_right) + Me.GroupBox2.Controls.Add(Me.Label7) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.tb_ren_left) + Me.GroupBox2.Location = New System.Drawing.Point(8, 121) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(679, 133) + Me.GroupBox2.TabIndex = 1 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "붙이기(파일명의 왼쪽 또는 오른쪽에 특정 문자를 붙입니다)" + ' + 'lb_newfilename + ' + Me.lb_newfilename.AutoSize = True + Me.lb_newfilename.ForeColor = System.Drawing.Color.SeaGreen + Me.lb_newfilename.Location = New System.Drawing.Point(11, 74) + Me.lb_newfilename.Name = "lb_newfilename" + Me.lb_newfilename.Size = New System.Drawing.Size(177, 12) + Me.lb_newfilename.TabIndex = 9 + Me.lb_newfilename.Text = "* 새로운 파일명 : testfilename1" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(444, 29) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(73, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "를 붙입니다." + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.Firebrick + Me.Label10.Location = New System.Drawing.Point(11, 54) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(194, 12) + Me.Label10.TabIndex = 8 + Me.Label10.Text = "* 예 ) 원본파일명 : testfilename1" + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button2.Image = Global.EpoleNet.My.Resources.Resources.new_321 + Me.Button2.Location = New System.Drawing.Point(589, 25) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 59) + Me.Button2.TabIndex = 8 + Me.Button2.Text = "실행" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button2.UseVisualStyleBackColor = True + ' + 'tb_ren_right + ' + Me.tb_ren_right.BackColor = System.Drawing.Color.Linen + Me.tb_ren_right.Location = New System.Drawing.Point(336, 25) + Me.tb_ren_right.Name = "tb_ren_right" + Me.tb_ren_right.Size = New System.Drawing.Size(100, 21) + Me.tb_ren_right.TabIndex = 11 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(219, 29) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(113, 12) + Me.Label7.TabIndex = 10 + Me.Label7.Text = "를 붙이고, 오른쪽에" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 29) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(93, 12) + Me.Label8.TabIndex = 8 + Me.Label8.Text = "파일명의 왼쪽에" + ' + 'tb_ren_left + ' + Me.tb_ren_left.Location = New System.Drawing.Point(110, 25) + Me.tb_ren_left.Name = "tb_ren_left" + Me.tb_ren_left.Size = New System.Drawing.Size(100, 21) + Me.tb_ren_left.TabIndex = 9 + ' + 'GroupBox1 + ' + Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Controls.Add(Me.Label5) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.tb_chg2) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.tb_chg1) + Me.GroupBox1.Controls.Add(Me.Label1) + Me.GroupBox1.Location = New System.Drawing.Point(8, 15) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(679, 100) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "치환(파일명중 일부를 지정된 문자로 변경합니다)" + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.Image = Global.EpoleNet.My.Resources.Resources.new_321 + Me.Button1.Location = New System.Drawing.Point(589, 24) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 59) + Me.Button1.TabIndex = 7 + Me.Button1.Text = "실행" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button1.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.Color.Firebrick + Me.Label5.Location = New System.Drawing.Point(19, 75) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(409, 12) + Me.Label5.TabIndex = 6 + Me.Label5.Text = "* 여러대상을 포함하려면 각 대상을 / 로 묶어주세요. (예: _01/_02/_03 )" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.Color.Firebrick + Me.Label4.Location = New System.Drawing.Point(19, 55) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(415, 12) + Me.Label4.TabIndex = 5 + Me.Label4.Text = "* 일부문자를 제거하려면 두번재 입력하는곳에 아무것도 입력하지 마십시요." + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(425, 28) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(85, 12) + Me.Label3.TabIndex = 4 + Me.Label3.Text = "로 변경합니다." + ' + 'tb_chg2 + ' + Me.tb_chg2.BackColor = System.Drawing.Color.Linen + Me.tb_chg2.Location = New System.Drawing.Point(317, 24) + Me.tb_chg2.Name = "tb_chg2" + Me.tb_chg2.Size = New System.Drawing.Size(100, 21) + Me.tb_chg2.TabIndex = 3 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(200, 28) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(109, 12) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "가 들어있는 부분을" + ' + 'tb_chg1 + ' + Me.tb_chg1.Location = New System.Drawing.Point(91, 24) + Me.tb_chg1.Name = "tb_chg1" + Me.tb_chg1.Size = New System.Drawing.Size(100, 21) + Me.tb_chg1.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(21, 28) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(53, 12) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "파일명중" + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox3) + 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(696, 340) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "파일 삭제" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox4 + ' + Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox4.Controls.Add(Me.tn_endrng) + Me.GroupBox4.Controls.Add(Me.Label11) + Me.GroupBox4.Controls.Add(Me.tb_sttrng) + Me.GroupBox4.Controls.Add(Me.tb_ref6) + Me.GroupBox4.Controls.Add(Me.tb_ref5) + Me.GroupBox4.Controls.Add(Me.tb_ref4) + Me.GroupBox4.Controls.Add(Me.tb_ref3) + Me.GroupBox4.Controls.Add(Me.tb_ref2) + Me.GroupBox4.Controls.Add(Me.MyFpoint2) + Me.GroupBox4.Controls.Add(Me.Label17) + Me.GroupBox4.Controls.Add(Me.tb_ref1) + Me.GroupBox4.Controls.Add(Me.Button5) + Me.GroupBox4.Controls.Add(Me.Button4) + Me.GroupBox4.Location = New System.Drawing.Point(6, 113) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(679, 221) + Me.GroupBox4.TabIndex = 8 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "목록삭제(삭제할 파일목록을 참조합니다)" + ' + 'tn_endrng + ' + Me.tn_endrng.BackColor = System.Drawing.Color.LightGreen + Me.tn_endrng.Location = New System.Drawing.Point(612, 195) + Me.tn_endrng.Name = "tn_endrng" + Me.tn_endrng.Size = New System.Drawing.Size(40, 21) + Me.tn_endrng.TabIndex = 28 + Me.tn_endrng.Text = "0" + Me.tn_endrng.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(530, 202) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(29, 12) + Me.Label11.TabIndex = 26 + Me.Label11.Text = "범위" + ' + 'tb_sttrng + ' + Me.tb_sttrng.BackColor = System.Drawing.Color.LightGreen + Me.tb_sttrng.Location = New System.Drawing.Point(566, 195) + Me.tb_sttrng.Name = "tb_sttrng" + Me.tb_sttrng.Size = New System.Drawing.Size(40, 21) + Me.tb_sttrng.TabIndex = 27 + Me.tb_sttrng.Text = "1" + Me.tb_sttrng.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_ref6 + ' + Me.tb_ref6.Location = New System.Drawing.Point(419, 195) + Me.tb_ref6.Name = "tb_ref6" + Me.tb_ref6.Size = New System.Drawing.Size(61, 21) + Me.tb_ref6.TabIndex = 25 + Me.tb_ref6.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_ref5 + ' + Me.tb_ref5.Location = New System.Drawing.Point(352, 195) + Me.tb_ref5.Name = "tb_ref5" + Me.tb_ref5.Size = New System.Drawing.Size(61, 21) + Me.tb_ref5.TabIndex = 24 + Me.tb_ref5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_ref4 + ' + Me.tb_ref4.Location = New System.Drawing.Point(285, 195) + Me.tb_ref4.Name = "tb_ref4" + Me.tb_ref4.Size = New System.Drawing.Size(61, 21) + Me.tb_ref4.TabIndex = 23 + Me.tb_ref4.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_ref3 + ' + Me.tb_ref3.Location = New System.Drawing.Point(218, 194) + Me.tb_ref3.Name = "tb_ref3" + Me.tb_ref3.Size = New System.Drawing.Size(61, 21) + Me.tb_ref3.TabIndex = 22 + Me.tb_ref3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_ref2 + ' + Me.tb_ref2.Location = New System.Drawing.Point(151, 194) + Me.tb_ref2.Name = "tb_ref2" + Me.tb_ref2.Size = New System.Drawing.Size(61, 21) + Me.tb_ref2.TabIndex = 21 + Me.tb_ref2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'MyFpoint2 + ' + Me.MyFpoint2.AAutoAddrowInLast = Nothing + Me.MyFpoint2.AccessibleDescription = "MyFpoint2, Sheet1, Row 0, Column 0, " + Me.MyFpoint2.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.MyFpoint2.BackColor = System.Drawing.Color.Transparent + Me.MyFpoint2.CurrentDel = False + Me.MyFpoint2.DeleteKey = False + Me.MyFpoint2.EditFromSpace = True + Me.MyFpoint2.FIRST_FOCUSINDEX = 0 + Me.MyFpoint2.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint2.Location = New System.Drawing.Point(6, 20) + Me.MyFpoint2.Name = "MyFpoint2" + Me.MyFpoint2.NextRow_Index = -1 + Me.MyFpoint2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.MyFpoint2.SameRowheight = True + Me.MyFpoint2.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.MyFpoint2_Sheet1}) + Me.MyFpoint2.Size = New System.Drawing.Size(577, 168) + Me.MyFpoint2.TabIndex = 20 + Me.MyFpoint2.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint2.선택줄번호 = CType(-1, Short) + ' + 'MyFpoint2_Sheet1 + ' + Me.MyFpoint2_Sheet1.Reset() + Me.MyFpoint2_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.MyFpoint2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.MyFpoint2_Sheet1.ColumnCount = 3 + Me.MyFpoint2_Sheet1.RowCount = 0 + Me.MyFpoint2_Sheet1.ActiveRowIndex = -1 + Me.MyFpoint2_Sheet1.AllowNoteEdit = True + Me.MyFpoint2_Sheet1.ColumnHeader.Cells.Get(0, 0).ColumnSpan = 3 + Me.MyFpoint2_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "파일을 불러오세요" + Me.MyFpoint2_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.MyFpoint2_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.MyFpoint2.SetActiveViewport(0, -1, 0) + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(8, 199) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(69, 12) + Me.Label17.TabIndex = 14 + Me.Label17.Text = "파일명 조합" + ' + 'tb_ref1 + ' + Me.tb_ref1.Location = New System.Drawing.Point(84, 194) + Me.tb_ref1.Name = "tb_ref1" + Me.tb_ref1.Size = New System.Drawing.Size(61, 21) + Me.tb_ref1.TabIndex = 15 + Me.tb_ref1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Button5 + ' + Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button5.Location = New System.Drawing.Point(589, 20) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(75, 87) + Me.Button5.TabIndex = 8 + Me.Button5.Text = "불러오기" + Me.ToolTip1.SetToolTip(Me.Button5, "삭제될 파일목록을 가진 엑셀파일을 불러옵니다") + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button4.Image = Global.EpoleNet.My.Resources.Resources.new_321 + Me.Button4.Location = New System.Drawing.Point(589, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(75, 59) + Me.Button4.TabIndex = 7 + Me.Button4.Text = "실행" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button4.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox3.Controls.Add(Me.Button3) + Me.GroupBox3.Controls.Add(Me.Label9) + Me.GroupBox3.Controls.Add(Me.Label13) + Me.GroupBox3.Controls.Add(Me.tb_del1) + Me.GroupBox3.Controls.Add(Me.Label14) + Me.GroupBox3.Location = New System.Drawing.Point(6, 7) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(679, 100) + Me.GroupBox3.TabIndex = 1 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "유사단어삭제(지정된 문자가 포함된 파일을 삭제합니다)" + ' + 'Button3 + ' + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button3.Image = Global.EpoleNet.My.Resources.Resources.new_321 + Me.Button3.Location = New System.Drawing.Point(589, 24) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 59) + Me.Button3.TabIndex = 7 + Me.Button3.Text = "실행" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button3.UseVisualStyleBackColor = True + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.ForeColor = System.Drawing.Color.Firebrick + Me.Label9.Location = New System.Drawing.Point(21, 67) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(409, 12) + Me.Label9.TabIndex = 6 + Me.Label9.Text = "* 여러대상을 포함하려면 각 대상을 / 로 묶어주세요. (예: _01/_02/_03 )" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(200, 28) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(173, 12) + Me.Label13.TabIndex = 2 + Me.Label13.Text = "가 들어있는 파일을 삭제합니다" + ' + 'tb_del1 + ' + Me.tb_del1.Location = New System.Drawing.Point(91, 24) + Me.tb_del1.Name = "tb_del1" + Me.tb_del1.Size = New System.Drawing.Size(100, 21) + Me.tb_del1.TabIndex = 1 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(21, 28) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(53, 12) + Me.Label14.TabIndex = 0 + Me.Label14.Text = "파일명중" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_picselect, Me.ToolStripLabel2, Me.cmb_picEXT, Me.ToolStripSeparator3, Me.CHK_SUBDIR, Me.ToolStripSeparator1, Me.bt_exit}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(932, 39) + Me.ToolStrip1.TabIndex = 8 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_picselect + ' + Me.bt_picselect.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.bt_picselect.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_picselect.Name = "bt_picselect" + Me.bt_picselect.Size = New System.Drawing.Size(115, 36) + Me.bt_picselect.Text = "그림폴더선택" + Me.bt_picselect.ToolTipText = "그림파일이 존재하는 폴더를 선택합니다" + Me.bt_picselect.Visible = False + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(55, 36) + Me.ToolStripLabel2.Text = "그림종류" + ' + 'cmb_picEXT + ' + Me.cmb_picEXT.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_picEXT.Items.AddRange(New Object() {"JPG", "PNG", "GIF", "BMP"}) + Me.cmb_picEXT.Name = "cmb_picEXT" + Me.cmb_picEXT.Size = New System.Drawing.Size(75, 39) + Me.cmb_picEXT.ToolTipText = "그림파일의 종류를 선택합니다" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'CHK_SUBDIR + ' + Me.CHK_SUBDIR.Checked = True + Me.CHK_SUBDIR.CheckOnClick = True + Me.CHK_SUBDIR.CheckState = System.Windows.Forms.CheckState.Checked + Me.CHK_SUBDIR.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.CHK_SUBDIR.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.CHK_SUBDIR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CHK_SUBDIR.Name = "CHK_SUBDIR" + Me.CHK_SUBDIR.Size = New System.Drawing.Size(151, 36) + Me.CHK_SUBDIR.Text = "실행시 하위폴더 참조" + Me.CHK_SUBDIR.ToolTipText = "파일목록을 검색할때. 하위폴더의 파일까지 검색합니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'bt_exit + ' + Me.bt_exit.Checked = True + Me.bt_exit.CheckState = System.Windows.Forms.CheckState.Checked + Me.bt_exit.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bt_exit.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.bt_exit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_exit.Name = "bt_exit" + Me.bt_exit.Size = New System.Drawing.Size(83, 36) + Me.bt_exit.Text = "닫기(&X)" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.pbar1, Me.lb_change, Me.lb_msg, Me.lb_total}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 608) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(932, 26) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'pbar1 + ' + Me.pbar1.Name = "pbar1" + Me.pbar1.Size = New System.Drawing.Size(100, 20) + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(26, 21) + Me.lb_change.Text = "ㅁ" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(42, 21) + Me.lb_msg.Text = "알림" + ' + 'lb_total + ' + Me.lb_total.Name = "lb_total" + Me.lb_total.Size = New System.Drawing.Size(42, 21) + Me.lb_total.Text = "알림" + ' + 'MyFpoint1 + ' + Me.MyFpoint1.AAutoAddrowInLast = Nothing + Me.MyFpoint1.AccessibleDescription = "MyFpoint1, Sheet1" + Me.MyFpoint1.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.MyFpoint1.BackColor = System.Drawing.SystemColors.Control + Me.MyFpoint1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.MyFpoint1.CurrentDel = False + Me.MyFpoint1.DeleteKey = False + Me.MyFpoint1.EditFromSpace = True + Me.MyFpoint1.FIRST_FOCUSINDEX = 0 + Me.MyFpoint1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint1.Location = New System.Drawing.Point(0, 414) + Me.MyFpoint1.Name = "MyFpoint1" + Me.MyFpoint1.NextRow_Index = -1 + Me.MyFpoint1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.MyFpoint1.SameRowheight = True + Me.MyFpoint1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.MyFpoint1_Sheet1}) + Me.MyFpoint1.Size = New System.Drawing.Size(704, 191) + Me.MyFpoint1.TabIndex = 10 + Me.MyFpoint1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint1.선택줄번호 = CType(-1, Short) + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_out, Me.cm_clear}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(135, 48) + ' + 'cm_out + ' + Me.cm_out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_out_all, Me.cb_out_filter}) + Me.cm_out.Name = "cm_out" + Me.cm_out.Size = New System.Drawing.Size(134, 22) + Me.cm_out.Text = "내보내기" + ' + 'cm_out_all + ' + Me.cm_out_all.Name = "cm_out_all" + Me.cm_out_all.Size = New System.Drawing.Size(98, 22) + Me.cm_out_all.Text = "전체" + ' + 'cb_out_filter + ' + Me.cb_out_filter.Name = "cb_out_filter" + Me.cb_out_filter.Size = New System.Drawing.Size(98, 22) + Me.cb_out_filter.Text = "현재" + ' + 'cm_clear + ' + Me.cm_clear.Name = "cm_clear" + Me.cm_clear.Size = New System.Drawing.Size(134, 22) + Me.cm_clear.Text = "목록지우기" + ' + 'MyFpoint1_Sheet1 + ' + Me.MyFpoint1_Sheet1.Reset() + Me.MyFpoint1_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.MyFpoint1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.MyFpoint1_Sheet1.ColumnCount = 3 + Me.MyFpoint1_Sheet1.RowCount = 0 + Me.MyFpoint1_Sheet1.ActiveRowIndex = -1 + Me.MyFpoint1_Sheet1.AllowNoteEdit = True + Me.MyFpoint1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "원본" + Me.MyFpoint1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "대상" + Me.MyFpoint1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "메모" + Me.MyFpoint1_Sheet1.Columns.Get(0).Label = "원본" + Me.MyFpoint1_Sheet1.Columns.Get(0).Width = 111.0! + Me.MyFpoint1_Sheet1.Columns.Get(1).Label = "대상" + Me.MyFpoint1_Sheet1.Columns.Get(1).Width = 111.0! + Me.MyFpoint1_Sheet1.Columns.Get(2).Label = "메모" + Me.MyFpoint1_Sheet1.Columns.Get(2).Width = 355.0! + Me.MyFpoint1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.MyFpoint1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.MyFpoint1.SetActiveViewport(0, -1, 0) + ' + 'DirListBox1 + ' + Me.DirListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DirListBox1.FormattingEnabled = True + Me.DirListBox1.IntegralHeight = False + Me.DirListBox1.Location = New System.Drawing.Point(710, 64) + Me.DirListBox1.Name = "DirListBox1" + Me.DirListBox1.Size = New System.Drawing.Size(210, 513) + Me.DirListBox1.TabIndex = 13 + ' + 'DriveListBox1 + ' + Me.DriveListBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.DriveListBox1.FormattingEnabled = True + Me.DriveListBox1.Location = New System.Drawing.Point(710, 583) + Me.DriveListBox1.Name = "DriveListBox1" + Me.DriveListBox1.Size = New System.Drawing.Size(210, 22) + Me.DriveListBox1.TabIndex = 14 + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'FileManager + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(932, 634) + Me.Controls.Add(Me.DriveListBox1) + Me.Controls.Add(Me.DirListBox1) + Me.Controls.Add(Me.MyFpoint1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TabControl1) + Me.Name = "FileManager" + Me.Text = "그림파일 관리" + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + CType(Me.MyFpoint2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyFpoint2_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.MyFpoint1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + 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 ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents bt_picselect As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_picEXT As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CHK_SUBDIR As System.Windows.Forms.ToolStripButton + 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 lb_total As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents MyFpoint1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents MyFpoint1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cm_out_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_out_filter As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cm_clear As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tb_chg2 As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_chg1 As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents tb_ren_right As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents tb_ren_left As System.Windows.Forms.TextBox + Friend WithEvents lb_newfilename As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_exit As System.Windows.Forms.ToolStripButton + Friend WithEvents DirListBox1 As Microsoft.VisualBasic.Compatibility.VB6.DirListBox + Friend WithEvents DriveListBox1 As Microsoft.VisualBasic.Compatibility.VB6.DriveListBox + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents tb_del1 As System.Windows.Forms.TextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents tb_ref1 As System.Windows.Forms.TextBox + Friend WithEvents MyFpoint2 As MyControlOLEDBv2.MyFpoint + Friend WithEvents MyFpoint2_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents tb_ref6 As System.Windows.Forms.TextBox + Friend WithEvents tb_ref5 As System.Windows.Forms.TextBox + Friend WithEvents tb_ref4 As System.Windows.Forms.TextBox + Friend WithEvents tb_ref3 As System.Windows.Forms.TextBox + Friend WithEvents tb_ref2 As System.Windows.Forms.TextBox + Friend WithEvents pbar1 As System.Windows.Forms.ToolStripProgressBar + Friend WithEvents tn_endrng As System.Windows.Forms.TextBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_sttrng As System.Windows.Forms.TextBox +End Class diff --git a/Epole/입력폼/FileManager.resx b/Epole/입력폼/FileManager.resx new file mode 100644 index 0000000..8ec0eb4 --- /dev/null +++ b/Epole/입력폼/FileManager.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 830, 17 + + + 730, 17 + + + 17, 17 + + + 286, 17 + + + 126, 17 + + + 404, 17 + + \ No newline at end of file diff --git a/Epole/입력폼/FileManager.vb b/Epole/입력폼/FileManager.vb new file mode 100644 index 0000000..93b0ed0 --- /dev/null +++ b/Epole/입력폼/FileManager.vb @@ -0,0 +1,372 @@ +Public Class FileManager + + Private Sub FileManager_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.SAVE_Setting() + End Sub + Private Sub FileManager_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.LOAD_Setting() + + End Sub + Private Sub 목록지우기ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_clear.Click + Me.MyFpoint1.ActiveSheet.RowCount = 0 + End Sub + + Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_ren_left.TextChanged, tb_ren_right.TextChanged + Me.lb_newfilename.Text = "* 새로운 파일명 : " & Me.tb_ren_left.Text & "testfilename1" & Me.tb_ren_right.Text + End Sub + + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + If Me.tb_ren_left.Text = "" AndAlso Me.tb_ren_right.Text = "" Then + NOTICE("아무것도 입력되어있지 않습니다", Color.Tomato, Me.lb_msg) + Me.tb_ren_left.Focus() + Return + End If + Dim TG As New System.IO.DirectoryInfo(DirListBox1.Path) + If Not TG.Exists Then + MsgBox("그림폴더가 존재하지 않습니다" & vbCrLf & vbCrLf & "그림폳더를 지정해주세요", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Msg As New System.Text.StringBuilder("폴더 : " & DirListBox1.Path) + Msg.AppendLine() + If Me.CHK_SUBDIR.Checked Then + Msg.AppendLine("아래의 모든파일과 하위폴더의") + Else + Msg.AppendLine("아래의 모든파일의") + End If + + Msg.AppendLine("그림파일에대한 붙이기 작업을 실행하시겠습니까?") + If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + NOTICE("취소되었습니다", Color.Tomato, Me.lb_msg) + Return + End If + + Me.MyFpoint1.ActiveSheet.RowCount = 0 + + '//현재폴더로부터 하위폴더(옵션) + Dim NEwName As String = "" + For Each TF As System.IO.FileInfo In TG.GetFiles("*." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + NEwName = Me.tb_ren_left.Text & TF.Name.Substring(0, TF.Name.LastIndexOf(".")) & Me.tb_ren_right.Text & "." & Me.cmb_picEXT.Text + TF.MoveTo(TF.DirectoryName & "\" & NEwName) + ADdLog(TF.Name, NEwName, TF.DirectoryName) + Next + End Sub + + Private Sub ADdLog(ByVal src As String, ByVal target As String, ByVal memo As String) + With Me.MyFpoint1.ActiveSheet + .RowCount += 1 '//행증가 + .Cells(.RowCount - 1, 0).Text = src + .Cells(.RowCount - 1, 1).Text = target + .Cells(.RowCount - 1, 2).Text = memo + End With + End Sub + + + Private Sub bt_picselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_picselect.Click + Dim A As New FolderBrowserDialog + A.RootFolder = Environment.SpecialFolder.MyComputer + A.SelectedPath = DirListBox1.Path + If A.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + MsgBox("선택이 취소되었습니다", MsgBoxStyle.Critical, "확인") + Return + End If + DirListBox1.Path = A.SelectedPath + End Sub + + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.MyFpoint1.ActiveSheet.RowCount = 0 Then + Me.cm_out.Enabled = False + Else + Me.cm_out.Enabled = True + End If + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '//이름치환 + If Me.tb_chg1.Text = "" AndAlso Me.tb_chg2.Text = "" Then + NOTICE("아무것도 입력되어있지 않습니다", Color.Tomato, Me.lb_msg) + Me.tb_chg1.Focus() + Return + End If + + Dim TG As New System.IO.DirectoryInfo(DirListBox1.Path) + If Not TG.Exists Then + MsgBox("그림폴더가 존재하지 않습니다" & vbCrLf & vbCrLf & "그림폳더를 지정해주세요", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Msg As New System.Text.StringBuilder("폴더 : " & DirListBox1.Path) + Msg.AppendLine() + If Me.CHK_SUBDIR.Checked Then + Msg.AppendLine("아래의 모든파일과 하위폴더의") + Else + Msg.AppendLine("아래의 모든파일의") + End If + + Msg.AppendLine("그림파일에대한 치환 작업을 실행하시겠습니까?") + If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + NOTICE("취소되었습니다", Color.Tomato, Me.lb_msg) + Return + End If + + Me.MyFpoint1.ActiveSheet.RowCount = 0 + + '//현재폴더로부터 하위폴더(옵션) - 파일명 자르기를 수행한다. + Dim NEwName As String = "" + + For Each TF As System.IO.FileInfo In TG.GetFiles("*." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + NEwName = TF.Name.Substring(0, TF.Name.LastIndexOf(".")) + For Each SI As String In Me.tb_chg1.Text.Split("/") + NEwName = NEwName.Replace(SI, Me.tb_chg2.Text) + Next + ADdLog(TF.Name, NEwName & "." & Me.cmb_picEXT.Text, TF.DirectoryName) + TF.MoveTo(TF.DirectoryName & "\" & NEwName & "." & Me.cmb_picEXT.Text) + Next + MsgBox(Me.MyFpoint1_Sheet1.RowCount & "개의 파일작업을 수행했습니다", MsgBoxStyle.Information, "확인") + End Sub + +#Region "설정저장/불러오기 : Load 와 Closing 에서 발생" + Private Sub LOAD_Setting() + Dim A As New MyINI2(MyPath.Current & "\setting.ini") + Try + 'dirlistbox1.path = A.Read("picmanager", "DefaultPicDir", "c:\windows").Trim(Chr(0)) + Me.DirListBox1.Path = A.Read("picmanager", "DefaultPicDir", "c:\windows").Trim(Chr(0)) + 'Me.cmb_PICTYPE.SelectedIndex = A.Read("pic", "pictype", 3) + Me.cmb_picEXT.SelectedIndex = A.Read("picmanager", "picext", 1) + Me.CHK_SUBDIR.Checked = A.Read("picmanager", "subdir", True) + Catch ex As Exception + DirListBox1.Path = vbNullString + Me.cmb_picEXT.SelectedIndex = 3 + 'Me.cmb_PICTYPE.SelectedIndex = 1 + Me.CHK_SUBDIR.Checked = True + End Try + A = Nothing + End Sub + Private Sub SAVE_Setting() + Dim A As New MyINI2(MyPath.Current & "\setting.ini") + + Try + A.Write("picmanager", "DefaultPicDir", Me.DirListBox1.Path) + 'A.Write("pic", "pictype", Me.cmb_PICTYPE.SelectedIndex) + A.Write("picmanager", "picext", Me.cmb_picEXT.SelectedIndex) + A.Write("picmanager", "subdir", Me.CHK_SUBDIR.Checked) + Catch ex As Exception + + End Try + A = Nothing + End Sub +#End Region + + + Private Sub bt_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_exit.Click '//닫기 + Me.Close() + End Sub + + Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged + Me.DirListBox1.Path = Me.DriveListBox1.Items(Me.DriveListBox1.SelectedIndex).ToString + End Sub + + Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '//파일삭제 + '//tb_del1.text 에 들어있는 아이템을 가지고 파일을 삭제한다. + If Me.tb_del1.Text = "" AndAlso Me.tb_del1.Text = "" Then + NOTICE("아무것도 입력되어있지 않습니다", Color.Tomato, Me.lb_msg) + Me.tb_del1.Focus() + Return + End If + + Dim TG As New System.IO.DirectoryInfo(DirListBox1.Path) + If Not TG.Exists Then + MsgBox("그림폴더가 존재하지 않습니다" & vbCrLf & vbCrLf & "그림폳더를 지정해주세요", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Msg As New System.Text.StringBuilder("폴더 : " & DirListBox1.Path) + Msg.AppendLine() + If Me.CHK_SUBDIR.Checked Then + Msg.AppendLine("아래의 모든파일과 하위폴더의") + Else + Msg.AppendLine("아래의 모든파일의") + End If + + Msg.AppendLine("그림파일에대한 삭제 작업을 실행하시겠습니까?") + If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + NOTICE("취소되었습니다", Color.Tomato, Me.lb_msg) + Return + End If + + Me.MyFpoint1.ActiveSheet.RowCount = 0 + + '//현재폴더로부터 하위폴더(옵션) - 파일명 자르기를 수행한다. + Dim NEwName As String = "" + + For Each TF As System.IO.FileInfo In TG.GetFiles("*." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + NEwName = TF.Name.Substring(0, TF.Name.LastIndexOf(".")) + For Each SI As String In Me.tb_del1.Text.Split("/") + 'MsgBox(NEwName.IndexOf(SI)) + If NEwName.IndexOf(SI) >= 0 Then '//존재하는경우다 이럴경우는 삭제를 해버린다. + ADdLog(TF.Name, "", "[삭제대상]") + TF.MoveTo(TF.DirectoryName & "\[삭제대상]" & TF.Name) + Exit For + End If + Next + Next + + MsgBox(Me.MyFpoint1_Sheet1.RowCount & "개의 파일작업을 수행했습니다" & vbCrLf & vbCrLf & "잠시후 대상폴더가 열립니다", MsgBoxStyle.Information, "확인") + Process.Start("explorer.exe", Me.DirListBox1.Path) + End Sub + + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + Dim OD As New OpenFileDialog + 'Dim Aranini As New MyINI2(IniFile) + 'OD.FileName = Me.lb_file.Text + OD.Filter = "MS Office Excel WorkSheet(*.xls)|*.xls" + OD.FilterIndex = 1 + ' OD.RestoreDirectory = True + If OD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + NOTICE("불러오기가 취소되었습니다", Me.lb_msg) + Else + 'Aranini.Write("normal", "file", OD.FileName) + 'Me.lb_file.Text = OD.FileName + ReadXls(OD.FileName) + End If + End Sub + + Private Sub ReadXls(ByVal Filename As String) '//Read xls File + Me.MyFpoint2.OpenExcel(Filename) + For Each Cl As FarPoint.Win.Spread.Column In Me.MyFpoint2.ActiveSheet.Columns '//Set columns label + Cl.Label = Cl.Index + 1 + Next + '//연속 5개의 공백이 보이면 카운트를 종료한다. + Dim 공백 As Int16 = 0 + For Each Row As FarPoint.Win.Spread.Row In Me.MyFpoint2.ActiveSheet.Rows + If Me.MyFpoint2.ActiveSheet.Cells(Row.Index, 0).Text = "" Then 공백 += 1 + If 공백 >= 5 Then + Me.MyFpoint2.ActiveSheet.RowCount = Row.Index + 1 - 3 + Exit For + End If + Next + End Sub + + Private Sub tb_ref1__TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_ref1.TextChanged, tb_ref2.TextChanged, tb_ref3.TextChanged, tb_ref4.TextChanged, tb_ref5.TextChanged, tb_ref6.TextChanged + Dim A As TextBox = CType(sender, TextBox) + If A.Text.Length <= 0 Then Exit Sub + Select Case A.Text.Substring(0, 1) + Case "#" ''//값을 직접 입력했을때다. + A.BackColor = Color.SteelBlue + Case Else + If IsNumeric(A.Text) Then + A.BackColor = Color.White + Else + A.BackColor = Color.Tomato + End If + End Select + + End Sub + + Private Function CheckCtrl(ByVal Obj As TextBox) As Boolean + If Obj.Text <> "" AndAlso Obj.Text.Substring(0, 1) <> "#" AndAlso Not IsNumeric(Obj.Text) Then '//참조1의 시작값이 #라면(직접입력) + MsgBox("입력값에 문제가 있습니다." & vbCrLf & "값의 직접입력은 먼저 # 를 입력후에 입력하세요" & vbCrLf & "예) _01을 입력할시 #_01" & vbCrLf & "그외는 숫자(열번호)만 가능합니다", MsgBoxStyle.Critical, "확인") + Obj.Focus() + Return False + End If + Return True + End Function + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + '//tB_ref1~6 에의한 파일명 조합이다. 조합후 동일한 파일을 삭제한다. + If Me.tb_ref1.Text = "" AndAlso Me.tb_ref2.Text = "" AndAlso Me.tb_ref3.Text = "" AndAlso Me.tb_ref4.Text = "" AndAlso Me.tb_ref5.Text = "" AndAlso Me.tb_ref6.Text = "" Then + NOTICE("아무것도 입력되어있지 않습니다", Color.Tomato, Me.lb_msg) + Me.tb_ref1.Focus() + Return + End If + + Dim TG As New System.IO.DirectoryInfo(DirListBox1.Path) + If Not TG.Exists Then + MsgBox("그림폴더가 존재하지 않습니다" & vbCrLf & vbCrLf & "그림폳더를 지정해주세요", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim Msg As New System.Text.StringBuilder("폴더 : " & DirListBox1.Path) + Msg.AppendLine() + If Me.CHK_SUBDIR.Checked Then + Msg.AppendLine("아래의 모든파일과 하위폴더의") + Else + Msg.AppendLine("아래의 모든파일의") + End If + + Msg.AppendLine("그림파일에대한 삭제 작업을 실행하시겠습니까?") + If MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then + NOTICE("취소되었습니다", Color.Tomato, Me.lb_msg) + Return + End If + + If Not CheckCtrl(Me.tb_ref1) Then Return '//컨트롤들의 셋티잉 올바른가? + If Not CheckCtrl(Me.tb_ref2) Then Return + If Not CheckCtrl(Me.tb_ref3) Then Return + If Not CheckCtrl(Me.tb_ref4) Then Return + If Not CheckCtrl(Me.tb_ref5) Then Return + If Not CheckCtrl(Me.tb_ref6) Then Return + + + '----------------------Main start ---------------------- + Me.MyFpoint1.ActiveSheet.RowCount = 0 '//로그내역을삭제한다. + Dim NEwName As String = "" '//현재폴더로부터 하위폴더(옵션) - 파일명 자르기를 수행한다. + + '//목록으로부터이니 모든 목록을 돈다. + Dim R1, R2, R3, R4, R5, R6 As String + Dim Fname As String + + Me.pbar1.Minimum = 0 + Me.pbar1.Value = 0 + Me.pbar1.Maximum = Me.MyFpoint2.ActiveSheet.RowCount + + 'ADdLog("1", "", "[start]" & TG.FullName) + + Dim SttRng, EndRng As Integer + SttRng = Me.tb_sttrng.Text + EndRng = IIf(Me.tn_endrng.Text = 0, Me.MyFpoint2.ActiveSheet.RowCount, Me.tn_endrng.Text) + + For Each Row As FarPoint.Win.Spread.Row In Me.MyFpoint2.ActiveSheet.Rows + If Row.Index >= SttRng AndAlso Row.Index <= EndRng Then '//검색범위에 해당하는것만 + 'MsgBox("!!") + Me.pbar1.Value = Row.Index + 'ADdLog(Row.Index, "", "[확인중]" & TG.FullName) + R1 = Me.GetFPData(Me.tb_ref1, Row) + R2 = Me.GetFPData(Me.tb_ref2, Row) + R3 = Me.GetFPData(Me.tb_ref3, Row) + R4 = Me.GetFPData(Me.tb_ref4, Row) + R5 = Me.GetFPData(Me.tb_ref5, Row) + R6 = Me.GetFPData(Me.tb_ref6, Row) + Fname = R1 & R2 & R3 & R4 & R5 & R6 & "." & Me.cmb_picEXT.Text '//파일명 완성 ; 이제 찾아서 해당파일명만 바꺼주면된다. + If Fname.Trim <> "" Then + 'ADdLog(Fname, "", "[확인중]" & TG.FullName) + For Each TF As System.IO.FileInfo In TG.GetFiles(Fname, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + ADdLog(Fname, TF.Name, "[삭제대상]") + TF.MoveTo(TF.DirectoryName & "\[삭제대상]" & TF.Name) + Next + Else + ADdLog(Fname, "", "[조합된 값이 없음]") + End If + End If + Next + MsgBox(Me.MyFpoint1_Sheet1.RowCount & "개의 파일작업을 수행했습니다" & vbCrLf & vbCrLf & "잠시후 대상폴더가 열립니다", MsgBoxStyle.Information, "확인") + Process.Start("explorer.exe", Me.DirListBox1.Path) + End Sub + + + + Private Function GetFPData(ByVal sender As TextBox, ByVal Drow As FarPoint.Win.Spread.Row) As String + '//만약 날짜포맷이면 FORMAT 을 지정해서 사용한다" + + Dim SUbidx As Integer + + If sender.Text = "" Then '//즉 없다는뜻이다. + Return "" + ElseIf sender.Text.Substring(0, 1) = "#" Then + Return sender.Text.Substring(1) + Else '//있다. + SUbidx = sender.Text + Return Me.MyFpoint2.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text + End If + End Function +End Class \ No newline at end of file diff --git a/Epole/입력폼/Frm_Log.Designer.vb b/Epole/입력폼/Frm_Log.Designer.vb new file mode 100644 index 0000000..eef9ff3 --- /dev/null +++ b/Epole/입력폼/Frm_Log.Designer.vb @@ -0,0 +1,50 @@ + _ +Partial Class Frm_Log + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 diff --git a/Epole/입력폼/Frm_Log.resx b/Epole/입력폼/Frm_Log.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/입력폼/Frm_Log.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/입력폼/Frm_Log.vb b/Epole/입력폼/Frm_Log.vb new file mode 100644 index 0000000..6bbe6e9 --- /dev/null +++ b/Epole/입력폼/Frm_Log.vb @@ -0,0 +1,3 @@ +Public Class Frm_Log + +End Class \ No newline at end of file diff --git a/Epole/입력폼/OldnumPicMan.Designer.vb b/Epole/입력폼/OldnumPicMan.Designer.vb new file mode 100644 index 0000000..aa0b5f3 --- /dev/null +++ b/Epole/입력폼/OldnumPicMan.Designer.vb @@ -0,0 +1,523 @@ + _ +Partial Class OldnumPicMan + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Dim TipAppearance9 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim TipAppearance10 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Me.MyFpoint1 = New MyControlOLEDBv2.MyFpoint + Me.MyFpoint1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.GroupBox1 = New System.Windows.Forms.GroupBox + Me.GroupBox2 = New System.Windows.Forms.GroupBox + Me.view_green = New MyControlOLEDBv2.MyFpoint + Me.view_green_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.pbar_modify = New System.Windows.Forms.ProgressBar + Me.pbar_onot = New System.Windows.Forms.ProgressBar + Me.pbar_total = New System.Windows.Forms.ProgressBar + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_picdirectory = New System.Windows.Forms.ToolStripStatusLabel + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_output = New System.Windows.Forms.ToolStripDropDownButton + Me.m_allouuoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.m_modfy = New System.Windows.Forms.ToolStripMenuItem + Me.m_outall = New System.Windows.Forms.ToolStripMenuItem + Me.m_outc = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.cmb_picEXT = New System.Windows.Forms.ToolStripComboBox + Me.bt_picselect = New System.Windows.Forms.ToolStripButton + Me.CHK_SUBDIR = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator + Me.chk_test = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.pbar_nnot = New System.Windows.Forms.ProgressBar + Me.pbar_same = New System.Windows.Forms.ProgressBar + Me.Label1 = New System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label + Me.Label3 = New System.Windows.Forms.Label + Me.Label4 = New System.Windows.Forms.Label + Me.pbar_nopic = New System.Windows.Forms.ProgressBar + Me.Label5 = New System.Windows.Forms.Label + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyFpoint1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.view_green, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view_green_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'MyFpoint1 + ' + Me.MyFpoint1.About = "3.0.2003.2005" + Me.MyFpoint1.AccessibleDescription = "" + Me.MyFpoint1.CurrentDel = False + Me.MyFpoint1.DeleteKey = False + Me.MyFpoint1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFpoint1.EditFromSpace = True + Me.MyFpoint1.FIRST_FOCUSINDEX = 0 + Me.MyFpoint1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint1.Location = New System.Drawing.Point(3, 17) + Me.MyFpoint1.Name = "MyFpoint1" + Me.MyFpoint1.NextRow_Index = -1 + Me.MyFpoint1.SameRowheight = True + Me.MyFpoint1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.MyFpoint1_Sheet1}) + Me.MyFpoint1.Size = New System.Drawing.Size(371, 346) + Me.MyFpoint1.TabIndex = 0 + TipAppearance9.BackColor = System.Drawing.SystemColors.Info + TipAppearance9.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance9.ForeColor = System.Drawing.SystemColors.InfoText + Me.MyFpoint1.TextTipAppearance = TipAppearance9 + Me.MyFpoint1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.MyFpoint1.선택줄번호 = CType(-1, Short) + ' + 'MyFpoint1_Sheet1 + ' + Me.MyFpoint1_Sheet1.Reset() + Me.MyFpoint1_Sheet1.SheetName = "Sheet1" + Me.MyFpoint1_Sheet1.ColumnCount = 1 + Me.MyFpoint1_Sheet1.RowCount = 0 + Me.MyFpoint1.SetActiveViewport(0, 1, 0) + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.MyFpoint1) + Me.GroupBox1.Location = New System.Drawing.Point(0, 42) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(377, 366) + Me.GroupBox1.TabIndex = 1 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "검색목록" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.view_green) + Me.GroupBox2.Location = New System.Drawing.Point(383, 206) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(564, 202) + Me.GroupBox2.TabIndex = 2 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "실행결과" + ' + 'view_green + ' + Me.view_green.About = "3.0.2003.2005" + Me.view_green.AccessibleDescription = "view_green, Sheet1" + Me.view_green.BackColor = System.Drawing.SystemColors.Control + Me.view_green.CurrentDel = False + Me.view_green.DeleteKey = False + Me.view_green.Dock = System.Windows.Forms.DockStyle.Fill + Me.view_green.EditFromSpace = True + Me.view_green.FIRST_FOCUSINDEX = 0 + Me.view_green.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view_green.Location = New System.Drawing.Point(3, 17) + Me.view_green.Name = "view_green" + Me.view_green.NextRow_Index = -1 + Me.view_green.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view_green.SameRowheight = True + Me.view_green.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view_green_Sheet1}) + Me.view_green.Size = New System.Drawing.Size(558, 182) + Me.view_green.TabIndex = 1 + TipAppearance10.BackColor = System.Drawing.SystemColors.Info + TipAppearance10.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance10.ForeColor = System.Drawing.SystemColors.InfoText + Me.view_green.TextTipAppearance = TipAppearance10 + Me.view_green.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view_green.선택줄번호 = CType(-1, Short) + ' + 'view_green_Sheet1 + ' + Me.view_green_Sheet1.Reset() + Me.view_green_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.view_green_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.view_green_Sheet1.ColumnCount = 4 + Me.view_green_Sheet1.RowCount = 0 + Me.view_green_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "줄번호" + Me.view_green_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "원본파일명" + Me.view_green_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "대상파일명" + Me.view_green_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "메모" + Me.view_green_Sheet1.Columns.Get(0).AllowAutoSort = True + Me.view_green_Sheet1.Columns.Get(0).Label = "줄번호" + Me.view_green_Sheet1.Columns.Get(1).Label = "원본파일명" + Me.view_green_Sheet1.Columns.Get(1).Width = 75.0! + Me.view_green_Sheet1.Columns.Get(2).Label = "대상파일명" + Me.view_green_Sheet1.Columns.Get(2).Width = 87.0! + Me.view_green_Sheet1.Columns.Get(3).AllowAutoFilter = True + Me.view_green_Sheet1.Columns.Get(3).Label = "메모" + Me.view_green_Sheet1.Columns.Get(3).Width = 245.0! + Me.view_green_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view_green_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view_green.SetActiveViewport(0, 1, 0) + ' + 'pbar_modify + ' + Me.pbar_modify.ForeColor = System.Drawing.Color.MidnightBlue + Me.pbar_modify.Location = New System.Drawing.Point(501, 53) + Me.pbar_modify.Name = "pbar_modify" + Me.pbar_modify.Size = New System.Drawing.Size(445, 23) + Me.pbar_modify.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_modify.TabIndex = 0 + ' + 'pbar_onot + ' + Me.pbar_onot.ForeColor = System.Drawing.Color.Crimson + Me.pbar_onot.Location = New System.Drawing.Point(501, 137) + Me.pbar_onot.Name = "pbar_onot" + Me.pbar_onot.Size = New System.Drawing.Size(445, 23) + Me.pbar_onot.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_onot.TabIndex = 0 + ' + 'pbar_total + ' + Me.pbar_total.ForeColor = System.Drawing.Color.LimeGreen + Me.pbar_total.Location = New System.Drawing.Point(0, 414) + Me.pbar_total.Name = "pbar_total" + Me.pbar_total.Size = New System.Drawing.Size(954, 23) + Me.pbar_total.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_total.TabIndex = 2 + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.lb_picdirectory}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 442) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(954, 26) + Me.StatusStrip1.TabIndex = 4 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(95, 21) + Me.ToolStripStatusLabel1.Text = "그림파일경로 ▶" + ' + 'lb_picdirectory + ' + Me.lb_picdirectory.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_picdirectory.Name = "lb_picdirectory" + Me.lb_picdirectory.Size = New System.Drawing.Size(74, 21) + Me.lb_picdirectory.Text = "그림폴더" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_output, Me.ToolStripSeparator1, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.cmb_picEXT, Me.bt_picselect, Me.CHK_SUBDIR, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.chk_test, Me.ToolStripButton1, Me.ToolStripSeparator5, Me.ToolStripButton2}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(954, 39) + Me.ToolStrip1.TabIndex = 8 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_output + ' + Me.bt_output.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.m_allouuoolStripMenuItem, Me.m_modfy}) + Me.bt_output.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.bt_output.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_output.Name = "bt_output" + Me.bt_output.Size = New System.Drawing.Size(114, 36) + Me.bt_output.Text = "내보내기(&E)" + Me.bt_output.ToolTipText = "클릭시 고속저장을 수행하며 저장중일경우에는 작업을 취소합니다" + ' + 'm_allouuoolStripMenuItem + ' + Me.m_allouuoolStripMenuItem.Name = "m_allouuoolStripMenuItem" + Me.m_allouuoolStripMenuItem.Size = New System.Drawing.Size(152, 22) + Me.m_allouuoolStripMenuItem.Text = "전체 목록" + ' + 'm_modfy + ' + Me.m_modfy.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.m_outall, Me.m_outc}) + Me.m_modfy.Name = "m_modfy" + Me.m_modfy.Size = New System.Drawing.Size(152, 22) + Me.m_modfy.Text = "실행결과" + ' + 'm_outall + ' + Me.m_outall.Name = "m_outall" + Me.m_outall.Size = New System.Drawing.Size(152, 22) + Me.m_outall.Text = "모두" + ' + 'm_outc + ' + Me.m_outc.Name = "m_outc" + Me.m_outc.Size = New System.Drawing.Size(152, 22) + Me.m_outc.Text = "현재" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(55, 36) + Me.ToolStripLabel2.Text = "그림종류" + ' + 'cmb_picEXT + ' + Me.cmb_picEXT.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_picEXT.Items.AddRange(New Object() {"JPG", "PNG", "GIF", "BMP"}) + Me.cmb_picEXT.Name = "cmb_picEXT" + Me.cmb_picEXT.Size = New System.Drawing.Size(75, 39) + Me.cmb_picEXT.ToolTipText = "그림파일의 종류를 선택합니다" + ' + 'bt_picselect + ' + Me.bt_picselect.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.bt_picselect.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_picselect.Name = "bt_picselect" + Me.bt_picselect.Size = New System.Drawing.Size(115, 36) + Me.bt_picselect.Text = "그림폴더선택" + Me.bt_picselect.ToolTipText = "그림파일이 존재하는 폴더를 선택합니다" + ' + 'CHK_SUBDIR + ' + Me.CHK_SUBDIR.Checked = True + Me.CHK_SUBDIR.CheckOnClick = True + Me.CHK_SUBDIR.CheckState = System.Windows.Forms.CheckState.Checked + Me.CHK_SUBDIR.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.CHK_SUBDIR.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.CHK_SUBDIR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CHK_SUBDIR.Name = "CHK_SUBDIR" + Me.CHK_SUBDIR.Size = New System.Drawing.Size(171, 36) + Me.CHK_SUBDIR.Text = "파일검색시 하위폴더검색" + Me.CHK_SUBDIR.ToolTipText = "파일목록을 검색할때. 하위폴더의 파일까지 검색합니다(하위목검색시 완료속도가 저하됩니다)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'chk_test + ' + Me.chk_test.Checked = True + Me.chk_test.CheckOnClick = True + Me.chk_test.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_test.ForeColor = System.Drawing.Color.Firebrick + Me.chk_test.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.chk_test.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.chk_test.ImageTransparentColor = System.Drawing.Color.Magenta + Me.chk_test.Name = "chk_test" + Me.chk_test.Size = New System.Drawing.Size(71, 36) + Me.chk_test.Text = "테스트" + Me.chk_test.ToolTipText = "체크시 검사만 수행하며 파일은 조작하지 않습니다." + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.prefs_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(67, 36) + Me.ToolStripButton1.Text = "실행" + Me.ToolStripButton1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.ToolStripButton1.ToolTipText = "검색을 실행합니다." + ' + 'pbar_nnot + ' + Me.pbar_nnot.ForeColor = System.Drawing.Color.Crimson + Me.pbar_nnot.Location = New System.Drawing.Point(501, 165) + Me.pbar_nnot.Name = "pbar_nnot" + Me.pbar_nnot.Size = New System.Drawing.Size(445, 23) + Me.pbar_nnot.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_nnot.TabIndex = 0 + ' + 'pbar_same + ' + Me.pbar_same.ForeColor = System.Drawing.Color.Crimson + Me.pbar_same.Location = New System.Drawing.Point(501, 109) + Me.pbar_same.Name = "pbar_same" + Me.pbar_same.Size = New System.Drawing.Size(445, 23) + Me.pbar_same.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_same.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.ForeColor = System.Drawing.Color.DeepPink + Me.Label1.Location = New System.Drawing.Point(411, 144) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(85, 12) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "구 데이터 없음" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.DeepPink + Me.Label2.Location = New System.Drawing.Point(411, 171) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(85, 12) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "신 데이터 없음" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(427, 63) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(69, 12) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "변경된 내역" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.Color.DeepPink + Me.Label4.Location = New System.Drawing.Point(393, 117) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(103, 12) + Me.Label4.TabIndex = 12 + Me.Label4.Text = "구/신 데이터 동일" + Me.Label4.UseWaitCursor = True + ' + 'pbar_nopic + ' + Me.pbar_nopic.ForeColor = System.Drawing.Color.Crimson + Me.pbar_nopic.Location = New System.Drawing.Point(501, 81) + Me.pbar_nopic.Name = "pbar_nopic" + Me.pbar_nopic.Size = New System.Drawing.Size(445, 23) + Me.pbar_nopic.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar_nopic.TabIndex = 13 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.Color.OrangeRed + Me.Label5.Location = New System.Drawing.Point(403, 90) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(93, 12) + Me.Label5.TabIndex = 14 + Me.Label5.Text = "구번호 그림없음" + Me.Label5.UseWaitCursor = True + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Checked = True + Me.ToolStripButton2.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton2.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(67, 36) + Me.ToolStripButton2.Text = "닫기" + ' + 'OldnumPicMan + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(954, 468) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.pbar_nopic) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.pbar_same) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.pbar_modify) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.pbar_nnot) + Me.Controls.Add(Me.pbar_onot) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.pbar_total) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D + Me.Name = "OldnumPicMan" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "파일변 변경 ( 구 - > 신 )" + CType(Me.MyFpoint1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyFpoint1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(False) + CType(Me.view_green, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view_green_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents MyFpoint1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents MyFpoint1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents pbar_modify As System.Windows.Forms.ProgressBar + Friend WithEvents view_green As MyControlOLEDBv2.MyFpoint + Friend WithEvents view_green_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents pbar_onot As System.Windows.Forms.ProgressBar + Friend WithEvents pbar_total As System.Windows.Forms.ProgressBar + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_picdirectory As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_picselect As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_picEXT As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CHK_SUBDIR As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents pbar_nnot As System.Windows.Forms.ProgressBar + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents chk_test As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_output As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents m_allouuoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents m_modfy As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar_same As System.Windows.Forms.ProgressBar + 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 Label4 As System.Windows.Forms.Label + Friend WithEvents pbar_nopic As System.Windows.Forms.ProgressBar + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents m_outall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents m_outc As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton +End Class diff --git a/Epole/입력폼/OldnumPicMan.resx b/Epole/입력폼/OldnumPicMan.resx new file mode 100644 index 0000000..20d43a6 --- /dev/null +++ b/Epole/입력폼/OldnumPicMan.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 172, 17 + + + 443, 17 + + + 430, 52 + + \ No newline at end of file diff --git a/Epole/입력폼/OldnumPicMan.vb b/Epole/입력폼/OldnumPicMan.vb new file mode 100644 index 0000000..b91d95d --- /dev/null +++ b/Epole/입력폼/OldnumPicMan.vb @@ -0,0 +1,263 @@ +Public Class OldnumPicMan + 'Public FindDir As String = My.Application.Info.DirectoryPath & "\pic" + + Private Sub OldnumPicMan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated + + End Sub + + Private Sub OldnumPicMan_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + For Each SC As FarPoint.Win.Spread.Column In Me.MyFpoint1.ActiveSheet.Columns + If Not (SC.DataField = "구관리구" OrElse SC.DataField = "구전산번호" OrElse SC.DataField = "관리구" OrElse SC.DataField = "전주번호") Then + SC.Width = 0 + Else + SC.Width = 60 + End If + Next + + End Sub + + Private Sub bt_picselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_picselect.Click + Dim A As New FolderBrowserDialog + A.RootFolder = Environment.SpecialFolder.MyComputer + A.SelectedPath = Me.lb_picdirectory.Text + If A.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + MsgBox("선택이 취소되었습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Me.lb_picdirectory.Text = A.SelectedPath + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.Compare_OldImage() + End Sub + + 'Private Sub Addlog_same(ByVal Index As Integer, ByVal memo As String) + ' ' Return + ' With Me.view_same.ActiveSheet + ' .RowCount += 1 '//행증가 + ' .Cells(.RowCount - 1, 0).Text = Index + 1 + ' .Cells(.RowCount - 1, 1).Text = memo + ' Me.pbar_same.Value += 1 + ' End With + 'End Sub + 'Private Sub Addlog_Onot(ByVal Index As Integer) + ' ' Return + ' With Me.view_onot.ActiveSheet + ' .RowCount += 1 '//행증가 + ' .Cells(.RowCount - 1, 0).Text = Index + 1 + ' '.Cells(.RowCount - 1, 1).Text = memo + ' Me.pbar_onot.Value += 1 + ' End With + 'End Sub + 'Private Sub Addlog_nnot(ByVal Index As Integer) + ' ' Return + ' With Me.view_nnot.ActiveSheet + ' .RowCount += 1 '//행증가 + ' .Cells(.RowCount - 1, 0).Text = Index + 1 + ' ' .Cells(.RowCount - 1, 1).Text = memo + ' Me.pbar_nnot.Value += 1 + ' End With + 'End Sub + Private Sub Addlog_G(ByVal Index As Integer, ByVal filename1 As String, ByVal filename2 As String, ByVal Msg As String) + '//정상변경시 + With view_green.ActiveSheet + .RowCount += 1 '//행증가 + .Cells(.RowCount - 1, 0).Text = Index + 1 + .Cells(.RowCount - 1, 1).Text = filename1 + .Cells(.RowCount - 1, 2).Text = filename2 + .Cells(.RowCount - 1, 3).Text = Msg + '.Cells(.RowCount - 1, 4).Text = path2 + 'Me.pbar_modify.Value += 1 + End With + End Sub + + + + Private Sub Compare_OldImage() + + Dim A As New System.Text.StringBuilder("파일명에 추가된 태그를 입력하세요.") + A.AppendLine() + A.AppendLine("입력될 태그를 파일명의 앞뒤에 붙인후 검색합니다.") + A.AppendLine() + A.AppendLine("입력방법 : 앞에붙일태그/뒤에붙일태그 ") + A.AppendLine() + A.AppendLine("예) 파일명 뒤에 _01 이 붙은것을 검색하고자할때") + A.AppendLine(" /_01 <= 입력하고 엔터") + A.AppendLine() + A.AppendLine("예) 파일명 앞에 P 가 붙은것을 검색하고자할때") + A.AppendLine(" P/ <= 입력하고 엔터") + A.AppendLine() + A.AppendLine("예) 파일명 앞에 P가 붙고 뒤에 _1이 붙은것을 검색하고자할때") + A.AppendLine(" p/_01 <= 입력하고 엔터") + + Dim Itag As String = InputBox(A.ToString, "태그입력", "/_01") + If Itag = "" Then + MsgBox("태그를 반드시 입력해야합니다" & vbCrLf & "작업이 취소되었습니다", MsgBoxStyle.Critical, "Error") + Return + End If + Dim Stag() As String = Itag.Split("/") + + If Stag.GetUpperBound(0) <> 1 Then + MsgBox("잘못된 태그가 입력되었습니다" & vbCrLf & "태그입력형식은 앞,뒤 를 / 로 묶은 형태입니다" & vbCrLf & vbCrLf & "예) P/_01", MsgBoxStyle.Information, "태그입력오류") + Return + End If + + Dim StartTime, Endtime As Date + Dim 구관리구, 구전주번호, 파일명, 파일명2, 풀네임, 관리구, 전주번호 As String + Dim Cnt As Integer = 0 + Dim IDX As Integer = 0 + Me.pbar_total.Minimum = 0 + Me.pbar_total.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_total.Value = 0 + Me.pbar_modify.Minimum = 0 + Me.pbar_modify.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_modify.Value = 0 + Me.pbar_onot.Minimum = 0 + Me.pbar_onot.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_onot.Value = 0 + Me.pbar_nnot.Minimum = 0 + Me.pbar_nnot.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_nnot.Value = 0 + Me.pbar_same.Minimum = 0 + Me.pbar_same.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_same.Value = 0 + Me.pbar_nopic.Minimum = 0 + Me.pbar_nopic.Maximum = Me.MyFpoint1.ActiveSheet.Rows.Count + Me.pbar_nopic.Value = 0 + + Me.view_green_Sheet1.RowCount = 0 + 'Me.view_nnot_Sheet1.RowCount = 0 + 'Me.view_onot_Sheet1.RowCount = 0 + 'Me.view_same_Sheet1.RowCount = 0 + + + + '//임시결과파일폴더를 생서한다 폴더경로는 그림파일 아래에 + Dim 작업폴더 As String = "c:\구그림작업폴더" + Dim 신폴더명 As String = Format(Now, "yyyyMMddhhmmss").ToString + Dim 기존폴더 As String = 작업폴더 & "\" & 신폴더명 & "\변경전파일(원본)" + Dim 신규폴더 As String = 작업폴더 & "\" & 신폴더명 & "\변경된파일" + If Not System.IO.Directory.Exists(작업폴더) Then System.IO.Directory.CreateDirectory(작업폴더) + If Not System.IO.Directory.Exists(작업폴더 & "\" & 신폴더명) Then System.IO.Directory.CreateDirectory(작업폴더 & "\" & 신폴더명) + System.IO.Directory.CreateDirectory(기존폴더) + System.IO.Directory.CreateDirectory(신규폴더) + + Dim 대상폴더 As New System.IO.DirectoryInfo(Me.lb_picdirectory.Text) + Dim 검색결과() As System.IO.FileInfo + + '/첫번째방법 데이터셋에서 검색을 한다. + StartTime = Now + For Each DR As FarPoint.Win.Spread.Row In Me.MyFpoint1.ActiveSheet.Rows + Me.pbar_total.Value = DR.Index + + 구관리구 = Me.MyFpoint1.Cells(DR.Index, "구관리구").Text + 구전주번호 = Me.MyFpoint1.Cells(DR.Index, "구전산번호").Text + 관리구 = Me.MyFpoint1.Cells(DR.Index, "관리구").Text + 전주번호 = Me.MyFpoint1.Cells(DR.Index, "전주번호").Text + + '파일명 = 구관리구 & 구전주번호 + 'MsgBox(구관리구 & "/" & 구전주번호) + ' MsgBox(관리구 & "/" & 전주번호) + + If CStr(구관리구 & 구전주번호) <> "" Then '//관리구 전주번호가 있을경우에만 확인한다. + 풀네임 = Me.lb_picdirectory.Text & "\" & Stag(0) & 구관리구 & 구전주번호 & Stag(1) & "." & Me.cmb_picEXT.Text + 파일명 = Stag(0) & 구관리구 & 구전주번호 & Stag(1) & "." & Me.cmb_picEXT.Text + If CStr(구관리구 & 구전주번호).Trim = CStr(관리구 & 전주번호).Trim Then + + Addlog_G(DR.Index, "", "", "구번호와 신번호가 동일함") + Me.pbar_same.Value += 1 + ElseIf CStr(관리구 & 전주번호) <> "" Then + 검색결과 = 대상폴더.GetFiles(파일명, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + + 'Dim fILES() As String = IO.Directory.GetFiles(Me.lb_picdirectory.Text, 관리구 & 전주번호 & Itag & "." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + If 검색결과.GetUpperBound(0) >= 0 Then '//구관리전산에해당하는 파일은 존재한다. + 파일명2 = Me.lb_picdirectory.Text & "\" & Stag(0) & 관리구 & 전주번호 & Stag(1) & "." & Me.cmb_picEXT.Text + + If Me.chk_test.Checked Then + 검색결과(0).CopyTo(신규폴더 & "\" & Stag(0) & 관리구 & 전주번호 & Stag(1) & "." & Me.cmb_picEXT.Text, True) + 검색결과(0).MoveTo(기존폴더 & "\" & 검색결과(0).Name) + End If + + Cnt += 1 + Addlog_G(DR.Index, 검색결과(0).Name, Stag(0) & 관리구 & 전주번호 & Stag(1) & "." & Me.cmb_picEXT.Text, "완료") + Me.pbar_modify.Value += 1 + Else '//구관리전산번호에 해당하는 그림이없으므로 패스 + Addlog_G(DR.Index, "", "", "구번호의 그림이 존재하지 않음") + Me.pbar_nopic.Value += 1 + 'Arin.WLog("##########구전산번호 그림이 없습니다.(" & IDX & ")" & vbCrLf & "구관리전산번호=" & 구관리구 & 구전주번호, "\구관리전산그림변경(신관리전산없음).txt") + End If + Else + Addlog_G(DR.Index, "", "", "신번호 데이터가 없습니다.") + Me.pbar_nnot.Value += 1 + 'Arin.WLog("##########신관리전산번호가 없습니다.(" & IDX & ")" & vbCrLf & "구관리전산번호=" & 구관리구 & 구전주번호, "\구관리전산그림변경(신관리전산없음).txt") + End If + + Else + '//구관리전산번호가 없어서 넘어갓다 + Addlog_G(DR.Index, "", "", "구번호 데이터가 없습니다.") + Me.pbar_onot.Value += 1 + 'Arin.WLog("##########구관리전산번호가 없습니다.(" & IDX & ")", "\구관리전산그림변경(구관리전산없음).txt") + End If + IDX += 1 + Next + Endtime = Now + + A.Remove(0, A.Length) + A.AppendLine("시작시간=" & StartTime.ToString) + A.AppendLine("종료시간=" & Endtime.ToString) + A.AppendLine() + A.AppendLine("경과시간=" & (Endtime - StartTime).ToString) + A.AppendLine() + A.AppendLine("전체=" & Me.MyFpoint1.ActiveSheet.Rows.Count) + A.AppendLine("정상변경=" & Cnt) + A.AppendLine("변경불가=" & Me.MyFpoint1.ActiveSheet.Rows.Count - Cnt) + + 'A.AppendLine(My.Application.Info.DirectoryPath & "\log 에서 자세한 로그를 볼 수 있습니다") + + MsgBox(A.ToString, MsgBoxStyle.Information, "구그림파일 변경결과") + + Process.Start("explorer.exe", 작업폴더 & "\" & 신폴더명) + + ' Dim aA As New Process + 'Process.Start("explorer ", My.Application.Info.DirectoryPath & "\log") + + End Sub + + + + Private Sub m_allouuoolStripMenuItempMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_allouuoolStripMenuItem.Click + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\(구관리전산그림변경)전체목록" & Now.Year.ToString & Now.Month.ToString & Now.Day.ToString + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.MyFpoint1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub m_outallMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_outall.Click + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\(구관리전산그림변경-모든목록)실행결과" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.view_green.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub m_outcnuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_outc.Click + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\(구관리전산그림변경-현재목록)실행결과" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.view_green.SaveExcel(A.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/PicList.Designer.vb b/Epole/입력폼/PicList.Designer.vb new file mode 100644 index 0000000..8d86a1b --- /dev/null +++ b/Epole/입력폼/PicList.Designer.vb @@ -0,0 +1,1231 @@ + _ +Partial Class PicList + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim lb_sunlo As System.Windows.Forms.Label + Dim lb_n1 As System.Windows.Forms.Label + Dim lb_n2 As System.Windows.Forms.Label + Dim lb_n4 As System.Windows.Forms.Label + Dim lb_js As System.Windows.Forms.Label + Dim lb_sikong As System.Windows.Forms.Label + Dim lb_oldsan As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PicList)) + Dim TipAppearance1 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim CheckBoxCellType3 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim CheckBoxCellType4 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim CheckBoxCellType5 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim CheckBoxCellType6 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TipAppearance2 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_output = New System.Windows.Forms.ToolStripDropDownButton + Me.m_fileall = New System.Windows.Forms.ToolStripMenuItem + Me.m_filepicno = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem + Me.m_filekiip = New System.Windows.Forms.ToolStripMenuItem + Me.m_filesinku = New System.Windows.Forms.ToolStripMenuItem + Me.m_filechol = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.bt_picselect = New System.Windows.Forms.ToolStripButton + Me.bt_picrefreh = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.CHK_SUBDIR = New System.Windows.Forms.ToolStripButton + Me.cmb_picEXT = New System.Windows.Forms.ToolStripComboBox + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.bt_chkimg = New System.Windows.Forms.ToolStripButton + Me.bt_compareImg = New System.Windows.Forms.ToolStripSplitButton + Me.chk_03 = New System.Windows.Forms.ToolStripMenuItem + Me.chk_04 = New System.Windows.Forms.ToolStripMenuItem + Me.chk_01 = New System.Windows.Forms.ToolStripMenuItem + Me.chk_71 = New System.Windows.Forms.ToolStripMenuItem + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_cnt = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_total = New System.Windows.Forms.ToolStripStatusLabel + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip + Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel + Me.pic_folder = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_picdirectory = New System.Windows.Forms.ToolStripStatusLabel + Me.pic1 = New System.Windows.Forms.PictureBox + Me.grp = New System.Windows.Forms.GroupBox + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.tb_okwan2 = New System.Windows.Forms.TextBox + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet + Me.tb_okwan1 = New System.Windows.Forms.TextBox + Me.tb_sikong = New System.Windows.Forms.TextBox + Me.tb_sikonyear = New System.Windows.Forms.TextBox + Me.tb_jang = New System.Windows.Forms.TextBox + Me.tb_num5 = New System.Windows.Forms.TextBox + Me.tb_num3 = New System.Windows.Forms.TextBox + Me.tb_num4 = New System.Windows.Forms.TextBox + Me.tb_num2 = New System.Windows.Forms.TextBox + Me.tb_num1 = New System.Windows.Forms.TextBox + Me.tb_sunro = New System.Windows.Forms.TextBox + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.bt_commit = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.view1 = New MyControlOLEDBv2.MyFpoint + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave2 = New System.Windows.Forms.ToolStripMenuItem + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator + Me.bt_clist1 = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator + Me.bt_del1 = New System.Windows.Forms.ToolStripMenuItem + Me.filelistf = New MyControlOLEDBv2.MyFpoint + Me.filelistf_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.PicfileListBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.PicDS = New EpoleNet.PicDS + Me.jjdetTableAdapter1 = New EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + lb_sunlo = New System.Windows.Forms.Label + lb_n1 = New System.Windows.Forms.Label + lb_n2 = New System.Windows.Forms.Label + lb_n4 = New System.Windows.Forms.Label + lb_js = New System.Windows.Forms.Label + lb_sikong = New System.Windows.Forms.Label + lb_oldsan = New System.Windows.Forms.Label + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.StatusStrip2.SuspendLayout() + CType(Me.pic1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.grp.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip2.SuspendLayout() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.filelistf, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.filelistf_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PicfileListBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PicDS, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lb_sunlo + ' + lb_sunlo.AutoSize = True + lb_sunlo.Location = New System.Drawing.Point(44, 22) + lb_sunlo.Name = "lb_sunlo" + lb_sunlo.Size = New System.Drawing.Size(45, 12) + lb_sunlo.TabIndex = 0 + lb_sunlo.Text = "선로명:" + ' + 'lb_n1 + ' + lb_n1.AutoSize = True + lb_n1.Location = New System.Drawing.Point(50, 45) + lb_n1.Name = "lb_n1" + lb_n1.Size = New System.Drawing.Size(39, 12) + lb_n1.TabIndex = 2 + lb_n1.Text = "번호1:" + ' + 'lb_n2 + ' + lb_n2.AutoSize = True + lb_n2.Location = New System.Drawing.Point(38, 68) + lb_n2.Name = "lb_n2" + lb_n2.Size = New System.Drawing.Size(51, 12) + lb_n2.TabIndex = 4 + lb_n2.Text = "번호2/3:" + ' + 'lb_n4 + ' + lb_n4.AutoSize = True + lb_n4.Location = New System.Drawing.Point(38, 93) + lb_n4.Name = "lb_n4" + lb_n4.Size = New System.Drawing.Size(51, 12) + lb_n4.TabIndex = 6 + lb_n4.Text = "번호4/5:" + ' + 'lb_js + ' + lb_js.AutoSize = True + lb_js.Location = New System.Drawing.Point(2, 116) + lb_js.Name = "lb_js" + lb_js.Size = New System.Drawing.Size(87, 12) + lb_js.TabIndex = 12 + lb_js.Text = "장척/시공년월:" + ' + 'lb_sikong + ' + lb_sikong.AutoSize = True + lb_sikong.Location = New System.Drawing.Point(44, 140) + lb_sikong.Name = "lb_sikong" + lb_sikong.Size = New System.Drawing.Size(45, 12) + lb_sikong.TabIndex = 16 + lb_sikong.Text = "시공자:" + ' + 'lb_oldsan + ' + lb_oldsan.AutoSize = True + lb_oldsan.Location = New System.Drawing.Point(9, 165) + lb_oldsan.Name = "lb_oldsan" + lb_oldsan.Size = New System.Drawing.Size(81, 12) + lb_oldsan.TabIndex = 18 + lb_oldsan.Text = "구전산화번호:" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_output, Me.ToolStripSeparator1, Me.bt_picselect, Me.bt_picrefreh, Me.ToolStripSeparator2, Me.CHK_SUBDIR, Me.cmb_picEXT, Me.ToolStripLabel2, Me.ToolStripSeparator3, Me.bt_chkimg, Me.bt_compareImg}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1043, 39) + Me.ToolStrip1.TabIndex = 7 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_output + ' + Me.bt_output.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.m_fileall, Me.m_filepicno, Me.ToolStripMenuItem2, Me.m_filekiip, Me.m_filesinku, Me.m_filechol}) + Me.bt_output.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.bt_output.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_output.Name = "bt_output" + Me.bt_output.Size = New System.Drawing.Size(116, 36) + Me.bt_output.Text = "내보내기(&E)" + Me.bt_output.ToolTipText = "클릭시 고속저장을 수행하며 저장중일경우에는 작업을 취소합니다" + ' + 'm_fileall + ' + Me.m_fileall.Name = "m_fileall" + Me.m_fileall.Size = New System.Drawing.Size(308, 22) + Me.m_fileall.Text = "1. 전체리스트목록" + Me.m_fileall.ToolTipText = "화면에 보이는 데이터와 상관없이 모든 데이터를 내보내기 합니다" + ' + 'm_filepicno + ' + Me.m_filepicno.Name = "m_filepicno" + Me.m_filepicno.Size = New System.Drawing.Size(308, 22) + Me.m_filepicno.Text = "2. 목록은있고사진파일이없는경우" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.Blue + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(308, 22) + Me.ToolStripMenuItem2.Text = "3. 전체사진파일(목록에없는사진파일 분리)" + ' + 'm_filekiip + ' + Me.m_filekiip.Name = "m_filekiip" + Me.m_filekiip.Size = New System.Drawing.Size(308, 22) + Me.m_filekiip.Text = "4. 기입선택목록" + ' + 'm_filesinku + ' + Me.m_filesinku.Name = "m_filesinku" + Me.m_filesinku.Size = New System.Drawing.Size(308, 22) + Me.m_filesinku.Text = "5. 신규선택목록" + ' + 'm_filechol + ' + Me.m_filechol.Name = "m_filechol" + Me.m_filechol.Size = New System.Drawing.Size(308, 22) + Me.m_filechol.Text = "6. 철거선택목록" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'bt_picselect + ' + Me.bt_picselect.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.bt_picselect.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_picselect.Name = "bt_picselect" + Me.bt_picselect.Size = New System.Drawing.Size(89, 36) + Me.bt_picselect.Text = "폴더선택" + Me.bt_picselect.ToolTipText = "그림파일이 존재하는 폴더를 선택합니다" + ' + 'bt_picrefreh + ' + Me.bt_picrefreh.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_picrefreh.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_picrefreh.Name = "bt_picrefreh" + Me.bt_picrefreh.Size = New System.Drawing.Size(113, 36) + Me.bt_picrefreh.Text = "그림목록갱신" + Me.bt_picrefreh.ToolTipText = "그림파일목록을 다시 불러옵니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'CHK_SUBDIR + ' + Me.CHK_SUBDIR.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.CHK_SUBDIR.Checked = True + Me.CHK_SUBDIR.CheckOnClick = True + Me.CHK_SUBDIR.CheckState = System.Windows.Forms.CheckState.Checked + Me.CHK_SUBDIR.Image = Global.EpoleNet.My.Resources.Resources.opts_24 + Me.CHK_SUBDIR.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.CHK_SUBDIR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.CHK_SUBDIR.Name = "CHK_SUBDIR" + Me.CHK_SUBDIR.Size = New System.Drawing.Size(105, 36) + Me.CHK_SUBDIR.Text = "하위폴더참조" + Me.CHK_SUBDIR.ToolTipText = "파일목록을 검색할때. 하위폴더의 파일까지 검색합니다" + ' + 'cmb_picEXT + ' + Me.cmb_picEXT.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.cmb_picEXT.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_picEXT.Items.AddRange(New Object() {"JPG", "PNG", "GIF", "BMP"}) + Me.cmb_picEXT.Name = "cmb_picEXT" + Me.cmb_picEXT.Size = New System.Drawing.Size(75, 39) + Me.cmb_picEXT.ToolTipText = "그림파일의 종류를 선택합니다" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(53, 36) + Me.ToolStripLabel2.Text = "그림종류" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'bt_chkimg + ' + Me.bt_chkimg.Image = Global.EpoleNet.My.Resources.Resources.image_32 + Me.bt_chkimg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkimg.Name = "bt_chkimg" + Me.bt_chkimg.Size = New System.Drawing.Size(89, 36) + Me.bt_chkimg.Text = "파일확인" + Me.bt_chkimg.ToolTipText = "목록에 저장되어있는 그림파일명 경로를 확인하여 실제로 파일이 존재하는지 체크합니다" + ' + 'bt_compareImg + ' + Me.bt_compareImg.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.chk_03, Me.chk_04, Me.chk_01, Me.chk_71}) + Me.bt_compareImg.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_compareImg.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_compareImg.Name = "bt_compareImg" + Me.bt_compareImg.Size = New System.Drawing.Size(120, 36) + Me.bt_compareImg.Text = "사진비교(&C)" + Me.bt_compareImg.ToolTipText = "전산화번호와 동일한 그림파일명을 찾아서 체크합니다" + ' + 'chk_03 + ' + Me.chk_03.Checked = True + Me.chk_03.CheckOnClick = True + Me.chk_03.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_03.Name = "chk_03" + Me.chk_03.Size = New System.Drawing.Size(182, 22) + Me.chk_03.Text = "우선순위 : _03 체크" + ' + 'chk_04 + ' + Me.chk_04.Checked = True + Me.chk_04.CheckOnClick = True + Me.chk_04.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_04.Name = "chk_04" + Me.chk_04.Size = New System.Drawing.Size(182, 22) + Me.chk_04.Text = "우선순위 : _04 체크" + ' + 'chk_01 + ' + Me.chk_01.Checked = True + Me.chk_01.CheckOnClick = True + Me.chk_01.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_01.Name = "chk_01" + Me.chk_01.Size = New System.Drawing.Size(182, 22) + Me.chk_01.Text = "우선순위 : _01 체크" + ' + 'chk_71 + ' + Me.chk_71.Checked = True + Me.chk_71.CheckOnClick = True + Me.chk_71.CheckState = System.Windows.Forms.CheckState.Checked + Me.chk_71.Name = "chk_71" + Me.chk_71.Size = New System.Drawing.Size(182, 22) + Me.chk_71.Text = "우선순위 : _71 체크" + ' + '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_cnt, Me.lb_change, Me.lb_msg, Me.lb_total}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 580) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1043, 22) + Me.StatusStrip1.TabIndex = 8 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_cnt + ' + Me.lb_cnt.Name = "lb_cnt" + Me.lb_cnt.Size = New System.Drawing.Size(23, 17) + Me.lb_cnt.Text = "0/0" + ' + '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 = "알림" + ' + 'lb_total + ' + Me.lb_total.Name = "lb_total" + Me.lb_total.Size = New System.Drawing.Size(29, 17) + Me.lb_total.Text = "알림" + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Font = New System.Drawing.Font("굴림", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1, Me.pic_folder, Me.lb_picdirectory}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 554) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(1043, 26) + Me.StatusStrip2.TabIndex = 11 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(24, 21) + Me.ToolStripStatusLabel1.Text = "∇" + ' + 'pic_folder + ' + Me.pic_folder.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.pic_folder.Name = "pic_folder" + Me.pic_folder.Size = New System.Drawing.Size(109, 21) + Me.pic_folder.Text = " 대상그림파일 경로" + ' + 'lb_picdirectory + ' + Me.lb_picdirectory.AutoSize = False + Me.lb_picdirectory.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lb_picdirectory.ForeColor = System.Drawing.Color.Tomato + Me.lb_picdirectory.Name = "lb_picdirectory" + Me.lb_picdirectory.Size = New System.Drawing.Size(895, 21) + Me.lb_picdirectory.Spring = True + Me.lb_picdirectory.Text = "+" + Me.lb_picdirectory.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + ' + 'pic1 + ' + Me.pic1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.pic1.BackColor = System.Drawing.Color.White + Me.pic1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pic1.Location = New System.Drawing.Point(482, 313) + Me.pic1.Name = "pic1" + Me.pic1.Size = New System.Drawing.Size(176, 237) + Me.pic1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pic1.TabIndex = 12 + Me.pic1.TabStop = False + Me.ToolTip1.SetToolTip(Me.pic1, "(클릭 : 크게보기)") + ' + 'grp + ' + Me.grp.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.grp.Controls.Add(Me.TextBox1) + Me.grp.Controls.Add(Me.tb_okwan2) + Me.grp.Controls.Add(lb_oldsan) + Me.grp.Controls.Add(Me.tb_okwan1) + Me.grp.Controls.Add(lb_sikong) + Me.grp.Controls.Add(Me.tb_sikong) + Me.grp.Controls.Add(Me.tb_sikonyear) + Me.grp.Controls.Add(lb_js) + Me.grp.Controls.Add(Me.tb_jang) + Me.grp.Controls.Add(Me.tb_num5) + Me.grp.Controls.Add(Me.tb_num3) + Me.grp.Controls.Add(lb_n4) + Me.grp.Controls.Add(Me.tb_num4) + Me.grp.Controls.Add(lb_n2) + Me.grp.Controls.Add(Me.tb_num2) + Me.grp.Controls.Add(lb_n1) + Me.grp.Controls.Add(Me.tb_num1) + Me.grp.Controls.Add(lb_sunlo) + Me.grp.Controls.Add(Me.tb_sunro) + Me.grp.Location = New System.Drawing.Point(664, 305) + Me.grp.Name = "grp" + Me.grp.Size = New System.Drawing.Size(298, 245) + Me.grp.TabIndex = 13 + Me.grp.TabStop = False + Me.grp.Text = "세부내역" + ' + 'TextBox1 + ' + Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TextBox1.Location = New System.Drawing.Point(7, 217) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(284, 21) + Me.TextBox1.TabIndex = 22 + ' + 'tb_okwan2 + ' + Me.tb_okwan2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_okwan2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "구전산번호", True)) + Me.tb_okwan2.Location = New System.Drawing.Point(193, 161) + Me.tb_okwan2.Name = "tb_okwan2" + Me.tb_okwan2.Size = New System.Drawing.Size(98, 21) + Me.tb_okwan2.TabIndex = 21 + ' + 'bs + ' + Me.bs.AllowNew = False + Me.bs.DataMember = "jjutable" + Me.bs.DataSource = Me.IreaDataSet1 + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'tb_okwan1 + ' + Me.tb_okwan1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_okwan1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "구관리구", True)) + Me.tb_okwan1.Location = New System.Drawing.Point(104, 161) + Me.tb_okwan1.Name = "tb_okwan1" + Me.tb_okwan1.Size = New System.Drawing.Size(86, 21) + Me.tb_okwan1.TabIndex = 19 + ' + 'tb_sikong + ' + Me.tb_sikong.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_sikong.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "시공자", True)) + Me.tb_sikong.Location = New System.Drawing.Point(104, 137) + Me.tb_sikong.Name = "tb_sikong" + Me.tb_sikong.Size = New System.Drawing.Size(187, 21) + Me.tb_sikong.TabIndex = 17 + ' + 'tb_sikonyear + ' + Me.tb_sikonyear.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_sikonyear.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "시공년월", True)) + Me.tb_sikonyear.Location = New System.Drawing.Point(193, 113) + Me.tb_sikonyear.Name = "tb_sikonyear" + Me.tb_sikonyear.Size = New System.Drawing.Size(98, 21) + Me.tb_sikonyear.TabIndex = 15 + ' + 'tb_jang + ' + Me.tb_jang.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_jang.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "장척", True)) + Me.tb_jang.Location = New System.Drawing.Point(104, 113) + Me.tb_jang.Name = "tb_jang" + Me.tb_jang.Size = New System.Drawing.Size(86, 21) + Me.tb_jang.TabIndex = 13 + ' + 'tb_num5 + ' + Me.tb_num5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_num5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "번호5", True)) + Me.tb_num5.Location = New System.Drawing.Point(193, 88) + Me.tb_num5.Name = "tb_num5" + Me.tb_num5.Size = New System.Drawing.Size(98, 21) + Me.tb_num5.TabIndex = 11 + ' + 'tb_num3 + ' + Me.tb_num3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_num3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "번호3", True)) + Me.tb_num3.Location = New System.Drawing.Point(193, 62) + Me.tb_num3.Name = "tb_num3" + Me.tb_num3.Size = New System.Drawing.Size(98, 21) + Me.tb_num3.TabIndex = 9 + ' + 'tb_num4 + ' + Me.tb_num4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_num4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "번호4", True)) + Me.tb_num4.Location = New System.Drawing.Point(104, 88) + Me.tb_num4.Name = "tb_num4" + Me.tb_num4.Size = New System.Drawing.Size(86, 21) + Me.tb_num4.TabIndex = 7 + ' + 'tb_num2 + ' + Me.tb_num2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_num2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "번호2", True)) + Me.tb_num2.Location = New System.Drawing.Point(104, 62) + Me.tb_num2.Name = "tb_num2" + Me.tb_num2.Size = New System.Drawing.Size(86, 21) + Me.tb_num2.TabIndex = 5 + ' + 'tb_num1 + ' + Me.tb_num1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_num1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "번호1", True)) + Me.tb_num1.Location = New System.Drawing.Point(104, 39) + Me.tb_num1.Name = "tb_num1" + Me.tb_num1.Size = New System.Drawing.Size(187, 21) + Me.tb_num1.TabIndex = 3 + ' + 'tb_sunro + ' + Me.tb_sunro.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.tb_sunro.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "선로명", True)) + Me.tb_sunro.Location = New System.Drawing.Point(104, 16) + Me.tb_sunro.Name = "tb_sunro" + Me.tb_sunro.Size = New System.Drawing.Size(187, 21) + Me.tb_sunro.TabIndex = 1 + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + Me.bn.DeleteItem = Nothing + Me.bn.Dock = System.Windows.Forms.DockStyle.Fill + 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(20, 20) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.bt_commit, Me.bt_cancel, Me.ToolStripButton3, Me.ToolStripTextBox1}) + Me.bn.Location = New System.Drawing.Point(0, 476) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(478, 33) + Me.bn.TabIndex = 0 + Me.bn.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(29, 30) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(24, 30) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + 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(24, 30) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 33) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 21) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 33) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(24, 30) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(24, 30) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 33) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.ref_24 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(24, 30) + Me.ToolStripButton1.Text = "ToolStripButton1" + Me.ToolStripButton1.ToolTipText = "목록을 갱신합니다" + ' + 'bt_commit + ' + Me.bt_commit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.RightToLeftAutoMirrorImage = True + Me.bt_commit.Size = New System.Drawing.Size(24, 30) + Me.bt_commit.Text = "저장(&S)" + Me.bt_commit.ToolTipText = "변경된 모든 내용을 저장합니다" + ' + 'bt_cancel + ' + Me.bt_cancel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.RightToLeftAutoMirrorImage = True + Me.bt_cancel.Size = New System.Drawing.Size(24, 30) + Me.bt_cancel.Text = "취소(&R)" + Me.bt_cancel.ToolTipText = "변경된 모든 내용을 취소합니다" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Checked = True + Me.ToolStripButton3.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton3.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(76, 30) + Me.ToolStripButton3.Text = "닫기(&X)" + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 33) + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + 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.bn, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.view1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 42) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 33.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(478, 509) + Me.TableLayoutPanel1.TabIndex = 22 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Nothing + Me.view1.About = "3.0.2003.2005" + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.AllowDragDrop = True + Me.view1.AllowDragFill = True + Me.view1.BackColor = System.Drawing.SystemColors.Control + Me.view1.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.view1.ContextMenuStrip = Me.ContextMenuStrip2 + Me.view1.CurrentDel = False + Me.view1.DeleteKey = False + Me.view1.Dock = System.Windows.Forms.DockStyle.Fill + Me.view1.EditFromSpace = True + Me.view1.EditModeReplace = True + Me.view1.FIRST_FOCUSINDEX = 0 + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(3, 3) + Me.view1.Name = "view1" + Me.view1.NextRow_Index = -1 + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.SameRowheight = True + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(472, 470) + Me.view1.TabIndex = 17 + TipAppearance1.BackColor = System.Drawing.SystemColors.Info + TipAppearance1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance1.ForeColor = System.Drawing.SystemColors.InfoText + Me.view1.TextTipAppearance = TipAppearance1 + Me.view1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.선택줄번호 = CType(20, Short) + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave2}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(159, 26) + ' + 'bt_colsizesave2 + ' + Me.bt_colsizesave2.Name = "bt_colsizesave2" + Me.bt_colsizesave2.Size = New System.Drawing.Size(158, 22) + Me.bt_colsizesave2.Text = "현재뷰상태저장" + ' + '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 = 27 + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "구관리전산" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전산번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 17).Value = "지선" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 19).Value = "신규" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 21).Value = "그림" + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 42.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.view1_Sheet1.Columns.Get(0).Width = 0.0! + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType2 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).Width = 0.0! + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "구관리전산" + Me.view1_Sheet1.Columns.Get(2).Width = 0.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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).Tag = "관리구" + Me.view1_Sheet1.Columns.Get(3).Width = 51.0! + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + 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).Width = 63.0! + Me.view1_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "선로명" + Me.view1_Sheet1.Columns.Get(5).Width = 51.0! + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "번호1" + Me.view1_Sheet1.Columns.Get(6).Width = 45.0! + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "번호2" + Me.view1_Sheet1.Columns.Get(7).Width = 45.0! + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "번호3" + Me.view1_Sheet1.Columns.Get(8).Width = 45.0! + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "번호4" + Me.view1_Sheet1.Columns.Get(9).Width = 45.0! + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "번호5" + Me.view1_Sheet1.Columns.Get(10).Width = 45.0! + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "장척" + Me.view1_Sheet1.Columns.Get(11).Width = 39.0! + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "시공년월" + Me.view1_Sheet1.Columns.Get(12).Width = 63.0! + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "시공자" + Me.view1_Sheet1.Columns.Get(13).Width = 51.0! + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "DL명" + Me.view1_Sheet1.Columns.Get(14).Width = 42.0! + Me.view1_Sheet1.Columns.Get(15).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(15).DataField = "인쇄" + Me.view1_Sheet1.Columns.Get(15).Width = 39.0! + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(16).DataField = "그림파일" + Me.view1_Sheet1.Columns.Get(16).Width = 63.0! + Me.view1_Sheet1.Columns.Get(17).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(17).DataField = "인쇄" + Me.view1_Sheet1.Columns.Get(17).Label = "지선" + Me.view1_Sheet1.Columns.Get(17).Width = 45.0! + Me.view1_Sheet1.Columns.Get(18).CellType = CheckBoxCellType3 + Me.view1_Sheet1.Columns.Get(18).DataField = "기입" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Width = 39.0! + Me.view1_Sheet1.Columns.Get(19).CellType = CheckBoxCellType4 + Me.view1_Sheet1.Columns.Get(19).DataField = "신규" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Width = 39.0! + Me.view1_Sheet1.Columns.Get(20).CellType = CheckBoxCellType5 + Me.view1_Sheet1.Columns.Get(20).DataField = "철거" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Width = 39.0! + Me.view1_Sheet1.Columns.Get(21).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(21).CellType = CheckBoxCellType6 + Me.view1_Sheet1.Columns.Get(21).DataField = "그림" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Width = 55.0! + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(22).DataField = "그림경로" + Me.view1_Sheet1.Columns.Get(22).Width = 63.0! + Me.view1_Sheet1.Columns.Get(23).BackColor = System.Drawing.Color.WhiteSmoke + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(23).DataField = "구관리구" + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).BackColor = System.Drawing.Color.WhiteSmoke + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(24).DataField = "구전산번호" + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).BackColor = System.Drawing.Color.WhiteSmoke + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(25).DataField = "구선로명" + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).BackColor = System.Drawing.Color.WhiteSmoke + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(26).DataField = "구전주번호" + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.view1_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.view1_Sheet1.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Row + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view1.SetActiveViewport(0, 1, 0) + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.ToolStripMenuItem1, Me.bt_clist1, Me.ToolStripMenuItem6, Me.bt_del1}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(159, 82) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(158, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(155, 6) + ' + 'bt_clist1 + ' + Me.bt_clist1.Name = "bt_clist1" + Me.bt_clist1.Size = New System.Drawing.Size(158, 22) + Me.bt_clist1.Text = "목록지우기" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(155, 6) + ' + 'bt_del1 + ' + Me.bt_del1.Name = "bt_del1" + Me.bt_del1.Size = New System.Drawing.Size(158, 22) + Me.bt_del1.Text = "파일 삭제" + ' + 'filelistf + ' + Me.filelistf.AAutoAddrowInLast = Nothing + Me.filelistf.About = "3.0.2003.2005" + Me.filelistf.AccessibleDescription = "filelistf, Sheet1" + Me.filelistf.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.filelistf.BackColor = System.Drawing.Color.Transparent + Me.filelistf.ContextMenuStrip = Me.ContextMenuStrip1 + Me.filelistf.CurrentDel = False + Me.filelistf.DeleteKey = False + Me.filelistf.EditFromSpace = True + Me.filelistf.FIRST_FOCUSINDEX = 0 + Me.filelistf.Location = New System.Drawing.Point(484, 42) + Me.filelistf.Name = "filelistf" + Me.filelistf.NextRow_Index = -1 + Me.filelistf.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.filelistf.SameRowheight = True + Me.filelistf.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.filelistf_Sheet1}) + Me.filelistf.Size = New System.Drawing.Size(557, 257) + Me.filelistf.TabIndex = 1 + TipAppearance2.BackColor = System.Drawing.SystemColors.Info + TipAppearance2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance2.ForeColor = System.Drawing.SystemColors.InfoText + Me.filelistf.TextTipAppearance = TipAppearance2 + Me.filelistf.선택줄번호 = CType(-1, Short) + ' + 'filelistf_Sheet1 + ' + Me.filelistf_Sheet1.Reset() + Me.filelistf_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.filelistf_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.filelistf_Sheet1.ColumnCount = 5 + Me.filelistf_Sheet1.AutoGenerateColumns = False + Me.filelistf_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "파일명" + Me.filelistf_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "경로" + Me.filelistf_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "크기" + Me.filelistf_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "찾음" + Me.filelistf_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "메세지" + Me.filelistf_Sheet1.ColumnHeader.Rows.Get(0).Height = 38.0! + Me.filelistf_Sheet1.Columns.Get(0).AllowAutoSort = True + Me.filelistf_Sheet1.Columns.Get(0).CellType = TextCellType20 + Me.filelistf_Sheet1.Columns.Get(0).DataField = "파일명" + Me.filelistf_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.filelistf_Sheet1.Columns.Get(0).Tag = "파일명" + Me.filelistf_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(0).Width = 151.0! + Me.filelistf_Sheet1.Columns.Get(1).CellType = TextCellType21 + Me.filelistf_Sheet1.Columns.Get(1).DataField = "경로" + Me.filelistf_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(1).Tag = "경로" + Me.filelistf_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(1).Width = 151.0! + Me.filelistf_Sheet1.Columns.Get(2).AllowAutoSort = True + Me.filelistf_Sheet1.Columns.Get(2).CellType = TextCellType22 + Me.filelistf_Sheet1.Columns.Get(2).DataField = "크기" + Me.filelistf_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Right + Me.filelistf_Sheet1.Columns.Get(2).Tag = "크기" + Me.filelistf_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(2).Width = 151.0! + Me.filelistf_Sheet1.Columns.Get(3).AllowAutoSort = True + Me.filelistf_Sheet1.Columns.Get(3).CellType = TextCellType23 + Me.filelistf_Sheet1.Columns.Get(3).DataField = "찾음" + Me.filelistf_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.filelistf_Sheet1.Columns.Get(3).Width = 151.0! + Me.filelistf_Sheet1.Columns.Get(4).CellType = TextCellType24 + Me.filelistf_Sheet1.Columns.Get(4).DataField = "메세지" + Me.filelistf_Sheet1.Columns.Get(4).Width = 163.0! + Me.filelistf_Sheet1.DataAutoCellTypes = False + Me.filelistf_Sheet1.DataAutoSizeColumns = False + Me.filelistf_Sheet1.DataSource = Me.PicfileListBindingSource + Me.filelistf_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.[ReadOnly] + Me.filelistf_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.filelistf_Sheet1.SelectionUnit = FarPoint.Win.Spread.Model.SelectionUnit.Row + Me.filelistf_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.filelistf.SetActiveViewport(0, 1, 0) + ' + 'PicfileListBindingSource + ' + Me.PicfileListBindingSource.DataMember = "PicfileList" + Me.PicfileListBindingSource.DataSource = Me.PicDS + ' + 'PicDS + ' + Me.PicDS.DataSetName = "PicDS" + Me.PicDS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'jjdetTableAdapter1 + ' + Me.jjdetTableAdapter1.ClearBeforeFill = True + ' + 'PicList + ' + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None + Me.ClientSize = New System.Drawing.Size(1043, 602) + Me.Controls.Add(Me.filelistf) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.grp) + Me.Controls.Add(Me.pic1) + Me.Controls.Add(Me.StatusStrip2) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.Name = "PicList" + Me.Text = "그림목록 관리" + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + CType(Me.pic1, System.ComponentModel.ISupportInitialize).EndInit() + Me.grp.ResumeLayout(False) + Me.grp.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.filelistf, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.filelistf_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PicfileListBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PicDS, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + 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 ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents ToolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents pic_folder As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_picdirectory As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents pic1 As System.Windows.Forms.PictureBox + Friend WithEvents grp As System.Windows.Forms.GroupBox + Friend WithEvents bt_picselect As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents cmb_picEXT As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents view1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents jjdetTableAdapter1 As EpoleNet.ireaDataSetTableAdapters.jjutableTableAdapter + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_commit As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_cancel 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 lb_total As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tb_num5 As System.Windows.Forms.TextBox + Friend WithEvents tb_num3 As System.Windows.Forms.TextBox + Friend WithEvents tb_num4 As System.Windows.Forms.TextBox + Friend WithEvents tb_num2 As System.Windows.Forms.TextBox + Friend WithEvents tb_num1 As System.Windows.Forms.TextBox + Friend WithEvents tb_sunro As System.Windows.Forms.TextBox + Friend WithEvents tb_okwan2 As System.Windows.Forms.TextBox + Friend WithEvents tb_okwan1 As System.Windows.Forms.TextBox + Friend WithEvents tb_sikong As System.Windows.Forms.TextBox + Friend WithEvents tb_sikonyear As System.Windows.Forms.TextBox + Friend WithEvents tb_jang As System.Windows.Forms.TextBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_output As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents m_fileall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CHK_SUBDIR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_picrefreh As System.Windows.Forms.ToolStripButton + Friend WithEvents m_filekiip As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents m_filesinku As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents m_filechol As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents m_filepicno As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_chkimg As System.Windows.Forms.ToolStripButton + Friend WithEvents filelistf As MyControlOLEDBv2.MyFpoint + Friend WithEvents filelistf_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_del1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_clist1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents PicfileListBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents PicDS As EpoleNet.PicDS + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_compareImg As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents chk_03 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chk_04 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chk_01 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chk_71 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents lb_cnt As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ContextMenuStrip2 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents bt_colsizesave2 As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/입력폼/PicList.resx b/Epole/입력폼/PicList.resx new file mode 100644 index 0000000..8f24c53 --- /dev/null +++ b/Epole/입력폼/PicList.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 1041, 14 + + + 418, 17 + + + 39, 13 + + + 524, 11 + + + 916, 13 + + + 162, 10 + + + 17, 54 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAStJREFUOE9jYBg0 + oHDW8/9NC57/z5z4+D8uR4W3P8Apx5A789n/VUfe/8elKL77wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+ + ///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0v3f1BxRFoa33wJpb1wFt7/z73yX/AG4D + Apsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvgUXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF + 7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbAIu/O/9T+11gVGSSd+C+b9vW/bvA83AYY + Zt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPulf8gBXgVDZqMh+wQAPB2wKsSwCgmAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAL1JREFUOE9jYBgy + ILz9wX+yHRvf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3v + kn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ14A0ChbVd8+3/6nN///bu+/dcpfPffImE9aQaADNFP + Of/fpOjFf5WsT/+NI5eRbgDIEIOkE/9l077+1w2eR54BYJekXv6v4TuNfANAhqh4TKDMALKTMc01AgDQ + FGCYkuTLEQAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKtJREFUOE9jYBh0 + oHDW8/8UOSp35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ + ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuIN8Sj6v7/krnv4JoVXXqI1wyKPvvSu/8D + W56BbSZZM8gAi7w7/20KrpCnGWSAYdZt8jWDDNBJu0GanylKtoNCMwCgfl+gC2KedgAAAABJRU5ErkJg + gg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAATBJREFUOE9jYBhU + oHDW8/+4HASSa1rw/H/mxMc41TDkznz2P6H7HlYFILlVR97/D29/gNuAjClP/8/b//t/QtcdDEUguYX7 + PvwPbriG24CEnif/Z+/79b9z69//bqWXURSC5KZtef/fv/oCbgMiux79n7Lt1/+SpX//J0z/+98m9yxc + MUiud/WH/16lJ3AbENj88H/r2vdgzcYlX/5LR1/7bxy5DKwBJFc3/91/l/wDuA3wqLr/v2TuO7hmRZce + uGKQXP60N//tM7bjNsC+9O7/wJZnYJuRNYNcAJLLnvz6v0XCetwGWOTd+W9TcAVDM8gAkFxq/2u4l7Cm + F8Os21g1gxSD5MJaXv7XDZ6H2wU6aTdwSoLk/Kof/tfwnYbbAHz5yin3yn8VjwlgPKjyHwMAvtG/s0Vm + x8MAAAAASUVORK5CYII= + + + + 1033, 54 + + + 287, 10 + + + 775, 10 + + + 316, 54 + + + 850, 54 + + + 767, 54 + + + 623, 9 + + + 73 + + \ No newline at end of file diff --git a/Epole/입력폼/PicList.vb b/Epole/입력폼/PicList.vb new file mode 100644 index 0000000..c52ce04 --- /dev/null +++ b/Epole/입력폼/PicList.vb @@ -0,0 +1,819 @@ + +Public Class PicList + Public 관리id As Integer + Dim BackWork As System.Threading.Thread + Dim DV As DataView + + Public Sub New() + ' 이 호출은 Windows Form 디자이너에 필요합니다. + InitializeComponent() + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + End Sub + Public Sub New(ByVal Index As Integer) + InitializeComponent() + 관리id = Index + End Sub + + Private Sub ShowCnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer) + Me.lb_cnt.Text = cnt1 & "/" & cnt2 + My.Application.DoEvents() + End Sub + + Private Sub PicList_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'Me.SortGroup1.SAVE_Setting() + Me.CHk_Modify() + Me.SAVE_Setting() + End Sub + Private Sub PicList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.view1.Setting_Load(False) + Me.filelistf.Setting_Load(False) + + 'Me.jjdetTableAdapter1.Connection.ConnectionString = Common.ConString + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '//글자정보 불러오기 + Me.filelistf.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '//글자정보 불러오기 + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '//글자정보 불러오기 + Me.StatusStrip2.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '//글자정보 불러오기 + + LOAD_Setting() '//기존의 셋팅이 저장된게 잇으면 가져온다. + Me.bt_picrefreh.PerformClick() '//그림목록을 갱신하며 + Display_Data() '//전주세부목록도 보여준다. + + Me.GETCNT() + Me.SETTOOLTIP() + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("태그1+관리구+전주번호+태그2 이용하여 파일명을 검색합니다") + TMSG.AppendLine() + TMSG.AppendLine("우측의 파일목록내에서 검색합니다.") + Me.bt_compareImg.ToolTipText = TMSG.ToString + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("데이터베이스에 저장된 그림파일경로를 확인하여") + TMSG.AppendLine("실제로 파일이 존재하는지 확인합니다") + Me.bt_chkimg.ToolTipText = TMSG.ToString + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("지정된 경로내의 그림파일 목록입니다.") + TMSG.AppendLine() + TMSG.AppendLine("항목을 더블클릭시 파일이름을 변경할 수 있습니다.") + TMSG.AppendLine("항목에 오른쪽 클릭시 항목의 경로로 현재 경로가 설정됩니다") + Me.ToolTip1.SetToolTip(Me.filelistf, TMSG.ToString) + End Sub + + Private Sub LOAD_Setting() + Dim A As New MyINI2(MyPath.Current & "\setting.ini") + Try + Me.lb_picdirectory.Text = A.Read("pic", "DefaultPicDir", "c:\windows") + Me.lb_picdirectory.Text = Me.lb_picdirectory.Text.Trim(Chr(0)) '//한글이잇을경우 붙는 쓰레기츨 처리한다. + 'Me.cmb_PICTYPE.SelectedIndex = A.Read("pic", "pictype", 3) + Me.cmb_picEXT.SelectedIndex = A.Read("pic", "picext", 1) + Me.CHK_SUBDIR.Checked = A.Read("pic", "subdir", True) + Catch ex As Exception + Me.lb_picdirectory.Text = vbNullString + Me.cmb_picEXT.SelectedIndex = 3 + 'Me.cmb_PICTYPE.SelectedIndex = 1 + Me.CHK_SUBDIR.Checked = True + End Try + A = Nothing + End Sub + Private Sub SAVE_Setting() + Dim A As New MyINI2(MyPath.Current & "\setting.ini") + + Try + A.Write("pic", "DefaultPicDir", Me.lb_picdirectory.Text) + 'A.Write("pic", "pictype", Me.cmb_PICTYPE.SelectedIndex) + A.Write("pic", "picext", Me.cmb_picEXT.SelectedIndex) + A.Write("pic", "subdir", Me.CHK_SUBDIR.Checked) + Catch ex As Exception + + End Try + A = Nothing + End Sub + + + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Dim Cnt As Integer = 0 + Me.bs.EndEdit() + If Not Me.IreaDataSet1.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) + Try + Me.bs.EndEdit() + Me.jjdetTableAdapter1.Update(Me.IreaDataSet1.jjutable) + Me.IreaDataSet1.jjutable.AcceptChanges() + NOTICE(Cnt & "개의 데이터가 변경되었습니다", Me.lb_msg) + Catch ex As Exception + MsgBox("데이터베이스 변경중 오류가 발생했습니다" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.bs.CancelEdit() + Me.IreaDataSet1.jjutable.RejectChanges() + End Try + NOTICE("저장완료", Color.Blue, Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub Display_Data(Optional ByVal OrderState As String = vbNullString) '//뷰에데이터를 표시한다. + Me.jjdetTableAdapter1.Fill(Me.IreaDataSet1.jjutable, 관리id) + DV = New DataView(Me.IreaDataSet1.jjutable, "", "정렬번호,번호", DataViewRowState.CurrentRows) + Me.bs.DataSource = DV + NOTICE(Me.view1.ActiveSheet.RowCount & "개의 데이터가 검색되었습니다", Me.lb_msg) + End Sub + + Private Sub bt_picselect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_picselect.Click + Dim A As New FolderBrowserDialog + A.RootFolder = Environment.SpecialFolder.MyComputer + A.SelectedPath = Me.lb_picdirectory.Text + If A.ShowDialog() = Windows.Forms.DialogResult.Cancel Then + MsgBox("선택이 취소되었습니다", MsgBoxStyle.Critical, "확인") + Return + End If + Me.lb_picdirectory.Text = A.SelectedPath + Me.bt_picrefreh.PerformClick() + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_picrefreh.Click + Dim A As New System.IO.DirectoryInfo(Me.lb_picdirectory.Text) + If A.Exists = False Then Return + + Me.PicDS.PicfileList.Clear() '//현재목록초기화 + Me.PicDS.PicfileList.AcceptChanges() + If Me.PicDS.PicfileList.Count > 0 Then + MsgBox("기존 파일목록이 삭제가되지않았습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim FI() As System.IO.FileInfo = A.GetFiles("*." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + If FI.GetUpperBound(0) = -1 Then + MsgBox("가능한 파일이 존재하지 않습니다", MsgBoxStyle.Critical, "확인") + Return + End If + + Dim index As Integer = 0 + Dim endcnt As Integer = FI.GetUpperBound(0) + + For Each B As IO.FileInfo In FI + index += 1 + Me.ShowCnt(index, endcnt) + Dim DR As PicDS.PicfileListRow = Me.PicDS.PicfileList.NewPicfileListRow + DR.파일명 = B.Name + DR.크기 = B.Length + DR.찾음 = vbNullString + DR.경로 = B.DirectoryName + Me.PicDS.PicfileList.AddPicfileListRow(DR) + Next + End Sub + + Private Sub Check_image() + Dim A As New System.Text.StringBuilder + Dim StartTime, Endtime As Date + Dim 파일명s As String + Dim 파일명v As String + Dim Cnt As Integer = 0 + + + '/첫번째방법 데이터셋에서 검색을 한다. + StartTime = Now + + With Me.view1.ActiveSheet + For Each FRow As FarPoint.Win.Spread.Row In .Rows + Me.ShowCnt(FRow.Index, .RowCount - 1) + 파일명s = CStr(Me.view1.Cells(FRow.Index, "그림경로").Text & "\" & Me.view1.Cells(FRow.Index, "그림파일").Text).Replace("\\", "\") + 파일명v = CStr(DV.Item(FRow.Index)("그림경로").ToString & "\" & DV.Item(FRow.Index)("그림파일").ToString).Replace("\\", "\") + + If 파일명s <> 파일명v Then + MsgBox("뷰와 스프레드의 순서가 다릅니다 : " & FRow.Index) + End If + If 파일명s <> "" Then '//관리구 전주번호가 있을경우에만 확인한다. + If System.IO.File.Exists(파일명s) Then + Cnt += 1 + Me.view1.Cells(FRow.Index, "그림").Value = True + Else + Me.view1.Cells(FRow.Index, "그림").Value = False + End If + Else + Me.view1.Cells(FRow.Index, "그림").Value = False + End If + 'IDX += 1 + Next + End With + + 'For Each DR As DataRow In Me.IreaDataSet1.Tables(1).Rows + ' Me.prbar1.Value = IDX + ' 파일명 = IIf(IsDBNull(DR("그림파일명")), vbNullString, DR("그림파일명")) + ' If 파일명 = "" Then + ' Me.view1.ActiveSheet.Cells(IDX, Me.view1.선택줄번호).Value = False + ' Else + ' If System.IO.File.Exists(파일명) Then + ' Cnt += 1 + ' Me.view1.ActiveSheet.Cells(IDX, Me.view1.선택줄번호).Value = True + ' Else + ' Me.view1.ActiveSheet.Cells(IDX, Me.view1.선택줄번호).Value = False + ' End If + ' End If + ' IDX += 1 + 'Next + Endtime = Now + A.Remove(0, A.Length) + A.AppendLine("시작시간=" & StartTime.ToString) + A.AppendLine("종료시간=" & Endtime.ToString) + A.AppendLine() + A.AppendLine("경과시간=" & (Endtime - StartTime).ToString) + A.AppendLine() + A.AppendLine("전체=" & Me.IreaDataSet1.jjutable.Rows.Count) + A.AppendLine("찾음=" & Cnt) + A.AppendLine("없음=" & Me.IreaDataSet1.jjutable.Rows.Count - Cnt) + + MsgBox(A.ToString, MsgBoxStyle.Information, "그림파일확인 결과") + End Sub + Private Sub Compare_Image() + If Me.PicDS.PicfileList.Rows.Count <= 0 Then + MsgBox("검색가능한 파일이 존재하지않습니다", MsgBoxStyle.Critical, "태그입력오류") + Return + End If + Dim A As New System.Text.StringBuilder("파일명에 추가된 태그를 입력하세요.") + A.AppendLine() + A.AppendLine("입력될 태그를 파일명의 앞뒤에 붙인후 검색합니다.") + A.AppendLine() + A.AppendLine("입력방법 : 앞에붙일태그/뒤에붙일태그 ") + A.AppendLine() + A.AppendLine("예) 파일명 뒤에 _01 이 붙은것을 검색하고자할때") + A.AppendLine(" /_01% <= 입력하고 엔터") + A.AppendLine() + A.AppendLine("예) 파일명 앞에 P 가 붙은것을 검색하고자할때") + A.AppendLine(" %P/ <= 입력하고 엔터") + A.AppendLine() + A.AppendLine("예) 파일명 앞에 P가 붙고 뒤에 _01이 붙은것을 검색하고자할때") + A.AppendLine(" %P/_01% <= 입력하고 엔터") + A.AppendLine("==========================================") + A.AppendLine(" _03 : 신설+철거 , _04 : 신설 자동 체크") + + Dim Itag As String = InputBox(A.ToString, "태그입력", "%/%") + If Itag = "" Then + MsgBox("태그를 반드시 입력해야합니다" & vbCrLf & "작업이 취소되었습니다", MsgBoxStyle.Critical, "Error") + Return + End If + Dim Stag() As String = Itag.Split("/") + If Stag.GetUpperBound(0) <> 1 Then + MsgBox("잘못된 태그가 입력되었습니다" & vbCrLf & "태그입력형식은 앞,뒤 를 / 로 묶은 형태입니다" & vbCrLf & vbCrLf & "예) %P/_01%", MsgBoxStyle.Information, "태그입력오류") + Return + End If + + '//파일목록디비에서 그림찾음 부분을 리셋한다 + Dim index As Integer = 0 + Dim endcnt As Integer = Me.PicDS.PicfileList.Rows.Count - 1 + For Each Dr As DataRow In Me.PicDS.PicfileList.Rows + index += 1 + ShowCnt(index, endcnt) + Dr("찾음") = "" + Dr("메세지") = "" + Next + + + '//실제 수행부분 + Dim StartTime, Endtime As Date + Dim 관리구, 전주번호, 파일명 As String + Dim Cnt As Integer = 0 + Dim IDX As Integer = 0 + StartTime = Now + + '//데이터뷰를 통해서말고 파포인트에서 한다. + Dim Sv As DataView + + index = 0 + With Me.view1.ActiveSheet + For Each FRow As DataRow In Me.IreaDataSet1.jjutable.Rows + index += 1 + ShowCnt(index, endcnt) + 관리구 = NVL(FRow("관리구"), "") + 전주번호 = NVL(FRow("전주번호"), "") + 파일명 = CStr(관리구 & 전주번호).Trim + + If 파일명 <> "" Then '//관리구 전주번호가 있을경우에만 확인한다. + 파일명 = Stag(0) & 관리구 & 전주번호 & Stag(1) ' & "." & Me.cmb_picEXT.Text + 'Dim DR() As DataRow '= Me.PicDS.PicfileList.Select("파일명 like '" & 파일명 & "'") '//LIke 검색을 한다. + + If chk_03.Checked Then + Sv = New DataView(Me.PicDS.PicfileList, "파일명 like '%_03%' and 파일명 like '" & 파일명 & "'", "", DataViewRowState.CurrentRows) + If Sv.Count > 0 Then + Cnt += 1 + FRow("신규") = True + FRow("철거") = True + FRow("그림") = True + FRow("기입") = False + '//찾은그림파일및 경로를 데이터베이스에 복사한다. + Sv.Item(0)("찾음") = "O" + FRow("그림경로") = Sv.Item(0)("경로") + FRow("그림파일") = Sv.Item(0)("파일명") + Sv.Item(0)("메세지") = "우선순위_03" + GoTo LAST + End If + End If + + If chk_04.Checked Then + Sv = New DataView(Me.PicDS.PicfileList, "파일명 like '%_04%' and 파일명 like '" & 파일명 & "'", "", DataViewRowState.CurrentRows) + If Sv.Count > 0 Then + Cnt += 1 + FRow("신규") = True + FRow("철거") = False + FRow("그림") = True + FRow("기입") = False + Sv.Item(0)("찾음") = "O" + FRow("그림경로") = Sv.Item(0)("경로") + FRow("그림파일") = Sv.Item(0)("파일명") + Sv.Item(0)("메세지") = "우선순위_04" + GoTo LAST + End If + End If + + If chk_01.Checked Then + Sv = New DataView(Me.PicDS.PicfileList, "파일명 like '%_01%' and 파일명 like '" & 파일명 & "'", "", DataViewRowState.CurrentRows) + If Sv.Count > 0 Then + Cnt += 1 + FRow("신규") = False + FRow("철거") = False + FRow("그림") = True + FRow("기입") = True + Sv.Item(0)("찾음") = "O" + FRow("그림경로") = Sv.Item(0)("경로") + FRow("그림파일") = Sv.Item(0)("파일명") + Sv.Item(0)("메세지") = "우선순위_01" + GoTo LAST + End If + End If + + If chk_71.Checked Then + Sv = New DataView(Me.PicDS.PicfileList, "파일명 like '%_71%' and 파일명 like '" & 파일명 & "'", "", DataViewRowState.CurrentRows) + If Sv.Count > 0 Then + Cnt += 1 + FRow("신규") = False + FRow("철거") = False + FRow("그림") = True + FRow("기입") = True + Sv.Item(0)("찾음") = "O" + FRow("그림경로") = Sv.Item(0)("경로") + FRow("그림파일") = Sv.Item(0)("파일명") + Sv.Item(0)("메세지") = "우선순위_71" + GoTo LAST + End If + End If + + '//여기까지왓다는것은 암껏도 못찾앗다는것이므로 찾은것중에 0번째를 지정하고 나간다. + Sv = New DataView(Me.PicDS.PicfileList, "파일명 like '" & 파일명 & "'", "", DataViewRowState.CurrentRows) + If Sv.Count > 0 Then + Cnt += 1 + FRow("신규") = False + FRow("철거") = False + FRow("기입") = False + FRow("그림") = True + + Sv.Item(0)("찾음") = "O" + FRow("그림경로") = Sv.Item(0)("경로") + FRow("그림파일") = Sv.Item(0)("파일명") + Sv.Item(0)("메세지") = "첫번쨰발견아이템" + If FRow("그림파일").ToString.IndexOf("_03") >= 0 Then + FRow("신규") = True + FRow("철거") = True + ElseIf FRow("그림파일").ToString.IndexOf("_04") >= 0 Then + FRow("신규") = True + Else + FRow("기입") = True + End If + Else + FRow("신규") = False + FRow("철거") = False + FRow("그림") = False + FRow("기입") = True + FRow("그림경로") = "" + FRow("그림파일") = "" + End If +LAST: + + End If + Next + End With + + Endtime = Now + A.Remove(0, A.Length) + A.AppendLine("시작시간=" & StartTime.ToString) + A.AppendLine("종료시간=" & Endtime.ToString) + A.AppendLine() + A.AppendLine("경과시간=" & (Endtime - StartTime).ToString) + A.AppendLine() + A.AppendLine("전체=" & Me.IreaDataSet1.jjutable.Rows.Count) + A.AppendLine("찾음=" & Cnt) + A.AppendLine("없음=" & Me.IreaDataSet1.jjutable.Rows.Count - Cnt) + MsgBox(A.ToString, MsgBoxStyle.Information, "그림파일연결 결과") + End Sub + Private Sub Compare_OldImage() + Dim A As New System.Text.StringBuilder("파일명뒤에 붙을 태그를 입력하세요") + IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\log\변경후파일") + IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\log\변경전파일") + A.AppendLine() + A.AppendLine("입력될 태그를 파일명뒤에 붙인후 파일명을 비교합니다") + Dim Itag As String = InputBox(A.ToString, "태그입력", "_01") + If Itag = "" Then + MsgBox("태그를 반드시 입력해야합니다", MsgBoxStyle.Critical, "Error") + Return + End If + + Dim StartTime, Endtime As Date + Dim 구관리구, 구전주번호, 파일명, 파일명2, 관리구, 전주번호 As String + Dim Cnt As Integer = 0 + Dim IDX As Integer = 0 + + Dim endcnt As Integer = Me.IreaDataSet1.Tables("전주세부").Rows.Count + + + '/첫번째방법 데이터셋에서 검색을 한다. + StartTime = Now + For Each DR As ireaDataSet.jjutableRow In Me.IreaDataSet1.Tables(1).Rows + ShowCnt(IDX, endcnt) + 구관리구 = DR.구관리구.Trim + 구전주번호 = DR.구전산번호.Trim + 관리구 = DR.관리구 + 전주번호 = DR.전주번호 + '파일명 = 구관리구 & 구전주번호 + If CStr(구관리구 & 구전주번호) <> "" Then '//관리구 전주번호가 있을경우에만 확인한다. + + If CStr(관리구 & 전주번호) <> "" Then + 파일명 = Me.lb_picdirectory.Text & "\" & 구관리구 & 구전주번호 & Itag & "." & Me.cmb_picEXT.Text + 'Dim fILES() As String = IO.Directory.GetFiles(Me.lb_picdirectory.Text, 관리구 & 전주번호 & Itag & "." & Me.cmb_picEXT.Text, IIf(Me.CHK_SUBDIR.Checked, 1, 0)) + If IO.File.Exists(파일명) Then + 파일명2 = Me.lb_picdirectory.Text & "\" & 관리구 & 전주번호 & Itag & "." & Me.cmb_picEXT.Text + + IO.File.Copy(파일명, My.Application.Info.DirectoryPath & "\log\변경후파일\" & 관리구 & 전주번호 & Itag & "." & Me.cmb_picEXT.Text, True) + IO.File.Move(파일명, My.Application.Info.DirectoryPath & "\log\변경전파일\" & 구관리구 & 구전주번호 & Itag & "." & Me.cmb_picEXT.Text) + + Cnt += 1 + WLog("##########변경완료(" & IDX & ")" & vbCrLf & "구관리전산번호=" & 구관리구 & _ + 구전주번호 & vbCrLf & "신관리전산번호=" & 관리구 & 전주번호 & _ + "원본파일명 = " & 파일명 & vbCrLf & "대상파일명=" & 파일명2, "\구관리전산그림변경(완료됨).txt") + 'Me.view1.ActiveSheet.Cells(IDX, 20).Value = True + Else '//구관리전산번호에 해당하는 그림이없으므로 패스 + 'Me.view1.ActiveSheet.Cells(IDX, 20).Value = False + WLog("##########구관리전산번호에대한 그림파일이 없습니다.(" & IDX & ")" & vbCrLf & "구관리전산번호=" & 구관리구 & _ + 구전주번호 & vbCrLf & "신관리전산번호=" & 관리구 & 전주번호 & vbCrLf & _ + "원본파일명 = " & 파일명, "\구관리전산그림변경(구관리전산그림없음).txt") + End If + Else + WLog("##########신관리전산번호가 없습니다.(" & IDX & ")" & vbCrLf & "구관리전산번호=" & 구관리구 & 구전주번호, "\구관리전산그림변경(신관리전산없음).txt") + End If + + Else + '//구관리전산번호가 없어서 넘어갓다 + WLog("##########구관리전산번호가 없습니다.(" & IDX & ")", "\구관리전산그림변경(구관리전산없음).txt") + IDX += 1 + End If + + Next + Endtime = Now + + A.Remove(0, A.Length) + A.AppendLine("시작시간=" & StartTime.ToString) + A.AppendLine("종료시간=" & Endtime.ToString) + A.AppendLine() + A.AppendLine("경과시간=" & (Endtime - StartTime).ToString) + A.AppendLine() + A.AppendLine("전체=" & Me.IreaDataSet1.Tables(1).Rows.Count) + A.AppendLine("정상변경=" & Cnt) + A.AppendLine("변경불가=" & Me.IreaDataSet1.Tables(1).Rows.Count - Cnt) + A.AppendLine() + A.AppendLine("변경전 원본파일은 " & My.Application.Info.DirectoryPath & "\log\변경전파일") + A.AppendLine("변경후 대상파일은 " & My.Application.Info.DirectoryPath & "\log\변경후파일") + A.AppendLine("에 존재하며 원본파일은 원본위치(" & Me.lb_picdirectory.Text & ")" & " 에서") + A.AppendLine(My.Application.Info.DirectoryPath & "\log\변경전파일" & " 로 이동되었습니다") + A.AppendLine(My.Application.Info.DirectoryPath & "\log 에서 자세한 로그를 볼 수 있습니다") + + MsgBox(A.ToString, MsgBoxStyle.Information, "구그림파일 변경결과") + + + ' Dim aA As New Process + 'Process.Start("explorer ", My.Application.Info.DirectoryPath & "\log") + + End Sub + + + + Private Sub cmb_picEXT_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_picEXT.SelectedIndexChanged + '확장자를 바껏으니 목록을 갱신한다. + Me.bt_picrefreh.PerformClick() + End Sub + + +#Region "GETCNT : 화면하단에 기입/신규/철거/그림의 카운터를 보여줌" + + Private Sub GETCNT() + Dim 신규, 기입, 철거, 그림 As Integer + + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If Me.view1.ActiveSheet.Cells(A.Index, 21).Value = True Then 그림 += 1 + If Me.view1.ActiveSheet.Cells(A.Index, 20).Value = True Then 철거 += 1 + If Me.view1.ActiveSheet.Cells(A.Index, 19).Value = True Then 신규 += 1 + If Me.view1.ActiveSheet.Cells(A.Index, 18).Value = True Then 기입 += 1 + Next + Me.lb_total.Text = "전체:" & Me.view1.ActiveSheet.RowCount & "/기입:" & 기입 & "/신규:" & 신규 & "/철거:" & 철거 & "/그림:" & 그림 + End Sub +#End Region + + Private Sub view1_ButtonClicked(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles view1.ButtonClicked + '//신규,기입,철거중 변하는게 있으면 목록수를 다시 갱신해준다. + If e.Column = 21 OrElse e.Column = 18 OrElse e.Column = 19 OrElse e.Column = 20 Then + 'MsgBox(e.Column) + Me.GETCNT() + End If + End Sub + + + Private Sub view1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles view1.EnterCell + Dim RowIndex As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Dim Fn As String = CStr(Me.view1.Cells("그림경로").Text & "\" & Me.view1.Cells("그림파일").Text).Replace("\\", "\") + + '//그림도 보여준다. + If IO.File.Exists(Fn) Then + Me.pic1.Image = Image.FromFile(Fn) + NOTICE("<그림파일이 확인되었습니다>", Me.lb_msg) + Else + Me.pic1.Image = Nothing + NOTICE("그림파일(" & Fn & ")이 존재하지 않습니다", Me.lb_msg) + End If + + End Sub + + + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + If Not Me.IreaDataSet1.HasChanges Then + NOTICE("변경된 데이터가 없습니다", Me.lb_msg) + Return + End If + Me.IreaDataSet1.RejectChanges() + NOTICE("변경된 데이터가 복원되었습니다", Color.Blue, Me.lb_msg) + End Sub + + Private Sub m_fileallenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_fileall.Click + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\전체리스트목록" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.view1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + OldnumPicMan.cmb_picEXT.SelectedIndex = Me.cmb_picEXT.SelectedIndex + OldnumPicMan.lb_picdirectory.Text = Me.lb_picdirectory.Text + OldnumPicMan.MyFpoint1.DataSource = Me.bs + OldnumPicMan.ShowDialog() + End Sub + + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Me.Close() + End Sub + + Private Sub m_filekiipenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_filekiip.Click + 'Me.BindingSource1.Filter = "기입" + + Dim Dv As New DataView(Me.IreaDataSet1.jjutable, "기입", "", DataViewRowState.CurrentRows) + Me.view1.DataSource = Dv + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\기입선택목록" + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Me.view1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End If + Me.view1.DataSource = Me.bs + End Sub + + + + Private Sub m_filesinku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_filesinku.Click + Me.bs.Filter = "신규" + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\신규선택목록" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then + Me.bs.Filter = "" + Return + End If + + Me.view1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + Me.bs.Filter = "" + End Sub + + Private Sub m_filechol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_filechol.Click + Me.bs.Filter = "철거" + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\철거선택목록" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then + Me.bs.Filter = "" + Return + End If + + Me.view1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + Me.bs.Filter = "" + End Sub + + Private Sub m_filepicno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m_filepicno.Click + Dim Dv As New DataView(Me.IreaDataSet1.jjutable, "not 그림", "", DataViewRowState.CurrentRows) + Me.view1.DataSource = Dv + + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\목록은있고사진파일이없는경우" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then + Me.view1.DataSource = bs + Return + End If + + + Me.view1.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + Me.view1.DataSource = bs + + End Sub + + Private Sub ToolStripButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.CHk_Modify() + Me.Display_Data() + End Sub + + Private Sub bt_chkimg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkimg.Click + If MsgBox("계속하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + + If Me.lb_picdirectory.Text = "" OrElse Me.lb_picdirectory.Text = "+" Then Me.bt_picselect.PerformClick() + If Me.lb_picdirectory.Text = "" OrElse Me.lb_picdirectory.Text = "+" Then Return + + 'BackWork = New Threading.Thread(AddressOf Check_image) + 'BackWork.Start() + Check_image() + End Sub + + Private Sub ToolStripButton4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_compareImg.Click + + End Sub + + + Private Sub filelistf_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles filelistf.CellDoubleClick + Dim 파일명 As String + Dim 파일경로 As String + Dim 파일Cell As FarPoint.Win.Spread.Cell + Dim 경로cell As FarPoint.Win.Spread.Cell + + + 파일Cell = Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 0) + 경로cell = Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 1) + + 파일명 = 파일Cell.Text + 파일경로 = 경로cell.Text + + Dim 신파일명 As String = InputBox("새로운 파일명을 입력하세요", "파일명변경", 파일명) : If 신파일명 = "" Then Return + + If System.IO.File.Exists(파일경로 & "\" & 파일명) = False Then + MsgBox("원본파일이 존재하지않습니다", MsgBoxStyle.Critical, "변경 실패") + Return + End If + + System.IO.File.Move(파일경로 & "\" & 파일명, 파일경로 & "\" & 신파일명) + NOTICE("파일명이 " & 신파일명 & " 으로 변경되었습니다", Color.Blue, Me.lb_msg) + + 파일Cell.Text = 신파일명 + + End Sub + + Private Sub filelistf_SelectionChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.SelectionChangedEventArgs) Handles filelistf.SelectionChanged + Dim Fn As String + Try + Fn = Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 1).Text & "\" & Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 0).Text + If System.IO.File.Exists(Fn) Then + Dim A As New Bitmap(Fn) + Dim B As New Bitmap(A) + A.Dispose() + Me.pic1.Image = B + PRv_picture.PictureBox1.Image = Me.pic1.Image + Else + NOTICE("NoFile:" & Fn, Me.lb_msg) + End If + Catch ex As Exception + End Try + End Sub + + + Private Sub bt_del1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_del1.Click + If Me.filelistf.ActiveSheet.RowCount = 0 Then Return + + If MsgBox("파일을 삭제하시겠습니까?", MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + + Dim fC As FarPoint.Win.Spread.Cell = Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 0) + Dim cc As FarPoint.Win.Spread.Cell = Me.filelistf.ActiveSheet.Cells(Me.filelistf.ActiveSheet.ActiveRowIndex, 1) + Dim Row As FarPoint.Win.Spread.Row = Me.filelistf.ActiveSheet.ActiveRow + + If System.IO.File.Exists(cc.Text & "\" & fC.Text) = False Then + MsgBox("원본파일이 존재하지않습니다", MsgBoxStyle.Critical, "변경 실패") + Return + End If + + System.IO.File.Delete(cc.Text & "\" & fC.Text) + NOTICE("파일명 " & fC.Text & "이 삭제되었습니다", Color.Blue, Me.lb_msg) + Row.Remove() + Me.pic1.Image = Nothing + End Sub + + + Private Sub bt_clist1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_clist1.Click + If MsgBox("목록을 지우시겠습니까?" & vbCrLf & "그림목록갱신을 누르면 목록이 다시 생성됩니다", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + Me.PicDS.PicfileList.Clear() + Me.PicDS.PicfileList.AcceptChanges() + End Sub + + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click + '//찾은파일목록 + If Me.filelistf.ActiveSheet.RowCount = 0 Then Return + Dim A As New SaveFileDialog + A.Filter = "엑셀워크시트문서(*.XLS)|*.xls" + A.FilterIndex = 0 + A.FileName = My.Application.Info.DirectoryPath & "\전체파일목록" + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.filelistf.SaveExcel(A.FileName, FarPoint.Win.Spread.Model.IncludeHeaders.ColumnHeadersCustomOnly) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + End Sub + + Private Sub pic1_BackgroundImageChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles pic1.BackgroundImageChanged + If PRv_picture.Visible = True Then PRv_picture.PictureBox1.Image = Me.pic1.Image + End Sub + + Private Sub pic1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic1.Click + If Me.pic1.Image Is Nothing Then Return + PRv_picture.PictureBox1.Image = Nothing + PRv_picture.PictureBox1.Image = Me.pic1.Image + PRv_picture.Show() + + End Sub + + Private Sub bt_compareImg_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_compareImg.ButtonClick + If MsgBox("계속하시겠습니까?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return + Compare_Image() + GETCNT() + End Sub + + Private Sub ToolStripTextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripTextBox1.Click + + End Sub + + Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged + Try + Me.PicfileListBindingSource.Filter = Me.TextBox1.Text + Me.Text = Me.PicfileListBindingSource.Filter + Catch ex As Exception + Me.PicfileListBindingSource.Filter = "" + Me.Text = ex.Message.ToString + End Try + End Sub + + Private Sub ToolStripTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripTextBox1.TextChanged + Try + Me.bs.Filter = Me.ToolStripTextBox1.Text + Catch ex As Exception + Me.bs.Filter = "" + End Try + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.filelistf.Setting_Save(False) + End Sub + + Private Sub bt_colsizesave2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave2.Click + Me.view1.Setting_Save(False) + 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 \ No newline at end of file diff --git a/Epole/입력폼/StyleEdit.Designer.vb b/Epole/입력폼/StyleEdit.Designer.vb new file mode 100644 index 0000000..9c99997 --- /dev/null +++ b/Epole/입력폼/StyleEdit.Designer.vb @@ -0,0 +1,248 @@ + _ +Partial Class StyleEdit + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + 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 diff --git a/Epole/입력폼/StyleEdit.resx b/Epole/입력폼/StyleEdit.resx new file mode 100644 index 0000000..c27316f --- /dev/null +++ b/Epole/입력폼/StyleEdit.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 135, 17 + + \ No newline at end of file diff --git a/Epole/입력폼/StyleEdit.vb b/Epole/입력폼/StyleEdit.vb new file mode 100644 index 0000000..b25f6ff --- /dev/null +++ b/Epole/입력폼/StyleEdit.vb @@ -0,0 +1,50 @@ +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", "X14", "X15", "X16", "X17", "X18", "X19", "X20"} + + Private Sub StyleEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + 'MsgBox(ListIndex) + Me.lb_filename.Text = Common.PDS(ListIndex).TStyle.Rows(0)("File").ToString() + Me.RichTextBox1.LoadFile(Me.lb_filename.Text, 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.lb_filename.Text, 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(Me.lb_filename.Text, RichTextBoxStreamType.PlainText) + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/bak_AddEpoleCableLabel.Designer.vb b/Epole/입력폼/bak_AddEpoleCableLabel.Designer.vb new file mode 100644 index 0000000..b5300cc --- /dev/null +++ b/Epole/입력폼/bak_AddEpoleCableLabel.Designer.vb @@ -0,0 +1,1209 @@ + _ +Partial Class AddEpoleCableLabelTEST + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim TipAppearance1 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType21 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType22 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType23 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType24 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType25 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType26 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType27 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim TextCellType28 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_ime = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_pos = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_edit = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_change = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_dupchk = New System.Windows.Forms.ToolStripDropDownButton + Me.ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.bt_find = New System.Windows.Forms.ToolStripButton + Me.bt_datasort = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripDropDownButton + Me.outsalldatae = New System.Windows.Forms.ToolStripMenuItem + Me.savecurrentdata = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.bt_colsizesave = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripSeparator + Me.oolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator + Me.cm_RenewNum = New System.Windows.Forms.ToolStripMenuItem + Me.servoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripSeparator + Me.out = New System.Windows.Forms.ToolStripMenuItem + Me.bt_save_all = New System.Windows.Forms.ToolStripMenuItem + Me.bt_save_current = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.olStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem + Me.lStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem + Me.gfsdlStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripSeparator + Me.bt_seldel = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripSeparator + Me.cbt_vsell = New System.Windows.Forms.ToolStripMenuItem + Me.cbt_vselall = New System.Windows.Forms.ToolStripMenuItem + Me.cbt_vusell = New System.Windows.Forms.ToolStripMenuItem + Me.cbt_vselrev = New System.Windows.Forms.ToolStripMenuItem + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.bt_addrow = New System.Windows.Forms.ToolStripButton + Me.Label5 = New System.Windows.Forms.Label + Me.Label6 = New System.Windows.Forms.Label + Me.Label7 = New System.Windows.Forms.Label + Me.Label8 = New System.Windows.Forms.Label + Me.Label9 = New System.Windows.Forms.Label + Me.Panel1 = New System.Windows.Forms.Panel + Me.h_bigo = New MyControlOLEDBv2.MyTextBox + Me.h_dan = New MyControlOLEDBv2.MyTextBox + Me.h_id = New MyControlOLEDBv2.MyTextBox + Me.h_date = New MyControlOLEDBv2.MyMaskBox + Me.h_name = New MyControlOLEDBv2.MyTextBox + Me.bn = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bs = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.bt_insertrow = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.bt_commit = New System.Windows.Forms.ToolStripButton + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton + Me.pbar = New System.Windows.Forms.ProgressBar + Me.view1 = New NewFp + Me.view1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.ta = New EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter + Me.StatusStrip1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit() + Me.bn.SuspendLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + '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_ime, Me.lb_pos, Me.lb_edit, Me.lb_change, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 555) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(1172, 22) + Me.StatusStrip1.TabIndex = 7 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_ime + ' + Me.lb_ime.ForeColor = System.Drawing.Color.Blue + Me.lb_ime.Name = "lb_ime" + Me.lb_ime.Size = New System.Drawing.Size(41, 17) + Me.lb_ime.Text = "[한글]" + ' + 'lb_pos + ' + Me.lb_pos.Name = "lb_pos" + Me.lb_pos.Size = New System.Drawing.Size(33, 17) + Me.lb_pos.Text = "[0,0]" + ' + 'lb_edit + ' + Me.lb_edit.Name = "lb_edit" + Me.lb_edit.Size = New System.Drawing.Size(41, 17) + Me.lb_edit.Text = "[이동]" + ' + 'lb_change + ' + Me.lb_change.Name = "lb_change" + Me.lb_change.Size = New System.Drawing.Size(11, 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 = "알림" + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_dupchk, Me.bt_find, Me.bt_datasort, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripSeparator4, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator5, Me.ToolStripButton3}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(1172, 39) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_dupchk + ' + Me.bt_dupchk.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem}) + Me.bt_dupchk.Image = Global.EpoleNet.My.Resources.Resources.srch_32 + Me.bt_dupchk.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_dupchk.Name = "bt_dupchk" + Me.bt_dupchk.Size = New System.Drawing.Size(98, 36) + Me.bt_dupchk.Text = "중복검사" + Me.bt_dupchk.ToolTipText = "중복된 전주번호를 체크합니다" + ' + 'ToolStripMenuItem + ' + Me.ToolStripMenuItem.Name = "ToolStripMenuItem" + Me.ToolStripMenuItem.Size = New System.Drawing.Size(160, 22) + Me.ToolStripMenuItem.Text = "[관리/전산번호]" + Me.ToolStripMenuItem.ToolTipText = "중복된 관리/전산번호를 체크합니다" + ' + 'bt_find + ' + Me.bt_find.Image = Global.EpoleNet.My.Resources.Resources.ref_32 + Me.bt_find.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_find.Name = "bt_find" + Me.bt_find.Size = New System.Drawing.Size(122, 36) + Me.bt_find.Text = "데이터 확인(&F)" + Me.bt_find.ToolTipText = "화면의 내용을 데이터베이스에서 다시 불러옵니다" + ' + 'bt_datasort + ' + Me.bt_datasort.Image = Global.EpoleNet.My.Resources.Resources.smicn_32 + Me.bt_datasort.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_datasort.Name = "bt_datasort" + Me.bt_datasort.Size = New System.Drawing.Size(129, 36) + Me.bt_datasort.Text = "[전주번호] 정렬" + Me.bt_datasort.Visible = False + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.outsalldatae, Me.savecurrentdata}) + Me.ToolStripButton4.Image = Global.EpoleNet.My.Resources.Resources.excel + Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.Size = New System.Drawing.Size(126, 36) + Me.ToolStripButton4.Text = "엑셀파일 저장" + ' + 'outsalldatae + ' + Me.outsalldatae.Name = "outsalldatae" + Me.outsalldatae.Size = New System.Drawing.Size(202, 22) + Me.outsalldatae.Text = "모든 데이터 내보내기(&1)" + ' + 'savecurrentdata + ' + Me.savecurrentdata.Name = "savecurrentdata" + Me.savecurrentdata.Size = New System.Drawing.Size(202, 22) + Me.savecurrentdata.Text = "현재 데이터 내보내기(&2)" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.EpoleNet.My.Resources.Resources.open_32 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(131, 36) + Me.ToolStripButton1.Text = "엑셀불러오기(&P)" + Me.ToolStripButton1.ToolTipText = "엑셀파일로부터 데이터를 가져옵니다" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(83, 36) + Me.ToolStripButton2.Text = "출력(&V)" + Me.ToolStripButton2.ToolTipText = "현재 뷰를 원본으로 미리보기 화면을 표시합니다." + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.Image = Global.EpoleNet.My.Resources.Resources.start + Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.Size = New System.Drawing.Size(89, 36) + Me.ToolStripButton3.Text = "홈페이지" + ' + 'ErrorProvider1 + ' + Me.ErrorProvider1.ContainerControl = Me + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_colsizesave, Me.ToolStripMenuItem5, Me.oolStripMenuItem, Me.ToolStripMenuItem2, Me.cm_RenewNum, Me.servoolStripMenuItem, Me.ToolStripMenuItem4, Me.out, Me.ToolStripMenuItem1, Me.olStripMenuItem, Me.ToolStripMenuItem3, Me.cbt_vsell}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(166, 188) + ' + 'bt_colsizesave + ' + Me.bt_colsizesave.Name = "bt_colsizesave" + Me.bt_colsizesave.Size = New System.Drawing.Size(165, 22) + Me.bt_colsizesave.Text = "현재뷰상태저장" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(162, 6) + ' + 'oolStripMenuItem + ' + Me.oolStripMenuItem.Name = "oolStripMenuItem" + Me.oolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.oolStripMenuItem.Text = "출력 미리보기(&1)" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(162, 6) + ' + 'cm_RenewNum + ' + Me.cm_RenewNum.Name = "cm_RenewNum" + Me.cm_RenewNum.Size = New System.Drawing.Size(165, 22) + Me.cm_RenewNum.Text = "번호갱신" + Me.cm_RenewNum.ToolTipText = "번호를 1번부터 순서대로 부여합니다" + ' + 'servoolStripMenuItem + ' + Me.servoolStripMenuItem.Name = "servoolStripMenuItem" + Me.servoolStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.servoolStripMenuItem.Text = "문자 검색" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(162, 6) + ' + 'out + ' + Me.out.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_save_all, Me.bt_save_current}) + Me.out.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.out.Name = "out" + Me.out.Size = New System.Drawing.Size(165, 22) + Me.out.Text = "파일로 저장" + ' + 'bt_save_all + ' + Me.bt_save_all.Name = "bt_save_all" + Me.bt_save_all.Size = New System.Drawing.Size(153, 22) + Me.bt_save_all.Text = "모든 데이터(&1)" + Me.bt_save_all.ToolTipText = "화면에 보이는것과 상관없이 모든 데이터를 저장합니다" + ' + 'bt_save_current + ' + Me.bt_save_current.Name = "bt_save_current" + Me.bt_save_current.Size = New System.Drawing.Size(153, 22) + Me.bt_save_current.Text = "현재 데이터(&2)" + Me.bt_save_current.ToolTipText = "정렬 및 필터기능이 적용된형태 그대로를 저장합니다" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(162, 6) + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem1, Me.lStripMenuItem2, Me.gfsdlStripMenuItem2, Me.ToolStripMenuItem6, Me.bt_seldel, Me.ToolStripMenuItem7}) + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(165, 22) + Me.olStripMenuItem.Text = "선택" + ' + 'olStripMenuItem1 + ' + Me.olStripMenuItem1.Name = "olStripMenuItem1" + Me.olStripMenuItem1.Size = New System.Drawing.Size(122, 22) + Me.olStripMenuItem1.Text = "전체선택" + ' + 'lStripMenuItem2 + ' + Me.lStripMenuItem2.Name = "lStripMenuItem2" + Me.lStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.lStripMenuItem2.Text = "전체해제" + ' + 'gfsdlStripMenuItem2 + ' + Me.gfsdlStripMenuItem2.Name = "gfsdlStripMenuItem2" + Me.gfsdlStripMenuItem2.Size = New System.Drawing.Size(122, 22) + Me.gfsdlStripMenuItem2.Text = "선택반전" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(119, 6) + ' + 'bt_seldel + ' + Me.bt_seldel.Name = "bt_seldel" + Me.bt_seldel.Size = New System.Drawing.Size(122, 22) + Me.bt_seldel.Text = "선택삭제" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(119, 6) + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(162, 6) + ' + 'cbt_vsell + ' + Me.cbt_vsell.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cbt_vselall, Me.cbt_vusell, Me.cbt_vselrev}) + Me.cbt_vsell.Name = "cbt_vsell" + Me.cbt_vsell.Size = New System.Drawing.Size(165, 22) + Me.cbt_vsell.Text = "출력선택" + ' + 'cbt_vselall + ' + Me.cbt_vselall.Name = "cbt_vselall" + Me.cbt_vselall.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselall.Text = "전체선택" + ' + 'cbt_vusell + ' + Me.cbt_vusell.Name = "cbt_vusell" + Me.cbt_vusell.Size = New System.Drawing.Size(122, 22) + Me.cbt_vusell.Text = "전체해제" + ' + 'cbt_vselrev + ' + Me.cbt_vselrev.Name = "cbt_vselrev" + Me.cbt_vselrev.Size = New System.Drawing.Size(122, 22) + Me.cbt_vselrev.Text = "선택반전" + ' + 'ToolTip1 + ' + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'bt_addrow + ' + Me.bt_addrow.Image = Global.EpoleNet.My.Resources.Resources.edit_32 + Me.bt_addrow.Name = "bt_addrow" + Me.bt_addrow.RightToLeftAutoMirrorImage = True + Me.bt_addrow.Size = New System.Drawing.Size(89, 36) + Me.bt_addrow.Text = "한줄추가" + Me.bt_addrow.ToolTipText = "하단에 새로운 줄을 추가합니다" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(95, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(41, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "제작일" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(342, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(53, 12) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "거래처명" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(555, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(53, 12) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "작업내용" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(16, 12) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "ID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(232, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(29, 12) + Me.Label9.TabIndex = 19 + Me.Label9.Text = "단가" + ' + 'Panel1 + ' + Me.Panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel1.BackColor = System.Drawing.Color.Khaki + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.h_bigo) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.h_dan) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Label9) + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.h_id) + Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.h_date) + Me.Panel1.Controls.Add(Me.h_name) + Me.Panel1.Location = New System.Drawing.Point(-1, 43) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1175, 37) + Me.Panel1.TabIndex = 21 + ' + 'h_bigo + ' + Me.h_bigo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.h_bigo.BackColor = System.Drawing.Color.White + Me.h_bigo.DB_BaseLabel = Nothing + Me.h_bigo.DB_ColName = "TextBox1" + Me.h_bigo.DB_ITEM = False + Me.h_bigo.DB_NotNull = False + Me.h_bigo.DB_Prompt = "TextBox1" + Me.h_bigo.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_bigo.DB_WhereType = Nothing + Me.h_bigo.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_bigo.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_bigo.Location = New System.Drawing.Point(615, 8) + Me.h_bigo.Name = "h_bigo" + Me.h_bigo.Size = New System.Drawing.Size(545, 21) + Me.h_bigo.TabIndex = 17 + Me.h_bigo.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_bigo.Value = "" + Me.h_bigo.WHERE_DEFAULT_VALUE = "" + ' + 'h_dan + ' + Me.h_dan.BackColor = System.Drawing.Color.White + Me.h_dan.DB_BaseLabel = Nothing + Me.h_dan.DB_ColName = "TextBox1" + Me.h_dan.DB_ITEM = False + Me.h_dan.DB_NotNull = False + Me.h_dan.DB_Prompt = "TextBox1" + Me.h_dan.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_dan.DB_WhereType = Nothing + Me.h_dan.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.숫자 + Me.h_dan.Location = New System.Drawing.Point(267, 8) + Me.h_dan.Name = "h_dan" + Me.h_dan.Size = New System.Drawing.Size(60, 21) + Me.h_dan.TabIndex = 20 + Me.h_dan.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_dan.Value = "" + Me.h_dan.WHERE_DEFAULT_VALUE = "" + ' + 'h_id + ' + Me.h_id.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.h_id.DB_BaseLabel = Nothing + Me.h_id.DB_ColName = "TextBox1" + Me.h_id.DB_ITEM = False + Me.h_id.DB_NotNull = False + Me.h_id.DB_Prompt = "TextBox1" + Me.h_id.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_id.DB_WhereType = Nothing + Me.h_id.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_id.Location = New System.Drawing.Point(33, 8) + Me.h_id.Name = "h_id" + Me.h_id.Size = New System.Drawing.Size(60, 21) + Me.h_id.TabIndex = 18 + Me.h_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_id.Value = "" + Me.h_id.WHERE_DEFAULT_VALUE = "" + ' + 'h_date + ' + Me.h_date.DB_BaseLabel = Nothing + Me.h_date.DB_ColName = "h_date" + Me.h_date.DB_ITEM = False + Me.h_date.DB_NotNull = False + Me.h_date.DB_Prompt = "h_date" + Me.h_date.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_date.DB_WhereType = Nothing + Me.h_date.Input_type = MyControlOLEDBv2.MyMaskBox.Inputtype.전부 + Me.h_date.Location = New System.Drawing.Point(143, 8) + Me.h_date.Name = "h_date" + Me.h_date.Size = New System.Drawing.Size(72, 21) + Me.h_date.TabIndex = 15 + Me.h_date.Text = "2007-01-01" + Me.h_date.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_date.Value = "2007-01-01" + Me.h_date.WHERE_DEFAULT_VALUE = "" + ' + 'h_name + ' + Me.h_name.BackColor = System.Drawing.Color.White + Me.h_name.DB_BaseLabel = Nothing + Me.h_name.DB_ColName = "h_name" + Me.h_name.DB_ITEM = False + Me.h_name.DB_NotNull = False + Me.h_name.DB_Prompt = "h_name" + Me.h_name.DB_Type = System.Data.OleDb.OleDbType.VarChar + Me.h_name.DB_WhereType = Nothing + Me.h_name.ImeMode = System.Windows.Forms.ImeMode.HangulFull + Me.h_name.Input_type = MyControlOLEDBv2.MyTextBox.Inputtype.전부 + Me.h_name.Location = New System.Drawing.Point(402, 8) + Me.h_name.Name = "h_name" + Me.h_name.Size = New System.Drawing.Size(141, 21) + Me.h_name.TabIndex = 16 + Me.h_name.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.h_name.Value = "" + Me.h_name.WHERE_DEFAULT_VALUE = "" + ' + 'bn + ' + Me.bn.AddNewItem = Nothing + Me.bn.BindingSource = Me.bs + Me.bn.CountItem = Me.BindingNavigatorCountItem + 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(32, 32) + Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.bt_insertrow, Me.bt_addrow, Me.BindingNavigatorDeleteItem, Me.ToolStripSeparator2, Me.bt_commit, Me.bt_cancel, Me.ToolStripSeparator1, Me.ToolStripButton5}) + Me.bn.Location = New System.Drawing.Point(0, 516) + Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.bn.Name = "bn" + Me.bn.PositionItem = Me.BindingNavigatorPositionItem + Me.bn.Size = New System.Drawing.Size(1172, 39) + Me.bn.TabIndex = 22 + Me.bn.Text = "BindingNavigator1" + ' + 'bs + ' + Me.bs.DataMember = "Detail_CableLabel" + Me.bs.DataSource = Me.IreaDataSet1 + Me.bs.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + 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.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + 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 = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 36) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_insertrow + ' + Me.bt_insertrow.Image = Global.EpoleNet.My.Resources.Resources.up_32 + Me.bt_insertrow.Name = "bt_insertrow" + Me.bt_insertrow.RightToLeftAutoMirrorImage = True + Me.bt_insertrow.Size = New System.Drawing.Size(102, 36) + Me.bt_insertrow.Text = "한줄삽입(&I)" + Me.bt_insertrow.ToolTipText = "현재 위치 상단에 한줄을 삽입합니다" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Image = Global.EpoleNet.My.Resources.Resources.remov_32 + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(95, 36) + Me.BindingNavigatorDeleteItem.Text = "줄삭제(&D)" + Me.BindingNavigatorDeleteItem.ToolTipText = "선택된 대상을 삭제합니다" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 39) + ' + 'bt_commit + ' + Me.bt_commit.Image = Global.EpoleNet.My.Resources.Resources.save_32 + Me.bt_commit.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_commit.Name = "bt_commit" + Me.bt_commit.Size = New System.Drawing.Size(135, 36) + Me.bt_commit.Text = "변경내용 저장(&S)" + ' + 'bt_cancel + ' + Me.bt_cancel.Image = Global.EpoleNet.My.Resources.Resources.cancl_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(136, 36) + Me.bt_cancel.Text = "변경내용 취소(&C)" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 39) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.BackColor = System.Drawing.Color.Transparent + Me.ToolStripButton5.Checked = True + Me.ToolStripButton5.CheckState = System.Windows.Forms.CheckState.Checked + Me.ToolStripButton5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton5.Image = Global.EpoleNet.My.Resources.Resources.stop_32 + Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.Size = New System.Drawing.Size(88, 36) + Me.ToolStripButton5.Text = "닫기(&X)" + Me.ToolStripButton5.ToolTipText = "현재 창을 닫습니다" + ' + 'pbar + ' + Me.pbar.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pbar.Location = New System.Drawing.Point(0, 493) + Me.pbar.Name = "pbar" + Me.pbar.Size = New System.Drawing.Size(1172, 23) + Me.pbar.Style = System.Windows.Forms.ProgressBarStyle.Continuous + Me.pbar.TabIndex = 23 + ' + 'view1 + ' + Me.view1.AAutoAddrowInLast = Me.bt_addrow + Me.view1.About = "3.0.2003.2005" + Me.view1.AccessibleDescription = "view1, Sheet1" + Me.view1.ACellImeLabel = Me.lb_ime + Me.view1.ACellposLabel = Me.lb_pos + Me.view1.ACheckBox_ColIndex = CType(0, Short) + Me.view1.ADeleteCell = True + Me.view1.ADeleteRow = True + Me.view1.AEditFromSpace = True + Me.view1.AEditStatusLabel = Me.lb_change + Me.view1.AFirstColumn_Index = 2 + Me.view1.AllowCellOverflow = True + Me.view1.AllowEditOverflow = True + Me.view1.AMessageLabel = Me.lb_msg + 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.SystemColors.Control + Me.view1.ContextMenuStrip = Me.ContextMenuStrip1 + Me.view1.EditModeReplace = True + Me.view1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.view1.Location = New System.Drawing.Point(0, 82) + Me.view1.Name = "view1" + Me.view1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.view1.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Vertical + Me.view1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.view1_Sheet1}) + Me.view1.Size = New System.Drawing.Size(1171, 408) + Me.view1.TabIndex = 8 + TipAppearance1.BackColor = System.Drawing.SystemColors.Info + TipAppearance1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance1.ForeColor = System.Drawing.SystemColors.InfoText + Me.view1.TextTipAppearance = TipAppearance1 + 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 = 31 + Me.view1_Sheet1.ColumnHeader.RowCount = 2 + Me.view1_Sheet1.AutoGenerateColumns = False + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산화번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "고압(HA)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 9).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 9).Value = "고압(HB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "저압(LA)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 19).ColumnSpan = 5 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 19).Value = "저압(LB)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 24).ColumnSpan = 6 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 24).Value = "비고" + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 30).RowSpan = 2 + Me.view1_Sheet1.ColumnHeader.Cells.Get(0, 30).Value = "출력" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "단자(A)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "S/S(A)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "D/L(A)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "상대측A1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "상대측A2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "단자(B)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "S/S(B)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "D/L(B)" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "상대측B1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "상대측B2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "선로1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "전산번호1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "기기1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "부하11" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "부하12" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "선로2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "전산번호2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "기기2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 22).Value = "부하21" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "부하22" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "1" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 25).Value = "2" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 26).Value = "3" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 27).Value = "4" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 28).Value = "5" + Me.view1_Sheet1.ColumnHeader.Cells.Get(1, 29).Value = "6" + Me.view1_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.view1_Sheet1.ColumnHeader.Rows.Get(1).Height = 30.0! + Me.view1_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.view1_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.view1_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Label = "*" + Me.view1_Sheet1.Columns.Get(0).Tag = "select" + Me.view1_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(0).Width = 50.0! + NumberCellType1.DecimalPlaces = 0 + Me.view1_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.view1_Sheet1.Columns.Get(1).DataField = "번호" + Me.view1_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(1).Width = 87.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.view1_Sheet1.Columns.Get(2).DataField = "관리구" + Me.view1_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(2).Width = 87.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(3).CellType = TextCellType2 + 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 = 87.0! + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.view1_Sheet1.Columns.Get(4).DataField = "HA단자" + Me.view1_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(4).Label = "단자(A)" + 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 = TextCellType4 + Me.view1_Sheet1.Columns.Get(5).DataField = "HASS" + Me.view1_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Label = "S/S(A)" + Me.view1_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(5).Width = 79.0! + Me.view1_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.view1_Sheet1.Columns.Get(6).DataField = "HADL" + Me.view1_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Label = "D/L(A)" + Me.view1_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(6).Width = 79.0! + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.view1_Sheet1.Columns.Get(7).DataField = "HA상대1" + Me.view1_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Label = "상대측A1" + Me.view1_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(7).Width = 79.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.view1_Sheet1.Columns.Get(8).DataField = "HA상대2" + Me.view1_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Label = "상대측A2" + Me.view1_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(8).Width = 79.0! + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.view1_Sheet1.Columns.Get(9).DataField = "HB단자" + Me.view1_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Label = "단자(B)" + Me.view1_Sheet1.Columns.Get(9).Locked = False + Me.view1_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(9).Width = 87.0! + Me.view1_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.view1_Sheet1.Columns.Get(10).DataField = "HBSS" + Me.view1_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Label = "S/S(B)" + Me.view1_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(10).Width = 73.0! + Me.view1_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.view1_Sheet1.Columns.Get(11).DataField = "HBDL" + Me.view1_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Label = "D/L(B)" + Me.view1_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(11).Width = 74.0! + TextCellType11.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.view1_Sheet1.Columns.Get(12).DataField = "HB상대1" + Me.view1_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Label = "상대측B1" + Me.view1_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(12).Width = 73.0! + TextCellType12.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.view1_Sheet1.Columns.Get(13).DataField = "HB상대2" + Me.view1_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Label = "상대측B2" + Me.view1_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(13).Width = 73.0! + TextCellType13.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.view1_Sheet1.Columns.Get(14).DataField = "저압A1선로" + Me.view1_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(14).Label = "선로1" + Me.view1_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.view1_Sheet1.Columns.Get(15).DataField = "저압A1전산번호" + Me.view1_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(15).Label = "전산번호1" + Me.view1_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType15.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.view1_Sheet1.Columns.Get(16).DataField = "저압A1기기" + Me.view1_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(16).Label = "기기1" + Me.view1_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.view1_Sheet1.Columns.Get(17).DataField = "저압A1부하1" + Me.view1_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(17).Label = "부하11" + Me.view1_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.view1_Sheet1.Columns.Get(18).DataField = "저압A1부하2" + Me.view1_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(18).Label = "부하12" + Me.view1_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.view1_Sheet1.Columns.Get(19).DataField = "저압B1선로" + Me.view1_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(19).Label = "선로2" + Me.view1_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.view1_Sheet1.Columns.Get(20).DataField = "저압B1전산번호" + Me.view1_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(20).Label = "전산번호2" + Me.view1_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType20.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.view1_Sheet1.Columns.Get(21).DataField = "저압B1기기" + Me.view1_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(21).Label = "기기2" + Me.view1_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType21.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(22).CellType = TextCellType21 + Me.view1_Sheet1.Columns.Get(22).DataField = "저압B1부하1" + Me.view1_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(22).Label = "부하21" + Me.view1_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType22.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.view1_Sheet1.Columns.Get(23).CellType = TextCellType22 + Me.view1_Sheet1.Columns.Get(23).DataField = "저압B1부하2" + Me.view1_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(23).Label = "부하22" + Me.view1_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).CellType = TextCellType23 + Me.view1_Sheet1.Columns.Get(24).DataField = "비고1" + Me.view1_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Label = "1" + Me.view1_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(24).Width = 81.0! + Me.view1_Sheet1.Columns.Get(25).CellType = TextCellType24 + Me.view1_Sheet1.Columns.Get(25).DataField = "비고2" + Me.view1_Sheet1.Columns.Get(25).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).Label = "2" + Me.view1_Sheet1.Columns.Get(25).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(25).Width = 81.0! + Me.view1_Sheet1.Columns.Get(26).CellType = TextCellType25 + Me.view1_Sheet1.Columns.Get(26).DataField = "비고3" + Me.view1_Sheet1.Columns.Get(26).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Label = "3" + Me.view1_Sheet1.Columns.Get(26).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(26).Width = 81.0! + Me.view1_Sheet1.Columns.Get(27).CellType = TextCellType26 + Me.view1_Sheet1.Columns.Get(27).DataField = "비고4" + Me.view1_Sheet1.Columns.Get(27).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Label = "4" + Me.view1_Sheet1.Columns.Get(27).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(27).Width = 81.0! + Me.view1_Sheet1.Columns.Get(28).CellType = TextCellType27 + Me.view1_Sheet1.Columns.Get(28).DataField = "비고5" + Me.view1_Sheet1.Columns.Get(28).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Label = "5" + Me.view1_Sheet1.Columns.Get(28).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(28).Width = 81.0! + Me.view1_Sheet1.Columns.Get(29).CellType = TextCellType28 + Me.view1_Sheet1.Columns.Get(29).DataField = "비고6" + Me.view1_Sheet1.Columns.Get(29).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Label = "6" + Me.view1_Sheet1.Columns.Get(29).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(29).Width = 81.0! + Me.view1_Sheet1.Columns.Get(30).CellType = CheckBoxCellType2 + Me.view1_Sheet1.Columns.Get(30).DataField = "출력" + Me.view1_Sheet1.Columns.Get(30).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.view1_Sheet1.Columns.Get(30).Width = 63.0! + Me.view1_Sheet1.DataAutoCellTypes = False + Me.view1_Sheet1.DataAutoSizeColumns = False + Me.view1_Sheet1.DataSource = Me.bs + Me.view1_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.view1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.view1.SetActiveViewport(0, 1, 0) + ' + 'ta + ' + Me.ta.ClearBeforeFill = True + ' + 'AddEpoleCableLabel + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1172, 577) + Me.Controls.Add(Me.pbar) + Me.Controls.Add(Me.bn) + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.view1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ToolStrip1) + Me.KeyPreview = True + Me.Name = "AddEpoleCableLabel" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "번호찰 입력" + Me.WindowState = System.Windows.Forms.FormWindowState.Maximized + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit() + Me.bn.ResumeLayout(False) + Me.bn.PerformLayout() + CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.view1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents out As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents view1 As NewFp + Friend WithEvents view1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents h_id As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_bigo As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_name As MyControlOLEDBv2.MyTextBox + Friend WithEvents h_date As MyControlOLEDBv2.MyMaskBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents h_dan As MyControlOLEDBv2.MyTextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents lb_change As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents bs As System.Windows.Forms.BindingSource + Friend WithEvents bn As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_addrow As System.Windows.Forms.ToolStripButton + 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 ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfsdlStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_insertrow As System.Windows.Forms.ToolStripButton + Friend WithEvents IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents oolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_dupchk As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_current As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_save_all As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents outsalldatae As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents savecurrentdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_datasort As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_find As System.Windows.Forms.ToolStripButton + Friend WithEvents servoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cm_RenewNum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vsell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselall As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vusell As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cbt_vselrev As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbar As System.Windows.Forms.ProgressBar + Friend WithEvents bt_colsizesave As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_seldel As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents lb_ime As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_pos As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_edit As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ta As EpoleNet.ireaDataSetTableAdapters.Detail_CableLabelTableAdapter +End Class diff --git a/Epole/입력폼/bak_AddEpoleCableLabel.resx b/Epole/입력폼/bak_AddEpoleCableLabel.resx new file mode 100644 index 0000000..b11c735 --- /dev/null +++ b/Epole/입력폼/bak_AddEpoleCableLabel.resx @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 199, 31 + + + 459, 6 + + + 308, 32 + + + 69 + + + 169, 6 + + + 5, 15 + + + 588, 5 + + + 307, 5 + + + 760, 3 + + + 599, 29 + + + 85, 15 + + \ No newline at end of file diff --git a/Epole/입력폼/bak_AddEpoleCableLabel.vb b/Epole/입력폼/bak_AddEpoleCableLabel.vb new file mode 100644 index 0000000..82c3309 --- /dev/null +++ b/Epole/입력폼/bak_AddEpoleCableLabel.vb @@ -0,0 +1,606 @@ +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +''''''''''''''''' 2007-10-01 : ҽ : Ƹ(tindevil.nate.com) +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +Public Class AddEpoleCableLabelTEST + + ' Dim SaveFlag As Boolean = False + Dim DT As ireaDataSet.Detail_CableLabelDataTable + Dim Sorted As ESorted = ESorted.No + Dim viewTag As String = "jcablelabel" + Public PrnForm As printformCableLABEL + Private Sub NewRowAddToDataTable(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs) 'Handles DT.TableNewRow '//New Row Add & Setting Default Data + Dim NEwrow As DataRow = e.Row + NEwrow("rowid") = System.Guid.NewGuid + NEwrow("ID") = CInt(Me.h_id.Text) + NEwrow("ȣ") = CInt(Me.Get_NewNumber) + NEwrow("") = True + NEwrow("1") = "" + NEwrow("2") = "" + NEwrow("3") = "" + NEwrow("4") = "" + NEwrow("5") = "" + + Dim newid As Integer = CInt(Me.Get_NewNumber) + If Me.Sorted = ESorted.CANT Then + NEwrow("Ĺȣ") = "" & "1" & Format(newid, "00000") & "1000" + Else + NEwrow("Ĺȣ") = "1" & Format(newid, "00000") & "1000" + End If + End Sub + + Public Sub New(ByVal maxid As Integer) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + Me.h_date.Enabled = True + Me.h_name.Enabled = True + Me.h_bigo.Enabled = True + Me.h_id.Enabled = False + Me.h_dan.Enabled = True + Me.Text = "(̺ǥö) Է(ű۾)" + Me.h_name.Text = INI.Read("main", "lastkname1") 'InputBox("ŷó Էϼ", "űԷ-ŷó", "رȹ") + Me.h_dan.Text = "0" 'InputBox(" ܰ Էϼ", "űԷ-ܰ", "0") + Me.h_id.Text = maxid + Me.h_bigo.Text = "(̺ǥö)(" & Format(Now, "MM") & "-" & Format(Now, "dd") & ")" + Me.h_date.Text = Format(Now, "yyyy/MM/dd") + + End Sub + + Public Sub New(ByVal v_id As String, ByVal V_DATE As String, ByVal V_NAME As String, ByVal V_BIGO As String, ByVal V_DAN As String) + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + Me.h_date.Text = V_DATE + Me.h_name.Text = V_NAME + Me.h_bigo.Text = V_BIGO + Me.h_dan.Text = V_DAN + Me.h_id.Text = v_id + Me.h_date.Enabled = False + Me.h_name.Enabled = False + Me.h_bigo.Enabled = False + Me.h_id.Enabled = False + Me.h_id.Enabled = False + Me.Text = "(̺ǥö) Է" + + End Sub + + Private Sub AddEpole_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + Me.CHk_Modify() + Frm_Main.bt_find.PerformClick() + End Sub + + Private Sub AddEpole_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.view1.ASetting_Load(False, Me.viewTag) + Me.view1.ѱʵ = New String() { _ + "HA", "HASS", "HADL", "HB", "HBSS", "HBDL", _ + "1", "11", "12", _ + "4", "41", "42", _ + "1", "2", "3", "4", "5", "6" _ + } + + Me.view1.Font = New Font(ViewFont.FontName, ViewFont.FontSize, Me.Font.Style) '// ҷ + Me.bn.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.ToolStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + Me.StatusStrip1.Font = New Font(MenuFont.FontName, MenuFont.FontSize, Me.Font.Style) '// ҷ + + AddHandler IreaDataSet1.Detail_CableLabel.TableNewRow, AddressOf NewRowAddToDataTable + DT = Me.IreaDataSet1.Detail_CableLabel + Me.SETTOOLTIP() + ''''''''ͺֱ + Display_Data() + + + End Sub + Private Sub SETTOOLTIP() + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" Ŭ Ÿ޴ ǥõ˴ϴ") + TMSG.AppendLine() + TMSG.AppendLine("<Ű : ENTER:ĭ , SHIFT+TAB:ĭ>") + TMSG.AppendLine("<Ű : DELETE:ĭ , SHIFT+DELETE >") + TMSG.AppendLine("<Ű : F2:ĭ >") + TMSG.AppendLine("<Ű : SPACE-BAR/F3:ĭ >") + TMSG.AppendLine("<Ű : CTRL + 콺 : ȭũ⸦ մϴ>") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.view1, TMSG.ToString) + + End Sub + Private Sub SetFarPoint() + ' Me.view1.AEnterToNextItem() + Me.view1.DataSource = Me.bs + End Sub + + ''' + ''' ű߰ ȣ ݴϴ(ִѹ+1) + ''' + ''' + ''' + Private Function Get_NewNumber() As Integer + Dim maxCnt As Integer = 0 + For i As Integer = 0 To Me.view1_Sheet1.RowCount - 1 + If Me.view1_Sheet1.Cells(i, 1).Value > maxCnt Then maxCnt = Me.view1_Sheet1.Cells(i, 1).Value + Next + Return maxCnt + 1 + End Function + + Private Sub CHk_Modify(Optional ByVal prompt As Boolean = True) + Me.bs.EndEdit() + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" ϴ", Me.lb_msg) + Return + End If + + If prompt Then + If MsgBox(" ͸ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then Return + End If + + + Try + Me.ta.Update(Me.IreaDataSet1.Detail_CableLabel) '//Commit insert/update/delete + Me.IreaDataSet1.jjungtable.AcceptChanges() '//Set All Green + + Try + Dim SQl As String = "insert into ְ(id,¥,ŷó,,Ѽ,ܰ,ݾ,ȣ) values(:1,:2,:3,:4,:5,:6,:7,7)" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_CableLabel.Rows.Count 'Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.ExecuteNonQuery() + Catch ex As Exception + Dim SQl As String = "update ְ set ¥=:2,ŷó=:3,=:4,Ѽ=:5,ܰ=:6,ݾ=:7,ȣ=7 where id=:1" + If Me.ta.Connection.State <> ConnectionState.Open Then Me.ta.Connection.Open() + Dim Cmd As New OleDbCommand(SQl, Me.ta.Connection) + Cmd.Parameters.Add(":2", OleDbType.Date).Value = IIf(Me.h_date.Text.Trim = "", DBNull.Value, Me.h_date.Text.Trim) + Cmd.Parameters.Add(":3", OleDbType.VarChar).Value = Me.h_name.Text + Cmd.Parameters.Add(":4", OleDbType.VarChar).Value = Me.h_bigo.Text + Cmd.Parameters.Add(":5", OleDbType.Integer).Value = Me.IreaDataSet1.Detail_CableLabel.Rows.Count + Cmd.Parameters.Add(":6", OleDbType.Integer).Value = Val(Me.h_dan.Text) + Cmd.Parameters.Add(":7", OleDbType.Currency).Value = Val(Me.h_dan.Text) * Me.view1_Sheet1.RowCount + Cmd.Parameters.Add(":1", OleDbType.Integer).Value = Val(Me.h_id.Text) + Cmd.ExecuteNonQuery() + Finally + 'MakeList.bt_find.PerformClick() + 'Display_Data(True) + Dim INI As New MyINI2(My.Application.Info.DirectoryPath & "\epole.ini") + INI.Write("main", "lastkname1", Me.h_name.Text) + NOTICE("Ǿϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + 'MakeList.Display_Data() '//̰ bt_find ȣȴ. + End Try + + Catch ex As Exception + MsgBox("ͺ̽ Ʈ ߻߽ϴ" & vbCrLf & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "ERROR-") + Me.IreaDataSet1.Detail_CableLabel.RejectChanges() + NOTICE(" !", Me.lb_msg) + Finally + view1.ActiveSheet.GetDataView(True) '//ȭ Ѵ. + End Try + End Sub + + + Private Sub Display_Data(Optional ByVal AutoSort As Boolean = False) '//信͸ ǥѴ. + Me.bs.Sort = "Ĺȣ,ȣ" '//ĵȰ͵ ĵä ش. + Me.ta.Fill(Me.IreaDataSet1.Detail_CableLabel, Me.h_id.Text) '//id ؼ ͸ ä. + SetFarPoint() '//⼭ Ʈ ε ҽ Ų(ε ҽ ̺ Ǿִ) + If Me.IreaDataSet1.Detail_CableLabel.Rows.Count <= 0 Then + Me.bt_addrow.PerformClick() + NOTICE("Ͱ ʽϴ", Color.Red, Me.lb_msg) + Return + End If + NOTICE(Me.view1.ActiveSheet.RowCount & " Ͱ ˻Ǿϴ", Me.lb_msg) + End Sub + + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.bt_commit.PerformClick() '//Ұ Ѵ. + Dim A As New XLSImport(Me.IreaDataSet1, Me.h_id.Text, 7) + A.ShowDialog() + Me.CHk_Modify(False) + Me.Display_Data() + End Sub + + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Me.bs.EndEdit() + If Me.view1.Cells("").Value = False Then + MsgBox(" õ ʵ Ǿֽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + PrnForm = New printformCableLABEL(Me.IreaDataSet1.Detail_CableLabel, CType(Me.bs.Current, DataRowView)) 'Me.view1.ActiveSheet.ActiveRowIndex) + PrnForm.ShowDialog() + + End Sub + + Private Sub ToolStripMenuItemolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + Me.pbar.Value = 0 + Me.pbar.Minimum = 0 + Me.pbar.Maximum = Me.view1.ActiveSheet.RowCount + + NOTICE("ߺǴ [/ȣ] ãԴϴ...", Me.lb_msg) + Me.Invalidate() + For Each A As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + = Me.view1.ActiveSheet.Cells(A.Index, 3).Value & Me.view1.ActiveSheet.Cells(A.Index, 4).Value + If .ToString <> "" Then + For Each B As FarPoint.Win.Spread.Row In Me.view1.ActiveSheet.Rows + If A.Index <> B.Index Then '// ϰ ׷ ȣ ȮѴ. + = Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("")).Value & Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ColIndex("ȣ")).Value + If .ToString = .ToString Then + fcnt += 1 + Me.view1.ActiveSheet.Cells(A.Index, Me.view1.ACheckBox_ColIndex).Value = True + Me.view1.ActiveSheet.Cells(B.Index, Me.view1.ACheckBox_ColIndex).Value = True + End If + End If + Next + End If + If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + Me.Invalidate() + Next + NOTICE("[/ȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Sub + Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_addrow.Click + If Me.Sorted = ESorted.NULL Then Check_Sorted() + Me.view1.AAddNewRow() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_commit.Click + '//ٿ ⼭ ٿѺд. + 'Me.view1.Attach_Ubound(3) + Me.bs.EndEdit() + + If bs.Count > 0 Then + Dim Drv As DataRowView + Drv = bs.Item(bs.Count - 1) + If NVL(Drv(""), "") = "" AndAlso _ + NVL(Drv("ȣ"), "") = "" Then + Drv.Delete() + End If + End If + + If Not Me.IreaDataSet1.HasChanges Then + NOTICE(" Ͱ ϴ", Me.lb_msg) + Return + End If + Me.bt_find.PerformClick() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click + Me.bs.EndEdit() + If Me.IreaDataSet1.HasChanges Then + Me.IreaDataSet1.RejectChanges() + NOTICE(" ҵǾϴ.", Me.lb_msg) + Else + NOTICE("泻 ϴ", Me.lb_msg) + End If + End Sub + + Private Sub olStripMenuItem1tripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem1.Click + Me.view1.ASelect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub lStripMenuItem2ipMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lStripMenuItem2.Click + Me.view1.AUnselect(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub gfsdlStripMenuItem2MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfsdlStripMenuItem2.Click + Me.view1.AReverse(Me.view1.ACheckBox_ColIndex) + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click + If Me.view1.ActiveSheet.Rows.Count > 0 Then + Me.view1.ActiveSheet.ActiveRow.Remove() + NOTICE(" Ǿϴ", Me.lb_msg) + Else + MsgBox("̻ ϴ") + End If + End Sub + + Private Sub view1_Arin_AddLog(ByVal sender As Object, ByVal msg As String) Handles view1.Arin_AddLog + If Admin Then Log.Show() + If Admin Then Log.RichTextBox1.AppendText(msg & vbCrLf) + End Sub + + Private Sub view1_Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles view1.Arin_Before_EditModeOff + 'With Me.view1.ActiveSheet + ' Select Case .ActiveColumn.Label + ' Case "Ĺ׿뷮" + ' If (.Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = "" OrElse _ + ' .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text = vbNullString) AndAlso _ + ' .ActiveCell.Text.Length = 4 Then + ' .ActiveCell.Text = .ActiveCell.Text.Substring(0, 2) & "-" & .ActiveCell.Text.Substring(2, 1) & "-" & .ActiveCell.Text.Substring(3) + ' 'Else + ' ' Me.Text = .ActiveCell.Text.Length & "/" & .Cells(.ActiveRowIndex, .ActiveColumnIndex - 1).Text + ' End If + ' Case "" + ' Select Case .ActiveCell.Text.ToUpper + ' Case "SW" + ' .ActiveCell.Text = "PAD SW" + ' Case "SK" + ' .ActiveCell.Text = "" + ' Case "TR" + ' .ActiveCell.Text = "PAD TR" + ' Case "TK" + ' .ActiveCell.Text = "󺯾б" + ' End Select + ' End Select + 'End With + End Sub + + Private Sub view1_DragFillBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockCompletedEventArgs) Handles view1.DragFillBlockCompleted + For i As Integer = e.RowBegin To e.RowBegin + e.NumberToCopy + ' Dim ds As DataSet = FpSpread1.Sheets(0).DataSource + Me.IreaDataSet1.Detail_CableLabel.Rows(view1.Sheets(0).GetModelRowFromViewRow(i)).EndEdit() + Next + + End Sub + + Private Sub Check_Sorted() + If Me.Sorted = ESorted.NULL Then '// ˻̵Ȱ Ȯξؔf + Me.Sorted = ESorted.No + For i As Short = 0 To IIf(Me.DT.Rows.Count > 10, 10, Me.DT.Rows.Count - 1) + If NVL(DT.Rows(i)("Ĺȣ")) <> "" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "000000000" AndAlso NVL(DT.Rows(i)("Ĺȣ")) <> "" Then '//Ͱִٸ + Me.Sorted = ESorted.YES + Exit For + End If + Next + End If + End Sub + Private Sub Make_Index() + Work_Form("ε ϰ ֽϴ") + Form_Work.ProgressBar1.Minimum = 0 + Form_Work.ProgressBar1.Maximum = Me.DT.Rows.Count + Dim Num As Short + For i As Integer = 0 To Me.DT.Rows.Count - 1 + Form_Work.pval = i + Num = Me.DT.Rows(i)("ȣ") + Me.DT.Rows(i)("Ĺȣ") = "1" & Format(Num, "00000") & "1000" + Next + Form_Work.Close() '//۾â ݱ + Me.Sorted = ESorted.YES + End Sub + Private Sub bt_insertrow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_insertrow.Click + ' Me.view1.AInsertNewRow() '//ȣִ. + '// ٷ Ѵ. + '//οID ID+1 ̸ + Me.bs.EndEdit() + + '// 5Ǵ ̰ ĵȵ Ȯմϴ. + If Me.Sorted = ESorted.NULL Then Check_Sorted() + If Me.Sorted = ESorted.No Then Make_Index() '//ε Ѵ. + + Dim NR As ireaDataSet.Detail_CableLabelRow = Me.DT.NewDetail_CableLabelRow '// ϴ°̴. εȣ ¶ ̾ȵȵʹ + Dim Ĺȣ As String = bs.Current("Ĺȣ") + Dim NĹȣ As String + If Not Me.Sorted = ESorted.CANT AndAlso IsNumeric(Ĺȣ) AndAlso Ĺȣ.Length >= 8 Then '//ڶ εĹ̴. + Dim MN As String = Ĺȣ.Substring(0, 6) + Dim SN As Short = Ĺȣ.Substring(6) + 'NR.ȣ = bs.Current("ȣ") - 1 '//ȣ -1ϰ + 'If NR.ȣ < 1 Then NR.ȣ = 0 + NĹȣ = MN & Format(SN - 1, "0000") '// Ϸùȣ - ؼ ִ. ̺κ ..̸ ش ڸ -1ؾѴ. + + '//ο Ĺȣ ͵ -1ش. + For Each DR As DataRow In Me.DT.Select("Ĺȣ like '" & MN & "%' and Ĺȣ <= '" & NĹȣ & "'") + MN = DR("Ĺȣ").Substring(0, 6) + SN = DR("Ĺȣ").Substring(6) + DR("Ĺȣ") = MN & Format(SN - 1, "0000") '//ȣ-1ش. + Next + '// + NR.Ĺȣ = NĹȣ + Dim AR As Integer = Me.view1.ActiveSheet.ActiveRowIndex + Me.DT.AddDetail_CableLabelRow(NR) + Me.view1.ActiveSheet.ActiveRowIndex = AR + + Else '//ֹȣĹ̴ ̰ Ѵ. + MsgBox("ȣ ĵǾִ Դϴ" & vbCrLf & "̵ʹ [ٻ] ʽϴ.", MsgBoxStyle.Information, "Ȯ") + Me.Sorted = ESorted.CANT + 'Me.bt_addrow.PerformClick() '//߰ȭ() + End If + End Sub + + + Private Sub oolStripMenuItemipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oolStripMenuItem.Click + Me.ToolStripButton2.PerformClick() + End Sub + + Private Sub ToolStripButton3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click + Process.Start(HomePage) + End Sub + + Private Sub ToolStripButton5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click + Me.Close() + End Sub + + Private Sub bt_save_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_all.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsViewed) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + Private Sub bt_save_current_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save_current.Click + + Dim a As New SaveFileDialog + a.Filter = "[絥ͳ] ũƮ(*.XLS)|*.XLS" + a.FilterIndex = 0 + a.Title = " ϼ" + If a.ShowDialog() <> Windows.Forms.DialogResult.Cancel Then + Dim msg As New System.Text.StringBuilder + Me.view1.SaveExcel(a.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) + msg.AppendLine(" ⺻ [Ʈȣ] Ǿֽϴ") + msg.AppendLine() + msg.AppendLine() + msg.AppendLine("[Ʈȣ] ¿ Ʈ ϴ") + msg.AppendLine() + msg.AppendLine("[Ʈȣ] Ϸ ش ҷ") + msg.AppendLine("[]-[ȣ]-[Ʈȣ] Ŭϼ") + MsgBox(msg.ToString, MsgBoxStyle.Information, "Ʈȣ") + End If + End Sub + + + Private Sub outsalldatae_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles outsalldatae.Click + Me.bt_save_all.PerformClick() + End Sub + + Private Sub savecurrentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles savecurrentdata.Click + Me.bt_save_current.PerformClick() + End Sub + + Private Sub AddEpoleJJ_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Validated + Me.view1.Focus() + Me.view1.Focus() + End Sub + + Private Sub bt_find_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_find.Click + CHk_Modify() + Display_Data() + End Sub + + Private Sub bt_datasort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_datasort.Click + 'Dim ȣ As String + 'Dim ȣB, ȣb2 As System.Text.StringBuilder + 'Me.pbar.Minimum = 0 + 'Me.pbar.Maximum = Me.IreaDataSet1.Detail_CableLabel.Rows.Count - 1 + 'Me.pbar.Value = 0 + 'Dim Cidx As Int16 = 0 + 'Dim Carray As ArrayList + 'For Each dr As ireaDataSet.Detail_CableLabelRow In Me.IreaDataSet1.Detail_CableLabel.Rows + ' ȣ = (dr.ȣ1 & dr.ȣ2 & dr.ȣ3 & dr.ȣ4 & dr.ȣ5) + ' If ȣ <> "" Then + ' Cidx = 0 + ' ȣB = New System.Text.StringBuilder + ' ȣb2 = New System.Text.StringBuilder + ' Carray = New ArrayList + ' For Each C As Char In ȣ.ToCharArray + ' If Char.IsLetter(C) Then + ' Carray.Add(C) '//ġ ڸ Ѵ. + ' ȣB.Append("@") '//ڴ @ ȯѴ. + ' Else + ' ȣB.Append(C) '//ڴ ٷ ع. + ' End If + ' Cidx += 1 + ' Next + ' For Each ȣs As String In ȣB.ToString.Split("@") + ' ȣb2.Append(Format(Val(ȣs), "000").ToString & "@") '/3ڸιٲ ڿ δ + ' Next + ' ȣb2.Remove(ȣb2.Length - 1, 1) '// + ' ȣ = ȣb2.ToString + ' For Each c As Char In Carray '//ڿ ġ ִ + ' Cidx = ȣ.IndexOf("@") + ' If Cidx <> -1 Then ȣ = ȣ.Substring(0, Cidx) & c & ȣ.Substring(Cidx + 1) + ' Next + ' dr.Ĺȣ = dr.θ & CStr(ȣ.ToUpper.Replace("K", "0")).Replace("G", "0") + ' If Me.pbar.Value < Me.pbar.Maximum Then Me.pbar.Value += 1 + ' Else '//ȣ ƹ͵ ° + ' dr.Ĺȣ = dr.θ & "0" 'If SORTNULL Then dr.Ĺȣ = dr.θ & "0" + ' End If + 'Next + 'NOTICE(" ϷǾϴ", Me.lb_msg) + End Sub + + Private Sub servoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles servoolStripMenuItem.Click + Dim Frow, Fcol As Integer + Me.view1.Search(Me.view1.ActiveSheetIndex, InputBox("õ ˻ ڸ Էϼ."), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//˻̴ٸ + Me.view1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{ENTER}") + End If + End Sub + + Private Sub cm_RenewNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_RenewNum.Click + ReNum(Me.IreaDataSet1.Detail_CableLabel, "ȣ", Me.pbar) + End Sub + + Private Sub vripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselall.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = True + Next + End Sub + + Private Sub cbt_vusell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vusell.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = False + Next + End Sub + + Private Sub cbt_vselrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbt_vselrev.Click + For Each A As DataRow In Me.IreaDataSet1.Detail_CableLabel.Rows + A("") = Not A("") + Next + End Sub + + Private Sub bt_colsizesave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_colsizesave.Click + Me.view1.ASetting_Save(False, viewTag) + End Sub + + Private Sub bt_seldel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_seldel.Click + For i As Integer = Me.view1.ActiveSheet.RowCount - 1 To 0 Step -1 + If Me.view1.ActiveSheet.Cells(i, Me.view1.ACheckBox_ColIndex).Value = True Then Me.view1.ActiveSheet.Rows(i).Remove() + Next + End Sub + + Private Sub view1_Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.Arin_Before_KeyDown + Select Case e.KeyCode + Case Keys.Insert '// + Me.bt_insertrow.PerformClick() + 'Me.bt_addrow.PerformClick() + Case Keys.Enter '/ٿ ̿ bt_insertrow + + With Me.view1.ActiveSheet + Select Case .ActiveColumn.DataField.ToUpper + Case "", "ȣ", _ + "HA", "HASS", "HADL", "HA1", "HA2", _ + "HB", "HBSS", "HBDL", "HB1", "HB2", _ + "A1", "A1ȣ", "A11", "A12", _ + "A2", "A2ȣ", "A21", "A22", _ + "A3", "A3ȣ", "A31", "A32", _ + "B1", "B1ȣ", "B11", "B12", _ + "B2", "B2ȣ", "B21", "B22", _ + "B3", "B3ȣ", "B31", "B32", _ + "ð", "ðȸ", "ȣ", "1", "2", "3", "4", "5", "6" + If .ActiveCell.Text = "" AndAlso .ActiveRowIndex >= 1 Then + .ActiveCell.Text = .Cells(.ActiveRowIndex - 1, .ActiveColumnIndex).Text + End If + End Select + End With + End Select + End Sub + + Private Sub view1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles view1.KeyDown + view1_Arin_AddLog(sender, "信 keydown ȣ=" & Me.view1.ActiveSheet.ActiveColumnIndex) + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/selitem.Designer.vb b/Epole/입력폼/selitem.Designer.vb new file mode 100644 index 0000000..ab305c9 --- /dev/null +++ b/Epole/입력폼/selitem.Designer.vb @@ -0,0 +1,54 @@ + _ +Partial Class selitem + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.ListBox1 = New System.Windows.Forms.ListBox + Me.SuspendLayout() + ' + 'ListBox1 + ' + Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListBox1.Font = New System.Drawing.Font("맑은 고딕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 30 + Me.ListBox1.Location = New System.Drawing.Point(0, 0) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(273, 364) + Me.ListBox1.TabIndex = 0 + ' + 'selitem + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(273, 370) + Me.Controls.Add(Me.ListBox1) + Me.KeyPreview = True + Me.Name = "selitem" + Me.Opacity = 0.8 + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "범위내 개체(더블클릭하세요)" + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox +End Class diff --git a/Epole/입력폼/selitem.resx b/Epole/입력폼/selitem.resx new file mode 100644 index 0000000..19dc0dd --- /dev/null +++ b/Epole/입력폼/selitem.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Epole/입력폼/selitem.vb b/Epole/입력폼/selitem.vb new file mode 100644 index 0000000..83b5fdd --- /dev/null +++ b/Epole/입력폼/selitem.vb @@ -0,0 +1,25 @@ +Public Class selitem + + Private Sub selitem_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress + + End Sub + + Private Sub selitem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp + If e.KeyCode = Keys.Escape Then + Me.DialogResult = Windows.Forms.DialogResult.Cancel + Me.Dispose() + ElseIf e.KeyCode = Keys.Enter Then + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Dispose() + End If + End Sub + + Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick + Me.DialogResult = Windows.Forms.DialogResult.OK + Me.Dispose() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + + End Sub +End Class \ No newline at end of file diff --git a/Epole/입력폼/태그_지중케이블.txt b/Epole/입력폼/태그_지중케이블.txt new file mode 100644 index 0000000..f7c96c4 --- /dev/null +++ b/Epole/입력폼/태그_지중케이블.txt @@ -0,0 +1,43 @@ + Dim _ As String = "" + Dim _ȣ As String = "" + Dim _HA As String = "" + Dim _HASS As String = "" + Dim _HADL As String = "" + Dim _HBSS As String = "" + Dim _HBDL As String = "" + Dim _HB As String = "" + Dim _S0ȣ1 As String = "" + Dim _S0ȣ2 As String = "" + Dim _S0ȣ3 As String = "" + Dim _S0ȣ4 As String = "" + Dim _S0SW As String = "" + + Dim _S0밡 As String = "" + Dim _S1ȣ1 As String = "" + Dim _S1ȣ2 As String = "" + Dim _S1ȣ3 As String = "" + Dim _S1ȣ4 As String = "" + Dim _S1SW As String = "" + Dim _S1ġ As String = "" + Dim _s2ȣ1 As String = "" + Dim _s2ȣ2 As String = "" + Dim _s2ȣ3 As String = "" + Dim _s2ȣ4 As String = "" + Dim _s2SW As String = "" + Dim _s2ġ As String = "" + Dim _s3ȣ1 As String = "" + Dim _s3ȣ2 As String = "" + Dim _s3ȣ3 As String = "" + Dim _s3ȣ4 As String = "" + Dim _s3SW As String = "" + Dim _s3ġ As String = "" + Dim _s4ȣ1 As String = "" + Dim _s4ȣ2 As String = "" + Dim _s4ȣ3 As String = "" + Dim _s4ȣ4 As String = "" + Dim _s4SW As String = "" + Dim _s4ġ As String = "" + Dim _ð As String = "" + Dim _ðȸ As String = "" + Dim _ȣ As String = "" + Dim _ As String = "" \ No newline at end of file diff --git a/Epole/전신주번호찰.idc b/Epole/전신주번호찰.idc new file mode 100644 index 0000000..961d961 --- /dev/null +++ b/Epole/전신주번호찰.idc @@ -0,0 +1 @@ + diff --git a/Epole/출력폼/PRv_picture.Designer.vb b/Epole/출력폼/PRv_picture.Designer.vb new file mode 100644 index 0000000..ecc2389 --- /dev/null +++ b/Epole/출력폼/PRv_picture.Designer.vb @@ -0,0 +1,101 @@ + _ +Partial Class PRv_picture + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.bt_close = New System.Windows.Forms.ToolStripButton + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + Me.SuspendLayout() + ' + 'PictureBox1 + ' + Me.PictureBox1.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.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(577, 564) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox1.TabIndex = 0 + Me.PictureBox1.TabStop = False + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.CountItem = Nothing + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.BindingNavigator1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_close}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 567) + Me.BindingNavigator1.MoveFirstItem = Nothing + Me.BindingNavigator1.MoveLastItem = Nothing + Me.BindingNavigator1.MoveNextItem = Nothing + Me.BindingNavigator1.MovePreviousItem = Nothing + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Nothing + Me.BindingNavigator1.Size = New System.Drawing.Size(577, 39) + Me.BindingNavigator1.TabIndex = 23 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'bt_close + ' + Me.bt_close.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + 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.EpoleNet.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(88, 36) + Me.bt_close.Text = "닫기(&X)" + Me.bt_close.ToolTipText = "현재 창을 닫습니다" + ' + 'PRv_picture + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(577, 606) + Me.Controls.Add(Me.BindingNavigator1) + Me.Controls.Add(Me.PictureBox1) + Me.Name = "PRv_picture" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "사진미리보기" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents bt_close As System.Windows.Forms.ToolStripButton +End Class diff --git a/Epole/출력폼/PRv_picture.resx b/Epole/출력폼/PRv_picture.resx new file mode 100644 index 0000000..30240e4 --- /dev/null +++ b/Epole/출력폼/PRv_picture.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Epole/출력폼/PRv_picture.vb b/Epole/출력폼/PRv_picture.vb new file mode 100644 index 0000000..7c1daaf --- /dev/null +++ b/Epole/출력폼/PRv_picture.vb @@ -0,0 +1,14 @@ +Public Class PRv_picture + + Private Sub PRv_picture_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.TopLevel = True + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_close.Click + Me.Close() + End Sub + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click + Me.bt_close.PerformClick() + End Sub +End Class \ No newline at end of file diff --git a/Epole/출력폼/PrintFormCable.Designer.vb b/Epole/출력폼/PrintFormCable.Designer.vb new file mode 100644 index 0000000..e434dec --- /dev/null +++ b/Epole/출력폼/PrintFormCable.Designer.vb @@ -0,0 +1,3803 @@ + _ +Partial Class printformCable + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformCable)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_repy = New System.Windows.Forms.TextBox() + Me.tb_repx = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_rep = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.cb_dc = New System.Windows.Forms.CheckBox() + Me.cb_Db = New System.Windows.Forms.CheckBox() + Me.cb_da = New System.Windows.Forms.CheckBox() + Me.cb_cz = New System.Windows.Forms.CheckBox() + Me.cb_cy = New System.Windows.Forms.CheckBox() + Me.cb_cx = New System.Windows.Forms.CheckBox() + Me.cb_cw = New System.Windows.Forms.CheckBox() + Me.cb_cv = New System.Windows.Forms.CheckBox() + Me.CB_CU = New System.Windows.Forms.CheckBox() + Me.CB_CT = New System.Windows.Forms.CheckBox() + Me.CB_CS = New System.Windows.Forms.CheckBox() + Me.CB_CR = New System.Windows.Forms.CheckBox() + Me.CB_CQ = New System.Windows.Forms.CheckBox() + Me.CB_CP = New System.Windows.Forms.CheckBox() + Me.CB_CO = New System.Windows.Forms.CheckBox() + Me.CB_CN = New System.Windows.Forms.CheckBox() + Me.cb_cm = New System.Windows.Forms.CheckBox() + Me.cb_cl = New System.Windows.Forms.CheckBox() + Me.cb_ck = New System.Windows.Forms.CheckBox() + Me.cb_cj = New System.Windows.Forms.CheckBox() + Me.cb_ci = New System.Windows.Forms.CheckBox() + Me.cb_ch = New System.Windows.Forms.CheckBox() + Me.cb_cg = New System.Windows.Forms.CheckBox() + Me.cb_cf = New System.Windows.Forms.CheckBox() + Me.cb_cd = New System.Windows.Forms.CheckBox() + Me.cb_cb = New System.Windows.Forms.CheckBox() + Me.cb_ce = New System.Windows.Forms.CheckBox() + Me.cb_cc = New System.Windows.Forms.CheckBox() + Me.cb_ca = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.cb_bn = New System.Windows.Forms.CheckBox() + Me.cb_bp = New System.Windows.Forms.CheckBox() + Me.cb_bo = New System.Windows.Forms.CheckBox() + Me.cb_bm = New System.Windows.Forms.CheckBox() + Me.cb_bt = New System.Windows.Forms.CheckBox() + Me.cb_bv = New System.Windows.Forms.CheckBox() + Me.cb_bu = New System.Windows.Forms.CheckBox() + Me.cb_bq = New System.Windows.Forms.CheckBox() + Me.cb_bs = New System.Windows.Forms.CheckBox() + Me.cb_br = New System.Windows.Forms.CheckBox() + Me.cB_bk = New System.Windows.Forms.CheckBox() + Me.cb_bl = New System.Windows.Forms.CheckBox() + Me.cb_bj = New System.Windows.Forms.CheckBox() + Me.cb_bi = New System.Windows.Forms.CheckBox() + Me.cb_bh = New System.Windows.Forms.CheckBox() + Me.cb_bg = New System.Windows.Forms.CheckBox() + Me.cb_be = New System.Windows.Forms.CheckBox() + Me.cb_bf = New System.Windows.Forms.CheckBox() + Me.cb_bd = New System.Windows.Forms.CheckBox() + Me.cb_bc = New System.Windows.Forms.CheckBox() + Me.cB_bb = New System.Windows.Forms.CheckBox() + Me.cb_ba = New System.Windows.Forms.CheckBox() + Me.cb_ay = New System.Windows.Forms.CheckBox() + Me.cb_az = New System.Windows.Forms.CheckBox() + Me.cb_ax = New System.Windows.Forms.CheckBox() + Me.cB_aw = New System.Windows.Forms.CheckBox() + Me.cb_av = New System.Windows.Forms.CheckBox() + Me.cb_au = New System.Windows.Forms.CheckBox() + Me.cb_as = New System.Windows.Forms.CheckBox() + Me.cb_at = New System.Windows.Forms.CheckBox() + Me.cb_am = New System.Windows.Forms.CheckBox() + Me.cb_an = New System.Windows.Forms.CheckBox() + Me.cb_ar = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.cb_aq = New System.Windows.Forms.CheckBox() + Me.CB_KWAN = New System.Windows.Forms.CheckBox() + Me.cb_ap = New System.Windows.Forms.CheckBox() + Me.cb_ai = New System.Windows.Forms.CheckBox() + Me.CB_JUNSA = New System.Windows.Forms.CheckBox() + Me.cb_ao = New System.Windows.Forms.CheckBox() + Me.cb_aj = New System.Windows.Forms.CheckBox() + Me.cB_ak = New System.Windows.Forms.CheckBox() + Me.cb_al = New System.Windows.Forms.CheckBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.cboCorrectionLevel = New System.Windows.Forms.TextBox() + Me.cboVersion = New System.Windows.Forms.TextBox() + Me.cboEncoding = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.bt_pattern_kwan = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_pattern_junsan = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patterkaphe = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem41 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem38 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem35 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem32 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem() + Me.SSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.DLToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.번호1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem44 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem43 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem58 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem61 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem64 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem67 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem70 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem100 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem101 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem104 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem107 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem110 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem113 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem116 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem81 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem82 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem85 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem88 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem91 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem94 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem97 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem45 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem46 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem49 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem52 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem55 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem75 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem78 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patterncom = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patternsikong = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patterkongnum = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patternkamdok = New System.Windows.Forms.ToolStripMenuItem() + Me.구간ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.현재ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상대1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상대2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상대3ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상대4ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.lbQrFG = New System.Windows.Forms.Panel() + Me.lbQrBg = New System.Windows.Forms.Panel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() + Me.TabPage6.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(692, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정 및 배경" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(189, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_repy) + Me.GroupBox2.Controls.Add(Me.tb_repx) + Me.GroupBox2.Controls.Add(Me.Label9) + Me.GroupBox2.Controls.Add(Me.tb_rep) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'tb_repy + ' + Me.tb_repy.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repy.Location = New System.Drawing.Point(168, 160) + Me.tb_repy.Name = "tb_repy" + Me.tb_repy.Size = New System.Drawing.Size(34, 21) + Me.tb_repy.TabIndex = 73 + Me.tb_repy.Text = "0" + Me.tb_repy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_repx + ' + Me.tb_repx.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repx.Location = New System.Drawing.Point(132, 160) + Me.tb_repx.Name = "tb_repx" + Me.tb_repx.Size = New System.Drawing.Size(34, 21) + Me.tb_repx.TabIndex = 72 + Me.tb_repx.Text = "0" + Me.tb_repx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(109, 163) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(17, 12) + Me.Label9.TabIndex = 71 + Me.Label9.Text = "회" + ' + 'tb_rep + ' + Me.tb_rep.Location = New System.Drawing.Point(71, 159) + Me.tb_rep.Name = "tb_rep" + Me.tb_rep.Size = New System.Drawing.Size(34, 21) + Me.tb_rep.TabIndex = 70 + Me.tb_rep.Text = "0" + Me.tb_rep.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(12, 163) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(53, 12) + Me.Label8.TabIndex = 69 + Me.Label8.Text = "반복출력" + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(11, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 107) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 75) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 52) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 76) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 53) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 127) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 127) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(48, 77) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(48, 54) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 74) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 107) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 51) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 76) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 53) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 75) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 52) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 107) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 6) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 153) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 445) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(15, 242) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 245) + Me.TabControl2.TabIndex = 56 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 219) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.Label2) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 94) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 65) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "페이지당 출력횟수" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(11, 16) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 37 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 12) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 42) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(37, 17) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(169, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 39) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 39) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 47) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(80, 19) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(10, 20) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(45, 16) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(114, 16) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(27, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 6) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 38) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(81, 17) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(11, 18) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(46, 15) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(116, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(26, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label1) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 219) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(194, 136) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 64 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 139) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 12) + Me.Label1.TabIndex = 59 + Me.Label1.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(157, 136) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 63 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(113, 140) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 60 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(85, 135) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 62 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(48, 135) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 61 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(8, 163) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 50) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 53 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 57) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(58, 23) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(72, 16) + Me.Chk_BgImageprint.TabIndex = 26 + Me.Chk_BgImageprint.Text = "배경출력" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "인쇄시 배경을 출력합니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(8, 24) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 25) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(7, 46) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(204, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(9, 18) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(202, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(15, 8) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(247, 61) + Me.GroupBox1.TabIndex = 51 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(17, 20) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(213, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1" + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 12 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "전산화번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "선로명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 11).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "관리구" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "5" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "상별" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "형식및용량" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "기기명" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(0).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(0).Label = "번호" + Me.dataview_Sheet1.Columns.Get(0).Width = 50.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(1).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(1).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Label = "관리구" + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 67.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(2).DataField = "전산화번호" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "번호" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(3).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(4).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(4).Label = "1" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(5).Label = "2" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(6).Label = "3" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.dataview_Sheet1.Columns.Get(7).Label = "4" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(8).Label = "5" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(9).DataField = "변압기상" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Label = "상별" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 44.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(10).DataField = "변압기용량" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "형식및용량" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 75.0! + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(11).DataField = "비고1" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "기기명" + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 44.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.cb_dc) + Me.TabPage7.Controls.Add(Me.cb_Db) + Me.TabPage7.Controls.Add(Me.cb_da) + Me.TabPage7.Controls.Add(Me.cb_cz) + Me.TabPage7.Controls.Add(Me.cb_cy) + Me.TabPage7.Controls.Add(Me.cb_cx) + Me.TabPage7.Controls.Add(Me.cb_cw) + Me.TabPage7.Controls.Add(Me.cb_cv) + Me.TabPage7.Controls.Add(Me.CB_CU) + Me.TabPage7.Controls.Add(Me.CB_CT) + Me.TabPage7.Controls.Add(Me.CB_CS) + Me.TabPage7.Controls.Add(Me.CB_CR) + Me.TabPage7.Controls.Add(Me.CB_CQ) + Me.TabPage7.Controls.Add(Me.CB_CP) + Me.TabPage7.Controls.Add(Me.CB_CO) + Me.TabPage7.Controls.Add(Me.CB_CN) + Me.TabPage7.Controls.Add(Me.cb_cm) + Me.TabPage7.Controls.Add(Me.cb_cl) + Me.TabPage7.Controls.Add(Me.cb_ck) + Me.TabPage7.Controls.Add(Me.cb_cj) + Me.TabPage7.Controls.Add(Me.cb_ci) + Me.TabPage7.Controls.Add(Me.cb_ch) + Me.TabPage7.Controls.Add(Me.cb_cg) + Me.TabPage7.Controls.Add(Me.cb_cf) + Me.TabPage7.Controls.Add(Me.cb_cd) + Me.TabPage7.Controls.Add(Me.cb_cb) + Me.TabPage7.Controls.Add(Me.cb_ce) + Me.TabPage7.Controls.Add(Me.cb_cc) + Me.TabPage7.Controls.Add(Me.cb_ca) + Me.TabPage7.Controls.Add(Me.chk_draw) + Me.TabPage7.Controls.Add(Me.cb_bn) + Me.TabPage7.Controls.Add(Me.cb_bp) + Me.TabPage7.Controls.Add(Me.cb_bo) + Me.TabPage7.Controls.Add(Me.cb_bm) + Me.TabPage7.Controls.Add(Me.cb_bt) + Me.TabPage7.Controls.Add(Me.cb_bv) + Me.TabPage7.Controls.Add(Me.cb_bu) + Me.TabPage7.Controls.Add(Me.cb_bq) + Me.TabPage7.Controls.Add(Me.cb_bs) + Me.TabPage7.Controls.Add(Me.cb_br) + Me.TabPage7.Controls.Add(Me.cB_bk) + Me.TabPage7.Controls.Add(Me.cb_bl) + Me.TabPage7.Controls.Add(Me.cb_bj) + Me.TabPage7.Controls.Add(Me.cb_bi) + Me.TabPage7.Controls.Add(Me.cb_bh) + Me.TabPage7.Controls.Add(Me.cb_bg) + Me.TabPage7.Controls.Add(Me.cb_be) + Me.TabPage7.Controls.Add(Me.cb_bf) + Me.TabPage7.Controls.Add(Me.cb_bd) + Me.TabPage7.Controls.Add(Me.cb_bc) + Me.TabPage7.Controls.Add(Me.cB_bb) + Me.TabPage7.Controls.Add(Me.cb_ba) + Me.TabPage7.Controls.Add(Me.cb_ay) + Me.TabPage7.Controls.Add(Me.cb_az) + Me.TabPage7.Controls.Add(Me.cb_ax) + Me.TabPage7.Controls.Add(Me.cB_aw) + Me.TabPage7.Controls.Add(Me.cb_av) + Me.TabPage7.Controls.Add(Me.cb_au) + Me.TabPage7.Controls.Add(Me.cb_as) + Me.TabPage7.Controls.Add(Me.cb_at) + Me.TabPage7.Controls.Add(Me.cb_am) + Me.TabPage7.Controls.Add(Me.cb_an) + Me.TabPage7.Controls.Add(Me.cb_ar) + Me.TabPage7.Controls.Add(Me.cb_seq) + Me.TabPage7.Controls.Add(Me.cb_aq) + Me.TabPage7.Controls.Add(Me.CB_KWAN) + Me.TabPage7.Controls.Add(Me.cb_ap) + Me.TabPage7.Controls.Add(Me.cb_ai) + Me.TabPage7.Controls.Add(Me.CB_JUNSA) + Me.TabPage7.Controls.Add(Me.cb_ao) + Me.TabPage7.Controls.Add(Me.cb_aj) + Me.TabPage7.Controls.Add(Me.cB_ak) + Me.TabPage7.Controls.Add(Me.cb_al) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "표시여부" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'cb_dc + ' + Me.cb_dc.AutoSize = True + Me.cb_dc.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_dc.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_dc.Location = New System.Drawing.Point(173, 472) + Me.cb_dc.Name = "cb_dc" + Me.cb_dc.Size = New System.Drawing.Size(68, 15) + Me.cb_dc.TabIndex = 131 + Me.cb_dc.Tag = "S" + Me.cb_dc.Text = "전산번호" + Me.cb_dc.UseVisualStyleBackColor = False + ' + 'cb_Db + ' + Me.cb_Db.AutoSize = True + Me.cb_Db.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_Db.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_Db.Location = New System.Drawing.Point(173, 450) + Me.cb_Db.Name = "cb_Db" + Me.cb_Db.Size = New System.Drawing.Size(68, 15) + Me.cb_Db.TabIndex = 130 + Me.cb_Db.Tag = "S" + Me.cb_Db.Text = "전산번호" + Me.cb_Db.UseVisualStyleBackColor = False + ' + 'cb_da + ' + Me.cb_da.AutoSize = True + Me.cb_da.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_da.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_da.Location = New System.Drawing.Point(173, 428) + Me.cb_da.Name = "cb_da" + Me.cb_da.Size = New System.Drawing.Size(68, 15) + Me.cb_da.TabIndex = 129 + Me.cb_da.Tag = "S" + Me.cb_da.Text = "전산번호" + Me.cb_da.UseVisualStyleBackColor = False + ' + 'cb_cz + ' + Me.cb_cz.AutoSize = True + Me.cb_cz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cz.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cz.Location = New System.Drawing.Point(173, 362) + Me.cb_cz.Name = "cb_cz" + Me.cb_cz.Size = New System.Drawing.Size(68, 15) + Me.cb_cz.TabIndex = 128 + Me.cb_cz.Tag = "S" + Me.cb_cz.Text = "전산번호" + Me.cb_cz.UseVisualStyleBackColor = False + ' + 'cb_cy + ' + Me.cb_cy.AutoSize = True + Me.cb_cy.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cy.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cy.Location = New System.Drawing.Point(173, 340) + Me.cb_cy.Name = "cb_cy" + Me.cb_cy.Size = New System.Drawing.Size(68, 15) + Me.cb_cy.TabIndex = 127 + Me.cb_cy.Tag = "S" + Me.cb_cy.Text = "전산번호" + Me.cb_cy.UseVisualStyleBackColor = False + ' + 'cb_cx + ' + Me.cb_cx.AutoSize = True + Me.cb_cx.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cx.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cx.Location = New System.Drawing.Point(173, 318) + Me.cb_cx.Name = "cb_cx" + Me.cb_cx.Size = New System.Drawing.Size(68, 15) + Me.cb_cx.TabIndex = 126 + Me.cb_cx.Tag = "S" + Me.cb_cx.Text = "전산번호" + Me.cb_cx.UseVisualStyleBackColor = False + ' + 'cb_cw + ' + Me.cb_cw.AutoSize = True + Me.cb_cw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cw.Location = New System.Drawing.Point(82, 144) + Me.cb_cw.Name = "cb_cw" + Me.cb_cw.Size = New System.Drawing.Size(68, 15) + Me.cb_cw.TabIndex = 125 + Me.cb_cw.Tag = "S" + Me.cb_cw.Text = "전산번호" + Me.cb_cw.UseVisualStyleBackColor = True + ' + 'cb_cv + ' + Me.cb_cv.AutoSize = True + Me.cb_cv.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cv.Location = New System.Drawing.Point(82, 129) + Me.cb_cv.Name = "cb_cv" + Me.cb_cv.Size = New System.Drawing.Size(68, 15) + Me.cb_cv.TabIndex = 124 + Me.cb_cv.Tag = "S" + Me.cb_cv.Text = "전산번호" + Me.cb_cv.UseVisualStyleBackColor = True + ' + 'CB_CU + ' + Me.CB_CU.AutoSize = True + Me.CB_CU.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CU.Location = New System.Drawing.Point(82, 114) + Me.CB_CU.Name = "CB_CU" + Me.CB_CU.Size = New System.Drawing.Size(68, 15) + Me.CB_CU.TabIndex = 123 + Me.CB_CU.Tag = "S" + Me.CB_CU.Text = "전산번호" + Me.CB_CU.UseVisualStyleBackColor = True + ' + 'CB_CT + ' + Me.CB_CT.AutoSize = True + Me.CB_CT.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CT.Location = New System.Drawing.Point(82, 99) + Me.CB_CT.Name = "CB_CT" + Me.CB_CT.Size = New System.Drawing.Size(68, 15) + Me.CB_CT.TabIndex = 122 + Me.CB_CT.Tag = "S" + Me.CB_CT.Text = "전산번호" + Me.CB_CT.UseVisualStyleBackColor = True + ' + 'CB_CS + ' + Me.CB_CS.AutoSize = True + Me.CB_CS.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CS.Location = New System.Drawing.Point(82, 84) + Me.CB_CS.Name = "CB_CS" + Me.CB_CS.Size = New System.Drawing.Size(68, 15) + Me.CB_CS.TabIndex = 121 + Me.CB_CS.Tag = "S" + Me.CB_CS.Text = "전산번호" + Me.CB_CS.UseVisualStyleBackColor = True + ' + 'CB_CR + ' + Me.CB_CR.AutoSize = True + Me.CB_CR.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CR.Location = New System.Drawing.Point(82, 69) + Me.CB_CR.Name = "CB_CR" + Me.CB_CR.Size = New System.Drawing.Size(68, 15) + Me.CB_CR.TabIndex = 120 + Me.CB_CR.Tag = "S" + Me.CB_CR.Text = "전산번호" + Me.CB_CR.UseVisualStyleBackColor = True + ' + 'CB_CQ + ' + Me.CB_CQ.AutoSize = True + Me.CB_CQ.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CQ.Location = New System.Drawing.Point(82, 54) + Me.CB_CQ.Name = "CB_CQ" + Me.CB_CQ.Size = New System.Drawing.Size(68, 15) + Me.CB_CQ.TabIndex = 119 + Me.CB_CQ.Tag = "S" + Me.CB_CQ.Text = "전산번호" + Me.CB_CQ.UseVisualStyleBackColor = True + ' + 'CB_CP + ' + Me.CB_CP.AutoSize = True + Me.CB_CP.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CP.Location = New System.Drawing.Point(82, 39) + Me.CB_CP.Name = "CB_CP" + Me.CB_CP.Size = New System.Drawing.Size(68, 15) + Me.CB_CP.TabIndex = 118 + Me.CB_CP.Tag = "S" + Me.CB_CP.Text = "전산번호" + Me.CB_CP.UseVisualStyleBackColor = True + ' + 'CB_CO + ' + Me.CB_CO.AutoSize = True + Me.CB_CO.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CO.Location = New System.Drawing.Point(82, 24) + Me.CB_CO.Name = "CB_CO" + Me.CB_CO.Size = New System.Drawing.Size(68, 15) + Me.CB_CO.TabIndex = 117 + Me.CB_CO.Tag = "S" + Me.CB_CO.Text = "전산번호" + Me.CB_CO.UseVisualStyleBackColor = True + ' + 'CB_CN + ' + Me.CB_CN.AutoSize = True + Me.CB_CN.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CN.Location = New System.Drawing.Point(82, 9) + Me.CB_CN.Name = "CB_CN" + Me.CB_CN.Size = New System.Drawing.Size(68, 15) + Me.CB_CN.TabIndex = 116 + Me.CB_CN.Tag = "S" + Me.CB_CN.Text = "전산번호" + Me.CB_CN.UseVisualStyleBackColor = True + ' + 'cb_cm + ' + Me.cb_cm.AutoSize = True + Me.cb_cm.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cm.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cm.Location = New System.Drawing.Point(7, 71) + Me.cb_cm.Name = "cb_cm" + Me.cb_cm.Size = New System.Drawing.Size(68, 15) + Me.cb_cm.TabIndex = 115 + Me.cb_cm.Tag = "S" + Me.cb_cm.Text = "전산번호" + Me.cb_cm.UseVisualStyleBackColor = False + ' + 'cb_cl + ' + Me.cb_cl.AutoSize = True + Me.cb_cl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cl.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cl.Location = New System.Drawing.Point(173, 406) + Me.cb_cl.Name = "cb_cl" + Me.cb_cl.Size = New System.Drawing.Size(68, 15) + Me.cb_cl.TabIndex = 114 + Me.cb_cl.Tag = "S" + Me.cb_cl.Text = "전산번호" + Me.cb_cl.UseVisualStyleBackColor = False + ' + 'cb_ck + ' + Me.cb_ck.AutoSize = True + Me.cb_ck.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ck.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ck.Location = New System.Drawing.Point(173, 384) + Me.cb_ck.Name = "cb_ck" + Me.cb_ck.Size = New System.Drawing.Size(68, 15) + Me.cb_ck.TabIndex = 113 + Me.cb_ck.Tag = "S" + Me.cb_ck.Text = "전산번호" + Me.cb_ck.UseVisualStyleBackColor = False + ' + 'cb_cj + ' + Me.cb_cj.AutoSize = True + Me.cb_cj.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cj.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cj.Location = New System.Drawing.Point(173, 296) + Me.cb_cj.Name = "cb_cj" + Me.cb_cj.Size = New System.Drawing.Size(68, 15) + Me.cb_cj.TabIndex = 112 + Me.cb_cj.Tag = "S" + Me.cb_cj.Text = "전산번호" + Me.cb_cj.UseVisualStyleBackColor = False + ' + 'cb_ci + ' + Me.cb_ci.AutoSize = True + Me.cb_ci.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ci.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ci.Location = New System.Drawing.Point(173, 274) + Me.cb_ci.Name = "cb_ci" + Me.cb_ci.Size = New System.Drawing.Size(68, 15) + Me.cb_ci.TabIndex = 111 + Me.cb_ci.Tag = "S" + Me.cb_ci.Text = "전산번호" + Me.cb_ci.UseVisualStyleBackColor = False + ' + 'cb_ch + ' + Me.cb_ch.AutoSize = True + Me.cb_ch.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ch.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ch.Location = New System.Drawing.Point(77, 467) + Me.cb_ch.Name = "cb_ch" + Me.cb_ch.Size = New System.Drawing.Size(68, 15) + Me.cb_ch.TabIndex = 110 + Me.cb_ch.Tag = "S" + Me.cb_ch.Text = "전산번호" + Me.cb_ch.UseVisualStyleBackColor = False + ' + 'cb_cg + ' + Me.cb_cg.AutoSize = True + Me.cb_cg.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cg.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cg.Location = New System.Drawing.Point(7, 467) + Me.cb_cg.Name = "cb_cg" + Me.cb_cg.Size = New System.Drawing.Size(68, 15) + Me.cb_cg.TabIndex = 109 + Me.cb_cg.Tag = "S" + Me.cb_cg.Text = "전산번호" + Me.cb_cg.UseVisualStyleBackColor = False + ' + 'cb_cf + ' + Me.cb_cf.AutoSize = True + Me.cb_cf.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cf.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cf.Location = New System.Drawing.Point(77, 445) + Me.cb_cf.Name = "cb_cf" + Me.cb_cf.Size = New System.Drawing.Size(68, 15) + Me.cb_cf.TabIndex = 108 + Me.cb_cf.Tag = "S" + Me.cb_cf.Text = "전산번호" + Me.cb_cf.UseVisualStyleBackColor = False + ' + 'cb_cd + ' + Me.cb_cd.AutoSize = True + Me.cb_cd.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cd.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cd.Location = New System.Drawing.Point(77, 424) + Me.cb_cd.Name = "cb_cd" + Me.cb_cd.Size = New System.Drawing.Size(68, 15) + Me.cb_cd.TabIndex = 107 + Me.cb_cd.Tag = "S" + Me.cb_cd.Text = "전산번호" + Me.cb_cd.UseVisualStyleBackColor = False + ' + 'cb_cb + ' + Me.cb_cb.AutoSize = True + Me.cb_cb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cb.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cb.Location = New System.Drawing.Point(77, 402) + Me.cb_cb.Name = "cb_cb" + Me.cb_cb.Size = New System.Drawing.Size(68, 15) + Me.cb_cb.TabIndex = 106 + Me.cb_cb.Tag = "S" + Me.cb_cb.Text = "전산번호" + Me.cb_cb.UseVisualStyleBackColor = False + ' + 'cb_ce + ' + Me.cb_ce.AutoSize = True + Me.cb_ce.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ce.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ce.Location = New System.Drawing.Point(7, 445) + Me.cb_ce.Name = "cb_ce" + Me.cb_ce.Size = New System.Drawing.Size(68, 15) + Me.cb_ce.TabIndex = 105 + Me.cb_ce.Tag = "S" + Me.cb_ce.Text = "전산번호" + Me.cb_ce.UseVisualStyleBackColor = False + ' + 'cb_cc + ' + Me.cb_cc.AutoSize = True + Me.cb_cc.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cc.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cc.Location = New System.Drawing.Point(7, 424) + Me.cb_cc.Name = "cb_cc" + Me.cb_cc.Size = New System.Drawing.Size(68, 15) + Me.cb_cc.TabIndex = 104 + Me.cb_cc.Tag = "S" + Me.cb_cc.Text = "전산번호" + Me.cb_cc.UseVisualStyleBackColor = False + ' + 'cb_ca + ' + Me.cb_ca.AutoSize = True + Me.cb_ca.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ca.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ca.Location = New System.Drawing.Point(7, 402) + Me.cb_ca.Name = "cb_ca" + Me.cb_ca.Size = New System.Drawing.Size(68, 15) + Me.cb_ca.TabIndex = 103 + Me.cb_ca.Tag = "S" + Me.cb_ca.Text = "전산번호" + Me.cb_ca.UseVisualStyleBackColor = False + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(173, 8) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(62, 15) + Me.chk_draw.TabIndex = 17 + Me.chk_draw.Text = "선/도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'cb_bn + ' + Me.cb_bn.AutoSize = True + Me.cb_bn.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bn.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bn.Location = New System.Drawing.Point(173, 39) + Me.cb_bn.Name = "cb_bn" + Me.cb_bn.Size = New System.Drawing.Size(68, 15) + Me.cb_bn.TabIndex = 100 + Me.cb_bn.Tag = "S" + Me.cb_bn.Text = "전산번호" + Me.cb_bn.UseVisualStyleBackColor = True + ' + 'cb_bp + ' + Me.cb_bp.AutoSize = True + Me.cb_bp.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bp.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bp.Location = New System.Drawing.Point(173, 69) + Me.cb_bp.Name = "cb_bp" + Me.cb_bp.Size = New System.Drawing.Size(68, 15) + Me.cb_bp.TabIndex = 102 + Me.cb_bp.Tag = "S" + Me.cb_bp.Text = "전산번호" + Me.cb_bp.UseVisualStyleBackColor = True + ' + 'cb_bo + ' + Me.cb_bo.AutoSize = True + Me.cb_bo.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bo.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bo.Location = New System.Drawing.Point(173, 54) + Me.cb_bo.Name = "cb_bo" + Me.cb_bo.Size = New System.Drawing.Size(68, 15) + Me.cb_bo.TabIndex = 101 + Me.cb_bo.Tag = "S" + Me.cb_bo.Text = "전산번호" + Me.cb_bo.UseVisualStyleBackColor = True + ' + 'cb_bm + ' + Me.cb_bm.AutoSize = True + Me.cb_bm.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bm.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bm.Location = New System.Drawing.Point(173, 24) + Me.cb_bm.Name = "cb_bm" + Me.cb_bm.Size = New System.Drawing.Size(68, 15) + Me.cb_bm.TabIndex = 99 + Me.cb_bm.Tag = "S" + Me.cb_bm.Text = "전산번호" + Me.cb_bm.UseVisualStyleBackColor = True + ' + 'cb_bt + ' + Me.cb_bt.AutoSize = True + Me.cb_bt.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bt.Location = New System.Drawing.Point(173, 219) + Me.cb_bt.Name = "cb_bt" + Me.cb_bt.Size = New System.Drawing.Size(68, 15) + Me.cb_bt.TabIndex = 96 + Me.cb_bt.Tag = "S" + Me.cb_bt.Text = "전산번호" + Me.cb_bt.UseVisualStyleBackColor = True + ' + 'cb_bv + ' + Me.cb_bv.AutoSize = True + Me.cb_bv.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bv.Location = New System.Drawing.Point(173, 249) + Me.cb_bv.Name = "cb_bv" + Me.cb_bv.Size = New System.Drawing.Size(68, 15) + Me.cb_bv.TabIndex = 98 + Me.cb_bv.Tag = "S" + Me.cb_bv.Text = "전산번호" + Me.cb_bv.UseVisualStyleBackColor = True + ' + 'cb_bu + ' + Me.cb_bu.AutoSize = True + Me.cb_bu.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bu.Location = New System.Drawing.Point(173, 234) + Me.cb_bu.Name = "cb_bu" + Me.cb_bu.Size = New System.Drawing.Size(68, 15) + Me.cb_bu.TabIndex = 97 + Me.cb_bu.Tag = "S" + Me.cb_bu.Text = "전산번호" + Me.cb_bu.UseVisualStyleBackColor = True + ' + 'cb_bq + ' + Me.cb_bq.AutoSize = True + Me.cb_bq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bq.Location = New System.Drawing.Point(173, 174) + Me.cb_bq.Name = "cb_bq" + Me.cb_bq.Size = New System.Drawing.Size(68, 15) + Me.cb_bq.TabIndex = 93 + Me.cb_bq.Tag = "S" + Me.cb_bq.Text = "전산번호" + Me.cb_bq.UseVisualStyleBackColor = True + ' + 'cb_bs + ' + Me.cb_bs.AutoSize = True + Me.cb_bs.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bs.Location = New System.Drawing.Point(173, 204) + Me.cb_bs.Name = "cb_bs" + Me.cb_bs.Size = New System.Drawing.Size(68, 15) + Me.cb_bs.TabIndex = 95 + Me.cb_bs.Tag = "S" + Me.cb_bs.Text = "전산번호" + Me.cb_bs.UseVisualStyleBackColor = True + ' + 'cb_br + ' + Me.cb_br.AutoSize = True + Me.cb_br.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_br.Location = New System.Drawing.Point(173, 189) + Me.cb_br.Name = "cb_br" + Me.cb_br.Size = New System.Drawing.Size(68, 15) + Me.cb_br.TabIndex = 94 + Me.cb_br.Tag = "S" + Me.cb_br.Text = "전산번호" + Me.cb_br.UseVisualStyleBackColor = True + ' + 'cB_bk + ' + Me.cB_bk.AutoSize = True + Me.cB_bk.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_bk.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_bk.Location = New System.Drawing.Point(85, 358) + Me.cB_bk.Name = "cB_bk" + Me.cB_bk.Size = New System.Drawing.Size(68, 15) + Me.cB_bk.TabIndex = 92 + Me.cB_bk.Tag = "S" + Me.cB_bk.Text = "전산번호" + Me.cB_bk.UseVisualStyleBackColor = True + ' + 'cb_bl + ' + Me.cb_bl.AutoSize = True + Me.cb_bl.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bl.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bl.Location = New System.Drawing.Point(85, 372) + Me.cb_bl.Name = "cb_bl" + Me.cb_bl.Size = New System.Drawing.Size(68, 15) + Me.cb_bl.TabIndex = 91 + Me.cb_bl.Tag = "S" + Me.cb_bl.Text = "전산번호" + Me.cb_bl.UseVisualStyleBackColor = True + ' + 'cb_bj + ' + Me.cb_bj.AutoSize = True + Me.cb_bj.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bj.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bj.Location = New System.Drawing.Point(85, 344) + Me.cb_bj.Name = "cb_bj" + Me.cb_bj.Size = New System.Drawing.Size(68, 15) + Me.cb_bj.TabIndex = 90 + Me.cb_bj.Tag = "S" + Me.cb_bj.Text = "전산번호" + Me.cb_bj.UseVisualStyleBackColor = True + ' + 'cb_bi + ' + Me.cb_bi.AutoSize = True + Me.cb_bi.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bi.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bi.Location = New System.Drawing.Point(85, 330) + Me.cb_bi.Name = "cb_bi" + Me.cb_bi.Size = New System.Drawing.Size(68, 15) + Me.cb_bi.TabIndex = 89 + Me.cb_bi.Tag = "S" + Me.cb_bi.Text = "전산번호" + Me.cb_bi.UseVisualStyleBackColor = True + ' + 'cb_bh + ' + Me.cb_bh.AutoSize = True + Me.cb_bh.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bh.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bh.Location = New System.Drawing.Point(85, 316) + Me.cb_bh.Name = "cb_bh" + Me.cb_bh.Size = New System.Drawing.Size(68, 15) + Me.cb_bh.TabIndex = 88 + Me.cb_bh.Tag = "S" + Me.cb_bh.Text = "전산번호" + Me.cb_bh.UseVisualStyleBackColor = True + ' + 'cb_bg + ' + Me.cb_bg.AutoSize = True + Me.cb_bg.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bg.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bg.Location = New System.Drawing.Point(85, 302) + Me.cb_bg.Name = "cb_bg" + Me.cb_bg.Size = New System.Drawing.Size(68, 15) + Me.cb_bg.TabIndex = 87 + Me.cb_bg.Tag = "S" + Me.cb_bg.Text = "전산번호" + Me.cb_bg.UseVisualStyleBackColor = True + ' + 'cb_be + ' + Me.cb_be.AutoSize = True + Me.cb_be.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_be.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_be.Location = New System.Drawing.Point(7, 354) + Me.cb_be.Name = "cb_be" + Me.cb_be.Size = New System.Drawing.Size(68, 15) + Me.cb_be.TabIndex = 86 + Me.cb_be.Tag = "S" + Me.cb_be.Text = "전산번호" + Me.cb_be.UseVisualStyleBackColor = True + ' + 'cb_bf + ' + Me.cb_bf.AutoSize = True + Me.cb_bf.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bf.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bf.Location = New System.Drawing.Point(7, 370) + Me.cb_bf.Name = "cb_bf" + Me.cb_bf.Size = New System.Drawing.Size(68, 15) + Me.cb_bf.TabIndex = 85 + Me.cb_bf.Tag = "S" + Me.cb_bf.Text = "전산번호" + Me.cb_bf.UseVisualStyleBackColor = True + ' + 'cb_bd + ' + Me.cb_bd.AutoSize = True + Me.cb_bd.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bd.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bd.Location = New System.Drawing.Point(7, 338) + Me.cb_bd.Name = "cb_bd" + Me.cb_bd.Size = New System.Drawing.Size(68, 15) + Me.cb_bd.TabIndex = 84 + Me.cb_bd.Tag = "S" + Me.cb_bd.Text = "전산번호" + Me.cb_bd.UseVisualStyleBackColor = True + ' + 'cb_bc + ' + Me.cb_bc.AutoSize = True + Me.cb_bc.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bc.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bc.Location = New System.Drawing.Point(7, 322) + Me.cb_bc.Name = "cb_bc" + Me.cb_bc.Size = New System.Drawing.Size(68, 15) + Me.cb_bc.TabIndex = 83 + Me.cb_bc.Tag = "S" + Me.cb_bc.Text = "전산번호" + Me.cb_bc.UseVisualStyleBackColor = True + ' + 'cB_bb + ' + Me.cB_bb.AutoSize = True + Me.cB_bb.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_bb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_bb.Location = New System.Drawing.Point(7, 306) + Me.cB_bb.Name = "cB_bb" + Me.cB_bb.Size = New System.Drawing.Size(68, 15) + Me.cB_bb.TabIndex = 82 + Me.cB_bb.Tag = "S" + Me.cB_bb.Text = "전산번호" + Me.cB_bb.UseVisualStyleBackColor = True + ' + 'cb_ba + ' + Me.cb_ba.AutoSize = True + Me.cb_ba.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ba.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ba.Location = New System.Drawing.Point(7, 290) + Me.cb_ba.Name = "cb_ba" + Me.cb_ba.Size = New System.Drawing.Size(68, 15) + Me.cb_ba.TabIndex = 81 + Me.cb_ba.Tag = "S" + Me.cb_ba.Text = "전산번호" + Me.cb_ba.UseVisualStyleBackColor = True + ' + 'cb_ay + ' + Me.cb_ay.AutoSize = True + Me.cb_ay.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ay.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ay.Location = New System.Drawing.Point(173, 144) + Me.cb_ay.Name = "cb_ay" + Me.cb_ay.Size = New System.Drawing.Size(68, 15) + Me.cb_ay.TabIndex = 80 + Me.cb_ay.Tag = "S" + Me.cb_ay.Text = "전산번호" + Me.cb_ay.UseVisualStyleBackColor = True + ' + 'cb_az + ' + Me.cb_az.AutoSize = True + Me.cb_az.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_az.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_az.Location = New System.Drawing.Point(173, 159) + Me.cb_az.Name = "cb_az" + Me.cb_az.Size = New System.Drawing.Size(68, 15) + Me.cb_az.TabIndex = 79 + Me.cb_az.Tag = "S" + Me.cb_az.Text = "전산번호" + Me.cb_az.UseVisualStyleBackColor = True + ' + 'cb_ax + ' + Me.cb_ax.AutoSize = True + Me.cb_ax.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ax.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ax.Location = New System.Drawing.Point(173, 129) + Me.cb_ax.Name = "cb_ax" + Me.cb_ax.Size = New System.Drawing.Size(68, 15) + Me.cb_ax.TabIndex = 78 + Me.cb_ax.Tag = "S" + Me.cb_ax.Text = "전산번호" + Me.cb_ax.UseVisualStyleBackColor = True + ' + 'cB_aw + ' + Me.cB_aw.AutoSize = True + Me.cB_aw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_aw.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_aw.Location = New System.Drawing.Point(173, 114) + Me.cB_aw.Name = "cB_aw" + Me.cB_aw.Size = New System.Drawing.Size(68, 15) + Me.cB_aw.TabIndex = 77 + Me.cB_aw.Tag = "S" + Me.cB_aw.Text = "전산번호" + Me.cB_aw.UseVisualStyleBackColor = True + ' + 'cb_av + ' + Me.cb_av.AutoSize = True + Me.cb_av.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_av.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_av.Location = New System.Drawing.Point(173, 99) + Me.cb_av.Name = "cb_av" + Me.cb_av.Size = New System.Drawing.Size(68, 15) + Me.cb_av.TabIndex = 76 + Me.cb_av.Tag = "S" + Me.cb_av.Text = "전산번호" + Me.cb_av.UseVisualStyleBackColor = True + ' + 'cb_au + ' + Me.cb_au.AutoSize = True + Me.cb_au.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_au.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_au.Location = New System.Drawing.Point(173, 84) + Me.cb_au.Name = "cb_au" + Me.cb_au.Size = New System.Drawing.Size(68, 15) + Me.cb_au.TabIndex = 75 + Me.cb_au.Tag = "S" + Me.cb_au.Text = "전산번호" + Me.cb_au.UseVisualStyleBackColor = True + ' + 'cb_as + ' + Me.cb_as.AutoSize = True + Me.cb_as.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_as.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_as.Location = New System.Drawing.Point(85, 274) + Me.cb_as.Name = "cb_as" + Me.cb_as.Size = New System.Drawing.Size(68, 15) + Me.cb_as.TabIndex = 74 + Me.cb_as.Tag = "S" + Me.cb_as.Text = "전산번호" + Me.cb_as.UseVisualStyleBackColor = True + ' + 'cb_at + ' + Me.cb_at.AutoSize = True + Me.cb_at.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_at.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_at.Location = New System.Drawing.Point(85, 288) + Me.cb_at.Name = "cb_at" + Me.cb_at.Size = New System.Drawing.Size(68, 15) + Me.cb_at.TabIndex = 73 + Me.cb_at.Tag = "S" + Me.cb_at.Text = "전산번호" + Me.cb_at.UseVisualStyleBackColor = True + ' + 'cb_am + ' + Me.cb_am.AutoSize = True + Me.cb_am.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_am.ForeColor = System.Drawing.Color.Blue + Me.cb_am.Location = New System.Drawing.Point(7, 258) + Me.cb_am.Name = "cb_am" + Me.cb_am.Size = New System.Drawing.Size(68, 15) + Me.cb_am.TabIndex = 72 + Me.cb_am.Tag = "S" + Me.cb_am.Text = "전산번호" + Me.cb_am.UseVisualStyleBackColor = True + ' + 'cb_an + ' + Me.cb_an.AutoSize = True + Me.cb_an.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_an.ForeColor = System.Drawing.Color.Blue + Me.cb_an.Location = New System.Drawing.Point(7, 274) + Me.cb_an.Name = "cb_an" + Me.cb_an.Size = New System.Drawing.Size(68, 15) + Me.cb_an.TabIndex = 71 + Me.cb_an.Tag = "S" + Me.cb_an.Text = "전산번호" + Me.cb_an.UseVisualStyleBackColor = True + ' + 'cb_ar + ' + Me.cb_ar.AutoSize = True + Me.cb_ar.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ar.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ar.Location = New System.Drawing.Point(85, 260) + Me.cb_ar.Name = "cb_ar" + Me.cb_ar.Size = New System.Drawing.Size(68, 15) + Me.cb_ar.TabIndex = 70 + Me.cb_ar.Tag = "S" + Me.cb_ar.Text = "전산번호" + Me.cb_ar.UseVisualStyleBackColor = True + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(7, 8) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(68, 15) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'cb_aq + ' + Me.cb_aq.AutoSize = True + Me.cb_aq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_aq.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_aq.Location = New System.Drawing.Point(85, 246) + Me.cb_aq.Name = "cb_aq" + Me.cb_aq.Size = New System.Drawing.Size(68, 15) + Me.cb_aq.TabIndex = 69 + Me.cb_aq.Tag = "S" + Me.cb_aq.Text = "전산번호" + Me.cb_aq.UseVisualStyleBackColor = True + ' + 'CB_KWAN + ' + Me.CB_KWAN.AutoSize = True + Me.CB_KWAN.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_KWAN.Location = New System.Drawing.Point(7, 28) + Me.CB_KWAN.Name = "CB_KWAN" + Me.CB_KWAN.Size = New System.Drawing.Size(57, 15) + Me.CB_KWAN.TabIndex = 0 + Me.CB_KWAN.Tag = "H" + Me.CB_KWAN.Text = "관리구" + Me.CB_KWAN.UseVisualStyleBackColor = True + ' + 'cb_ap + ' + Me.cb_ap.AutoSize = True + Me.cb_ap.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ap.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ap.Location = New System.Drawing.Point(85, 232) + Me.cb_ap.Name = "cb_ap" + Me.cb_ap.Size = New System.Drawing.Size(68, 15) + Me.cb_ap.TabIndex = 68 + Me.cb_ap.Tag = "S" + Me.cb_ap.Text = "전산번호" + Me.cb_ap.UseVisualStyleBackColor = True + ' + 'cb_ai + ' + Me.cb_ai.AutoSize = True + Me.cb_ai.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ai.ForeColor = System.Drawing.Color.Blue + Me.cb_ai.Location = New System.Drawing.Point(7, 194) + Me.cb_ai.Name = "cb_ai" + Me.cb_ai.Size = New System.Drawing.Size(68, 15) + Me.cb_ai.TabIndex = 63 + Me.cb_ai.Tag = "S" + Me.cb_ai.Text = "전산번호" + Me.cb_ai.UseVisualStyleBackColor = True + ' + 'CB_JUNSA + ' + Me.CB_JUNSA.AutoSize = True + Me.CB_JUNSA.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_JUNSA.Location = New System.Drawing.Point(7, 50) + Me.CB_JUNSA.Name = "CB_JUNSA" + Me.CB_JUNSA.Size = New System.Drawing.Size(68, 15) + Me.CB_JUNSA.TabIndex = 1 + Me.CB_JUNSA.Tag = "S" + Me.CB_JUNSA.Text = "전산번호" + Me.CB_JUNSA.UseVisualStyleBackColor = True + ' + 'cb_ao + ' + Me.cb_ao.AutoSize = True + Me.cb_ao.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ao.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ao.Location = New System.Drawing.Point(85, 218) + Me.cb_ao.Name = "cb_ao" + Me.cb_ao.Size = New System.Drawing.Size(68, 15) + Me.cb_ao.TabIndex = 67 + Me.cb_ao.Tag = "S" + Me.cb_ao.Text = "전산번호" + Me.cb_ao.UseVisualStyleBackColor = True + ' + 'cb_aj + ' + Me.cb_aj.AutoSize = True + Me.cb_aj.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_aj.ForeColor = System.Drawing.Color.Blue + Me.cb_aj.Location = New System.Drawing.Point(7, 210) + Me.cb_aj.Name = "cb_aj" + Me.cb_aj.Size = New System.Drawing.Size(68, 15) + Me.cb_aj.TabIndex = 64 + Me.cb_aj.Tag = "S" + Me.cb_aj.Text = "전산번호" + Me.cb_aj.UseVisualStyleBackColor = True + ' + 'cB_ak + ' + Me.cB_ak.AutoSize = True + Me.cB_ak.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_ak.ForeColor = System.Drawing.Color.Blue + Me.cB_ak.Location = New System.Drawing.Point(7, 226) + Me.cB_ak.Name = "cB_ak" + Me.cB_ak.Size = New System.Drawing.Size(68, 15) + Me.cB_ak.TabIndex = 65 + Me.cB_ak.Tag = "S" + Me.cB_ak.Text = "전산번호" + Me.cB_ak.UseVisualStyleBackColor = True + ' + 'cb_al + ' + Me.cb_al.AutoSize = True + Me.cb_al.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_al.ForeColor = System.Drawing.Color.Blue + Me.cb_al.Location = New System.Drawing.Point(7, 242) + Me.cb_al.Name = "cb_al" + Me.cb_al.Size = New System.Drawing.Size(68, 15) + Me.cb_al.TabIndex = 66 + Me.cb_al.Tag = "S" + Me.cb_al.Text = "전산번호" + Me.cb_al.UseVisualStyleBackColor = True + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.lbQrFG) + Me.TabPage6.Controls.Add(Me.lbQrBg) + Me.TabPage6.Controls.Add(Me.LinkLabel2) + Me.TabPage6.Controls.Add(Me.LinkLabel1) + Me.TabPage6.Controls.Add(Me.Label28) + Me.TabPage6.Controls.Add(Me.Label27) + Me.TabPage6.Controls.Add(Me.Label10) + Me.TabPage6.Controls.Add(Me.Label14) + Me.TabPage6.Controls.Add(Me.cboCorrectionLevel) + Me.TabPage6.Controls.Add(Me.cboVersion) + Me.TabPage6.Controls.Add(Me.cboEncoding) + Me.TabPage6.Controls.Add(Me.Label15) + Me.TabPage6.Controls.Add(Me.Label18) + Me.TabPage6.Controls.Add(Me.Label19) + Me.TabPage6.Controls.Add(Me.Label21) + Me.TabPage6.Controls.Add(Me.Label20) + Me.TabPage6.Controls.Add(Me.Label12) + Me.TabPage6.Controls.Add(Me.Label13) + Me.TabPage6.Controls.Add(Me.Button7) + Me.TabPage6.Controls.Add(Me.Button6) + Me.TabPage6.Controls.Add(Me.Label6) + Me.TabPage6.Controls.Add(Me.tb_dw) + Me.TabPage6.Controls.Add(Me.tb_dh) + Me.TabPage6.Controls.Add(Me.Label7) + Me.TabPage6.Controls.Add(Me.Button2) + Me.TabPage6.Controls.Add(Me.Label3) + Me.TabPage6.Controls.Add(Me.tb_dy) + Me.TabPage6.Controls.Add(Me.Label5) + Me.TabPage6.Controls.Add(Me.tb_pensize) + Me.TabPage6.Controls.Add(Me.tb_dx) + Me.TabPage6.Controls.Add(Me.bt_pencolor) + Me.TabPage6.Controls.Add(Me.Button15) + Me.TabPage6.Controls.Add(Me.Button13) + Me.TabPage6.Controls.Add(Me.ListBox1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "선 및 도형" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'cboCorrectionLevel + ' + Me.cboCorrectionLevel.Location = New System.Drawing.Point(142, 310) + Me.cboCorrectionLevel.Name = "cboCorrectionLevel" + Me.cboCorrectionLevel.Size = New System.Drawing.Size(59, 21) + Me.cboCorrectionLevel.TabIndex = 79 + Me.cboCorrectionLevel.Text = "1" + Me.cboCorrectionLevel.Visible = False + ' + 'cboVersion + ' + Me.cboVersion.Location = New System.Drawing.Point(101, 255) + Me.cboVersion.Name = "cboVersion" + Me.cboVersion.Size = New System.Drawing.Size(100, 21) + Me.cboVersion.TabIndex = 78 + Me.cboVersion.Text = "1" + Me.cboVersion.Visible = False + ' + 'cboEncoding + ' + Me.cboEncoding.Location = New System.Drawing.Point(101, 173) + Me.cboEncoding.Name = "cboEncoding" + Me.cboEncoding.Size = New System.Drawing.Size(100, 21) + Me.cboEncoding.TabIndex = 77 + Me.cboEncoding.Text = "2" + Me.cboEncoding.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(102, 287) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(60, 12) + Me.Label15.TabIndex = 72 + Me.Label15.Text = "1~40 선택" + Me.Label15.Visible = False + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(102, 234) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(44, 12) + Me.Label18.TabIndex = 71 + Me.Label18.Text = "3. Byte" + Me.Label18.Visible = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(102, 218) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(67, 12) + Me.Label19.TabIndex = 70 + Me.Label19.Text = "2. Numeric" + Me.Label19.Visible = False + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(102, 202) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(99, 12) + Me.Label21.TabIndex = 69 + Me.Label21.Text = "1. AlphaNumeric" + Me.Label21.Visible = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(39, 313) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(97, 12) + Me.Label20.TabIndex = 68 + Me.Label20.Text = "Correction Level" + Me.Label20.Visible = False + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(39, 258) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(48, 12) + Me.Label12.TabIndex = 67 + Me.Label12.Text = "Version" + Me.Label12.Visible = False + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(29, 178) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(58, 12) + Me.Label13.TabIndex = 66 + Me.Label13.Text = "Encoding" + Me.Label13.Visible = False + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(228, 7) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(37, 27) + Me.Button7.TabIndex = 18 + Me.Button7.Text = "QR" + Me.Button7.UseVisualStyleBackColor = True + Me.Button7.Visible = False + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(152, 7) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(37, 27) + Me.Button6.TabIndex = 17 + Me.Button6.Text = "원" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(148, 121) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(101, 136) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(142, 136) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(110, 121) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(190, 7) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(37, 27) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(31, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(13, 12) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(60, 136) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(71, 121) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(41, 11) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(32, 21) + Me.tb_pensize.TabIndex = 6 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(19, 136) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(6, 7) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(33, 27) + Me.bt_pencolor.TabIndex = 5 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(114, 7) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(37, 27) + Me.Button15.TabIndex = 4 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(76, 7) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(37, 27) + Me.Button13.TabIndex = 2 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(6, 38) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(259, 76) + Me.ListBox1.TabIndex = 0 + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(588, 164) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장" + Me.Button8.UseVisualStyleBackColor = True + Me.Button8.Visible = False + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(588, 138) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + Me.cmb_sep.Visible = False + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(2, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(269, 478) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(692, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(82, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_pattern_kwan, Me.bt_pattern_junsan, Me.bt_patterkaphe, Me.bt_patterncom, Me.bt_patternsikong, Me.bt_patterkongnum, Me.bt_patternkamdok, Me.구간ToolStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(79, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'bt_pattern_kwan + ' + Me.bt_pattern_kwan.Name = "bt_pattern_kwan" + Me.bt_pattern_kwan.Size = New System.Drawing.Size(134, 22) + Me.bt_pattern_kwan.Text = "관리구" + ' + 'bt_pattern_junsan + ' + Me.bt_pattern_junsan.Name = "bt_pattern_junsan" + Me.bt_pattern_junsan.Size = New System.Drawing.Size(134, 22) + Me.bt_pattern_junsan.Text = "전산번호" + ' + 'bt_patterkaphe + ' + Me.bt_patterkaphe.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem41, Me.ToolStripMenuItem44, Me.ToolStripMenuItem100, Me.ToolStripMenuItem81, Me.ToolStripMenuItem45}) + Me.bt_patterkaphe.Name = "bt_patterkaphe" + Me.bt_patterkaphe.Size = New System.Drawing.Size(134, 22) + Me.bt_patterkaphe.Text = "지상개폐기" + ' + 'ToolStripMenuItem41 + ' + Me.ToolStripMenuItem41.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem38, Me.ToolStripMenuItem35, Me.ToolStripMenuItem32, Me.ToolStripMenuItem10, Me.SSToolStripMenuItem, Me.DLToolStripMenuItem, Me.ToolStripMenuItem2, Me.번호1ToolStripMenuItem}) + Me.ToolStripMenuItem41.Name = "ToolStripMenuItem41" + Me.ToolStripMenuItem41.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem41.Text = "현재" + ' + 'ToolStripMenuItem38 + ' + Me.ToolStripMenuItem38.Name = "ToolStripMenuItem38" + Me.ToolStripMenuItem38.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem38.Text = "번호1" + ' + 'ToolStripMenuItem35 + ' + Me.ToolStripMenuItem35.Name = "ToolStripMenuItem35" + Me.ToolStripMenuItem35.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem35.Text = "번호2" + ' + 'ToolStripMenuItem32 + ' + Me.ToolStripMenuItem32.Name = "ToolStripMenuItem32" + Me.ToolStripMenuItem32.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem32.Text = "번호3" + ' + 'ToolStripMenuItem10 + ' + Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" + Me.ToolStripMenuItem10.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem10.Text = "번호4" + ' + 'SSToolStripMenuItem + ' + Me.SSToolStripMenuItem.Name = "SSToolStripMenuItem" + Me.SSToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.SSToolStripMenuItem.Text = "S/S" + ' + 'DLToolStripMenuItem + ' + Me.DLToolStripMenuItem.Name = "DLToolStripMenuItem" + Me.DLToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.DLToolStripMenuItem.Text = "D/L" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem2.Text = "구간" + ' + '번호1ToolStripMenuItem + ' + Me.번호1ToolStripMenuItem.Name = "번호1ToolStripMenuItem" + Me.번호1ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.번호1ToolStripMenuItem.Text = "위치" + ' + 'ToolStripMenuItem44 + ' + Me.ToolStripMenuItem44.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem43, Me.ToolStripMenuItem58, Me.ToolStripMenuItem61, Me.ToolStripMenuItem64, Me.ToolStripMenuItem1, Me.ToolStripMenuItem3, Me.ToolStripMenuItem67, Me.ToolStripMenuItem70}) + Me.ToolStripMenuItem44.Name = "ToolStripMenuItem44" + Me.ToolStripMenuItem44.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem44.Text = "상대1" + ' + 'ToolStripMenuItem43 + ' + Me.ToolStripMenuItem43.Name = "ToolStripMenuItem43" + Me.ToolStripMenuItem43.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem43.Text = "번호1" + ' + 'ToolStripMenuItem58 + ' + Me.ToolStripMenuItem58.Name = "ToolStripMenuItem58" + Me.ToolStripMenuItem58.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem58.Text = "번호2" + ' + 'ToolStripMenuItem61 + ' + Me.ToolStripMenuItem61.Name = "ToolStripMenuItem61" + Me.ToolStripMenuItem61.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem61.Text = "번호3" + ' + 'ToolStripMenuItem64 + ' + Me.ToolStripMenuItem64.Name = "ToolStripMenuItem64" + Me.ToolStripMenuItem64.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem64.Text = "번호4" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem1.Text = "S/S" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem3.Text = "D/L" + ' + 'ToolStripMenuItem67 + ' + Me.ToolStripMenuItem67.Name = "ToolStripMenuItem67" + Me.ToolStripMenuItem67.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem67.Text = "구간" + ' + 'ToolStripMenuItem70 + ' + Me.ToolStripMenuItem70.Name = "ToolStripMenuItem70" + Me.ToolStripMenuItem70.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem70.Text = "위치" + ' + 'ToolStripMenuItem100 + ' + Me.ToolStripMenuItem100.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem101, Me.ToolStripMenuItem104, Me.ToolStripMenuItem107, Me.ToolStripMenuItem110, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem113, Me.ToolStripMenuItem116}) + Me.ToolStripMenuItem100.Name = "ToolStripMenuItem100" + Me.ToolStripMenuItem100.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem100.Text = "상대2" + ' + 'ToolStripMenuItem101 + ' + Me.ToolStripMenuItem101.Name = "ToolStripMenuItem101" + Me.ToolStripMenuItem101.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem101.Text = "번호1" + ' + 'ToolStripMenuItem104 + ' + Me.ToolStripMenuItem104.Name = "ToolStripMenuItem104" + Me.ToolStripMenuItem104.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem104.Text = "번호2" + ' + 'ToolStripMenuItem107 + ' + Me.ToolStripMenuItem107.Name = "ToolStripMenuItem107" + Me.ToolStripMenuItem107.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem107.Text = "번호3" + ' + 'ToolStripMenuItem110 + ' + Me.ToolStripMenuItem110.Name = "ToolStripMenuItem110" + Me.ToolStripMenuItem110.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem110.Text = "번호4" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem4.Text = "S/S" + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem5.Text = "D/L" + ' + 'ToolStripMenuItem113 + ' + Me.ToolStripMenuItem113.Name = "ToolStripMenuItem113" + Me.ToolStripMenuItem113.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem113.Text = "구간" + ' + 'ToolStripMenuItem116 + ' + Me.ToolStripMenuItem116.Name = "ToolStripMenuItem116" + Me.ToolStripMenuItem116.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem116.Text = "위치" + ' + 'ToolStripMenuItem81 + ' + Me.ToolStripMenuItem81.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem82, Me.ToolStripMenuItem85, Me.ToolStripMenuItem88, Me.ToolStripMenuItem91, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.ToolStripMenuItem94, Me.ToolStripMenuItem97}) + Me.ToolStripMenuItem81.Name = "ToolStripMenuItem81" + Me.ToolStripMenuItem81.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem81.Text = "상대3" + ' + 'ToolStripMenuItem82 + ' + Me.ToolStripMenuItem82.Name = "ToolStripMenuItem82" + Me.ToolStripMenuItem82.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem82.Text = "번호1" + ' + 'ToolStripMenuItem85 + ' + Me.ToolStripMenuItem85.Name = "ToolStripMenuItem85" + Me.ToolStripMenuItem85.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem85.Text = "번호2" + ' + 'ToolStripMenuItem88 + ' + Me.ToolStripMenuItem88.Name = "ToolStripMenuItem88" + Me.ToolStripMenuItem88.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem88.Text = "번호3" + ' + 'ToolStripMenuItem91 + ' + Me.ToolStripMenuItem91.Name = "ToolStripMenuItem91" + Me.ToolStripMenuItem91.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem91.Text = "번호4" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem6.Text = "S/S" + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem7.Text = "D/L" + ' + 'ToolStripMenuItem94 + ' + Me.ToolStripMenuItem94.Name = "ToolStripMenuItem94" + Me.ToolStripMenuItem94.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem94.Text = "구간" + ' + 'ToolStripMenuItem97 + ' + Me.ToolStripMenuItem97.Name = "ToolStripMenuItem97" + Me.ToolStripMenuItem97.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem97.Text = "위치" + ' + 'ToolStripMenuItem45 + ' + Me.ToolStripMenuItem45.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem46, Me.ToolStripMenuItem49, Me.ToolStripMenuItem52, Me.ToolStripMenuItem55, Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem75, Me.ToolStripMenuItem78}) + Me.ToolStripMenuItem45.Name = "ToolStripMenuItem45" + Me.ToolStripMenuItem45.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem45.Text = "상대4" + ' + 'ToolStripMenuItem46 + ' + Me.ToolStripMenuItem46.Name = "ToolStripMenuItem46" + Me.ToolStripMenuItem46.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem46.Text = "번호1" + ' + 'ToolStripMenuItem49 + ' + Me.ToolStripMenuItem49.Name = "ToolStripMenuItem49" + Me.ToolStripMenuItem49.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem49.Text = "번호2" + ' + 'ToolStripMenuItem52 + ' + Me.ToolStripMenuItem52.Name = "ToolStripMenuItem52" + Me.ToolStripMenuItem52.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem52.Text = "번호3" + ' + 'ToolStripMenuItem55 + ' + Me.ToolStripMenuItem55.Name = "ToolStripMenuItem55" + Me.ToolStripMenuItem55.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem55.Text = "번호4" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem8.Text = "S/S" + ' + 'ToolStripMenuItem9 + ' + Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" + Me.ToolStripMenuItem9.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem9.Text = "D/L" + ' + 'ToolStripMenuItem75 + ' + Me.ToolStripMenuItem75.Name = "ToolStripMenuItem75" + Me.ToolStripMenuItem75.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem75.Text = "구간" + ' + 'ToolStripMenuItem78 + ' + Me.ToolStripMenuItem78.Name = "ToolStripMenuItem78" + Me.ToolStripMenuItem78.Size = New System.Drawing.Size(106, 22) + Me.ToolStripMenuItem78.Text = "위치" + ' + 'bt_patterncom + ' + Me.bt_patterncom.Name = "bt_patterncom" + Me.bt_patterncom.Size = New System.Drawing.Size(134, 22) + Me.bt_patterncom.Text = "시공년월" + ' + 'bt_patternsikong + ' + Me.bt_patternsikong.Name = "bt_patternsikong" + Me.bt_patternsikong.Size = New System.Drawing.Size(134, 22) + Me.bt_patternsikong.Text = "시공회사" + ' + 'bt_patterkongnum + ' + Me.bt_patterkongnum.Name = "bt_patterkongnum" + Me.bt_patterkongnum.Size = New System.Drawing.Size(134, 22) + Me.bt_patterkongnum.Text = "공사번호" + ' + 'bt_patternkamdok + ' + Me.bt_patternkamdok.Name = "bt_patternkamdok" + Me.bt_patternkamdok.Size = New System.Drawing.Size(134, 22) + Me.bt_patternkamdok.Text = "감독자" + ' + '구간ToolStripMenuItem + ' + Me.구간ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.현재ToolStripMenuItem, Me.상대1ToolStripMenuItem, Me.상대2ToolStripMenuItem, Me.상대3ToolStripMenuItem, Me.상대4ToolStripMenuItem}) + Me.구간ToolStripMenuItem.ForeColor = System.Drawing.Color.Red + Me.구간ToolStripMenuItem.Name = "구간ToolStripMenuItem" + Me.구간ToolStripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.구간ToolStripMenuItem.Text = "구간" + Me.구간ToolStripMenuItem.Visible = False + ' + '현재ToolStripMenuItem + ' + Me.현재ToolStripMenuItem.Name = "현재ToolStripMenuItem" + Me.현재ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.현재ToolStripMenuItem.Text = "현재" + ' + '상대1ToolStripMenuItem + ' + Me.상대1ToolStripMenuItem.Name = "상대1ToolStripMenuItem" + Me.상대1ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.상대1ToolStripMenuItem.Text = "상대1" + ' + '상대2ToolStripMenuItem + ' + Me.상대2ToolStripMenuItem.Name = "상대2ToolStripMenuItem" + Me.상대2ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.상대2ToolStripMenuItem.Text = "상대2" + ' + '상대3ToolStripMenuItem + ' + Me.상대3ToolStripMenuItem.Name = "상대3ToolStripMenuItem" + Me.상대3ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.상대3ToolStripMenuItem.Text = "상대3" + ' + '상대4ToolStripMenuItem + ' + Me.상대4ToolStripMenuItem.Name = "상대4ToolStripMenuItem" + Me.상대4ToolStripMenuItem.Size = New System.Drawing.Size(106, 22) + Me.상대4ToolStripMenuItem.Text = "상대4" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(692, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.Gainsboro + Me.tb_ntype.Enabled = False + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'lbQrFG + ' + Me.lbQrFG.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrFG.Location = New System.Drawing.Point(158, 426) + Me.lbQrFG.Name = "lbQrFG" + Me.lbQrFG.Size = New System.Drawing.Size(48, 27) + Me.lbQrFG.TabIndex = 87 + ' + 'lbQrBg + ' + Me.lbQrBg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrBg.Location = New System.Drawing.Point(157, 393) + Me.lbQrBg.Name = "lbQrBg" + Me.lbQrBg.Size = New System.Drawing.Size(48, 27) + Me.lbQrBg.TabIndex = 86 + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(47, 433) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(103, 12) + Me.LinkLabel2.TabIndex = 85 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Foreground Color" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(47, 400) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(106, 12) + Me.LinkLabel1.TabIndex = 84 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Background Color" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(170, 363) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(23, 12) + Me.Label28.TabIndex = 83 + Me.Label28.Text = "4.H" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(108, 363) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(24, 12) + Me.Label27.TabIndex = 82 + Me.Label27.Text = "3.Q" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(170, 342) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(26, 12) + Me.Label10.TabIndex = 81 + Me.Label10.Text = "2.M" + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(108, 342) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(56, 12) + Me.Label14.TabIndex = 80 + Me.Label14.Text = "1.L(모두)" + ' + 'printformCable + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(692, 606) + Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.cmb_sep) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformCable" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents CB_JUNSA As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CB_KWAN As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_pattern_junsan As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents bt_patternsikong As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patterncom As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents bt_pattern_kwan As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patterkongnum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patternkamdok As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents cb_ar As System.Windows.Forms.CheckBox + Friend WithEvents cb_aq As System.Windows.Forms.CheckBox + Friend WithEvents cb_ap As System.Windows.Forms.CheckBox + Friend WithEvents cb_ao As System.Windows.Forms.CheckBox + Friend WithEvents cb_al As System.Windows.Forms.CheckBox + Friend WithEvents cB_ak As System.Windows.Forms.CheckBox + Friend WithEvents cb_aj As System.Windows.Forms.CheckBox + Friend WithEvents cb_ai As System.Windows.Forms.CheckBox + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents cb_as As System.Windows.Forms.CheckBox + Friend WithEvents cb_at As System.Windows.Forms.CheckBox + Friend WithEvents cb_am As System.Windows.Forms.CheckBox + Friend WithEvents cb_an As System.Windows.Forms.CheckBox + Friend WithEvents cB_bk As System.Windows.Forms.CheckBox + Friend WithEvents cb_bl As System.Windows.Forms.CheckBox + Friend WithEvents cb_bj As System.Windows.Forms.CheckBox + Friend WithEvents cb_bi As System.Windows.Forms.CheckBox + Friend WithEvents cb_bh As System.Windows.Forms.CheckBox + Friend WithEvents cb_bg As System.Windows.Forms.CheckBox + Friend WithEvents cb_be As System.Windows.Forms.CheckBox + Friend WithEvents cb_bf As System.Windows.Forms.CheckBox + Friend WithEvents cb_bd As System.Windows.Forms.CheckBox + Friend WithEvents cb_bc As System.Windows.Forms.CheckBox + Friend WithEvents cB_bb As System.Windows.Forms.CheckBox + Friend WithEvents cb_ba As System.Windows.Forms.CheckBox + Friend WithEvents cb_ay As System.Windows.Forms.CheckBox + Friend WithEvents cb_az As System.Windows.Forms.CheckBox + Friend WithEvents cb_ax As System.Windows.Forms.CheckBox + Friend WithEvents cB_aw As System.Windows.Forms.CheckBox + Friend WithEvents cb_av As System.Windows.Forms.CheckBox + Friend WithEvents cb_au As System.Windows.Forms.CheckBox + Friend WithEvents cb_bt As System.Windows.Forms.CheckBox + Friend WithEvents cb_bv As System.Windows.Forms.CheckBox + Friend WithEvents cb_bu As System.Windows.Forms.CheckBox + Friend WithEvents cb_bq As System.Windows.Forms.CheckBox + Friend WithEvents cb_bs As System.Windows.Forms.CheckBox + Friend WithEvents cb_br As System.Windows.Forms.CheckBox + Friend WithEvents cb_bn As System.Windows.Forms.CheckBox + Friend WithEvents cb_bp As System.Windows.Forms.CheckBox + Friend WithEvents cb_bo As System.Windows.Forms.CheckBox + Friend WithEvents cb_bm As System.Windows.Forms.CheckBox + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents bt_patterkaphe As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem41 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem44 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 번호1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem38 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem35 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem32 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem10 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem43 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem58 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem61 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem64 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem67 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem70 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem45 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem46 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem49 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem52 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem55 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem75 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem78 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem100 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem101 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem104 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem107 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem110 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem113 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem116 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem81 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem82 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem85 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem88 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem91 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem94 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem97 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_ca As System.Windows.Forms.CheckBox + Friend WithEvents cb_ch As System.Windows.Forms.CheckBox + Friend WithEvents cb_cg As System.Windows.Forms.CheckBox + Friend WithEvents cb_cf As System.Windows.Forms.CheckBox + Friend WithEvents cb_cd As System.Windows.Forms.CheckBox + Friend WithEvents cb_cb As System.Windows.Forms.CheckBox + Friend WithEvents cb_ce As System.Windows.Forms.CheckBox + Friend WithEvents cb_cc As System.Windows.Forms.CheckBox + Friend WithEvents cb_cl As System.Windows.Forms.CheckBox + Friend WithEvents cb_ck As System.Windows.Forms.CheckBox + Friend WithEvents cb_cj As System.Windows.Forms.CheckBox + Friend WithEvents cb_ci As System.Windows.Forms.CheckBox + Friend WithEvents cb_cm As System.Windows.Forms.CheckBox + Friend WithEvents tb_repy As System.Windows.Forms.TextBox + Friend WithEvents tb_repx As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents tb_rep As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents CB_CU As System.Windows.Forms.CheckBox + Friend WithEvents CB_CT As System.Windows.Forms.CheckBox + Friend WithEvents CB_CS As System.Windows.Forms.CheckBox + Friend WithEvents CB_CR As System.Windows.Forms.CheckBox + Friend WithEvents CB_CQ As System.Windows.Forms.CheckBox + Friend WithEvents CB_CP As System.Windows.Forms.CheckBox + Friend WithEvents CB_CO As System.Windows.Forms.CheckBox + Friend WithEvents CB_CN As System.Windows.Forms.CheckBox + Friend WithEvents cb_cw As System.Windows.Forms.CheckBox + Friend WithEvents cb_cv As System.Windows.Forms.CheckBox + Friend WithEvents cb_cz As System.Windows.Forms.CheckBox + Friend WithEvents cb_cy As System.Windows.Forms.CheckBox + Friend WithEvents cb_cx As System.Windows.Forms.CheckBox + Friend WithEvents cb_dc As System.Windows.Forms.CheckBox + Friend WithEvents cb_Db As System.Windows.Forms.CheckBox + Friend WithEvents cb_da As System.Windows.Forms.CheckBox + Friend WithEvents SSToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DLToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem5 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem8 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem9 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents cboCorrectionLevel As System.Windows.Forms.TextBox + Friend WithEvents cboVersion As System.Windows.Forms.TextBox + Friend WithEvents cboEncoding As System.Windows.Forms.TextBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Private WithEvents Label20 As System.Windows.Forms.Label + Private WithEvents Label12 As System.Windows.Forms.Label + Private WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents 구간ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 현재ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 상대1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 상대2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 상대3ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 상대4ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lbQrFG As System.Windows.Forms.Panel + Friend WithEvents lbQrBg As System.Windows.Forms.Panel + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label +End Class diff --git a/Epole/출력폼/PrintFormCable.resx b/Epole/출력폼/PrintFormCable.resx new file mode 100644 index 0000000..660ac35 --- /dev/null +++ b/Epole/출력폼/PrintFormCable.resx @@ -0,0 +1,230 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 229, 17 + + + 173, 43 + + + 401, 11 + + + 334, 43 + + + 526, 11 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintFormCable.vb b/Epole/출력폼/PrintFormCable.vb new file mode 100644 index 0000000..70a2604 --- /dev/null +++ b/Epole/출력폼/PrintFormCable.vb @@ -0,0 +1,3632 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data + +Public Class printformCable + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ(0) As MyControlOLEDBv2.MyLabel + Dim As String + Dim ȣ As String + + Dim SS0ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS0ȣ2(0) As MyControlOLEDBv2.MyLabel + Dim SS0ȣ3(0) As MyControlOLEDBv2.MyLabel + Dim SS0ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS0SW(0) As MyControlOLEDBv2.MyLabel + Dim SS0밡(0) As MyControlOLEDBv2.MyLabel + Dim S0ȣ1 As String + Dim S0ȣ2 As String + Dim S0ȣ3 As String + Dim S0ȣ4 As String + Dim S0SW As String + Dim S0밡 As String + Dim SS0SS(0) As MyControlOLEDBv2.MyLabel + Dim SS0DL(0) As MyControlOLEDBv2.MyLabel + Dim S0SS As String + Dim S0DL As String + + Dim SS1ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS1ȣ2(0) As MyControlOLEDBv2.MyLabel + Dim SS1ȣ3(0) As MyControlOLEDBv2.MyLabel + Dim SS1ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS1SW(0) As MyControlOLEDBv2.MyLabel + Dim SS1ġ(0) As MyControlOLEDBv2.MyLabel + Dim S1ȣ1 As String + Dim S1ȣ2 As String + Dim S1ȣ3 As String + Dim S1ȣ4 As String + Dim S1SW As String + Dim S1ġ As String + Dim SS1SS(0) As MyControlOLEDBv2.MyLabel + Dim SS1DL(0) As MyControlOLEDBv2.MyLabel + Dim S1SS As String + Dim S1DL As String + + + Dim SS2ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS2ȣ2(0) As MyControlOLEDBv2.MyLabel + Dim SS2ȣ3(0) As MyControlOLEDBv2.MyLabel + Dim SS2ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS2SW(0) As MyControlOLEDBv2.MyLabel + Dim SS2ġ(0) As MyControlOLEDBv2.MyLabel + Dim S2ȣ1 As String + Dim S2ȣ2 As String + Dim S2ȣ3 As String + Dim S2ȣ4 As String + Dim S2SW As String + Dim S2ġ As String + Dim SS2SS(0) As MyControlOLEDBv2.MyLabel + Dim SS2DL(0) As MyControlOLEDBv2.MyLabel + Dim S2SS As String + Dim S2DL As String + + + Dim SS3ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS3ȣ2(0) As MyControlOLEDBv2.MyLabel + Dim SS3ȣ3(0) As MyControlOLEDBv2.MyLabel + Dim SS3ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS3SW(0) As MyControlOLEDBv2.MyLabel + Dim SS3ġ(0) As MyControlOLEDBv2.MyLabel + Dim S3ȣ1 As String + Dim S3ȣ2 As String + Dim S3ȣ3 As String + Dim S3ȣ4 As String + Dim S3SW As String + Dim S3ġ As String + Dim SS3SS(0) As MyControlOLEDBv2.MyLabel + Dim SS3DL(0) As MyControlOLEDBv2.MyLabel + Dim S3SS As String + Dim S3DL As String + + + Dim SS4ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS4ȣ2(0) As MyControlOLEDBv2.MyLabel + Dim SS4ȣ3(0) As MyControlOLEDBv2.MyLabel + Dim SS4ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS4SW(0) As MyControlOLEDBv2.MyLabel + Dim SS4ġ(0) As MyControlOLEDBv2.MyLabel + Dim S4ȣ1 As String + Dim S4ȣ2 As String + Dim S4ȣ3 As String + Dim S4ȣ4 As String + Dim S4SW As String + Dim S4ġ As String + Dim SS4SS(0) As MyControlOLEDBv2.MyLabel + Dim SS4DL(0) As MyControlOLEDBv2.MyLabel + Dim S4SS As String + Dim S4DL As String + + + Dim Sð(0) As MyControlOLEDBv2.MyLabel + Dim Sðȸ(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ(0) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim ð As String + Dim ðȸ As String + Dim ȣ As String + Dim As String + + + Dim S1(0) As MyControlOLEDBv2.MyLabel + Dim S2(0) As MyControlOLEDBv2.MyLabel + Dim S3(0) As MyControlOLEDBv2.MyLabel + Dim S4(0) As MyControlOLEDBv2.MyLabel + Dim S5(0) As MyControlOLEDBv2.MyLabel + Dim S6(0) As MyControlOLEDBv2.MyLabel + Dim 1 As String + Dim 2 As String + Dim 3 As String + Dim 4 As String + Dim 5 As String + Dim 6 As String + + Dim stȣ(0), stȣ2(0) As MyControlOLEDBv2.MyLabel + Dim stġ(0), stġ2(0) As MyControlOLEDBv2.MyLabel + Dim stðü(0), stðü2(0) As MyControlOLEDBv2.MyLabel + Dim st(0), st2(0) As MyControlOLEDBv2.MyLabel + Dim stSS1(0), stss2(0), stSS3(0), stss4(0), stSS5(0) As MyControlOLEDBv2.MyLabel + Dim stdl1(0), stdl2(0), stdl3(0), stdl4(0), stdl5(0) As MyControlOLEDBv2.MyLabel + Dim stȣ(0) As MyControlOLEDBv2.MyLabel + + Dim Sȣ(0) As MyLabel + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleCAB") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCECAB.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_CableDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + + + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\(̺)α.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.Detail_CableDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\(̺)α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjungCAB", "\viewConfig\JijungCAB_") + WLog2(Auto_Log, "Form_Close", "\(̺)α.txt") + Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjungCAB", "\viewConfig\JijungCAB_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + WLog2(Auto_Log, "Form_Load()", "\(̺)α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + WLog2(Auto_Log, " ⺻ ȯ()", "\(̺)α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + + WLog2(Auto_Log, "ڸ=" & Admin.ToString, "\(̺)α.txt") + If Admin Then + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\(̺)α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + 'Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Me.cmb_style.Text = "" + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + 'MsgBox(Srcrow("1").ToString) + Dim As String + Try + = Srcrow("б").ToString.Trim + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + = "" + End Try + If = "" Then + Me.cmb_style.Text = "" + Else + Me.cmb_style.Text = "󺯾б" + End If + End If + If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0 + + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + ' Me.BT_JNUMCSAVE.PerformClick() + End If + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + Private Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, Optional ByVal bPattern As String = "") + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = bPattern + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = bPattern + End Sub + + Private Sub SetControls() + WLog2(Auto_Log, "SetControls()", "\(̺)α.txt") + Dim CtlCnt As Short = 0 + + AddControl(CtlCnt, "ȣ", "XX", Me.Sȣ, Me.cb_seq) + + AddControl(CtlCnt, "", "AA", Me.S, Me.CB_KWAN, "KWANPATTERN") + AddControl(CtlCnt, "ȣ", "AB", Me.Sȣ, Me.CB_JUNSA, "JUNNUMPATTERN") + + AddControl(CtlCnt, "()1", "AI", Me.SS0ȣ1, Me.cb_ai, "S01PATTERN") + AddControl(CtlCnt, "()2", "AJ", Me.SS0ȣ2, Me.cb_aj, "S02PATTERN") + AddControl(CtlCnt, "()3", "AK", Me.SS0ȣ3, Me.cB_ak, "S03PATTERN") + AddControl(CtlCnt, "()4", "AL", Me.SS0ȣ4, Me.cb_al, "S04PATTERN") + AddControl(CtlCnt, "()", "AM", Me.SS0SW, Me.cb_am, "S0SWPATTERN") + AddControl(CtlCnt, "()ġ", "AN", Me.SS0밡, Me.cb_an, "S0SUPATTERN") + + AddControl(CtlCnt, "()S/S", "CN", Me.SS0SS, Me.cb_CN, "S0SSPATTERN") + AddControl(CtlCnt, "()D/L", "CO", Me.SS0DL, Me.cb_CO, "S0DLPATTERN") + + AddControl(CtlCnt, "(1)1", "AO", Me.SS1ȣ1, Me.cb_ao, "S11PATTERN") + AddControl(CtlCnt, "(1)2", "AP", Me.SS1ȣ2, Me.cb_ap, "S12PATTERN") + AddControl(CtlCnt, "(1)3", "AQ", Me.SS1ȣ3, Me.cb_aq, "S13PATTERN") + AddControl(CtlCnt, "(1)4", "AR", Me.SS1ȣ4, Me.cb_ar, "S14PATTERN") + AddControl(CtlCnt, "(1)", "AS", Me.SS1SW, Me.cb_as, "S1SWPATTERN") + AddControl(CtlCnt, "(1)ġ", "AT", Me.SS1ġ, Me.cb_at, "S1SUPATTERN") + + AddControl(CtlCnt, "(1)S/S", "CP", Me.SS1SS, Me.cb_CP, "S1SSPATTERN") + AddControl(CtlCnt, "(1)D/L", "CQ", Me.SS1DL, Me.cb_CQ, "S1DLPATTERN") + + AddControl(CtlCnt, "(2)1", "AU", Me.SS2ȣ1, Me.cb_au, "S21PATTERN") + AddControl(CtlCnt, "(2)2", "AV", Me.SS2ȣ2, Me.cb_av, "S22PATTERN") + AddControl(CtlCnt, "(2)3", "AW", Me.SS2ȣ3, Me.cB_aw, "S23PATTERN") + AddControl(CtlCnt, "(2)4", "AX", Me.SS2ȣ4, Me.cb_ax, "S24PATTERN") + AddControl(CtlCnt, "(2)", "AY", Me.SS2SW, Me.cb_ay, "S2SWPATTERN") + AddControl(CtlCnt, "(2)ġ", "AZ", Me.SS2ġ, Me.cb_az, "S2SUPATTERN") + + AddControl(CtlCnt, "(2)S/S", "CR", Me.SS2SS, Me.cb_cR, "S2SSPATTERN") + AddControl(CtlCnt, "(2)D/L", "CS", Me.SS2DL, Me.cb_CS, "S2DLPATTERN") + + AddControl(CtlCnt, "(3)1", "BA", Me.SS3ȣ1, Me.cb_ba, "S31PATTERN") + AddControl(CtlCnt, "(3)2", "BB", Me.SS3ȣ2, Me.cB_bb, "S32PATTERN") + AddControl(CtlCnt, "(3)3", "BC", Me.SS3ȣ3, Me.cb_bc, "S33PATTERN") + AddControl(CtlCnt, "(3)4", "BD", Me.SS3ȣ4, Me.cb_bd, "S34PATTERN") + AddControl(CtlCnt, "(3)", "BE", Me.SS3SW, Me.cb_be, "S3SWPATTERN") + AddControl(CtlCnt, "(3)ġ", "BF", Me.SS3ġ, Me.cb_bf, "S3SUPATTERN") + + AddControl(CtlCnt, "(3)S/S", "CT", Me.SS3SS, Me.cb_CT, "S3SSPATTERN") + AddControl(CtlCnt, "(3)D/L", "CU", Me.SS3DL, Me.cb_CU, "S3DLPATTERN") + + AddControl(CtlCnt, "(4)1", "BG", Me.SS4ȣ1, Me.cb_bg, "S41PATTERN") + AddControl(CtlCnt, "(4)2", "BH", Me.SS4ȣ2, Me.cb_bh, "S42PATTERN") + AddControl(CtlCnt, "(4)3", "BI", Me.SS4ȣ3, Me.cb_bi, "S43PATTERN") + AddControl(CtlCnt, "(4)4", "BJ", Me.SS4ȣ4, Me.cb_bj, "S44PATTERN") + AddControl(CtlCnt, "(4)", "BK", Me.SS4SW, Me.cB_bk, "S4SWPATTERN") + AddControl(CtlCnt, "(4)ġ", "BL", Me.SS4ġ, Me.cb_bl, "S4SUPATTERN") + + AddControl(CtlCnt, "(4)S/S", "CV", Me.SS4SS, Me.cb_CV, "S4SSPATTERN") + AddControl(CtlCnt, "(4)D/L", "CW", Me.SS4DL, Me.cb_CW, "S4DLPATTERN") + + AddControl(CtlCnt, "ð", "BM", Me.Sð, Me.cb_bm, "YMPATTERN") + AddControl(CtlCnt, "ðȸ", "BN", Me.Sðȸ, Me.cb_bn, "CMPATTERN") + AddControl(CtlCnt, "ȣ", "BO", Me.Sȣ, Me.cb_bo, "KONGNPATTERN") + AddControl(CtlCnt, "", "BP", Me.S, Me.cb_bp, "KAMDOKPATTERN") + + AddControl(CtlCnt, "1", "BQ", Me.S1, Me.cb_bq) + AddControl(CtlCnt, "2", "BR", Me.S2, Me.cb_br) + AddControl(CtlCnt, "3", "BS", Me.S3, Me.cb_bs) + AddControl(CtlCnt, "4", "BT", Me.S4, Me.cb_bt) + AddControl(CtlCnt, "5", "BU", Me.S5, Me.cb_bu) + AddControl(CtlCnt, "6", "BV", Me.S6, Me.cb_bv) + + AddControl(CtlCnt, "(ȣ)", "CA", Me.stȣ, Me.cb_ca) + AddControl(CtlCnt, "(ȣII)", "CB", Me.stȣ2, Me.cb_cb) + + AddControl(CtlCnt, "(ġ)", "CC", Me.stġ, Me.cb_cc) + AddControl(CtlCnt, "(ġII)", "CD", Me.stġ2, Me.cb_cd) + + AddControl(CtlCnt, "(ðü)", "CE", Me.stðü, Me.cb_ce) + AddControl(CtlCnt, "(ðüII)", "CF", Me.stðü2, Me.cb_cf) + + AddControl(CtlCnt, "()", "CG", Me.st, Me.cb_cg) + AddControl(CtlCnt, "(II)", "CH", Me.st2, Me.cb_ch) + + AddControl(CtlCnt, "(S/S1)", "CI", Me.stSS1, Me.cb_ci) + AddControl(CtlCnt, "(S/S2)", "CJ", Me.stss2, Me.cb_cj) + AddControl(CtlCnt, "(S/S3)", "CX", Me.stSS3, Me.cb_cx) + AddControl(CtlCnt, "(S/S4)", "CY", Me.stss4, Me.cb_cy) + AddControl(CtlCnt, "(S/S5)", "CZ", Me.stSS5, Me.cb_cz) + + AddControl(CtlCnt, "(D/L1)", "CK", Me.stdl1, Me.cb_ck) + AddControl(CtlCnt, "(D/L2)", "CL", Me.stdl2, Me.cb_cl) + AddControl(CtlCnt, "(D/L3)", "DA", Me.stdl3, Me.cb_da) + AddControl(CtlCnt, "(D/L4)", "DB", Me.stdl4, Me.cb_Db) + AddControl(CtlCnt, "(D/L5)", "DC", Me.stdl5, Me.cb_dc) + AddControl(CtlCnt, "(ȭȣ)", "CM", Me.stȣ, Me.cb_cm) + + + End Sub + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\(̺)α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\(̺)α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\(̺)α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\(̺)α.txt") + WLog2(Auto_Log, "Load_Setting()", "\(̺)α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + WLog2(Auto_Log, "GetviewData ()", "\(̺)α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + WLog2(Auto_Log, "GetViewData : ε ų վ մϴ.()", "\(̺)α.txt") + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + ' STARTTIME = Now + '// ̺ ͸ ǥѴ. ̺ ̴̺ DV + '//絥͸ Ʈѿǥ ¹ (Ϲݿ/Ե) ´. + 'Dim θϰ˻ As Integer = 0 + 'Dim ôϰ˻ As Integer = 0 + Me. = GetSpread(Me.Dv, index, "") + Me.ȣ = GetSpread(Me.Dv, index, "ȣ") + + 'Me.HAڸ = GetSpread(me.dv,index, "HAڸ") + 'Me.HASS = GetSpread(me.dv,index, "HASS") + 'Me.HADL = GetSpread(me.dv,index, "HADL") + 'Me.HA = GetSpread(me.dv,index, "HA") + + 'Me.HBڸ = GetSpread(me.dv,index, "HBڸ") + 'Me.HBSS = GetSpread(me.dv,index, "HBSS") + 'Me.HBDL = GetSpread(me.dv,index, "HBDL") + 'Me.HB = GetSpread(me.dv,index, "HB") + + Me.S0ȣ1 = GetSpread(Me.Dv, index, "S0ȣ1") + Me.S0ȣ2 = GetSpread(Me.Dv, index, "S0ȣ2") + Me.S0ȣ3 = GetSpread(Me.Dv, index, "S0ȣ3") + Me.S0ȣ4 = GetSpread(Me.Dv, index, "S0ȣ4") + Me.S0SW = GetSpread(Me.Dv, index, "S0SW") + Me.S0밡 = GetSpread(Me.Dv, index, "S0밡") + Me.S0SS = GetSpread(Me.Dv, index, "S0SS") + Me.S0DL = GetSpread(Me.Dv, index, "S0DL") + + Me.S1ȣ1 = GetSpread(Me.Dv, index, "S1ȣ1") + Me.S1ȣ2 = GetSpread(Me.Dv, index, "S1ȣ2") + Me.S1ȣ3 = GetSpread(Me.Dv, index, "S1ȣ3") + Me.S1ȣ4 = GetSpread(Me.Dv, index, "S1ȣ4") + Me.S1SW = GetSpread(Me.Dv, index, "S1SW") + Me.S1ġ = GetSpread(Me.Dv, index, "S1ġ") + Me.S1SS = GetSpread(Me.Dv, index, "S1SS") + Me.S1DL = GetSpread(Me.Dv, index, "S1DL") + + Me.S2ȣ1 = GetSpread(Me.Dv, index, "S2ȣ1") + Me.S2ȣ2 = GetSpread(Me.Dv, index, "S2ȣ2") + Me.S2ȣ3 = GetSpread(Me.Dv, index, "S2ȣ3") + Me.S2ȣ4 = GetSpread(Me.Dv, index, "S2ȣ4") + Me.S2SW = GetSpread(Me.Dv, index, "S2SW") + Me.S2ġ = GetSpread(Me.Dv, index, "S2ġ") + Me.S2SS = GetSpread(Me.Dv, index, "S2SS") + Me.S2DL = GetSpread(Me.Dv, index, "S2DL") + + Me.S3ȣ1 = GetSpread(Me.Dv, index, "S3ȣ1") + Me.S3ȣ2 = GetSpread(Me.Dv, index, "S3ȣ2") + Me.S3ȣ3 = GetSpread(Me.Dv, index, "S3ȣ3") + Me.S3ȣ4 = GetSpread(Me.Dv, index, "S3ȣ4") + Me.S3SW = GetSpread(Me.Dv, index, "S3SW") + Me.S3ġ = GetSpread(Me.Dv, index, "S3ġ") + Me.S3SS = GetSpread(Me.Dv, index, "S3SS") + Me.S3DL = GetSpread(Me.Dv, index, "S3DL") + + Me.S4ȣ1 = GetSpread(Me.Dv, index, "S4ȣ1") + Me.S4ȣ2 = GetSpread(Me.Dv, index, "S4ȣ2") + Me.S4ȣ3 = GetSpread(Me.Dv, index, "S4ȣ3") + Me.S4ȣ4 = GetSpread(Me.Dv, index, "S4ȣ4") + Me.S4SW = GetSpread(Me.Dv, index, "S4SW") + Me.S4ġ = GetSpread(Me.Dv, index, "S4ġ") + Me.S4SS = GetSpread(Me.Dv, index, "S4SS") + Me.S4DL = GetSpread(Me.Dv, index, "S4DL") + + Me.ð = GetSpread(Me.Dv, index, "ð") + Me.ðȸ = GetSpread(Me.Dv, index, "ðȸ") + Me.ȣ = GetSpread(Me.Dv, index, "ȣ") + Me. = GetSpread(Me.Dv, index, "") + + Me.1 = GetSpread(Me.Dv, index, "1") + Me.2 = GetSpread(Me.Dv, index, "2") + Me.3 = GetSpread(Me.Dv, index, "3") + Me.4 = GetSpread(Me.Dv, index, "4") + Me.5 = GetSpread(Me.Dv, index, "5") + Me.6 = GetSpread(Me.Dv, index, "6") + + WLog2(Auto_Log, "ͺ ͸ Ϸ()", "\(̺)α.txt") + + Me.Text = "(̺) ۾(" & & ȣ & ")" + + WLog2(Auto_Log, "PASE մϴ.()", "\(̺)α.txt") + '============ ؼ °̴ ========================================================== + Me.PARSE(Me.1, Me.S1) + Me.PARSE(Me.2, Me.S2) + Me.PARSE(Me.3, Me.S3) + Me.PARSE(Me.4, Me.S4) + Me.PARSE(Me.5, Me.S5) + Me.PARSE(Me.6, Me.S6) + '=========================================================================================== + Me.PARSE("ȣ", Me.stȣ) + Me.PARSE("ȣ:", Me.stȣ2) + Me.PARSE("ġ", Me.stġ) + Me.PARSE("ġ:", Me.stġ2) + Me.PARSE("ðü", Me.stðü) + Me.PARSE("ðü:", Me.stðü2) + Me.PARSE("", Me.st) + Me.PARSE(":", Me.st2) + + Me.PARSE("S/S", Me.stSS1) + Me.PARSE("S/S", Me.stss2) + Me.PARSE("S/S", Me.stSS3) + Me.PARSE("S/S", Me.stss4) + Me.PARSE("S/S", Me.stSS5) + + Me.PARSE("D/L", Me.stdl1) + Me.PARSE("D/L", Me.stdl2) + Me.PARSE("D/L", Me.stdl3) + Me.PARSE("D/L", Me.stdl4) + Me.PARSE("D/L", Me.stdl5) + Me.PARSE("ȭȣ:", Me.stȣ) + + '==================================================================================================== + + WLog2(Auto_Log, "ִ PASE մϴ.()", "\(̺)α.txt") + If Me.PARSE(ð, Me.Sð) Then Me.PARSE_PATTERN(ð, Me.Sð) + If Me.PARSE(ðȸ, Me.Sðȸ) Then Me.PARSE_PATTERN(ðȸ, Me.Sðȸ) + If Me.PARSE(ð, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + If Me.PARSE(ð, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + If Me.PARSE(ȣ, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + + 'If Me.PARSE(HAڸ, Me.дڸ) Then Me.PARSE_PATTERN(HAڸ, Me.дڸ) + 'If Me.PARSE(HASS, Me.SHASS) Then Me.PARSE_PATTERN(HASS, Me.SHASS) + 'If Me.PARSE(HADL, Me.SHADL) Then Me.PARSE_PATTERN(HADL, Me.SHADL) + 'If Me.PARSE(HA, Me.SHA) Then Me.PARSE_PATTERN(HA, Me.SHA) + + 'If Me.PARSE(HBڸ, Me.SHBڸ) Then Me.PARSE_PATTERN(HBڸ, Me.SHBڸ) + 'If Me.PARSE(HBSS, Me.SHBSS) Then Me.PARSE_PATTERN(HBSS, Me.SHBSS) + 'If Me.PARSE(HBDL, Me.SHBDL) Then Me.PARSE_PATTERN(HBDL, Me.SHBDL) + 'If Me.PARSE(HB, Me.SHB) Then Me.PARSE_PATTERN(HB, Me.SHB) + + If Me.PARSE(S0ȣ1, Me.SS0ȣ1) Then Me.PARSE_PATTERN(S0ȣ1, Me.SS0ȣ1) + If Me.PARSE(S0ȣ2, Me.SS0ȣ2) Then Me.PARSE_PATTERN(S0ȣ2, Me.SS0ȣ2) + If Me.PARSE(S0ȣ3, Me.SS0ȣ3) Then Me.PARSE_PATTERN(S0ȣ3, Me.SS0ȣ3) + If Me.PARSE(S0ȣ4, Me.SS0ȣ4) Then Me.PARSE_PATTERN(S0ȣ4, Me.SS0ȣ4) + If Me.PARSE(S0SW, Me.SS0SW) Then Me.PARSE_PATTERN(S0SW, Me.SS0SW) + If Me.PARSE(S0밡, Me.SS0밡) Then Me.PARSE_PATTERN(S0밡, Me.SS0밡) + + If Me.PARSE(Me.S0SS, Me.SS0SS) Then Me.PARSE_PATTERN(S0SS, Me.SS0SS) + If Me.PARSE(Me.S0DL, Me.SS0DL) Then Me.PARSE_PATTERN(S0DL, Me.SS0DL) + + If Me.PARSE(S1ȣ1, Me.SS1ȣ1) Then Me.PARSE_PATTERN(S1ȣ1, Me.SS1ȣ1) + If Me.PARSE(S1ȣ2, Me.SS1ȣ2) Then Me.PARSE_PATTERN(S1ȣ2, Me.SS1ȣ2) + If Me.PARSE(S1ȣ3, Me.SS1ȣ3) Then Me.PARSE_PATTERN(S1ȣ3, Me.SS1ȣ3) + If Me.PARSE(S1ȣ4, Me.SS1ȣ4) Then Me.PARSE_PATTERN(S1ȣ4, Me.SS1ȣ4) + If Me.PARSE(S1SW, Me.SS1SW) Then Me.PARSE_PATTERN(S1SW, Me.SS1SW) + If Me.PARSE(S1ġ, Me.SS1ġ) Then Me.PARSE_PATTERN(S1ġ, Me.SS1ġ) + + If Me.PARSE(Me.S1SS, Me.SS1SS) Then Me.PARSE_PATTERN(S1SS, Me.SS1SS) + If Me.PARSE(Me.S1DL, Me.SS1DL) Then Me.PARSE_PATTERN(S1DL, Me.SS1DL) + + If Me.PARSE(S2ȣ1, Me.SS2ȣ1) Then Me.PARSE_PATTERN(S2ȣ1, Me.SS2ȣ1) + If Me.PARSE(S2ȣ2, Me.SS2ȣ2) Then Me.PARSE_PATTERN(S2ȣ2, Me.SS2ȣ2) + If Me.PARSE(S2ȣ3, Me.SS2ȣ3) Then Me.PARSE_PATTERN(S2ȣ3, Me.SS2ȣ3) + If Me.PARSE(S2ȣ4, Me.SS2ȣ4) Then Me.PARSE_PATTERN(S2ȣ4, Me.SS2ȣ4) + If Me.PARSE(S2SW, Me.SS2SW) Then Me.PARSE_PATTERN(S2SW, Me.SS2SW) + If Me.PARSE(S2ġ, Me.SS2ġ) Then Me.PARSE_PATTERN(S2ġ, Me.SS2ġ) + + If Me.PARSE(Me.S2SS, Me.SS2SS) Then Me.PARSE_PATTERN(S2SS, Me.SS2SS) + If Me.PARSE(Me.S2DL, Me.SS2DL) Then Me.PARSE_PATTERN(S2DL, Me.SS2DL) + + If Me.PARSE(S3ȣ1, Me.SS3ȣ1) Then Me.PARSE_PATTERN(S3ȣ1, Me.SS3ȣ1) + If Me.PARSE(S3ȣ2, Me.SS3ȣ2) Then Me.PARSE_PATTERN(S3ȣ2, Me.SS3ȣ2) + If Me.PARSE(S3ȣ3, Me.SS3ȣ3) Then Me.PARSE_PATTERN(S3ȣ3, Me.SS3ȣ3) + If Me.PARSE(S3ȣ4, Me.SS3ȣ4) Then Me.PARSE_PATTERN(S3ȣ4, Me.SS3ȣ4) + If Me.PARSE(S3SW, Me.SS3SW) Then Me.PARSE_PATTERN(S3SW, Me.SS3SW) + If Me.PARSE(S3ġ, Me.SS3ġ) Then Me.PARSE_PATTERN(S3ġ, Me.SS3ġ) + + If Me.PARSE(Me.S3SS, Me.SS3SS) Then Me.PARSE_PATTERN(S3SS, Me.SS3SS) + If Me.PARSE(Me.S3DL, Me.SS3DL) Then Me.PARSE_PATTERN(S3DL, Me.SS3DL) + + If Me.PARSE(S4ȣ1, Me.SS4ȣ1) Then Me.PARSE_PATTERN(S4ȣ1, Me.SS4ȣ1) + If Me.PARSE(S4ȣ2, Me.SS4ȣ2) Then Me.PARSE_PATTERN(S4ȣ2, Me.SS4ȣ2) + If Me.PARSE(S4ȣ3, Me.SS4ȣ3) Then Me.PARSE_PATTERN(S4ȣ3, Me.SS4ȣ3) + If Me.PARSE(S4ȣ4, Me.SS4ȣ4) Then Me.PARSE_PATTERN(S4ȣ4, Me.SS4ȣ4) + If Me.PARSE(S4SW, Me.SS4SW) Then Me.PARSE_PATTERN(S4SW, Me.SS4SW) + If Me.PARSE(S4ġ, Me.SS4ġ) Then Me.PARSE_PATTERN(S4ġ, Me.SS4ġ) + + If Me.PARSE(Me.S4SS, Me.SS4SS) Then Me.PARSE_PATTERN(S4SS, Me.SS4SS) + If Me.PARSE(Me.S4DL, Me.SS4DL) Then Me.PARSE_PATTERN(S4DL, Me.SS4DL) + + WLog2(Auto_Log, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\(̺)α.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + If Me.cb_seq.Checked Then + Me.Sȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.Sȣ(0).Visible = True + Else + Me.Sȣ(0).Visible = False + End If + + '//¥ ƷͰ ´. + 'If <> "" AndAlso ȣ <> "" AndAlso Me.cb_kwanglijungsan.Checked Then + ' Me.Sֹȣ(0).MyText = & "-" & ȣ + ' Me.Sֹȣ(0).Visible = True + 'Else + ' Me.Sֹȣ(0).Visible = False + 'End If + + WLog2(Auto_Log, "ڹ ǥÿθ մϴ.()", "\(̺)α.txt") + 'ڹ ǥÿ u a b d e + ' ....................................................... + WLog2(Auto_Log, "Pewview 츦 մϴ.()", "\(̺)α.txt") + Me.preview_window() + ' If Me.chb_preview.Checked AndAlso previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\(̺)α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(Common.StyleList(cmb_style.SelectedIndex).File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\(̺)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\(̺)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "Clear_item div=", "\(̺)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + + End Sub + + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + ' + 'ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("DESC").ToString) + CurIdx += 1 + Next + + + End Sub + + Private Sub ̺() + WLog2(Auto_Log, "̺ ()", "\(̺)α.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + End Sub + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + WLog2(Auto_Log, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\(̺)α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Next + + If <> "" Then + Try + '//QRڵ带 ׸. + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = 'data + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + ' If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + 'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text)) + 'Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + 'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + 'End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + + End If + + + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\(̺)α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\(̺)α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + + Me.tb_rep.Text = sender.Repeat + Me.tb_repx.Text = sender.RepeatX + Me.tb_repy.Text = sender.RepeatY + + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + Me.bakimg.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\(̺)α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\(̺)α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.chk_DisplayBG.Checked = True + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\(̺)α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\(̺)α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, "\(̺)α.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\(̺)α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\(̺)α.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\(̺)α.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\(̺)α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\(̺)α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + ''WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\(̺)α.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\(̺)α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim pos(), font(), visible, mytext, repeat() As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.DIV = Div Then + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + + WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\(̺)α.txt") + + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage7.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = drstyle.DummyCnt + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + If drstyle.Backimg.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & drstyle.Backimg + Else + Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + Me.chk_DisplayBG.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + Me.Chk_BgImageprint.Checked = drstyle.Printbg + Me.tb_bakx.Text = drstyle.bakx + Me.tb_baky.Text = drstyle.baky + Me.tb_bakw.Text = drstyle.bakw + Me.tb_bakh.Text = drstyle.bakh + + Try + Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1) + Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2) + Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1) + Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "") + Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "") + If qrbgstr = "" Then + lbQrBg.BackColor = Drawing.Color.White + Else + lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr)) + End If + If qrfgstr = "" Then + lbQrFG.BackColor = Drawing.Color.Black + Else + lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr)) + End If + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + + + Me.tb_myfontsize.Text = drstyle.PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + + Public Sub SAVE_STYLE() + WLog2(Auto_Log, "iniϿ Ÿ մϴ. ", "\(̺)α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg")) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + If Tobj.Pattern = "" Then + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat & "," & Tobj.RepeatX & "," & Tobj.RepeatY) '//ݺ + + End If + + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + 'Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + 'Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + 'Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + 'Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + + + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + '//QRڵ + Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text) + Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text) + Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text) + Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString()) + Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString()) + + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + WLog2(Auto_Log, "save style Ϸ ̺ ȣ ", "\(̺)α.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + End Sub + + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + Dim Arinini As New MyINI2(drstyle.File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim MidName As String = labels(0).Pattern + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MidName & "II" & mb.ToString + + WLog2(Auto_Log, " save_pattern2 Ѵ.", "\(̺)α.txt") + For i As Integer = 0 To labels.GetUpperBound(0) + TOBJ = labels(i) + WLog2(Auto_Log, MidName & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MidName) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\(̺)α.txt") + Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\(̺)α.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + WLog2(Auto_Log, "ǥ üũڽ ", "\(̺)α.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + WLog2(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\(̺)α.txt") + Me.preview_window() + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + WLog2(Auto_Log, " ۾ Ŭ", "\(̺)α.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + WLog2(Auto_Log, "۾B õ setfont ȣ ", "\(̺)α.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + WLog2(Auto_Log, "updatefont : ", "\(̺)α.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.DIV = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + Me.showcnt(i, Me.textbox2.Text) + + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + WLog2(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + + + Return True + End Function + + + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + + Private Sub tb_ntype_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ' ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) 'drstyle.File) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + WLog2(Auto_Log, "GetPrinterName()", "\(̺)α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + Private Sub preview_window() '//̸ȭ մϴ. + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + If <> "" Then + Try + '// qrڵ带 ׸ + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = 'data ӽ + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + End If + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + ' MsgBox(CType(A, MyControlOLEDBv2.MyLabel).) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordwidth.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordheight.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("5 (" & Me.S(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S(4).) + msg.AppendLine(" = " & Me.S(4).) + msg.AppendLine("ǥ = " & Me.S(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + + 'MsgBox(drstyle.File) + + + Dim Arinini As New MyINI2(drstyle.File) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S(4) + Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.DIV = Tobj.DIV And Me.AllLabels(z).ctl.TextValue.Trim <> "" Then + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = dtpattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + + C.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + 'ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + + End Sub + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + For Each Rect As S_QRCode In Draw_QRcode + Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + + preview_window() + End Sub + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "Q" + Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "Q" + Dim Line As New S_QRCode + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim qname As String = "DrawQRcode" + Dim bcnt, lcnt, ccnt, qcnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + Next + + ini.Write(cname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "Circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "Circle" & i & "x", L.X) + ini.Write(cname, "Circle" & i & "y", L.Y) + ini.Write(cname, "Circle" & i & "x2", L.Width) + ini.Write(cname, "Circle" & i & "y2", L.Height) + Next + + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + Next + ini.Write(qname, "Count", Draw_QRcode.Count) + For i As Short = 1 To Draw_QRcode.Count '//εƼ Ѵ. + Dim L As S_QRCode = Draw_QRcode(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(qname, "qrcode" & i & "x", L.X) + ini.Write(qname, "qrcode" & i & "y", L.Y) + ini.Write(qname, "qrcode" & i & "x2", L.Width) + ini.Write(qname, "qrcode" & i & "y2", L.Height) + Next + Else '// д κ + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + Draw_QRcode.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) + For i As Short = 1 To ccnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "circle" & i & "pensize", 3) + L.X = ini.Read(cname, "circle" & i & "x", 0) + L.Y = ini.Read(cname, "circle" & i & "y", 0) + L.Width = ini.Read(cname, "circle" & i & "x2", 10) + L.Height = ini.Read(cname, "circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + qcnt = ini.Read(qname, "Count", 0) + For i As Short = 1 To qcnt '//εƼ Ѵ. + Dim L As New S_QRCode + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(qname, "qrcode" & i & "x", 0) + L.Y = ini.Read(qname, "qrcode" & i & "y", 0) + L.Width = ini.Read(qname, "qrcode" & i & "x2", 10) + L.Height = ini.Read(qname, "qrcode" & i & "y2", 10) + Draw_QRcode.Add(L) + Next + + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "Q" + Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + + + Private Sub ToolStripMenuItem46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem46.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ1, Me.S4ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS4ȣ1, Me.S4ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub bt_pattern_kwan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pattern_kwan.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\б.TXT") '//θ մϴ. + End Sub + + + Private Sub bt_pattern_junsan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pattern_junsan.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.Sȣ, Me.ȣ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sȣ, Me.ȣ, "\бȣ.TXT") '//θ մϴ. + End Sub + + Private Sub bt_patterncom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patterncom.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.Sð, Me.ð.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sð, Me.ð, "\бȣ.TXT") '//θ մϴ.() + End Sub + Private Sub bt_patternsikong_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patternsikong.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.Sðȸ, Me.ðȸ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sðȸ, Me.ðȸ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub bt_patterkongnum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patterkongnum.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.Sȣ, Me.ȣ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sȣ, Me.ȣ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub bt_patternkamdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patternkamdok.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem38.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS0ȣ1, Me.S0ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0ȣ1, Me.S0ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem35.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS0ȣ2, Me.S0ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0ȣ2, Me.S0ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem32.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS0ȣ3, Me.S0ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0ȣ3, Me.S0ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem10.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS0ȣ4, Me.S0ȣ4.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0ȣ4, Me.S0ȣ4, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS0SW, Me.S0SW.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0SW, Me.S0SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ȣ1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ȣ1ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS0밡, Me.S0밡.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0밡, Me.S0밡, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem43.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ1, Me.S1ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ1, Me.S1ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem58.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ2, Me.S1ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ2, Me.S1ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem61.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ3, Me.S1ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ3, Me.S1ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem64.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ4, Me.S1ȣ4.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ4, Me.S1ȣ4, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem67.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1SW, Me.S1SW.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1SW, Me.S1SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem70_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem70.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ġ, Me.S1ġ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ġ, Me.S1ġ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem101_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem101.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS2ȣ1, Me.S2ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ1, Me.S2ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem104_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem104.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2ȣ2, Me.S2ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ2, Me.S2ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem107_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem107.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2ȣ3, Me.S2ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ3, Me.S2ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem110_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem110.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS2ȣ4, Me.S2ȣ4.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ4, Me.S2ȣ4, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem113_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem113.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS2SW, Me.S2SW.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2SW, Me.S2SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem116_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem116.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2ġ, Me.S2ġ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ġ, Me.S2ġ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem82.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3ȣ1, Me.S3ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ1, Me.S3ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem85.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS3ȣ2, Me.S3ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ2, Me.S3ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem88.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3ȣ3, Me.S3ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ3, Me.S3ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem91_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem91.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3ȣ4, Me.S3ȣ4.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ4, Me.S3ȣ4, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem94_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem94.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS3SW, Me.S3SW.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS3SW, Me.S3SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem97_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem97.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3ġ, Me.S3ġ.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS3ġ, Me.S3ġ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem49.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ2, Me.S4ȣ2.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ȣ2, Me.S4ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem52.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ3, Me.S4ȣ3.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ȣ3, Me.S4ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem55.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ4, Me.S4ȣ4.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ȣ4, Me.S4ȣ4, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem75.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4SW, Me.S4SW.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4SW, Me.S4SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem78.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ġ, Me.S4ġ.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ġ, Me.S4ġ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + + End Sub + + Private Sub tb_rep_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_rep.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).Repeat = Me.tb_rep.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repx.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatX = Me.tb_repx.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repy_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repy.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatY = Me.tb_repy.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged + + End Sub + + Private Sub SSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SSToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS0SS, Me.S0SS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0SS, Me.S0SS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub DLToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DLToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS0DL, Me.S0DL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0DL, Me.S0DL, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS1SS, Me.S1SS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1SS, Me.S1SS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS2SS, Me.S2SS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2SS, Me.S2SS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3SS, Me.S3SS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3SS, Me.S3SS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem8.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS4SS, Me.S4SS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS4SS, Me.S4SS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1DL, Me.S1DL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1DL, Me.S1DL, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2DL, Me.S2DL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2DL, Me.S2DL, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3DL, Me.S3DL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3DL, Me.S3DL, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem9.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS4DL, Me.S4DL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS4DL, Me.S4DL, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + 'NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Dim NewLine As New S_QRCode + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + Draw_QRcode.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS0SW, Me.S0SW, "\().TXT") '//θ մϴ. + End Sub + + Private Sub 1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 1ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1SW, Me.S1SW, "\(1).TXT") '//θ մϴ. + End Sub + + Private Sub 2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 2ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2SW, Me.S2SW, "\(2).TXT") '//θ մϴ. + End Sub + + Private Sub 3ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 3ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3SW, Me.S3SW, "\(3).TXT") '//θ մϴ. + End Sub + + Private Sub 4ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 4ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS4SW, Me.S4SW, "\(4).TXT") '//θ մϴ. + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrBg.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrBg.BackColor = a.Color + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrFG.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrFG.BackColor = a.Color + End If + End Sub +End Class + + diff --git a/Epole/출력폼/PrintFormCable2.Designer.vb b/Epole/출력폼/PrintFormCable2.Designer.vb new file mode 100644 index 0000000..8176e1a --- /dev/null +++ b/Epole/출력폼/PrintFormCable2.Designer.vb @@ -0,0 +1,2998 @@ + _ +Partial Class printformCable2 + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformCable2)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_repy = New System.Windows.Forms.TextBox() + Me.tb_repx = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_rep = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Button6 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.CB_HB단자 = New System.Windows.Forms.CheckBox() + Me.CB_HA단자 = New System.Windows.Forms.CheckBox() + Me.cb_co = New System.Windows.Forms.CheckBox() + Me.cb_cn = New System.Windows.Forms.CheckBox() + Me.cb_cm = New System.Windows.Forms.CheckBox() + Me.cb_cl = New System.Windows.Forms.CheckBox() + Me.cb_ck = New System.Windows.Forms.CheckBox() + Me.cb_cj = New System.Windows.Forms.CheckBox() + Me.cb_ci = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.cb_bt = New System.Windows.Forms.CheckBox() + Me.cb_bv = New System.Windows.Forms.CheckBox() + Me.cb_bu = New System.Windows.Forms.CheckBox() + Me.cb_bq = New System.Windows.Forms.CheckBox() + Me.cb_bs = New System.Windows.Forms.CheckBox() + Me.cb_br = New System.Windows.Forms.CheckBox() + Me.cB_bk = New System.Windows.Forms.CheckBox() + Me.cb_bi = New System.Windows.Forms.CheckBox() + Me.cb_bh = New System.Windows.Forms.CheckBox() + Me.cb_bg = New System.Windows.Forms.CheckBox() + Me.cb_be = New System.Windows.Forms.CheckBox() + Me.cb_bc = New System.Windows.Forms.CheckBox() + Me.cB_bb = New System.Windows.Forms.CheckBox() + Me.cb_ba = New System.Windows.Forms.CheckBox() + Me.cb_ay = New System.Windows.Forms.CheckBox() + Me.cB_aw = New System.Windows.Forms.CheckBox() + Me.cb_av = New System.Windows.Forms.CheckBox() + Me.cb_au = New System.Windows.Forms.CheckBox() + Me.cb_as = New System.Windows.Forms.CheckBox() + Me.CB_CT = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.CB_HAKUKAN = New System.Windows.Forms.CheckBox() + Me.CB_HADL = New System.Windows.Forms.CheckBox() + Me.cb_aq = New System.Windows.Forms.CheckBox() + Me.CB_HASS = New System.Windows.Forms.CheckBox() + Me.CB_KWAN = New System.Windows.Forms.CheckBox() + Me.cb_ap = New System.Windows.Forms.CheckBox() + Me.cb_CP = New System.Windows.Forms.CheckBox() + Me.CB_JUNSA = New System.Windows.Forms.CheckBox() + Me.cb_ao = New System.Windows.Forms.CheckBox() + Me.CB_CQ = New System.Windows.Forms.CheckBox() + Me.CB_CR = New System.Windows.Forms.CheckBox() + Me.CB_CS = New System.Windows.Forms.CheckBox() + Me.CB_HBSS = New System.Windows.Forms.CheckBox() + Me.CB_HBKUKAN = New System.Windows.Forms.CheckBox() + Me.CB_HBDL = New System.Windows.Forms.CheckBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.bt_pattern_kwan = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_pattern_junsan = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patternha = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.odflStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HAKUKAN = New System.Windows.Forms.ToolStripMenuItem() + Me.BT_DANJA = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patternhb = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem28 = New System.Windows.Forms.ToolStripMenuItem() + Me.BT_HBDANJA = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patterkaphe = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem44 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem43 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem58 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem61 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem67 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem100 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem101 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem104 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem107 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem113 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem81 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem82 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem85 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem88 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem94 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem45 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem46 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem49 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem52 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem75 = New System.Windows.Forms.ToolStripMenuItem() + Me.비고ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고1ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고2ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고3ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고4ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고5ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.비고6ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(583, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정 및 배경" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(189, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_repy) + Me.GroupBox2.Controls.Add(Me.tb_repx) + Me.GroupBox2.Controls.Add(Me.Label9) + Me.GroupBox2.Controls.Add(Me.tb_rep) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'tb_repy + ' + Me.tb_repy.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repy.Location = New System.Drawing.Point(168, 160) + Me.tb_repy.Name = "tb_repy" + Me.tb_repy.Size = New System.Drawing.Size(34, 21) + Me.tb_repy.TabIndex = 73 + Me.tb_repy.Text = "0" + Me.tb_repy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_repx + ' + Me.tb_repx.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repx.Location = New System.Drawing.Point(132, 160) + Me.tb_repx.Name = "tb_repx" + Me.tb_repx.Size = New System.Drawing.Size(34, 21) + Me.tb_repx.TabIndex = 72 + Me.tb_repx.Text = "0" + Me.tb_repx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(109, 163) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(17, 12) + Me.Label9.TabIndex = 71 + Me.Label9.Text = "회" + ' + 'tb_rep + ' + Me.tb_rep.Location = New System.Drawing.Point(71, 159) + Me.tb_rep.Name = "tb_rep" + Me.tb_rep.Size = New System.Drawing.Size(34, 21) + Me.tb_rep.TabIndex = 70 + Me.tb_rep.Text = "0" + Me.tb_rep.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(12, 163) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(53, 12) + Me.Label8.TabIndex = 69 + Me.Label8.Text = "반복출력" + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(11, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 107) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 75) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 52) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 76) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 53) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 127) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 127) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(48, 77) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(48, 54) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 74) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 107) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 51) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 76) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 53) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 75) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 52) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 107) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 6) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 153) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 445) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(15, 242) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 245) + Me.TabControl2.TabIndex = 56 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 219) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.Label2) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 94) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 65) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "페이지당 출력횟수" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(13, 18) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 37 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 12) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 42) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(37, 17) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(169, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 39) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 39) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 47) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(80, 19) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(10, 20) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(45, 16) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(114, 16) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(27, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 6) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 38) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(81, 17) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(11, 18) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(46, 15) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(116, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(26, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label1) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 219) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(194, 136) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 64 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 139) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 12) + Me.Label1.TabIndex = 59 + Me.Label1.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(157, 136) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 63 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(113, 140) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 60 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(85, 135) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 62 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(48, 135) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 61 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(8, 163) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 50) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 53 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 57) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(58, 23) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(72, 16) + Me.Chk_BgImageprint.TabIndex = 26 + Me.Chk_BgImageprint.Text = "배경출력" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "인쇄시 배경을 출력합니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(8, 24) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 25) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(7, 46) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(204, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(9, 18) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(202, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(15, 8) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(247, 61) + Me.GroupBox1.TabIndex = 51 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(17, 20) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(213, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.Button6) + Me.TabPage6.Controls.Add(Me.Label6) + Me.TabPage6.Controls.Add(Me.tb_dw) + Me.TabPage6.Controls.Add(Me.tb_dh) + Me.TabPage6.Controls.Add(Me.Label7) + Me.TabPage6.Controls.Add(Me.Button2) + Me.TabPage6.Controls.Add(Me.Label3) + Me.TabPage6.Controls.Add(Me.tb_dy) + Me.TabPage6.Controls.Add(Me.Label5) + Me.TabPage6.Controls.Add(Me.tb_pensize) + Me.TabPage6.Controls.Add(Me.tb_dx) + Me.TabPage6.Controls.Add(Me.bt_pencolor) + Me.TabPage6.Controls.Add(Me.Button15) + Me.TabPage6.Controls.Add(Me.Button13) + Me.TabPage6.Controls.Add(Me.ListBox1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "선 및 도형" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(181, 6) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(43, 27) + Me.Button6.TabIndex = 17 + Me.Button6.Text = "원" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(148, 121) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(101, 136) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(142, 136) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(110, 121) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(223, 6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(43, 27) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(31, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(13, 12) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(60, 136) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(71, 121) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(59, 10) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(35, 21) + Me.tb_pensize.TabIndex = 6 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(19, 136) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(18, 6) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(36, 27) + Me.bt_pencolor.TabIndex = 5 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(139, 6) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(43, 27) + Me.Button15.TabIndex = 4 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(97, 6) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(43, 27) + Me.Button13.TabIndex = 2 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(18, 38) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(235, 76) + Me.ListBox1.TabIndex = 0 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.CB_HB단자) + Me.TabPage7.Controls.Add(Me.CB_HA단자) + Me.TabPage7.Controls.Add(Me.cb_co) + Me.TabPage7.Controls.Add(Me.cb_cn) + Me.TabPage7.Controls.Add(Me.cb_cm) + Me.TabPage7.Controls.Add(Me.cb_cl) + Me.TabPage7.Controls.Add(Me.cb_ck) + Me.TabPage7.Controls.Add(Me.cb_cj) + Me.TabPage7.Controls.Add(Me.cb_ci) + Me.TabPage7.Controls.Add(Me.chk_draw) + Me.TabPage7.Controls.Add(Me.cb_bt) + Me.TabPage7.Controls.Add(Me.cb_bv) + Me.TabPage7.Controls.Add(Me.cb_bu) + Me.TabPage7.Controls.Add(Me.cb_bq) + Me.TabPage7.Controls.Add(Me.cb_bs) + Me.TabPage7.Controls.Add(Me.cb_br) + Me.TabPage7.Controls.Add(Me.cB_bk) + Me.TabPage7.Controls.Add(Me.cb_bi) + Me.TabPage7.Controls.Add(Me.cb_bh) + Me.TabPage7.Controls.Add(Me.cb_bg) + Me.TabPage7.Controls.Add(Me.cb_be) + Me.TabPage7.Controls.Add(Me.cb_bc) + Me.TabPage7.Controls.Add(Me.cB_bb) + Me.TabPage7.Controls.Add(Me.cb_ba) + Me.TabPage7.Controls.Add(Me.cb_ay) + Me.TabPage7.Controls.Add(Me.cB_aw) + Me.TabPage7.Controls.Add(Me.cb_av) + Me.TabPage7.Controls.Add(Me.cb_au) + Me.TabPage7.Controls.Add(Me.cb_as) + Me.TabPage7.Controls.Add(Me.CB_CT) + Me.TabPage7.Controls.Add(Me.cb_seq) + Me.TabPage7.Controls.Add(Me.CB_HAKUKAN) + Me.TabPage7.Controls.Add(Me.CB_HADL) + Me.TabPage7.Controls.Add(Me.cb_aq) + Me.TabPage7.Controls.Add(Me.CB_HASS) + Me.TabPage7.Controls.Add(Me.CB_KWAN) + Me.TabPage7.Controls.Add(Me.cb_ap) + Me.TabPage7.Controls.Add(Me.cb_CP) + Me.TabPage7.Controls.Add(Me.CB_JUNSA) + Me.TabPage7.Controls.Add(Me.cb_ao) + Me.TabPage7.Controls.Add(Me.CB_CQ) + Me.TabPage7.Controls.Add(Me.CB_CR) + Me.TabPage7.Controls.Add(Me.CB_CS) + Me.TabPage7.Controls.Add(Me.CB_HBSS) + Me.TabPage7.Controls.Add(Me.CB_HBKUKAN) + Me.TabPage7.Controls.Add(Me.CB_HBDL) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "표시여부" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'CB_HB단자 + ' + Me.CB_HB단자.AutoSize = True + Me.CB_HB단자.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HB단자.Location = New System.Drawing.Point(3, 163) + Me.CB_HB단자.Name = "CB_HB단자" + Me.CB_HB단자.Size = New System.Drawing.Size(61, 15) + Me.CB_HB단자.TabIndex = 119 + Me.CB_HB단자.Tag = "CO" + Me.CB_HB단자.Text = "HB단자" + Me.CB_HB단자.UseVisualStyleBackColor = True + ' + 'CB_HA단자 + ' + Me.CB_HA단자.AutoSize = True + Me.CB_HA단자.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HA단자.Location = New System.Drawing.Point(3, 75) + Me.CB_HA단자.Name = "CB_HA단자" + Me.CB_HA단자.Size = New System.Drawing.Size(62, 15) + Me.CB_HA단자.TabIndex = 118 + Me.CB_HA단자.Tag = "CN" + Me.CB_HA단자.Text = "HA단자" + Me.CB_HA단자.UseVisualStyleBackColor = True + ' + 'cb_co + ' + Me.cb_co.AutoSize = True + Me.cb_co.BackColor = System.Drawing.Color.Gainsboro + Me.cb_co.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_co.ForeColor = System.Drawing.Color.Blue + Me.cb_co.Location = New System.Drawing.Point(92, 357) + Me.cb_co.Name = "cb_co" + Me.cb_co.Size = New System.Drawing.Size(68, 15) + Me.cb_co.TabIndex = 117 + Me.cb_co.Tag = "S" + Me.cb_co.Text = "전산번호" + Me.cb_co.UseVisualStyleBackColor = False + ' + 'cb_cn + ' + Me.cb_cn.AutoSize = True + Me.cb_cn.BackColor = System.Drawing.Color.Gainsboro + Me.cb_cn.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cn.Location = New System.Drawing.Point(7, 463) + Me.cb_cn.Name = "cb_cn" + Me.cb_cn.Size = New System.Drawing.Size(68, 15) + Me.cb_cn.TabIndex = 116 + Me.cb_cn.Tag = "S" + Me.cb_cn.Text = "전산번호" + Me.cb_cn.UseVisualStyleBackColor = False + ' + 'cb_cm + ' + Me.cb_cm.AutoSize = True + Me.cb_cm.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cm.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cm.Location = New System.Drawing.Point(7, 442) + Me.cb_cm.Name = "cb_cm" + Me.cb_cm.Size = New System.Drawing.Size(68, 15) + Me.cb_cm.TabIndex = 115 + Me.cb_cm.Tag = "S" + Me.cb_cm.Text = "전산번호" + Me.cb_cm.UseVisualStyleBackColor = False + ' + 'cb_cl + ' + Me.cb_cl.AutoSize = True + Me.cb_cl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cl.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cl.Location = New System.Drawing.Point(7, 423) + Me.cb_cl.Name = "cb_cl" + Me.cb_cl.Size = New System.Drawing.Size(68, 15) + Me.cb_cl.TabIndex = 114 + Me.cb_cl.Tag = "S" + Me.cb_cl.Text = "전산번호" + Me.cb_cl.UseVisualStyleBackColor = False + ' + 'cb_ck + ' + Me.cb_ck.AutoSize = True + Me.cb_ck.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ck.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ck.Location = New System.Drawing.Point(7, 401) + Me.cb_ck.Name = "cb_ck" + Me.cb_ck.Size = New System.Drawing.Size(68, 15) + Me.cb_ck.TabIndex = 113 + Me.cb_ck.Tag = "S" + Me.cb_ck.Text = "전산번호" + Me.cb_ck.UseVisualStyleBackColor = False + ' + 'cb_cj + ' + Me.cb_cj.AutoSize = True + Me.cb_cj.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_cj.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_cj.Location = New System.Drawing.Point(7, 380) + Me.cb_cj.Name = "cb_cj" + Me.cb_cj.Size = New System.Drawing.Size(68, 15) + Me.cb_cj.TabIndex = 112 + Me.cb_cj.Tag = "S" + Me.cb_cj.Text = "전산번호" + Me.cb_cj.UseVisualStyleBackColor = False + ' + 'cb_ci + ' + Me.cb_ci.AutoSize = True + Me.cb_ci.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cb_ci.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ci.Location = New System.Drawing.Point(7, 358) + Me.cb_ci.Name = "cb_ci" + Me.cb_ci.Size = New System.Drawing.Size(68, 15) + Me.cb_ci.TabIndex = 111 + Me.cb_ci.Tag = "S" + Me.cb_ci.Text = "전산번호" + Me.cb_ci.UseVisualStyleBackColor = False + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(180, 8) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(62, 15) + Me.chk_draw.TabIndex = 17 + Me.chk_draw.Text = "선/도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'cb_bt + ' + Me.cb_bt.AutoSize = True + Me.cb_bt.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bt.Location = New System.Drawing.Point(180, 423) + Me.cb_bt.Name = "cb_bt" + Me.cb_bt.Size = New System.Drawing.Size(68, 15) + Me.cb_bt.TabIndex = 96 + Me.cb_bt.Tag = "S" + Me.cb_bt.Text = "전산번호" + Me.cb_bt.UseVisualStyleBackColor = True + ' + 'cb_bv + ' + Me.cb_bv.AutoSize = True + Me.cb_bv.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bv.Location = New System.Drawing.Point(180, 463) + Me.cb_bv.Name = "cb_bv" + Me.cb_bv.Size = New System.Drawing.Size(68, 15) + Me.cb_bv.TabIndex = 98 + Me.cb_bv.Tag = "S" + Me.cb_bv.Text = "전산번호" + Me.cb_bv.UseVisualStyleBackColor = True + ' + 'cb_bu + ' + Me.cb_bu.AutoSize = True + Me.cb_bu.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bu.Location = New System.Drawing.Point(180, 442) + Me.cb_bu.Name = "cb_bu" + Me.cb_bu.Size = New System.Drawing.Size(68, 15) + Me.cb_bu.TabIndex = 97 + Me.cb_bu.Tag = "S" + Me.cb_bu.Text = "전산번호" + Me.cb_bu.UseVisualStyleBackColor = True + ' + 'cb_bq + ' + Me.cb_bq.AutoSize = True + Me.cb_bq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bq.Location = New System.Drawing.Point(180, 358) + Me.cb_bq.Name = "cb_bq" + Me.cb_bq.Size = New System.Drawing.Size(68, 15) + Me.cb_bq.TabIndex = 93 + Me.cb_bq.Tag = "S" + Me.cb_bq.Text = "전산번호" + Me.cb_bq.UseVisualStyleBackColor = True + ' + 'cb_bs + ' + Me.cb_bs.AutoSize = True + Me.cb_bs.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bs.Location = New System.Drawing.Point(180, 401) + Me.cb_bs.Name = "cb_bs" + Me.cb_bs.Size = New System.Drawing.Size(68, 15) + Me.cb_bs.TabIndex = 95 + Me.cb_bs.Tag = "S" + Me.cb_bs.Text = "전산번호" + Me.cb_bs.UseVisualStyleBackColor = True + ' + 'cb_br + ' + Me.cb_br.AutoSize = True + Me.cb_br.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_br.Location = New System.Drawing.Point(180, 380) + Me.cb_br.Name = "cb_br" + Me.cb_br.Size = New System.Drawing.Size(68, 15) + Me.cb_br.TabIndex = 94 + Me.cb_br.Tag = "S" + Me.cb_br.Text = "전산번호" + Me.cb_br.UseVisualStyleBackColor = True + ' + 'cB_bk + ' + Me.cB_bk.AutoSize = True + Me.cB_bk.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_bk.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_bk.Location = New System.Drawing.Point(92, 333) + Me.cB_bk.Name = "cB_bk" + Me.cB_bk.Size = New System.Drawing.Size(68, 15) + Me.cB_bk.TabIndex = 92 + Me.cB_bk.Tag = "S" + Me.cB_bk.Text = "전산번호" + Me.cB_bk.UseVisualStyleBackColor = True + ' + 'cb_bi + ' + Me.cb_bi.AutoSize = True + Me.cb_bi.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bi.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bi.Location = New System.Drawing.Point(92, 312) + Me.cb_bi.Name = "cb_bi" + Me.cb_bi.Size = New System.Drawing.Size(68, 15) + Me.cb_bi.TabIndex = 89 + Me.cb_bi.Tag = "S" + Me.cb_bi.Text = "전산번호" + Me.cb_bi.UseVisualStyleBackColor = True + ' + 'cb_bh + ' + Me.cb_bh.AutoSize = True + Me.cb_bh.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bh.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bh.Location = New System.Drawing.Point(92, 291) + Me.cb_bh.Name = "cb_bh" + Me.cb_bh.Size = New System.Drawing.Size(68, 15) + Me.cb_bh.TabIndex = 88 + Me.cb_bh.Tag = "S" + Me.cb_bh.Text = "전산번호" + Me.cb_bh.UseVisualStyleBackColor = True + ' + 'cb_bg + ' + Me.cb_bg.AutoSize = True + Me.cb_bg.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bg.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bg.Location = New System.Drawing.Point(92, 270) + Me.cb_bg.Name = "cb_bg" + Me.cb_bg.Size = New System.Drawing.Size(68, 15) + Me.cb_bg.TabIndex = 87 + Me.cb_bg.Tag = "S" + Me.cb_bg.Text = "전산번호" + Me.cb_bg.UseVisualStyleBackColor = True + ' + 'cb_be + ' + Me.cb_be.AutoSize = True + Me.cb_be.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_be.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_be.Location = New System.Drawing.Point(92, 249) + Me.cb_be.Name = "cb_be" + Me.cb_be.Size = New System.Drawing.Size(68, 15) + Me.cb_be.TabIndex = 86 + Me.cb_be.Tag = "S" + Me.cb_be.Text = "전산번호" + Me.cb_be.UseVisualStyleBackColor = True + ' + 'cb_bc + ' + Me.cb_bc.AutoSize = True + Me.cb_bc.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_bc.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_bc.Location = New System.Drawing.Point(92, 228) + Me.cb_bc.Name = "cb_bc" + Me.cb_bc.Size = New System.Drawing.Size(68, 15) + Me.cb_bc.TabIndex = 83 + Me.cb_bc.Tag = "S" + Me.cb_bc.Text = "전산번호" + Me.cb_bc.UseVisualStyleBackColor = True + ' + 'cB_bb + ' + Me.cB_bb.AutoSize = True + Me.cB_bb.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_bb.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_bb.Location = New System.Drawing.Point(92, 207) + Me.cB_bb.Name = "cB_bb" + Me.cB_bb.Size = New System.Drawing.Size(68, 15) + Me.cB_bb.TabIndex = 82 + Me.cB_bb.Tag = "S" + Me.cB_bb.Text = "전산번호" + Me.cB_bb.UseVisualStyleBackColor = True + ' + 'cb_ba + ' + Me.cb_ba.AutoSize = True + Me.cb_ba.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ba.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ba.Location = New System.Drawing.Point(92, 186) + Me.cb_ba.Name = "cb_ba" + Me.cb_ba.Size = New System.Drawing.Size(68, 15) + Me.cb_ba.TabIndex = 81 + Me.cb_ba.Tag = "S" + Me.cb_ba.Text = "전산번호" + Me.cb_ba.UseVisualStyleBackColor = True + ' + 'cb_ay + ' + Me.cb_ay.AutoSize = True + Me.cb_ay.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ay.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ay.Location = New System.Drawing.Point(92, 165) + Me.cb_ay.Name = "cb_ay" + Me.cb_ay.Size = New System.Drawing.Size(68, 15) + Me.cb_ay.TabIndex = 80 + Me.cb_ay.Tag = "S" + Me.cb_ay.Text = "전산번호" + Me.cb_ay.UseVisualStyleBackColor = True + ' + 'cB_aw + ' + Me.cB_aw.AutoSize = True + Me.cB_aw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cB_aw.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cB_aw.Location = New System.Drawing.Point(92, 144) + Me.cB_aw.Name = "cB_aw" + Me.cB_aw.Size = New System.Drawing.Size(68, 15) + Me.cB_aw.TabIndex = 77 + Me.cB_aw.Tag = "S" + Me.cB_aw.Text = "전산번호" + Me.cB_aw.UseVisualStyleBackColor = True + ' + 'cb_av + ' + Me.cb_av.AutoSize = True + Me.cb_av.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_av.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_av.Location = New System.Drawing.Point(92, 123) + Me.cb_av.Name = "cb_av" + Me.cb_av.Size = New System.Drawing.Size(68, 15) + Me.cb_av.TabIndex = 76 + Me.cb_av.Tag = "S" + Me.cb_av.Text = "전산번호" + Me.cb_av.UseVisualStyleBackColor = True + ' + 'cb_au + ' + Me.cb_au.AutoSize = True + Me.cb_au.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_au.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_au.Location = New System.Drawing.Point(92, 102) + Me.cb_au.Name = "cb_au" + Me.cb_au.Size = New System.Drawing.Size(68, 15) + Me.cb_au.TabIndex = 75 + Me.cb_au.Tag = "S" + Me.cb_au.Text = "전산번호" + Me.cb_au.UseVisualStyleBackColor = True + ' + 'cb_as + ' + Me.cb_as.AutoSize = True + Me.cb_as.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_as.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_as.Location = New System.Drawing.Point(92, 81) + Me.cb_as.Name = "cb_as" + Me.cb_as.Size = New System.Drawing.Size(68, 15) + Me.cb_as.TabIndex = 74 + Me.cb_as.Tag = "S" + Me.cb_as.Text = "전산번호" + Me.cb_as.UseVisualStyleBackColor = True + ' + 'CB_CT + ' + Me.CB_CT.AutoSize = True + Me.CB_CT.BackColor = System.Drawing.Color.Gainsboro + Me.CB_CT.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CT.ForeColor = System.Drawing.Color.Blue + Me.CB_CT.Location = New System.Drawing.Point(92, 464) + Me.CB_CT.Name = "CB_CT" + Me.CB_CT.Size = New System.Drawing.Size(68, 15) + Me.CB_CT.TabIndex = 72 + Me.CB_CT.Tag = "S" + Me.CB_CT.Text = "전산번호" + Me.CB_CT.UseVisualStyleBackColor = False + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(3, 8) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(68, 15) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'CB_HAKUKAN + ' + Me.CB_HAKUKAN.AutoSize = True + Me.CB_HAKUKAN.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HAKUKAN.Location = New System.Drawing.Point(3, 138) + Me.CB_HAKUKAN.Name = "CB_HAKUKAN" + Me.CB_HAKUKAN.Size = New System.Drawing.Size(68, 15) + Me.CB_HAKUKAN.TabIndex = 59 + Me.CB_HAKUKAN.Tag = "S" + Me.CB_HAKUKAN.Text = "전산번호" + Me.CB_HAKUKAN.UseVisualStyleBackColor = True + ' + 'CB_HADL + ' + Me.CB_HADL.AutoSize = True + Me.CB_HADL.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HADL.Location = New System.Drawing.Point(3, 117) + Me.CB_HADL.Name = "CB_HADL" + Me.CB_HADL.Size = New System.Drawing.Size(68, 15) + Me.CB_HADL.TabIndex = 58 + Me.CB_HADL.Tag = "S" + Me.CB_HADL.Text = "전산번호" + Me.CB_HADL.UseVisualStyleBackColor = True + ' + 'cb_aq + ' + Me.cb_aq.AutoSize = True + Me.cb_aq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_aq.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_aq.Location = New System.Drawing.Point(92, 60) + Me.cb_aq.Name = "cb_aq" + Me.cb_aq.Size = New System.Drawing.Size(68, 15) + Me.cb_aq.TabIndex = 69 + Me.cb_aq.Tag = "S" + Me.cb_aq.Text = "전산번호" + Me.cb_aq.UseVisualStyleBackColor = True + ' + 'CB_HASS + ' + Me.CB_HASS.AutoSize = True + Me.CB_HASS.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HASS.Location = New System.Drawing.Point(3, 96) + Me.CB_HASS.Name = "CB_HASS" + Me.CB_HASS.Size = New System.Drawing.Size(56, 15) + Me.CB_HASS.TabIndex = 57 + Me.CB_HASS.Tag = "S" + Me.CB_HASS.Text = "HASS" + Me.CB_HASS.UseVisualStyleBackColor = True + ' + 'CB_KWAN + ' + Me.CB_KWAN.AutoSize = True + Me.CB_KWAN.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_KWAN.Location = New System.Drawing.Point(3, 29) + Me.CB_KWAN.Name = "CB_KWAN" + Me.CB_KWAN.Size = New System.Drawing.Size(57, 15) + Me.CB_KWAN.TabIndex = 0 + Me.CB_KWAN.Tag = "H" + Me.CB_KWAN.Text = "관리구" + Me.CB_KWAN.UseVisualStyleBackColor = True + ' + 'cb_ap + ' + Me.cb_ap.AutoSize = True + Me.cb_ap.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ap.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ap.Location = New System.Drawing.Point(92, 39) + Me.cb_ap.Name = "cb_ap" + Me.cb_ap.Size = New System.Drawing.Size(68, 15) + Me.cb_ap.TabIndex = 68 + Me.cb_ap.Tag = "S" + Me.cb_ap.Text = "전산번호" + Me.cb_ap.UseVisualStyleBackColor = True + ' + 'cb_CP + ' + Me.cb_CP.AutoSize = True + Me.cb_CP.BackColor = System.Drawing.Color.Gainsboro + Me.cb_CP.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_CP.ForeColor = System.Drawing.Color.Blue + Me.cb_CP.Location = New System.Drawing.Point(92, 380) + Me.cb_CP.Name = "cb_CP" + Me.cb_CP.Size = New System.Drawing.Size(68, 15) + Me.cb_CP.TabIndex = 63 + Me.cb_CP.Tag = "S" + Me.cb_CP.Text = "전산번호" + Me.cb_CP.UseVisualStyleBackColor = False + ' + 'CB_JUNSA + ' + Me.CB_JUNSA.AutoSize = True + Me.CB_JUNSA.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_JUNSA.Location = New System.Drawing.Point(3, 50) + Me.CB_JUNSA.Name = "CB_JUNSA" + Me.CB_JUNSA.Size = New System.Drawing.Size(68, 15) + Me.CB_JUNSA.TabIndex = 1 + Me.CB_JUNSA.Tag = "S" + Me.CB_JUNSA.Text = "전산번호" + Me.CB_JUNSA.UseVisualStyleBackColor = True + ' + 'cb_ao + ' + Me.cb_ao.AutoSize = True + Me.cb_ao.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_ao.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.cb_ao.Location = New System.Drawing.Point(92, 18) + Me.cb_ao.Name = "cb_ao" + Me.cb_ao.Size = New System.Drawing.Size(68, 15) + Me.cb_ao.TabIndex = 67 + Me.cb_ao.Tag = "S" + Me.cb_ao.Text = "전산번호" + Me.cb_ao.UseVisualStyleBackColor = True + ' + 'CB_CQ + ' + Me.CB_CQ.AutoSize = True + Me.CB_CQ.BackColor = System.Drawing.Color.Gainsboro + Me.CB_CQ.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CQ.ForeColor = System.Drawing.Color.Blue + Me.CB_CQ.Location = New System.Drawing.Point(92, 402) + Me.CB_CQ.Name = "CB_CQ" + Me.CB_CQ.Size = New System.Drawing.Size(68, 15) + Me.CB_CQ.TabIndex = 64 + Me.CB_CQ.Tag = "S" + Me.CB_CQ.Text = "전산번호" + Me.CB_CQ.UseVisualStyleBackColor = False + ' + 'CB_CR + ' + Me.CB_CR.AutoSize = True + Me.CB_CR.BackColor = System.Drawing.Color.Gainsboro + Me.CB_CR.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CR.ForeColor = System.Drawing.Color.Blue + Me.CB_CR.Location = New System.Drawing.Point(92, 423) + Me.CB_CR.Name = "CB_CR" + Me.CB_CR.Size = New System.Drawing.Size(68, 15) + Me.CB_CR.TabIndex = 65 + Me.CB_CR.Tag = "S" + Me.CB_CR.Text = "전산번호" + Me.CB_CR.UseVisualStyleBackColor = False + ' + 'CB_CS + ' + Me.CB_CS.AutoSize = True + Me.CB_CS.BackColor = System.Drawing.Color.Gainsboro + Me.CB_CS.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_CS.ForeColor = System.Drawing.Color.Blue + Me.CB_CS.Location = New System.Drawing.Point(92, 445) + Me.CB_CS.Name = "CB_CS" + Me.CB_CS.Size = New System.Drawing.Size(68, 15) + Me.CB_CS.TabIndex = 66 + Me.CB_CS.Tag = "S" + Me.CB_CS.Text = "전산번호" + Me.CB_CS.UseVisualStyleBackColor = False + ' + 'CB_HBSS + ' + Me.CB_HBSS.AutoSize = True + Me.CB_HBSS.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HBSS.Location = New System.Drawing.Point(3, 184) + Me.CB_HBSS.Name = "CB_HBSS" + Me.CB_HBSS.Size = New System.Drawing.Size(55, 15) + Me.CB_HBSS.TabIndex = 60 + Me.CB_HBSS.Tag = "S" + Me.CB_HBSS.Text = "HBSS" + Me.CB_HBSS.UseVisualStyleBackColor = True + ' + 'CB_HBKUKAN + ' + Me.CB_HBKUKAN.AutoSize = True + Me.CB_HBKUKAN.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HBKUKAN.Location = New System.Drawing.Point(3, 226) + Me.CB_HBKUKAN.Name = "CB_HBKUKAN" + Me.CB_HBKUKAN.Size = New System.Drawing.Size(68, 15) + Me.CB_HBKUKAN.TabIndex = 62 + Me.CB_HBKUKAN.Tag = "S" + Me.CB_HBKUKAN.Text = "전산번호" + Me.CB_HBKUKAN.UseVisualStyleBackColor = True + ' + 'CB_HBDL + ' + Me.CB_HBDL.AutoSize = True + Me.CB_HBDL.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_HBDL.Location = New System.Drawing.Point(3, 205) + Me.CB_HBDL.Name = "CB_HBDL" + Me.CB_HBDL.Size = New System.Drawing.Size(68, 15) + Me.CB_HBDL.TabIndex = 61 + Me.CB_HBDL.Tag = "S" + Me.CB_HBDL.Text = "전산번호" + Me.CB_HBDL.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1" + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 12 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "전산화번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "선로명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 11).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "관리구" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "5" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "상별" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "형식및용량" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "기기명" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(0).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(0).Label = "번호" + Me.dataview_Sheet1.Columns.Get(0).Width = 50.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(1).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(1).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Label = "관리구" + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 67.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(2).DataField = "전산화번호" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "번호" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(3).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(4).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(4).Label = "1" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(5).Label = "2" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(6).Label = "3" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.dataview_Sheet1.Columns.Get(7).Label = "4" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(8).Label = "5" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(9).DataField = "변압기상" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Label = "상별" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 44.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(10).DataField = "변압기용량" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "형식및용량" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 75.0! + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(11).DataField = "비고1" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "기기명" + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 44.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(588, 164) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장" + Me.Button8.UseVisualStyleBackColor = True + Me.Button8.Visible = False + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(588, 138) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + Me.cmb_sep.Visible = False + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(2, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(269, 478) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(583, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(89, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_pattern_kwan, Me.bt_pattern_junsan, Me.bt_patternha, Me.bt_patternhb, Me.bt_patterkaphe, Me.비고ToolStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(85, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'bt_pattern_kwan + ' + Me.bt_pattern_kwan.Name = "bt_pattern_kwan" + Me.bt_pattern_kwan.Size = New System.Drawing.Size(139, 22) + Me.bt_pattern_kwan.Text = "관리구" + ' + 'bt_pattern_junsan + ' + Me.bt_pattern_junsan.Name = "bt_pattern_junsan" + Me.bt_pattern_junsan.Size = New System.Drawing.Size(139, 22) + Me.bt_pattern_junsan.Text = "전산번호" + ' + 'bt_patternha + ' + Me.bt_patternha.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.olStripMenuItem, Me.odflStripMenuItem, Me.HAKUKAN, Me.BT_DANJA}) + Me.bt_patternha.Name = "bt_patternha" + Me.bt_patternha.Size = New System.Drawing.Size(139, 22) + Me.bt_patternha.Text = "HA" + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.olStripMenuItem.Text = "S/S" + ' + 'odflStripMenuItem + ' + Me.odflStripMenuItem.Name = "odflStripMenuItem" + Me.odflStripMenuItem.Size = New System.Drawing.Size(100, 22) + Me.odflStripMenuItem.Text = "D/L" + ' + 'HAKUKAN + ' + Me.HAKUKAN.Name = "HAKUKAN" + Me.HAKUKAN.Size = New System.Drawing.Size(100, 22) + Me.HAKUKAN.Text = "구간" + ' + 'BT_DANJA + ' + Me.BT_DANJA.Name = "BT_DANJA" + Me.BT_DANJA.Size = New System.Drawing.Size(100, 22) + Me.BT_DANJA.Text = "단자" + ' + 'bt_patternhb + ' + Me.bt_patternhb.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem25, Me.ToolStripMenuItem28, Me.BT_HBDANJA}) + Me.bt_patternhb.Name = "bt_patternhb" + Me.bt_patternhb.Size = New System.Drawing.Size(139, 22) + Me.bt_patternhb.Text = "HB" + ' + 'ToolStripMenuItem20 + ' + Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" + Me.ToolStripMenuItem20.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem20.Text = "S/S" + ' + 'ToolStripMenuItem25 + ' + Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25" + Me.ToolStripMenuItem25.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem25.Text = "D/L" + ' + 'ToolStripMenuItem28 + ' + Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28" + Me.ToolStripMenuItem28.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem28.Text = "구간" + ' + 'BT_HBDANJA + ' + Me.BT_HBDANJA.Name = "BT_HBDANJA" + Me.BT_HBDANJA.Size = New System.Drawing.Size(100, 22) + Me.BT_HBDANJA.Text = "단자" + ' + 'bt_patterkaphe + ' + Me.bt_patterkaphe.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem44, Me.ToolStripMenuItem100, Me.ToolStripMenuItem81, Me.ToolStripMenuItem45}) + Me.bt_patterkaphe.Name = "bt_patterkaphe" + Me.bt_patterkaphe.Size = New System.Drawing.Size(139, 22) + Me.bt_patterkaphe.Text = "지상개폐기" + ' + 'ToolStripMenuItem44 + ' + Me.ToolStripMenuItem44.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem43, Me.ToolStripMenuItem58, Me.ToolStripMenuItem61, Me.ToolStripMenuItem67}) + Me.ToolStripMenuItem44.Name = "ToolStripMenuItem44" + Me.ToolStripMenuItem44.Size = New System.Drawing.Size(108, 22) + Me.ToolStripMenuItem44.Text = "상대1" + ' + 'ToolStripMenuItem43 + ' + Me.ToolStripMenuItem43.Name = "ToolStripMenuItem43" + Me.ToolStripMenuItem43.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem43.Text = "단자" + ' + 'ToolStripMenuItem58 + ' + Me.ToolStripMenuItem58.Name = "ToolStripMenuItem58" + Me.ToolStripMenuItem58.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem58.Text = "S/S" + ' + 'ToolStripMenuItem61 + ' + Me.ToolStripMenuItem61.Name = "ToolStripMenuItem61" + Me.ToolStripMenuItem61.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem61.Text = "D/L" + ' + 'ToolStripMenuItem67 + ' + Me.ToolStripMenuItem67.Name = "ToolStripMenuItem67" + Me.ToolStripMenuItem67.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem67.Text = "구간" + ' + 'ToolStripMenuItem100 + ' + Me.ToolStripMenuItem100.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem101, Me.ToolStripMenuItem104, Me.ToolStripMenuItem107, Me.ToolStripMenuItem113}) + Me.ToolStripMenuItem100.Name = "ToolStripMenuItem100" + Me.ToolStripMenuItem100.Size = New System.Drawing.Size(108, 22) + Me.ToolStripMenuItem100.Text = "상대2" + ' + 'ToolStripMenuItem101 + ' + Me.ToolStripMenuItem101.Name = "ToolStripMenuItem101" + Me.ToolStripMenuItem101.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem101.Text = "단자" + ' + 'ToolStripMenuItem104 + ' + Me.ToolStripMenuItem104.Name = "ToolStripMenuItem104" + Me.ToolStripMenuItem104.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem104.Text = "S/S" + ' + 'ToolStripMenuItem107 + ' + Me.ToolStripMenuItem107.Name = "ToolStripMenuItem107" + Me.ToolStripMenuItem107.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem107.Text = "D/L" + ' + 'ToolStripMenuItem113 + ' + Me.ToolStripMenuItem113.Name = "ToolStripMenuItem113" + Me.ToolStripMenuItem113.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem113.Text = "구간" + ' + 'ToolStripMenuItem81 + ' + Me.ToolStripMenuItem81.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem82, Me.ToolStripMenuItem85, Me.ToolStripMenuItem88, Me.ToolStripMenuItem94}) + Me.ToolStripMenuItem81.Name = "ToolStripMenuItem81" + Me.ToolStripMenuItem81.Size = New System.Drawing.Size(108, 22) + Me.ToolStripMenuItem81.Text = "상대3" + ' + 'ToolStripMenuItem82 + ' + Me.ToolStripMenuItem82.Name = "ToolStripMenuItem82" + Me.ToolStripMenuItem82.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem82.Text = "단자" + ' + 'ToolStripMenuItem85 + ' + Me.ToolStripMenuItem85.Name = "ToolStripMenuItem85" + Me.ToolStripMenuItem85.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem85.Text = "S/S" + ' + 'ToolStripMenuItem88 + ' + Me.ToolStripMenuItem88.Name = "ToolStripMenuItem88" + Me.ToolStripMenuItem88.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem88.Text = "D/L" + ' + 'ToolStripMenuItem94 + ' + Me.ToolStripMenuItem94.Name = "ToolStripMenuItem94" + Me.ToolStripMenuItem94.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem94.Text = "구간" + ' + 'ToolStripMenuItem45 + ' + Me.ToolStripMenuItem45.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem46, Me.ToolStripMenuItem49, Me.ToolStripMenuItem52, Me.ToolStripMenuItem75}) + Me.ToolStripMenuItem45.Name = "ToolStripMenuItem45" + Me.ToolStripMenuItem45.Size = New System.Drawing.Size(108, 22) + Me.ToolStripMenuItem45.Text = "상대4" + ' + 'ToolStripMenuItem46 + ' + Me.ToolStripMenuItem46.Name = "ToolStripMenuItem46" + Me.ToolStripMenuItem46.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem46.Text = "단자" + ' + 'ToolStripMenuItem49 + ' + Me.ToolStripMenuItem49.Name = "ToolStripMenuItem49" + Me.ToolStripMenuItem49.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem49.Text = "S/S" + ' + 'ToolStripMenuItem52 + ' + Me.ToolStripMenuItem52.Name = "ToolStripMenuItem52" + Me.ToolStripMenuItem52.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem52.Text = "D/L" + ' + 'ToolStripMenuItem75 + ' + Me.ToolStripMenuItem75.Name = "ToolStripMenuItem75" + Me.ToolStripMenuItem75.Size = New System.Drawing.Size(100, 22) + Me.ToolStripMenuItem75.Text = "구간" + ' + '비고ToolStripMenuItem + ' + Me.비고ToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.비고1ToolStripMenuItem, Me.비고2ToolStripMenuItem, Me.비고3ToolStripMenuItem, Me.비고4ToolStripMenuItem, Me.비고5ToolStripMenuItem, Me.비고6ToolStripMenuItem}) + Me.비고ToolStripMenuItem.Name = "비고ToolStripMenuItem" + Me.비고ToolStripMenuItem.Size = New System.Drawing.Size(139, 22) + Me.비고ToolStripMenuItem.Text = "비고" + ' + '비고1ToolStripMenuItem + ' + Me.비고1ToolStripMenuItem.Name = "비고1ToolStripMenuItem" + Me.비고1ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고1ToolStripMenuItem.Text = "비고1" + ' + '비고2ToolStripMenuItem + ' + Me.비고2ToolStripMenuItem.Name = "비고2ToolStripMenuItem" + Me.비고2ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고2ToolStripMenuItem.Text = "비고2" + ' + '비고3ToolStripMenuItem + ' + Me.비고3ToolStripMenuItem.Name = "비고3ToolStripMenuItem" + Me.비고3ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고3ToolStripMenuItem.Text = "비고3" + ' + '비고4ToolStripMenuItem + ' + Me.비고4ToolStripMenuItem.Name = "비고4ToolStripMenuItem" + Me.비고4ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고4ToolStripMenuItem.Text = "비고4" + ' + '비고5ToolStripMenuItem + ' + Me.비고5ToolStripMenuItem.Name = "비고5ToolStripMenuItem" + Me.비고5ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고5ToolStripMenuItem.Text = "비고5" + ' + '비고6ToolStripMenuItem + ' + Me.비고6ToolStripMenuItem.Name = "비고6ToolStripMenuItem" + Me.비고6ToolStripMenuItem.Size = New System.Drawing.Size(108, 22) + Me.비고6ToolStripMenuItem.Text = "비고6" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(583, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(59, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.Gainsboro + Me.tb_ntype.Enabled = False + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'printformCable2 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(583, 606) + Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.cmb_sep) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformCable2" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents CB_JUNSA As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents CB_KWAN As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_pattern_junsan As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patternha As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patternhb As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents odflStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents bt_pattern_kwan As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents CB_HBKUKAN As System.Windows.Forms.CheckBox + Friend WithEvents CB_HBDL As System.Windows.Forms.CheckBox + Friend WithEvents CB_HBSS As System.Windows.Forms.CheckBox + Friend WithEvents CB_HAKUKAN As System.Windows.Forms.CheckBox + Friend WithEvents CB_HADL As System.Windows.Forms.CheckBox + Friend WithEvents CB_HASS As System.Windows.Forms.CheckBox + Friend WithEvents cb_aq As System.Windows.Forms.CheckBox + Friend WithEvents cb_ap As System.Windows.Forms.CheckBox + Friend WithEvents cb_ao As System.Windows.Forms.CheckBox + Friend WithEvents CB_CS As System.Windows.Forms.CheckBox + Friend WithEvents CB_CR As System.Windows.Forms.CheckBox + Friend WithEvents CB_CQ As System.Windows.Forms.CheckBox + Friend WithEvents cb_CP As System.Windows.Forms.CheckBox + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents cb_as As System.Windows.Forms.CheckBox + Friend WithEvents CB_CT As System.Windows.Forms.CheckBox + Friend WithEvents cB_bk As System.Windows.Forms.CheckBox + Friend WithEvents cb_bi As System.Windows.Forms.CheckBox + Friend WithEvents cb_bh As System.Windows.Forms.CheckBox + Friend WithEvents cb_bg As System.Windows.Forms.CheckBox + Friend WithEvents cb_be As System.Windows.Forms.CheckBox + Friend WithEvents cb_bc As System.Windows.Forms.CheckBox + Friend WithEvents cB_bb As System.Windows.Forms.CheckBox + Friend WithEvents cb_ba As System.Windows.Forms.CheckBox + Friend WithEvents cb_ay As System.Windows.Forms.CheckBox + Friend WithEvents cB_aw As System.Windows.Forms.CheckBox + Friend WithEvents cb_av As System.Windows.Forms.CheckBox + Friend WithEvents cb_au As System.Windows.Forms.CheckBox + Friend WithEvents cb_bt As System.Windows.Forms.CheckBox + Friend WithEvents cb_bv As System.Windows.Forms.CheckBox + Friend WithEvents cb_bu As System.Windows.Forms.CheckBox + Friend WithEvents cb_bq As System.Windows.Forms.CheckBox + Friend WithEvents cb_bs As System.Windows.Forms.CheckBox + Friend WithEvents cb_br As System.Windows.Forms.CheckBox + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents HAKUKAN As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem20 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem25 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem28 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_patterkaphe As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem44 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem43 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem58 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem61 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem67 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem45 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem46 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem49 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem52 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem75 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem100 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem101 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem104 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem107 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem113 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem81 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem82 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem85 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem88 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem94 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_cl As System.Windows.Forms.CheckBox + Friend WithEvents cb_ck As System.Windows.Forms.CheckBox + Friend WithEvents cb_cj As System.Windows.Forms.CheckBox + Friend WithEvents cb_ci As System.Windows.Forms.CheckBox + Friend WithEvents cb_cm As System.Windows.Forms.CheckBox + Friend WithEvents cb_co As System.Windows.Forms.CheckBox + Friend WithEvents cb_cn As System.Windows.Forms.CheckBox + Friend WithEvents tb_repy As System.Windows.Forms.TextBox + Friend WithEvents tb_repx As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents tb_rep As System.Windows.Forms.TextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents BT_DANJA As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents BT_HBDANJA As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents 비고ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고1ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고2ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고3ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고4ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고5ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 비고6ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CB_HB단자 As System.Windows.Forms.CheckBox + Friend WithEvents CB_HA단자 As System.Windows.Forms.CheckBox +End Class diff --git a/Epole/출력폼/PrintFormCable2.resx b/Epole/출력폼/PrintFormCable2.resx new file mode 100644 index 0000000..660ac35 --- /dev/null +++ b/Epole/출력폼/PrintFormCable2.resx @@ -0,0 +1,230 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 229, 17 + + + 173, 43 + + + 401, 11 + + + 334, 43 + + + 526, 11 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintFormCable2.vb b/Epole/출력폼/PrintFormCable2.vb new file mode 100644 index 0000000..74cec8f --- /dev/null +++ b/Epole/출력폼/PrintFormCable2.vb @@ -0,0 +1,3187 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + +Public Class printformCable2 + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ(0) As MyControlOLEDBv2.MyLabel + Dim As String + Dim ȣ As String + + Dim SHAڸ(0) As MyControlOLEDBv2.MyLabel + Dim SHASS(20) As MyControlOLEDBv2.MyLabel + Dim SHADL(20) As MyControlOLEDBv2.MyLabel + Dim SHA(20) As MyControlOLEDBv2.MyLabel + Dim HAڸ As String + Dim HA As String + Dim HASS As String + Dim HADL As String + + Dim SHBڸ(0) As MyControlOLEDBv2.MyLabel + Dim SHBSS(20) As MyControlOLEDBv2.MyLabel + Dim SHBDL(20) As MyControlOLEDBv2.MyLabel + Dim SHB(20) As MyControlOLEDBv2.MyLabel + Dim HBڸ As String + Dim HBSS As String + Dim HBDL As String + Dim HB As String + + 'Dim SS0ȣ1(0) As MyControlOLEDBv2.MyLabel + 'Dim SS0ȣ2(20) As MyControlOLEDBv2.MyLabel + 'Dim SS0ȣ3(20) As MyControlOLEDBv2.MyLabel + ''Dim SS0ȣ4(0) As MyControlOLEDBv2.MyLabel + 'Dim SS0SW(20) As MyControlOLEDBv2.MyLabel + '' Dim SS0밡(0) As MyControlOLEDBv2.MyLabel + 'Dim S0ȣ1 As String + 'Dim S0ȣ2 As String + 'Dim S0ȣ3 As String + ''Dim S0ȣ4 As String + 'Dim S0SW As String + ''Dim S0밡 As String + + Dim SS1ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS1ȣ2(20) As MyControlOLEDBv2.MyLabel + Dim SS1ȣ3(20) As MyControlOLEDBv2.MyLabel + 'Dim SS1ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS1SW(20) As MyControlOLEDBv2.MyLabel + ' Dim SS1ġ(0) As MyControlOLEDBv2.MyLabel + Dim S1ȣ1 As String + Dim S1ȣ2 As String + Dim S1ȣ3 As String + 'Dim S1ȣ4 As String + Dim S1SW As String + 'Dim S1ġ As String + + + Dim SS2ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS2ȣ2(20) As MyControlOLEDBv2.MyLabel + Dim SS2ȣ3(20) As MyControlOLEDBv2.MyLabel + 'Dim SS2ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS2SW(20) As MyControlOLEDBv2.MyLabel + 'Dim SS2ġ(0) As MyControlOLEDBv2.MyLabel + Dim S2ȣ1 As String + Dim S2ȣ2 As String + Dim S2ȣ3 As String + 'Dim S2ȣ4 As String + Dim S2SW As String + 'Dim S2ġ As String + + + + Dim SS3ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS3ȣ2(20) As MyControlOLEDBv2.MyLabel + Dim SS3ȣ3(20) As MyControlOLEDBv2.MyLabel + 'Dim SS3ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS3SW(20) As MyControlOLEDBv2.MyLabel + 'Dim SS3ġ(0) As MyControlOLEDBv2.MyLabel + Dim S3ȣ1 As String + Dim S3ȣ2 As String + Dim S3ȣ3 As String + ' Dim S3ȣ4 As String + Dim S3SW As String + 'Dim S3ġ As String + + + Dim SS4ȣ1(0) As MyControlOLEDBv2.MyLabel + Dim SS4ȣ2(20) As MyControlOLEDBv2.MyLabel + Dim SS4ȣ3(20) As MyControlOLEDBv2.MyLabel + 'Dim SS4ȣ4(0) As MyControlOLEDBv2.MyLabel + Dim SS4SW(20) As MyControlOLEDBv2.MyLabel + 'Dim SS4ġ(0) As MyControlOLEDBv2.MyLabel + Dim S4ȣ1 As String + Dim S4ȣ2 As String + Dim S4ȣ3 As String + Dim S4ȣ4 As String + Dim S4SW As String + Dim S4ġ As String + + + + 'Dim Sð(0) As MyControlOLEDBv2.MyLabel + 'Dim Sðȸ(0) As MyControlOLEDBv2.MyLabel + 'Dim Sȣ(0) As MyControlOLEDBv2.MyLabel + 'Dim S(0) As MyControlOLEDBv2.MyLabel + 'Dim ð As String + 'Dim ðȸ As String + 'Dim ȣ As String + 'Dim As String + + + Dim S1(0) As MyControlOLEDBv2.MyLabel + Dim S2(0) As MyControlOLEDBv2.MyLabel + Dim S3(0) As MyControlOLEDBv2.MyLabel + Dim S4(0) As MyControlOLEDBv2.MyLabel + Dim S5(0) As MyControlOLEDBv2.MyLabel + Dim S6(0) As MyControlOLEDBv2.MyLabel + Dim 1 As String + Dim 2 As String + Dim 3 As String + Dim 4 As String + Dim 5 As String + Dim 6 As String + + 'Dim stȣ(0), stȣ2(0) As MyControlOLEDBv2.MyLabel + 'Dim stġ(0), stġ2(0) As MyControlOLEDBv2.MyLabel + 'Dim stðü(0), stðü2(0) As MyControlOLEDBv2.MyLabel + 'Dim st(0), st2(0) As MyControlOLEDBv2.MyLabel + 'Dim stSS1(0), stss2(0) As MyControlOLEDBv2.MyLabel + 'Dim stdl1(0), stdl2(0) As MyControlOLEDBv2.MyLabel + 'Dim stȣ(0) As MyControlOLEDBv2.MyLabel + + Dim stss1(0) As MyLabel + Dim stss2(0) As MyLabel + Dim stss3(0) As MyLabel + Dim stss4(0) As MyLabel + Dim stss5(0) As MyLabel + Dim stss6(0) As MyLabel + + Dim stdl1(0) As MyLabel + Dim stdl2(0) As MyLabel + Dim stdl3(0) As MyLabel + Dim stdl4(0) As MyLabel + Dim stdl5(0) As MyLabel + Dim stdl6(0) As MyLabel + + + Dim Sȣ(0) As MyLabel + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleCAB2") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCECAB2.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_Cable2DataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + + + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\(̺2)α.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.Detail_Cable2DataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\(̺2)α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjungCAB2", "\viewConfig\JijungCAB2_") + WLog2(Auto_Log, "Form_Close", "\(̺2)α.txt") + Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjungCAB2", "\viewConfig\JijungCAB2_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + WLog2(Auto_Log, "Form_Load()", "\(̺2)α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + WLog2(Auto_Log, " ⺻ ȯ()", "\(̺2)α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + + WLog2(Auto_Log, "ڸ=" & Admin.ToString, "\(̺2)α.txt") + If Admin Then + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\(̺2)α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + 'Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Me.cmb_style.Text = "" + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + 'MsgBox(Srcrow("1").ToString) + Dim As String + Try + = Srcrow("б").ToString.Trim + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + = "" + End Try + If = "" Then + Me.cmb_style.Text = "" + Else + Me.cmb_style.Text = "󺯾б" + End If + End If + If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0 + + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + ' Me.BT_JNUMCSAVE.PerformClick() + End If + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + Private Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, Optional ByVal bPattern As String = "") + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = bPattern + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = bPattern + End Sub + + Private Sub SetControls() + WLog2(Auto_Log, "SetControls()", "\(̺2)α.txt") + Dim CtlCnt As Short = 0 + + AddControl(CtlCnt, "ȣ", "XX", Me.Sȣ, Me.cb_seq, ) + + AddControl(CtlCnt, "", "AA", Me.S, Me.CB_KWAN, "KWANPATTERN") + AddControl(CtlCnt, "ȣ", "AB", Me.Sȣ, Me.CB_JUNSA, "JUNNUMPATTERN") + + AddControl(CtlCnt, "HAڸ", "CN", Me.SHAڸ, Me.CB_HA, "CNPATTERN") + AddControl(CtlCnt, "HASS", "AC", Me.SHASS, Me.CB_HASS, "HAGPATTERN") + AddControl(CtlCnt, "HADL", "AD", Me.SHADL, Me.CB_HADL, "HASSPATTERN") + AddControl(CtlCnt, "HA", "AE", Me.SHA, Me.CB_HAKUKAN, "HADLPTTERN") + + AddControl(CtlCnt, "HBڸ", "CO", Me.SHBڸ, Me.CB_HB, "COPATTERN") + AddControl(CtlCnt, "HBSS", "AF", Me.SHBSS, Me.CB_HBSS, "HBSSPATTERN") + AddControl(CtlCnt, "HBDL", "AG", Me.SHBDL, Me.CB_HBDL, "HBDLPATTERN") + AddControl(CtlCnt, "HB", "AH", Me.SHB, Me.CB_HBKUKAN, "HBGPATTERN") + + 'AddControl(CtlCnt, "1", "AI", Me.SS0ȣ1, Me.cb_ai, "S01PATTERN") + 'AddControl(CtlCnt, "1S/S", "AJ", Me.SS0ȣ2, Me.cb_aj, "S02PATTERN") + 'AddControl(CtlCnt, "1D/L", "AK", Me.SS0ȣ3, Me.cB_ak, "S03PATTERN") + ''AddControl(CtlCnt, "S0ȣ4", "AL", Me.SS0ȣ4, Me.cb_al, "S04PATTERN") + 'AddControl(CtlCnt, "1", "AM", Me.SS0SW, Me.cb_am, "S0SWPATTERN") + ''AddControl(CtlCnt, "S0ġ", "AN", Me.SS0밡, Me.cb_an, "S0SUPATTERN") + + AddControl(CtlCnt, "1", "AO", Me.SS1ȣ1, Me.cb_ao, "S11PATTERN") + AddControl(CtlCnt, "1S/S", "AP", Me.SS1ȣ2, Me.cb_ap, "S12PATTERN") + AddControl(CtlCnt, "1D/L", "AQ", Me.SS1ȣ3, Me.cb_aq, "S13PATTERN") + 'AddControl(CtlCnt, "S1ȣ4", "AR", Me.SS1ȣ4, Me.cb_ar, "S14PATTERN") + AddControl(CtlCnt, "1", "AS", Me.SS1SW, Me.cb_as, "S1SWPATTERN") + 'AddControl(CtlCnt, "S1ġ", "AT", Me.SS1ġ, Me.cb_at, "S1SUPATTERN") + + AddControl(CtlCnt, "2", "AU", Me.SS2ȣ1, Me.cb_au, "S21PATTERN") + AddControl(CtlCnt, "2S/S", "AV", Me.SS2ȣ2, Me.cb_av, "S22PATTERN") + AddControl(CtlCnt, "2D/L", "AW", Me.SS2ȣ3, Me.cB_aw, "S23PATTERN") + 'AddControl(CtlCnt, "s2ȣ4", "AX", Me.SS2ȣ4, Me.cb_ax, "S24PATTERN") + AddControl(CtlCnt, "2", "AY", Me.SS2SW, Me.cb_ay, "S2SWPATTERN") + 'AddControl(CtlCnt, "s2ġ", "AZ", Me.SS2ġ, Me.cb_az, "S2SUPATTERN") + + AddControl(CtlCnt, "3", "BA", Me.SS3ȣ1, Me.cb_ba, "S31PATTERN") + AddControl(CtlCnt, "3S/S", "BB", Me.SS3ȣ2, Me.cB_bb, "S32PATTERN") + AddControl(CtlCnt, "3D/L", "BC", Me.SS3ȣ3, Me.cb_bc, "S33PATTERN") + ' AddControl(CtlCnt, "s3ȣ4", "BD", Me.SS3ȣ4, Me.cb_bd, "S34PATTERN") + AddControl(CtlCnt, "3", "BE", Me.SS3SW, Me.cb_be, "S3SWPATTERN") + 'AddControl(CtlCnt, "s3ġ", "BF", Me.SS3ġ, Me.cb_bf, "S3SUPATTERN") + + AddControl(CtlCnt, "4", "BG", Me.SS4ȣ1, Me.cb_bg, "S41PATTERN") + AddControl(CtlCnt, "4S/S", "BH", Me.SS4ȣ2, Me.cb_bh, "S42PATTERN") + AddControl(CtlCnt, "4D/L", "BI", Me.SS4ȣ3, Me.cb_bi, "S43PATTERN") + 'AddControl(CtlCnt, "s4ȣ4", "BJ", Me.SS4ȣ4, Me.cb_bj, "S44PATTERN") + AddControl(CtlCnt, "4", "BK", Me.SS4SW, Me.cB_bk, "S4SWPATTERN") + ' AddControl(CtlCnt, "s4ġ", "BL", Me.SS4ġ, Me.cb_bl, "S4SUPATTERN") + + 'AddControl(CtlCnt, "ð", "BM", Me.Sð, Me.cb_bm, "YMPATTERN") + 'AddControl(CtlCnt, "ðȸ", "BN", Me.Sðȸ, Me.cb_bn, "CMPATTERN") + 'AddControl(CtlCnt, "ȣ", "BO", Me.Sȣ, Me.cb_bo, "KONGNPATTERN") + 'AddControl(CtlCnt, "", "BP", Me.S, Me.cb_bp, "KAMDOKPATTERN") + + AddControl(CtlCnt, "1", "BQ", Me.S1, Me.cb_bq) + AddControl(CtlCnt, "2", "BR", Me.S2, Me.cb_br) + AddControl(CtlCnt, "3", "BS", Me.S3, Me.cb_bs) + AddControl(CtlCnt, "4", "BT", Me.S4, Me.cb_bt) + AddControl(CtlCnt, "5", "BU", Me.S5, Me.cb_bu) + AddControl(CtlCnt, "6", "BV", Me.S6, Me.cb_bv) + + AddControl(CtlCnt, "(S/S1)", "CI", Me.stss1, Me.cb_ci) + AddControl(CtlCnt, "(S/S2)", "CJ", Me.stss2, Me.cb_cj) + AddControl(CtlCnt, "(S/S3)", "CK", Me.stss3, Me.cb_ck) + AddControl(CtlCnt, "(S/S4)", "CL", Me.stss4, Me.cb_cl) + AddControl(CtlCnt, "(S/S5)", "CM", Me.stss5, Me.cb_cm) + AddControl(CtlCnt, "(S/S6)", "CN", Me.stss6, Me.cb_cn) + AddControl(CtlCnt, "(D/L1)", "CO", Me.stdl1, Me.cb_co) + AddControl(CtlCnt, "(D/L2)", "CP", Me.stdl2, Me.cb_CP) + AddControl(CtlCnt, "(D/L3)", "CQ", Me.stdl3, Me.CB_CQ) + AddControl(CtlCnt, "(D/L4)", "CR", Me.stdl4, Me.CB_CR) + AddControl(CtlCnt, "(D/L5)", "CS", Me.stdl5, Me.CB_CS) + AddControl(CtlCnt, "(D/L6)", "CT", Me.stdl6, Me.CB_CT) + + + + End Sub + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\(̺2)α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\(̺2)α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\(̺2)α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\(̺2)α.txt") + WLog2(Auto_Log, "Load_Setting()", "\(̺2)α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + WLog2(Auto_Log, "GetviewData ()", "\(̺2)α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + WLog2(Auto_Log, "GetViewData : ε ų վ մϴ.()", "\(̺2)α.txt") + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + ' STARTTIME = Now + '// ̺ ͸ ǥѴ. ̺ ̴̺ DV + '//絥͸ Ʈѿǥ ¹ (Ϲݿ/Ե) ´. + 'Dim θϰ˻ As Integer = 0 + 'Dim ôϰ˻ As Integer = 0 + Me. = GetSpread(Me.Dv, index, "") + Me.ȣ = GetSpread(Me.Dv, index, "ȣ") + + Me.HAڸ = GetSpread(Me.Dv, index, "HAڸ") + Me.HASS = GetSpread(Me.Dv, index, "HASS") + Me.HADL = GetSpread(Me.Dv, index, "HADL") + Me.HA = GetSpread(Me.Dv, index, "HA") + + Me.HBڸ = GetSpread(Me.Dv, index, "HBڸ") + Me.HBSS = GetSpread(Me.Dv, index, "HBSS") + Me.HBDL = GetSpread(Me.Dv, index, "HBDL") + Me.HB = GetSpread(Me.Dv, index, "HB") + + 'Me.SS1ȣ1 = GetSpread(me.dv,index, "S0ȣ1") + 'Me.S0ȣ2 = GetSpread(me.dv,index, "S0ȣ2") + 'Me.S0ȣ3 = GetSpread(me.dv,index, "S0ȣ3") + 'Me.S0ȣ4 = GetSpread(me.dv,index, "S0ȣ4") + 'Me.S0SW = GetSpread(me.dv,index, "S0SW") + 'Me.S0밡 = GetSpread(me.dv,index, "S0밡") + + Me.S1ȣ1 = GetSpread(Me.Dv, index, "S1ȣ1") + Me.S1ȣ2 = GetSpread(Me.Dv, index, "S1ȣ2") + Me.S1ȣ3 = GetSpread(Me.Dv, index, "S1ȣ3") + 'Me.S1ȣ4 = GetSpread(me.dv,index, "S1ȣ4") + Me.S1SW = GetSpread(Me.Dv, index, "S1SW") + 'Me.S1ġ = GetSpread(me.dv,index, "S1ġ") + + Me.S2ȣ1 = GetSpread(Me.Dv, index, "S2ȣ1") + Me.S2ȣ2 = GetSpread(Me.Dv, index, "S2ȣ2") + Me.S2ȣ3 = GetSpread(Me.Dv, index, "S2ȣ3") + ' Me.S2ȣ4 = GetSpread(me.dv,index, "S2ȣ4") + Me.S2SW = GetSpread(Me.Dv, index, "S2SW") + 'Me.S2ġ = GetSpread(me.dv,index, "S2ġ") + + Me.S3ȣ1 = GetSpread(Me.Dv, index, "S3ȣ1") + Me.S3ȣ2 = GetSpread(Me.Dv, index, "S3ȣ2") + Me.S3ȣ3 = GetSpread(Me.Dv, index, "S3ȣ3") + 'Me.S3ȣ4 = GetSpread(me.dv,index, "S3ȣ4") + Me.S3SW = GetSpread(Me.Dv, index, "S3SW") + 'Me.S3ġ = GetSpread(me.dv,index, "S3ġ") + + Me.S4ȣ1 = GetSpread(Me.Dv, index, "S4ȣ1") + Me.S4ȣ2 = GetSpread(Me.Dv, index, "S4ȣ2") + Me.S4ȣ3 = GetSpread(Me.Dv, index, "S4ȣ3") + Me.S4ȣ4 = GetSpread(Me.Dv, index, "S4ȣ4") + Me.S4SW = GetSpread(Me.Dv, index, "S4SW") + Me.S4ġ = GetSpread(Me.Dv, index, "S4ġ") + + 'Me.ð = GetSpread(me.dv,index, "ð") + 'Me.ðȸ = GetSpread(me.dv,index, "ðȸ") + 'Me.ȣ = GetSpread(me.dv,index, "ȣ") + 'Me. = GetSpread(me.dv,index, "") + + Me.1 = GetSpread(Me.Dv, index, "1") + Me.2 = GetSpread(Me.Dv, index, "2") + Me.3 = GetSpread(Me.Dv, index, "3") + Me.4 = GetSpread(Me.Dv, index, "4") + Me.5 = GetSpread(Me.Dv, index, "5") + Me.6 = GetSpread(Me.Dv, index, "6") + + WLog2(Auto_Log, "ͺ ͸ Ϸ()", "\(̺2)α.txt") + + Me.Text = "(̺2) ۾(" & & ȣ & ")" + + WLog2(Auto_Log, "PASE մϴ.()", "\(̺2)α.txt") + '============ ؼ °̴ ========================================================== + If Me.PARSE(Me.1, Me.S1) Then Me.PARSE_PATTERN(1, Me.S1) + If Me.PARSE(Me.2, Me.S2) Then Me.PARSE_PATTERN(2, Me.S2) + If Me.PARSE(Me.3, Me.S3) Then Me.PARSE_PATTERN(3, Me.S3) + If Me.PARSE(Me.4, Me.S4) Then Me.PARSE_PATTERN(4, Me.S4) + If Me.PARSE(Me.5, Me.S5) Then Me.PARSE_PATTERN(5, Me.S5) + If Me.PARSE(Me.6, Me.S6) Then Me.PARSE_PATTERN(6, Me.S6) + '=========================================================================================== + Me.PARSE("S/S", Me.stss1) + Me.PARSE("S/S", Me.stss2) + Me.PARSE("S/S", Me.stss3) + Me.PARSE("S/S", Me.stss4) + Me.PARSE("S/S", Me.stss5) + Me.PARSE("S/S", Me.stss6) + Me.PARSE("D/L", Me.stdl1) + Me.PARSE("D/L", Me.stdl2) + Me.PARSE("D/L", Me.stdl3) + Me.PARSE("D/L", Me.stdl4) + Me.PARSE("D/L", Me.stdl5) + Me.PARSE("D/L", Me.stdl6) + 'Me.PARSE("ȭȣ:", Me.stȣ) + + '==================================================================================================== + + WLog2(Auto_Log, "ִ PASE մϴ.()", "\(̺2)α.txt") + 'If Me.PARSE(ð, Me.Sð) Then Me.PARSE_PATTERN(ð, Me.Sð) + 'If Me.PARSE(ðȸ, Me.Sðȸ) Then Me.PARSE_PATTERN(ðȸ, Me.Sðȸ) + 'If Me.PARSE(ð, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + 'If Me.PARSE(ð, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + If Me.PARSE(ȣ, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + + If Me.PARSE(HAڸ, Me.SHAڸ) Then Me.PARSE_PATTERN(HAڸ, Me.SHAڸ) + If Me.PARSE(HASS, Me.SHASS) Then Me.PARSE_PATTERN(HASS, Me.SHASS) + If Me.PARSE(HADL, Me.SHADL) Then Me.PARSE_PATTERN(HADL, Me.SHADL) + If Me.PARSE(HA, Me.SHA) Then Me.PARSE_PATTERN(HA, Me.SHA) + + If Me.PARSE(HBڸ, Me.SHBڸ) Then Me.PARSE_PATTERN(HBڸ, Me.SHBڸ) + If Me.PARSE(HBSS, Me.SHBSS) Then Me.PARSE_PATTERN(HBSS, Me.SHBSS) + If Me.PARSE(HBDL, Me.SHBDL) Then Me.PARSE_PATTERN(HBDL, Me.SHBDL) + If Me.PARSE(HB, Me.SHB) Then Me.PARSE_PATTERN(HB, Me.SHB) + + 'If Me.PARSE(S0ȣ1, Me.SS0ȣ1) Then Me.PARSE_PATTERN(S0ȣ1, Me.SS0ȣ1) + 'If Me.PARSE(S0ȣ2, Me.SS0ȣ2) Then Me.PARSE_PATTERN(S0ȣ2, Me.SS0ȣ2) + 'If Me.PARSE(S0ȣ3, Me.SS0ȣ3) Then Me.PARSE_PATTERN(S0ȣ3, Me.SS0ȣ3) + 'If Me.PARSE(S0ȣ4, Me.SS0ȣ4) Then Me.PARSE_PATTERN(S0ȣ4, Me.SS0ȣ4) + 'If Me.PARSE(S0SW, Me.SS0SW) Then Me.PARSE_PATTERN(S0SW, Me.SS0SW) + 'If Me.PARSE(S0밡, Me.SS0밡) Then Me.PARSE_PATTERN(S0밡, Me.SS0밡) + + If Me.PARSE(S1ȣ1, Me.SS1ȣ1) Then Me.PARSE_PATTERN(S1ȣ1, Me.SS1ȣ1) + If Me.PARSE(S1ȣ2, Me.SS1ȣ2) Then Me.PARSE_PATTERN(S1ȣ2, Me.SS1ȣ2) + If Me.PARSE(S1ȣ3, Me.SS1ȣ3) Then Me.PARSE_PATTERN(S1ȣ3, Me.SS1ȣ3) + ' If Me.PARSE(S1ȣ4, Me.SS1ȣ4) Then Me.PARSE_PATTERN(S1ȣ4, Me.SS1ȣ4) + If Me.PARSE(S1SW, Me.SS1SW) Then Me.PARSE_PATTERN(S1SW, Me.SS1SW) + ' If Me.PARSE(S1ġ, Me.SS1ġ) Then Me.PARSE_PATTERN(S1ġ, Me.SS1ġ) + + If Me.PARSE(S2ȣ1, Me.SS2ȣ1) Then Me.PARSE_PATTERN(S2ȣ1, Me.SS2ȣ1) + If Me.PARSE(S2ȣ2, Me.SS2ȣ2) Then Me.PARSE_PATTERN(S2ȣ2, Me.SS2ȣ2) + If Me.PARSE(S2ȣ3, Me.SS2ȣ3) Then Me.PARSE_PATTERN(S2ȣ3, Me.SS2ȣ3) + ' If Me.PARSE(S2ȣ4, Me.SS2ȣ4) Then Me.PARSE_PATTERN(S2ȣ4, Me.SS2ȣ4) + If Me.PARSE(S2SW, Me.SS2SW) Then Me.PARSE_PATTERN(S2SW, Me.SS2SW) + ' If Me.PARSE(S2ġ, Me.SS2ġ) Then Me.PARSE_PATTERN(S2ġ, Me.SS2ġ) + + If Me.PARSE(S3ȣ1, Me.SS3ȣ1) Then Me.PARSE_PATTERN(S3ȣ1, Me.SS3ȣ1) + If Me.PARSE(S3ȣ2, Me.SS3ȣ2) Then Me.PARSE_PATTERN(S3ȣ2, Me.SS3ȣ2) + If Me.PARSE(S3ȣ3, Me.SS3ȣ3) Then Me.PARSE_PATTERN(S3ȣ3, Me.SS3ȣ3) + ' If Me.PARSE(S3ȣ4, Me.SS3ȣ4) Then Me.PARSE_PATTERN(S3ȣ4, Me.SS3ȣ4) + If Me.PARSE(S3SW, Me.SS3SW) Then Me.PARSE_PATTERN(S3SW, Me.SS3SW) + ' If Me.PARSE(S3ġ, Me.SS3ġ) Then Me.PARSE_PATTERN(S3ġ, Me.SS3ġ) + + If Me.PARSE(S4ȣ1, Me.SS4ȣ1) Then Me.PARSE_PATTERN(S4ȣ1, Me.SS4ȣ1) + If Me.PARSE(S4ȣ2, Me.SS4ȣ2) Then Me.PARSE_PATTERN(S4ȣ2, Me.SS4ȣ2) + If Me.PARSE(S4ȣ3, Me.SS4ȣ3) Then Me.PARSE_PATTERN(S4ȣ3, Me.SS4ȣ3) + ' If Me.PARSE(S4ȣ4, Me.SS4ȣ4) Then Me.PARSE_PATTERN(S4ȣ4, Me.SS4ȣ4) + If Me.PARSE(S4SW, Me.SS4SW) Then Me.PARSE_PATTERN(S4SW, Me.SS4SW) + ' If Me.PARSE(S4ġ, Me.SS4ġ) Then Me.PARSE_PATTERN(S4ġ, Me.SS4ġ) + + WLog2(Auto_Log, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\(̺2)α.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + If Me.cb_seq.Checked Then + Me.Sȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.Sȣ(0).Visible = True + Else + Me.Sȣ(0).Visible = False + End If + + '//¥ ƷͰ ´. + 'If <> "" AndAlso ȣ <> "" AndAlso Me.cb_kwanglijungsan.Checked Then + ' Me.Sֹȣ(0).MyText = & "-" & ȣ + ' Me.Sֹȣ(0).Visible = True + 'Else + ' Me.Sֹȣ(0).Visible = False + 'End If + + WLog2(Auto_Log, "ڹ ǥÿθ մϴ.()", "\(̺2)α.txt") + 'ڹ ǥÿ u a b d e + ' ....................................................... + WLog2(Auto_Log, "Pewview 츦 մϴ.()", "\(̺2)α.txt") + Me.preview_window() + ' If Me.chb_preview.Checked AndAlso previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\(̺2)α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\(̺2)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\(̺2)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "Clear_item div=", "\(̺2)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + + End Sub + + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + 'ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("DESC").ToString()) + CurIdx += 1 + Next + + + End Sub + + Private Sub ̺() + WLog2(Auto_Log, "̺ ()", "\(̺2)α.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + WLog2(Auto_Log, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\(̺2)α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + End If + + + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 '//ȣ + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Color.Tomato, Me.lb_msg) + End If + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\(̺2)α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\(̺2)α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + + Me.tb_rep.Text = sender.Repeat + Me.tb_repx.Text = sender.RepeatX + Me.tb_repy.Text = sender.RepeatY + + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Color.Green, Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Color.Green, Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Color.Black + Me.lb_strpattern.ForeColor = Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + Me.bakimg.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\(̺2)α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\(̺2)α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.chk_DisplayBG.Checked = True + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\(̺2)α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\(̺2)α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, "\(̺2)α.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\(̺2)α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\(̺2)α.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\(̺2)α.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\(̺2)α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\(̺2)α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + ''WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\(̺2)α.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\(̺2)α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim pos(), font(), visible, mytext, repeat() As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.DIV = Div Then + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + + WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\(̺2)α.txt") + + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage7.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = drstyle.DummyCnt + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + + + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + If drstyle.Backimg.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & drstyle.Backimg + Else + Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + Me.chk_DisplayBG.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + Me.Chk_BgImageprint.Checked = drstyle.Printbg + Me.tb_bakx.Text = drstyle.bakx + Me.tb_baky.Text = drstyle.baky + Me.tb_bakw.Text = drstyle.bakw + Me.tb_bakh.Text = drstyle.bakh + + Me.tb_myfontsize.Text = drstyle.PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + + Public Sub SAVE_STYLE() + WLog2(Auto_Log, "iniϿ Ÿ մϴ. ", "\(̺2)α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg")) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + If Tobj.Pattern = "" Then + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat & "," & Tobj.RepeatX & "," & Tobj.RepeatY) '//ݺ + End If + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + WLog2(Auto_Log, "save style Ϸ ̺ ȣ ", "\(̺2)α.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + End Sub + + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + Dim Arinini As New MyINI2(drstyle.File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim MidName As String = labels(0).Pattern + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MidName & "II" & mb.ToString + + WLog2(Auto_Log, " save_pattern2 Ѵ.", "\(̺2)α.txt") + For i As Integer = 0 To labels.GetUpperBound(0) + TOBJ = labels(i) + WLog2(Auto_Log, MidName & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MidName) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\(̺2)α.txt") + Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\(̺2)α.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + WLog2(Auto_Log, "ǥ üũڽ ", "\(̺2)α.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + WLog2(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\(̺2)α.txt") + Me.preview_window() + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + WLog2(Auto_Log, " ۾ Ŭ", "\(̺2)α.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + WLog2(Auto_Log, "۾B õ setfont ȣ ", "\(̺2)α.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + WLog2(Auto_Log, "updatefont : ", "\(̺2)α.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.DIV = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + Me.showcnt(i, Me.textbox2.Text) + + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + WLog2(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + Return True + End Function + + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + + Private Sub tb_ntype_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Color.Red, Me.lb_msg) + Else + ' ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) 'drstyle.File) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + WLog2(Auto_Log, "GetPrinterName()", "\(̺2)α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + Private Sub preview_window() '//̸ȭ մϴ. + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + End If + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso Not String.IsNullOrEmpty(obj.MyText.Trim()) Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + ' MsgBox(CType(A, MyControlOLEDBv2.MyLabel).) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordwidth.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordheight.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("5 (" & Me.S(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S(4).) + msg.AppendLine(" = " & Me.S(4).) + msg.AppendLine("ǥ = " & Me.S(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + + 'MsgBox(drstyle.File) + + + Dim Arinini As New MyINI2(drstyle.File) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S(4) + Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.DIV = Tobj.DIV And Me.AllLabels(z).ctl.TextValue.Trim <> "" Then + Me.AllLabels(z).ctl.MyForeColor = Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = dtpattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + C.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Color.Red, Me.lb_msg) + Else + 'ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + + End Sub + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + + preview_window() + End Sub + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim bcnt, lcnt, ccnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + Next + ini.Write(cname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "Circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "Circle" & i & "x", L.X) + ini.Write(cname, "Circle" & i & "y", L.Y) + ini.Write(cname, "Circle" & i & "x2", L.Width) + ini.Write(cname, "Circle" & i & "y2", L.Height) + Next + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + Next + Else '// д κ + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) + For i As Short = 1 To ccnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Color.FromArgb(ini.Read(cname, "Circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "Circle" & i & "pensize", 3) + L.X = ini.Read(cname, "Circle" & i & "x", 0) + L.Y = ini.Read(cname, "Circle" & i & "y", 0) + L.Width = ini.Read(cname, "Circle" & i & "x2", 10) + L.Height = ini.Read(cname, "Circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + + + Private Sub ToolStripMenuItem46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem46.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ1, Me.S4ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS4ȣ1, Me.S4ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + Private Sub bt_pattern_kwan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pattern_kwan.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.S, Me..Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\б.TXT") '//θ մϴ. + End Sub + + + Private Sub bt_pattern_junsan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pattern_junsan.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.Sȣ, Me.ȣ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sȣ, Me.ȣ, "\бȣ.TXT") '//θ մϴ. + End Sub + + Private Sub olStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHASS, Me.HASS, "\бȣ.TXT") '//θ մϴ. + End Sub + + Private Sub odflStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles odflStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHADL, Me.HADL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHADL, Me.HADL, "\бȣ.TXT") '//θ մϴ. + End Sub + + Private Sub HAKUKAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAKUKAN.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHA, Me.SHA.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHA, Me.HA, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem20.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHBSS, Me.HBSS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHBSS, Me.HBSS, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem25.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SHBDL, Me.HBDL.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHBDL, Me.HBDL, "\бȣ.TXT") '//θ մϴ.() + End Sub + Private Sub ToolStripMenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem28.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHB, Me.HB.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHB, Me.HB, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + Private Sub ToolStripMenuItem43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem43.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ1, Me.S1ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ1, Me.S1ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem58.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ2, Me.S1ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ2, Me.S1ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem61.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS1ȣ3, Me.S1ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1ȣ3, Me.S1ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + Private Sub ToolStripMenuItem67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem67.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS1SW, Me.S1SW.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS1SW, Me.S1SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub ToolStripMenuItem101_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem101.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2ȣ1, Me.S2ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ1, Me.S2ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem104_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem104.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2ȣ2, Me.S2ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ2, Me.S2ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem107_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem107.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS2ȣ3, Me.S2ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2ȣ3, Me.S2ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + Private Sub ToolStripMenuItem113_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem113.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS2SW, Me.S2SW.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS2SW, Me.S2SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub ToolStripMenuItem82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem82.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS3ȣ1, Me.S3ȣ1.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ1, Me.S3ȣ1, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem85.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS3ȣ2, Me.S3ȣ2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ2, Me.S3ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem88.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.SS3ȣ3, Me.S3ȣ3.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SS3ȣ3, Me.S3ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub ToolStripMenuItem94_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem94.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS3SW, Me.S3SW.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS3SW, Me.S3SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub ToolStripMenuItem49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem49.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ2, Me.S4ȣ2.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ȣ2, Me.S4ȣ2, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem52.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4ȣ3, Me.S4ȣ3.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4ȣ3, Me.S4ȣ3, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub ToolStripMenuItem75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem75.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SS4SW, Me.S4SW.Length, "\б.TXT") '//θ մϴ + SAVE_PATTERNII(Me.SS4SW, Me.S4SW, "\бȣ.TXT") '//θ մϴ.() + End Sub + + + + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + + End Sub + + Private Sub tb_rep_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_rep.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).Repeat = Me.tb_rep.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repx.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatX = Me.tb_repx.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repy_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repy.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatY = Me.tb_repy.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub BT_DANJA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_DANJA.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.дڸ, Me.дڸ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHAڸ, Me.HAڸ, "\бȣ.TXT") '//θ մϴ.() + End Sub + + Private Sub BT_HBDANJA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_HBDANJA.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHBڸ, Me.HBڸ.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.SHBڸ, Me.HBڸ, "\бȣ.TXT") '//θ մϴ.() + End Sub + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub 1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 1ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S1, Me.1, "\1.TXT") '//θ մϴ. + End Sub + + Private Sub 2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 2ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S2, Me.2, "\2.TXT") '//θ մϴ. + End Sub + + Private Sub 3ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 3ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S3, Me.3, "\3.TXT") '//θ մϴ. + End Sub + + Private Sub 4ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 4ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S4, Me.4, "\4.TXT") '//θ մϴ. + End Sub + + Private Sub 5ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 5ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.SHASS, Me.HASS.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S5, Me.5, "\5.TXT") '//θ մϴ. + End Sub +End Class + + diff --git a/Epole/출력폼/PrintFormCablelABEL.Designer.vb b/Epole/출력폼/PrintFormCablelABEL.Designer.vb new file mode 100644 index 0000000..31a0065 --- /dev/null +++ b/Epole/출력폼/PrintFormCablelABEL.Designer.vb @@ -0,0 +1,2756 @@ + _ +Partial Class printformCableLABEL + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformCableLABEL)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_linenum = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_repy = New System.Windows.Forms.TextBox() + Me.tb_repx = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_rep = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.Button6 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.cbd7 = New System.Windows.Forms.CheckBox() + Me.cbd6 = New System.Windows.Forms.CheckBox() + Me.cbd5 = New System.Windows.Forms.CheckBox() + Me.cbd4 = New System.Windows.Forms.CheckBox() + Me.cbd3 = New System.Windows.Forms.CheckBox() + Me.cbd2 = New System.Windows.Forms.CheckBox() + Me.cbd1 = New System.Windows.Forms.CheckBox() + Me.cbc7 = New System.Windows.Forms.CheckBox() + Me.cbc6 = New System.Windows.Forms.CheckBox() + Me.cbc5 = New System.Windows.Forms.CheckBox() + Me.cbc4 = New System.Windows.Forms.CheckBox() + Me.cbc3 = New System.Windows.Forms.CheckBox() + Me.cbc2 = New System.Windows.Forms.CheckBox() + Me.cbc1 = New System.Windows.Forms.CheckBox() + Me.cbb6 = New System.Windows.Forms.CheckBox() + Me.cbb5 = New System.Windows.Forms.CheckBox() + Me.cbb4 = New System.Windows.Forms.CheckBox() + Me.cbb3 = New System.Windows.Forms.CheckBox() + Me.cbb2 = New System.Windows.Forms.CheckBox() + Me.cbb1 = New System.Windows.Forms.CheckBox() + Me.chkc2 = New System.Windows.Forms.CheckBox() + Me.chkc1 = New System.Windows.Forms.CheckBox() + Me.chkc5 = New System.Windows.Forms.CheckBox() + Me.chkc4 = New System.Windows.Forms.CheckBox() + Me.chkc3 = New System.Windows.Forms.CheckBox() + Me.chkd4 = New System.Windows.Forms.CheckBox() + Me.chkd3 = New System.Windows.Forms.CheckBox() + Me.chkd2 = New System.Windows.Forms.CheckBox() + Me.chkd1 = New System.Windows.Forms.CheckBox() + Me.chkc7 = New System.Windows.Forms.CheckBox() + Me.chkd7 = New System.Windows.Forms.CheckBox() + Me.chkd6 = New System.Windows.Forms.CheckBox() + Me.chkd5 = New System.Windows.Forms.CheckBox() + Me.chkc6 = New System.Windows.Forms.CheckBox() + Me.chkb6 = New System.Windows.Forms.CheckBox() + Me.chkb5 = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.chkb4 = New System.Windows.Forms.CheckBox() + Me.chkb3 = New System.Windows.Forms.CheckBox() + Me.chkb1 = New System.Windows.Forms.CheckBox() + Me.chkb2 = New System.Windows.Forms.CheckBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.DataGridView1 = New System.Windows.Forms.DataGridView() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.bt_patternha = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_patterkaphe = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem() + Me.mbt_savepattersta = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage8.SuspendLayout() + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_linenum, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(880, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_linenum + ' + Me.lb_linenum.Name = "lb_linenum" + Me.lb_linenum.Size = New System.Drawing.Size(42, 17) + Me.lb_linenum.Text = "(0,0,0)" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage8) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정 및 배경" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(189, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_repy) + Me.GroupBox2.Controls.Add(Me.tb_repx) + Me.GroupBox2.Controls.Add(Me.Label9) + Me.GroupBox2.Controls.Add(Me.tb_rep) + Me.GroupBox2.Controls.Add(Me.Label8) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'tb_repy + ' + Me.tb_repy.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repy.Location = New System.Drawing.Point(167, 159) + Me.tb_repy.Name = "tb_repy" + Me.tb_repy.Size = New System.Drawing.Size(34, 21) + Me.tb_repy.TabIndex = 68 + Me.tb_repy.Text = "0" + Me.tb_repy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_repx + ' + Me.tb_repx.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repx.Location = New System.Drawing.Point(131, 159) + Me.tb_repx.Name = "tb_repx" + Me.tb_repx.Size = New System.Drawing.Size(34, 21) + Me.tb_repx.TabIndex = 67 + Me.tb_repx.Text = "0" + Me.tb_repx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(108, 162) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(17, 12) + Me.Label9.TabIndex = 66 + Me.Label9.Text = "회" + ' + 'tb_rep + ' + Me.tb_rep.Location = New System.Drawing.Point(70, 158) + Me.tb_rep.Name = "tb_rep" + Me.tb_rep.Size = New System.Drawing.Size(34, 21) + Me.tb_rep.TabIndex = 65 + Me.tb_rep.Text = "0" + Me.tb_rep.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(11, 162) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(53, 12) + Me.Label8.TabIndex = 64 + Me.Label8.Text = "반복출력" + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(11, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 107) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 75) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 52) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 76) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 53) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 127) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 127) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_top.Location = New System.Drawing.Point(48, 77) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_left.Location = New System.Drawing.Point(48, 54) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 74) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 107) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 51) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 76) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 53) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 75) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 52) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 107) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 6) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 153) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 445) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(15, 242) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 245) + Me.TabControl2.TabIndex = 56 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 219) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.Label2) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 94) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 103) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "페이지당 출력횟수" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(11, 16) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 36 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 12) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 42) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(37, 17) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(169, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 39) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 39) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 47) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(80, 19) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(10, 20) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(45, 16) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(114, 16) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(27, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 6) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 38) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(81, 17) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(11, 18) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(46, 15) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(116, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(26, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label1) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 219) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(194, 136) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 64 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 139) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 12) + Me.Label1.TabIndex = 59 + Me.Label1.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(157, 136) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 63 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(113, 140) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 60 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(85, 135) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 62 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(48, 135) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 61 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(8, 163) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 50) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 53 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 57) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(58, 23) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(72, 16) + Me.Chk_BgImageprint.TabIndex = 26 + Me.Chk_BgImageprint.Text = "배경출력" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "인쇄시 배경을 출력합니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(8, 24) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 25) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(7, 46) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(204, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(9, 18) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(202, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(15, 8) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(247, 61) + Me.GroupBox1.TabIndex = 51 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(17, 20) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(213, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.Button6) + Me.TabPage6.Controls.Add(Me.Label6) + Me.TabPage6.Controls.Add(Me.tb_dw) + Me.TabPage6.Controls.Add(Me.tb_dh) + Me.TabPage6.Controls.Add(Me.Label7) + Me.TabPage6.Controls.Add(Me.Button2) + Me.TabPage6.Controls.Add(Me.Label3) + Me.TabPage6.Controls.Add(Me.tb_dy) + Me.TabPage6.Controls.Add(Me.Label5) + Me.TabPage6.Controls.Add(Me.tb_pensize) + Me.TabPage6.Controls.Add(Me.tb_dx) + Me.TabPage6.Controls.Add(Me.bt_pencolor) + Me.TabPage6.Controls.Add(Me.Button15) + Me.TabPage6.Controls.Add(Me.Button13) + Me.TabPage6.Controls.Add(Me.ListBox1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "선 및 도형" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(181, 7) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(43, 27) + Me.Button6.TabIndex = 17 + Me.Button6.Text = "원" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(148, 121) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(101, 136) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(142, 136) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(110, 121) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(223, 7) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(43, 27) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(31, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(13, 12) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(60, 136) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(71, 121) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(59, 10) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(35, 21) + Me.tb_pensize.TabIndex = 6 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(19, 136) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(18, 6) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(36, 27) + Me.bt_pencolor.TabIndex = 5 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(139, 7) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(43, 27) + Me.Button15.TabIndex = 4 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(97, 7) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(43, 27) + Me.Button13.TabIndex = 2 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(18, 38) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(235, 76) + Me.ListBox1.TabIndex = 0 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.cbd7) + Me.TabPage7.Controls.Add(Me.cbd6) + Me.TabPage7.Controls.Add(Me.cbd5) + Me.TabPage7.Controls.Add(Me.cbd4) + Me.TabPage7.Controls.Add(Me.cbd3) + Me.TabPage7.Controls.Add(Me.cbd2) + Me.TabPage7.Controls.Add(Me.cbd1) + Me.TabPage7.Controls.Add(Me.cbc7) + Me.TabPage7.Controls.Add(Me.cbc6) + Me.TabPage7.Controls.Add(Me.cbc5) + Me.TabPage7.Controls.Add(Me.cbc4) + Me.TabPage7.Controls.Add(Me.cbc3) + Me.TabPage7.Controls.Add(Me.cbc2) + Me.TabPage7.Controls.Add(Me.cbc1) + Me.TabPage7.Controls.Add(Me.cbb6) + Me.TabPage7.Controls.Add(Me.cbb5) + Me.TabPage7.Controls.Add(Me.cbb4) + Me.TabPage7.Controls.Add(Me.cbb3) + Me.TabPage7.Controls.Add(Me.cbb2) + Me.TabPage7.Controls.Add(Me.cbb1) + Me.TabPage7.Controls.Add(Me.chkc2) + Me.TabPage7.Controls.Add(Me.chkc1) + Me.TabPage7.Controls.Add(Me.chkc5) + Me.TabPage7.Controls.Add(Me.chkc4) + Me.TabPage7.Controls.Add(Me.chkc3) + Me.TabPage7.Controls.Add(Me.chkd4) + Me.TabPage7.Controls.Add(Me.chkd3) + Me.TabPage7.Controls.Add(Me.chkd2) + Me.TabPage7.Controls.Add(Me.chkd1) + Me.TabPage7.Controls.Add(Me.chkc7) + Me.TabPage7.Controls.Add(Me.chkd7) + Me.TabPage7.Controls.Add(Me.chkd6) + Me.TabPage7.Controls.Add(Me.chkd5) + Me.TabPage7.Controls.Add(Me.chkc6) + Me.TabPage7.Controls.Add(Me.chkb6) + Me.TabPage7.Controls.Add(Me.chkb5) + Me.TabPage7.Controls.Add(Me.chk_draw) + Me.TabPage7.Controls.Add(Me.cb_seq) + Me.TabPage7.Controls.Add(Me.chkb4) + Me.TabPage7.Controls.Add(Me.chkb3) + Me.TabPage7.Controls.Add(Me.chkb1) + Me.TabPage7.Controls.Add(Me.chkb2) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "표시여부" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'cbd7 + ' + Me.cbd7.AutoSize = True + Me.cbd7.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd7.Location = New System.Drawing.Point(182, 310) + Me.cbd7.Name = "cbd7" + Me.cbd7.Size = New System.Drawing.Size(68, 15) + Me.cbd7.TabIndex = 41 + Me.cbd7.Tag = "S" + Me.cbd7.Text = "고정문자" + Me.cbd7.UseVisualStyleBackColor = True + ' + 'cbd6 + ' + Me.cbd6.AutoSize = True + Me.cbd6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd6.Location = New System.Drawing.Point(182, 289) + Me.cbd6.Name = "cbd6" + Me.cbd6.Size = New System.Drawing.Size(68, 15) + Me.cbd6.TabIndex = 40 + Me.cbd6.Tag = "S" + Me.cbd6.Text = "고정문자" + Me.cbd6.UseVisualStyleBackColor = True + ' + 'cbd5 + ' + Me.cbd5.AutoSize = True + Me.cbd5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd5.Location = New System.Drawing.Point(182, 268) + Me.cbd5.Name = "cbd5" + Me.cbd5.Size = New System.Drawing.Size(68, 15) + Me.cbd5.TabIndex = 39 + Me.cbd5.Tag = "S" + Me.cbd5.Text = "고정문자" + Me.cbd5.UseVisualStyleBackColor = True + ' + 'cbd4 + ' + Me.cbd4.AutoSize = True + Me.cbd4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd4.Location = New System.Drawing.Point(182, 247) + Me.cbd4.Name = "cbd4" + Me.cbd4.Size = New System.Drawing.Size(68, 15) + Me.cbd4.TabIndex = 38 + Me.cbd4.Tag = "S" + Me.cbd4.Text = "고정문자" + Me.cbd4.UseVisualStyleBackColor = True + ' + 'cbd3 + ' + Me.cbd3.AutoSize = True + Me.cbd3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd3.Location = New System.Drawing.Point(182, 226) + Me.cbd3.Name = "cbd3" + Me.cbd3.Size = New System.Drawing.Size(68, 15) + Me.cbd3.TabIndex = 37 + Me.cbd3.Tag = "S" + Me.cbd3.Text = "고정문자" + Me.cbd3.UseVisualStyleBackColor = True + ' + 'cbd2 + ' + Me.cbd2.AutoSize = True + Me.cbd2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd2.Location = New System.Drawing.Point(182, 207) + Me.cbd2.Name = "cbd2" + Me.cbd2.Size = New System.Drawing.Size(68, 15) + Me.cbd2.TabIndex = 36 + Me.cbd2.Tag = "S" + Me.cbd2.Text = "고정문자" + Me.cbd2.UseVisualStyleBackColor = True + ' + 'cbd1 + ' + Me.cbd1.AutoSize = True + Me.cbd1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbd1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbd1.Location = New System.Drawing.Point(182, 186) + Me.cbd1.Name = "cbd1" + Me.cbd1.Size = New System.Drawing.Size(68, 15) + Me.cbd1.TabIndex = 35 + Me.cbd1.Tag = "S" + Me.cbd1.Text = "고정문자" + Me.cbd1.UseVisualStyleBackColor = True + ' + 'cbc7 + ' + Me.cbc7.AutoSize = True + Me.cbc7.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc7.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc7.Location = New System.Drawing.Point(92, 310) + Me.cbc7.Name = "cbc7" + Me.cbc7.Size = New System.Drawing.Size(68, 15) + Me.cbc7.TabIndex = 34 + Me.cbc7.Tag = "S" + Me.cbc7.Text = "고정문자" + Me.cbc7.UseVisualStyleBackColor = True + ' + 'cbc6 + ' + Me.cbc6.AutoSize = True + Me.cbc6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc6.Location = New System.Drawing.Point(92, 289) + Me.cbc6.Name = "cbc6" + Me.cbc6.Size = New System.Drawing.Size(68, 15) + Me.cbc6.TabIndex = 33 + Me.cbc6.Tag = "S" + Me.cbc6.Text = "고정문자" + Me.cbc6.UseVisualStyleBackColor = True + ' + 'cbc5 + ' + Me.cbc5.AutoSize = True + Me.cbc5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc5.Location = New System.Drawing.Point(92, 268) + Me.cbc5.Name = "cbc5" + Me.cbc5.Size = New System.Drawing.Size(68, 15) + Me.cbc5.TabIndex = 32 + Me.cbc5.Tag = "S" + Me.cbc5.Text = "고정문자" + Me.cbc5.UseVisualStyleBackColor = True + ' + 'cbc4 + ' + Me.cbc4.AutoSize = True + Me.cbc4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc4.Location = New System.Drawing.Point(92, 247) + Me.cbc4.Name = "cbc4" + Me.cbc4.Size = New System.Drawing.Size(68, 15) + Me.cbc4.TabIndex = 31 + Me.cbc4.Tag = "S" + Me.cbc4.Text = "고정문자" + Me.cbc4.UseVisualStyleBackColor = True + ' + 'cbc3 + ' + Me.cbc3.AutoSize = True + Me.cbc3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc3.Location = New System.Drawing.Point(92, 226) + Me.cbc3.Name = "cbc3" + Me.cbc3.Size = New System.Drawing.Size(68, 15) + Me.cbc3.TabIndex = 30 + Me.cbc3.Tag = "S" + Me.cbc3.Text = "고정문자" + Me.cbc3.UseVisualStyleBackColor = True + ' + 'cbc2 + ' + Me.cbc2.AutoSize = True + Me.cbc2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc2.Location = New System.Drawing.Point(92, 207) + Me.cbc2.Name = "cbc2" + Me.cbc2.Size = New System.Drawing.Size(68, 15) + Me.cbc2.TabIndex = 29 + Me.cbc2.Tag = "S" + Me.cbc2.Text = "고정문자" + Me.cbc2.UseVisualStyleBackColor = True + ' + 'cbc1 + ' + Me.cbc1.AutoSize = True + Me.cbc1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbc1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbc1.Location = New System.Drawing.Point(92, 186) + Me.cbc1.Name = "cbc1" + Me.cbc1.Size = New System.Drawing.Size(68, 15) + Me.cbc1.TabIndex = 28 + Me.cbc1.Tag = "S" + Me.cbc1.Text = "고정문자" + Me.cbc1.UseVisualStyleBackColor = True + ' + 'cbb6 + ' + Me.cbb6.AutoSize = True + Me.cbb6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb6.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb6.Location = New System.Drawing.Point(5, 289) + Me.cbb6.Name = "cbb6" + Me.cbb6.Size = New System.Drawing.Size(68, 15) + Me.cbb6.TabIndex = 27 + Me.cbb6.Tag = "S" + Me.cbb6.Text = "고정문자" + Me.cbb6.UseVisualStyleBackColor = True + ' + 'cbb5 + ' + Me.cbb5.AutoSize = True + Me.cbb5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb5.Location = New System.Drawing.Point(5, 268) + Me.cbb5.Name = "cbb5" + Me.cbb5.Size = New System.Drawing.Size(68, 15) + Me.cbb5.TabIndex = 26 + Me.cbb5.Tag = "S" + Me.cbb5.Text = "고정문자" + Me.cbb5.UseVisualStyleBackColor = True + ' + 'cbb4 + ' + Me.cbb4.AutoSize = True + Me.cbb4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb4.Location = New System.Drawing.Point(5, 247) + Me.cbb4.Name = "cbb4" + Me.cbb4.Size = New System.Drawing.Size(68, 15) + Me.cbb4.TabIndex = 25 + Me.cbb4.Tag = "S" + Me.cbb4.Text = "고정문자" + Me.cbb4.UseVisualStyleBackColor = True + ' + 'cbb3 + ' + Me.cbb3.AutoSize = True + Me.cbb3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb3.Location = New System.Drawing.Point(5, 226) + Me.cbb3.Name = "cbb3" + Me.cbb3.Size = New System.Drawing.Size(68, 15) + Me.cbb3.TabIndex = 24 + Me.cbb3.Tag = "S" + Me.cbb3.Text = "고정문자" + Me.cbb3.UseVisualStyleBackColor = True + ' + 'cbb2 + ' + Me.cbb2.AutoSize = True + Me.cbb2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb2.Location = New System.Drawing.Point(5, 207) + Me.cbb2.Name = "cbb2" + Me.cbb2.Size = New System.Drawing.Size(68, 15) + Me.cbb2.TabIndex = 23 + Me.cbb2.Tag = "S" + Me.cbb2.Text = "고정문자" + Me.cbb2.UseVisualStyleBackColor = True + ' + 'cbb1 + ' + Me.cbb1.AutoSize = True + Me.cbb1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cbb1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cbb1.Location = New System.Drawing.Point(5, 186) + Me.cbb1.Name = "cbb1" + Me.cbb1.Size = New System.Drawing.Size(68, 15) + Me.cbb1.TabIndex = 22 + Me.cbb1.Tag = "S" + Me.cbb1.Text = "고정문자" + Me.cbb1.UseVisualStyleBackColor = True + ' + 'chkc2 + ' + Me.chkc2.AutoSize = True + Me.chkc2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc2.Location = New System.Drawing.Point(92, 58) + Me.chkc2.Name = "chkc2" + Me.chkc2.Size = New System.Drawing.Size(68, 15) + Me.chkc2.TabIndex = 9 + Me.chkc2.Tag = "S" + Me.chkc2.Text = "전산번호" + Me.chkc2.UseVisualStyleBackColor = True + ' + 'chkc1 + ' + Me.chkc1.AutoSize = True + Me.chkc1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc1.Location = New System.Drawing.Point(92, 37) + Me.chkc1.Name = "chkc1" + Me.chkc1.Size = New System.Drawing.Size(68, 15) + Me.chkc1.TabIndex = 8 + Me.chkc1.Tag = "S" + Me.chkc1.Text = "전산번호" + Me.chkc1.UseVisualStyleBackColor = True + ' + 'chkc5 + ' + Me.chkc5.AutoSize = True + Me.chkc5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc5.Location = New System.Drawing.Point(92, 121) + Me.chkc5.Name = "chkc5" + Me.chkc5.Size = New System.Drawing.Size(68, 15) + Me.chkc5.TabIndex = 12 + Me.chkc5.Tag = "S" + Me.chkc5.Text = "전산번호" + Me.chkc5.UseVisualStyleBackColor = True + ' + 'chkc4 + ' + Me.chkc4.AutoSize = True + Me.chkc4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc4.Location = New System.Drawing.Point(92, 100) + Me.chkc4.Name = "chkc4" + Me.chkc4.Size = New System.Drawing.Size(68, 15) + Me.chkc4.TabIndex = 11 + Me.chkc4.Tag = "S" + Me.chkc4.Text = "전산번호" + Me.chkc4.UseVisualStyleBackColor = True + ' + 'chkc3 + ' + Me.chkc3.AutoSize = True + Me.chkc3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc3.Location = New System.Drawing.Point(92, 79) + Me.chkc3.Name = "chkc3" + Me.chkc3.Size = New System.Drawing.Size(68, 15) + Me.chkc3.TabIndex = 10 + Me.chkc3.Tag = "S" + Me.chkc3.Text = "전산번호" + Me.chkc3.UseVisualStyleBackColor = True + ' + 'chkd4 + ' + Me.chkd4.AutoSize = True + Me.chkd4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd4.Location = New System.Drawing.Point(182, 98) + Me.chkd4.Name = "chkd4" + Me.chkd4.Size = New System.Drawing.Size(68, 15) + Me.chkd4.TabIndex = 18 + Me.chkd4.Tag = "S" + Me.chkd4.Text = "전산번호" + Me.chkd4.UseVisualStyleBackColor = True + ' + 'chkd3 + ' + Me.chkd3.AutoSize = True + Me.chkd3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd3.Location = New System.Drawing.Point(182, 77) + Me.chkd3.Name = "chkd3" + Me.chkd3.Size = New System.Drawing.Size(68, 15) + Me.chkd3.TabIndex = 17 + Me.chkd3.Tag = "S" + Me.chkd3.Text = "전산번호" + Me.chkd3.UseVisualStyleBackColor = True + ' + 'chkd2 + ' + Me.chkd2.AutoSize = True + Me.chkd2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd2.Location = New System.Drawing.Point(182, 56) + Me.chkd2.Name = "chkd2" + Me.chkd2.Size = New System.Drawing.Size(68, 15) + Me.chkd2.TabIndex = 16 + Me.chkd2.Tag = "S" + Me.chkd2.Text = "전산번호" + Me.chkd2.UseVisualStyleBackColor = True + ' + 'chkd1 + ' + Me.chkd1.AutoSize = True + Me.chkd1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd1.Location = New System.Drawing.Point(182, 37) + Me.chkd1.Name = "chkd1" + Me.chkd1.Size = New System.Drawing.Size(68, 15) + Me.chkd1.TabIndex = 15 + Me.chkd1.Tag = "S" + Me.chkd1.Text = "전산번호" + Me.chkd1.UseVisualStyleBackColor = True + ' + 'chkc7 + ' + Me.chkc7.AutoSize = True + Me.chkc7.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc7.Location = New System.Drawing.Point(92, 163) + Me.chkc7.Name = "chkc7" + Me.chkc7.Size = New System.Drawing.Size(68, 15) + Me.chkc7.TabIndex = 14 + Me.chkc7.Tag = "S" + Me.chkc7.Text = "전산번호" + Me.chkc7.UseVisualStyleBackColor = True + ' + 'chkd7 + ' + Me.chkd7.AutoSize = True + Me.chkd7.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd7.Location = New System.Drawing.Point(182, 159) + Me.chkd7.Name = "chkd7" + Me.chkd7.Size = New System.Drawing.Size(68, 15) + Me.chkd7.TabIndex = 21 + Me.chkd7.Tag = "S" + Me.chkd7.Text = "전산번호" + Me.chkd7.UseVisualStyleBackColor = True + ' + 'chkd6 + ' + Me.chkd6.AutoSize = True + Me.chkd6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd6.Location = New System.Drawing.Point(182, 138) + Me.chkd6.Name = "chkd6" + Me.chkd6.Size = New System.Drawing.Size(68, 15) + Me.chkd6.TabIndex = 20 + Me.chkd6.Tag = "S" + Me.chkd6.Text = "전산번호" + Me.chkd6.UseVisualStyleBackColor = True + ' + 'chkd5 + ' + Me.chkd5.AutoSize = True + Me.chkd5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkd5.Location = New System.Drawing.Point(182, 119) + Me.chkd5.Name = "chkd5" + Me.chkd5.Size = New System.Drawing.Size(68, 15) + Me.chkd5.TabIndex = 19 + Me.chkd5.Tag = "S" + Me.chkd5.Text = "전산번호" + Me.chkd5.UseVisualStyleBackColor = True + ' + 'chkc6 + ' + Me.chkc6.AutoSize = True + Me.chkc6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkc6.Location = New System.Drawing.Point(92, 142) + Me.chkc6.Name = "chkc6" + Me.chkc6.Size = New System.Drawing.Size(68, 15) + Me.chkc6.TabIndex = 13 + Me.chkc6.Tag = "S" + Me.chkc6.Text = "전산번호" + Me.chkc6.UseVisualStyleBackColor = True + ' + 'chkb6 + ' + Me.chkb6.AutoSize = True + Me.chkb6.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb6.Location = New System.Drawing.Point(5, 142) + Me.chkb6.Name = "chkb6" + Me.chkb6.Size = New System.Drawing.Size(68, 15) + Me.chkb6.TabIndex = 7 + Me.chkb6.Tag = "S" + Me.chkb6.Text = "전산번호" + Me.chkb6.UseVisualStyleBackColor = True + ' + 'chkb5 + ' + Me.chkb5.AutoSize = True + Me.chkb5.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb5.Location = New System.Drawing.Point(5, 121) + Me.chkb5.Name = "chkb5" + Me.chkb5.Size = New System.Drawing.Size(68, 15) + Me.chkb5.TabIndex = 6 + Me.chkb5.Tag = "S" + Me.chkb5.Text = "전산번호" + Me.chkb5.UseVisualStyleBackColor = True + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.chk_draw.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(92, 8) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(62, 15) + Me.chk_draw.TabIndex = 1 + Me.chk_draw.Text = "선/도형" + Me.chk_draw.UseVisualStyleBackColor = False + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.cb_seq.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(5, 8) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(68, 15) + Me.cb_seq.TabIndex = 0 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = False + ' + 'chkb4 + ' + Me.chkb4.AutoSize = True + Me.chkb4.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb4.Location = New System.Drawing.Point(5, 100) + Me.chkb4.Name = "chkb4" + Me.chkb4.Size = New System.Drawing.Size(68, 15) + Me.chkb4.TabIndex = 5 + Me.chkb4.Tag = "S" + Me.chkb4.Text = "전산번호" + Me.chkb4.UseVisualStyleBackColor = True + ' + 'chkb3 + ' + Me.chkb3.AutoSize = True + Me.chkb3.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb3.Location = New System.Drawing.Point(5, 79) + Me.chkb3.Name = "chkb3" + Me.chkb3.Size = New System.Drawing.Size(68, 15) + Me.chkb3.TabIndex = 4 + Me.chkb3.Tag = "S" + Me.chkb3.Text = "전산번호" + Me.chkb3.UseVisualStyleBackColor = True + ' + 'chkb1 + ' + Me.chkb1.AutoSize = True + Me.chkb1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb1.Location = New System.Drawing.Point(5, 37) + Me.chkb1.Name = "chkb1" + Me.chkb1.Size = New System.Drawing.Size(68, 15) + Me.chkb1.TabIndex = 2 + Me.chkb1.Tag = "S" + Me.chkb1.Text = "전산번호" + Me.chkb1.UseVisualStyleBackColor = True + ' + 'chkb2 + ' + Me.chkb2.AutoSize = True + Me.chkb2.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chkb2.Location = New System.Drawing.Point(5, 58) + Me.chkb2.Name = "chkb2" + Me.chkb2.Size = New System.Drawing.Size(57, 15) + Me.chkb2.TabIndex = 3 + Me.chkb2.Tag = "H" + Me.chkb2.Text = "관리구" + Me.chkb2.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1, Row 0, Column 0, " + Me.dataview.AllowCellOverflow = True + Me.dataview.AllowEditOverflow = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Vertical + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.dataview_Sheet1.ColumnCount = 23 + Me.dataview_Sheet1.ColumnHeader.RowCount = 2 + Me.dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AllowNoteEdit = True + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "선택" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 6 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "고압(SW1,2,3,4,HA,HB)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "고압(HA,HB)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 8).ColumnSpan = 14 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "저압(TR,분기개소,저압입상)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 14).Value = "저압(LB)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 20).Value = "비고" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 22).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 22).Value = "출력" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "*" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "단자명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "S/S" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "D/L" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "H1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "H2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "저압번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "공급상" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "공급변압기" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "전산번호(전원측)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "전산번호(부하측)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "고객명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "저압번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "공급상" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "공급변압기(TR)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "전산번호(전원측)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "전산번호(부하측)" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "고객명" + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 68.0! + Me.dataview_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.dataview_Sheet1.Columns.Get(0).CellType = CheckBoxCellType1 + Me.dataview_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).Label = "*" + Me.dataview_Sheet1.Columns.Get(0).Tag = "select" + Me.dataview_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).Width = 50.0! + NumberCellType1.DecimalPlaces = 0 + Me.dataview_Sheet1.Columns.Get(1).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(1).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Label = "번호" + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 54.0! + Me.dataview_Sheet1.Columns.Get(2).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(2).DataField = "N10" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "전산번호" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(3).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(3).DataField = "N1D" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Label = "단자명" + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(4).DataField = "N1S" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Label = "S/S" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(5).DataField = "N1L" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Label = "D/L" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(6).DataField = "N1H1" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Label = "H1" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(7).DataField = "N1H2" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Label = "H2" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 43.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(8).DataField = "N20" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Label = "전산번호" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 43.0! + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(9).DataField = "N2J" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Label = "저압번호" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 46.0! + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(10).DataField = "N2K" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "공급상" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 43.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(11).DataField = "N2B" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "공급변압기" + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 43.0! + TextCellType11.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(12).DataField = "N21" + Me.dataview_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Label = "전산번호(전원측)" + Me.dataview_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Width = 43.0! + TextCellType12.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.dataview_Sheet1.Columns.Get(13).DataField = "N22" + Me.dataview_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Label = "전산번호(부하측)" + Me.dataview_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Width = 43.0! + TextCellType13.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.dataview_Sheet1.Columns.Get(14).DataField = "N2C" + Me.dataview_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Label = "고객명" + Me.dataview_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(15).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.dataview_Sheet1.Columns.Get(15).DataField = "N30" + Me.dataview_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(15).Label = "전산번호" + Me.dataview_Sheet1.Columns.Get(15).Locked = False + Me.dataview_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(15).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(16).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType15.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.dataview_Sheet1.Columns.Get(16).DataField = "N3J" + Me.dataview_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(16).Label = "저압번호" + Me.dataview_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(16).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(17).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.dataview_Sheet1.Columns.Get(17).DataField = "N3K" + Me.dataview_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(17).Label = "공급상" + Me.dataview_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(17).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(18).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.dataview_Sheet1.Columns.Get(18).DataField = "N3B" + Me.dataview_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(18).Label = "공급변압기(TR)" + Me.dataview_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(18).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(19).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.dataview_Sheet1.Columns.Get(19).DataField = "N31" + Me.dataview_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(19).Label = "전산번호(전원측)" + Me.dataview_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(19).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.dataview_Sheet1.Columns.Get(20).DataField = "N32" + Me.dataview_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(20).Label = "전산번호(부하측)" + Me.dataview_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(20).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(21).BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.dataview_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.dataview_Sheet1.Columns.Get(21).DataField = "N3C" + Me.dataview_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(21).Label = "고객명" + Me.dataview_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(21).Width = 43.0! + Me.dataview_Sheet1.Columns.Get(22).CellType = CheckBoxCellType2 + Me.dataview_Sheet1.Columns.Get(22).DataField = "출력" + Me.dataview_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(22).Width = 63.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.dataview.SetActiveViewport(0, -1, 0) + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.DataGridView1) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Size = New System.Drawing.Size(271, 493) + Me.TabPage8.TabIndex = 5 + Me.TabPage8.Text = "Table" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'DataGridView1 + ' + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView1.Location = New System.Drawing.Point(0, 0) + Me.DataGridView1.Name = "DataGridView1" + Me.DataGridView1.RowTemplate.Height = 23 + Me.DataGridView1.Size = New System.Drawing.Size(271, 493) + Me.DataGridView1.TabIndex = 0 + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(678, 233) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장" + Me.Button8.UseVisualStyleBackColor = True + Me.Button8.Visible = False + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(598, 236) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + Me.cmb_sep.Visible = False + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(2, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(269, 478) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(880, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(82, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_patternha, Me.bt_patterkaphe, Me.ToolStripMenuItem13, Me.mbt_savepattersta}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(79, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'bt_patternha + ' + Me.bt_patternha.Name = "bt_patternha" + Me.bt_patternha.Size = New System.Drawing.Size(122, 22) + Me.bt_patternha.Text = "고압" + ' + 'bt_patterkaphe + ' + Me.bt_patterkaphe.Name = "bt_patterkaphe" + Me.bt_patterkaphe.Size = New System.Drawing.Size(122, 22) + Me.bt_patterkaphe.Text = "저압1" + ' + 'ToolStripMenuItem13 + ' + Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13" + Me.ToolStripMenuItem13.Size = New System.Drawing.Size(122, 22) + Me.ToolStripMenuItem13.Text = "저압2" + ' + 'mbt_savepattersta + ' + Me.mbt_savepattersta.Name = "mbt_savepattersta" + Me.mbt_savepattersta.Size = New System.Drawing.Size(122, 22) + Me.mbt_savepattersta.Text = "고정문자" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(880, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.Gainsboro + Me.tb_ntype.Enabled = False + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'printformCableLABEL + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(880, 606) + Me.Controls.Add(Me.Button8) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.cmb_sep) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformCableLABEL" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage8.ResumeLayout(False) + CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents chkb2 As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_patternha As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents chkb4 As System.Windows.Forms.CheckBox + Friend WithEvents chkb3 As System.Windows.Forms.CheckBox + Friend WithEvents chkb1 As System.Windows.Forms.CheckBox + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents bt_patterkaphe As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chkb6 As System.Windows.Forms.CheckBox + Friend WithEvents chkb5 As System.Windows.Forms.CheckBox + Friend WithEvents chkd4 As System.Windows.Forms.CheckBox + Friend WithEvents chkd3 As System.Windows.Forms.CheckBox + Friend WithEvents chkd2 As System.Windows.Forms.CheckBox + Friend WithEvents chkd1 As System.Windows.Forms.CheckBox + Friend WithEvents chkc7 As System.Windows.Forms.CheckBox + Friend WithEvents chkd7 As System.Windows.Forms.CheckBox + Friend WithEvents chkd6 As System.Windows.Forms.CheckBox + Friend WithEvents chkd5 As System.Windows.Forms.CheckBox + Friend WithEvents chkc6 As System.Windows.Forms.CheckBox + Friend WithEvents chkc5 As System.Windows.Forms.CheckBox + Friend WithEvents chkc4 As System.Windows.Forms.CheckBox + Friend WithEvents chkc3 As System.Windows.Forms.CheckBox + Friend WithEvents ToolStripMenuItem13 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents tb_rep As System.Windows.Forms.TextBox + Friend WithEvents tb_repy As System.Windows.Forms.TextBox + Friend WithEvents tb_repx As System.Windows.Forms.TextBox + Friend WithEvents chkc2 As System.Windows.Forms.CheckBox + Friend WithEvents chkc1 As System.Windows.Forms.CheckBox + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView + Friend WithEvents cbd7 As System.Windows.Forms.CheckBox + Friend WithEvents cbd6 As System.Windows.Forms.CheckBox + Friend WithEvents cbd5 As System.Windows.Forms.CheckBox + Friend WithEvents cbd4 As System.Windows.Forms.CheckBox + Friend WithEvents cbd3 As System.Windows.Forms.CheckBox + Friend WithEvents cbd2 As System.Windows.Forms.CheckBox + Friend WithEvents cbd1 As System.Windows.Forms.CheckBox + Friend WithEvents cbc7 As System.Windows.Forms.CheckBox + Friend WithEvents cbc6 As System.Windows.Forms.CheckBox + Friend WithEvents cbc5 As System.Windows.Forms.CheckBox + Friend WithEvents cbc4 As System.Windows.Forms.CheckBox + Friend WithEvents cbc3 As System.Windows.Forms.CheckBox + Friend WithEvents cbc2 As System.Windows.Forms.CheckBox + Friend WithEvents cbc1 As System.Windows.Forms.CheckBox + Friend WithEvents cbb6 As System.Windows.Forms.CheckBox + Friend WithEvents cbb5 As System.Windows.Forms.CheckBox + Friend WithEvents cbb4 As System.Windows.Forms.CheckBox + Friend WithEvents cbb3 As System.Windows.Forms.CheckBox + Friend WithEvents cbb2 As System.Windows.Forms.CheckBox + Friend WithEvents cbb1 As System.Windows.Forms.CheckBox + Friend WithEvents mbt_savepattersta As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lb_linenum As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Button6 As System.Windows.Forms.Button +End Class diff --git a/Epole/출력폼/PrintFormCablelABEL.resx b/Epole/출력폼/PrintFormCablelABEL.resx new file mode 100644 index 0000000..6ca5b2c --- /dev/null +++ b/Epole/출력폼/PrintFormCablelABEL.resx @@ -0,0 +1,230 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 229, 17 + + + 173, 43 + + + 401, 11 + + + 334, 43 + + + 526, 11 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintFormCablelABEL.vb b/Epole/출력폼/PrintFormCablelABEL.vb new file mode 100644 index 0000000..ce25d01 --- /dev/null +++ b/Epole/출력폼/PrintFormCablelABEL.vb @@ -0,0 +1,3073 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data + +Public Class printformCableLABEL + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + Dim StaStr() As String + + Dim SB1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim SB2(0) As MyControlOLEDBv2.MyLabel + Dim SB3(0) As MyControlOLEDBv2.MyLabel + Dim SB4(0) As MyControlOLEDBv2.MyLabel + Dim SB5(0) As MyControlOLEDBv2.MyLabel + Dim SB6(0) As MyControlOLEDBv2.MyLabel + + Dim SC1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim SC2(0) As MyControlOLEDBv2.MyLabel + Dim SC3(0) As MyControlOLEDBv2.MyLabel + Dim SC4(0) As MyControlOLEDBv2.MyLabel + Dim SC5(0) As MyControlOLEDBv2.MyLabel + Dim SC6(0) As MyControlOLEDBv2.MyLabel + Dim SC7(0) As MyControlOLEDBv2.MyLabel + + Dim SD1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim SD2(0) As MyControlOLEDBv2.MyLabel + Dim SD3(0) As MyControlOLEDBv2.MyLabel + Dim SD4(0) As MyControlOLEDBv2.MyLabel + Dim SD5(0) As MyControlOLEDBv2.MyLabel + Dim SD6(0) As MyControlOLEDBv2.MyLabel + Dim SD7(0) As MyControlOLEDBv2.MyLabel + + Dim STB1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim STB2(0) As MyControlOLEDBv2.MyLabel + Dim STB3(0) As MyControlOLEDBv2.MyLabel + Dim STB4(0) As MyControlOLEDBv2.MyLabel + Dim STB5(0) As MyControlOLEDBv2.MyLabel + Dim STB6(0) As MyControlOLEDBv2.MyLabel + + Dim STC1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim STC2(0) As MyControlOLEDBv2.MyLabel + Dim STC3(0) As MyControlOLEDBv2.MyLabel + Dim STC4(0) As MyControlOLEDBv2.MyLabel + Dim STC5(0) As MyControlOLEDBv2.MyLabel + Dim STC6(0) As MyControlOLEDBv2.MyLabel + Dim STC7(0) As MyControlOLEDBv2.MyLabel + + Dim STD1(0) As MyControlOLEDBv2.MyLabel '//͹迭 + Dim STD2(0) As MyControlOLEDBv2.MyLabel + Dim STD3(0) As MyControlOLEDBv2.MyLabel + Dim STD4(0) As MyControlOLEDBv2.MyLabel + Dim STD5(0) As MyControlOLEDBv2.MyLabel + Dim STD6(0) As MyControlOLEDBv2.MyLabel + Dim STD7(0) As MyControlOLEDBv2.MyLabel + + + Dim SB1S As String '//ǥùڿ + Dim SB2S As String + Dim SB3S As String + Dim SB4S As String + Dim SB5S As String + Dim SB6S As String + + Dim SC1S As String '//ǥùڿ + Dim SC2S As String + Dim SC3S As String + Dim SC4S As String + Dim SC5S As String + Dim SC6S As String + Dim SC7S As String + + Dim SD1S As String '//ǥùڿ + Dim SD2S As String + Dim SD3S As String + Dim SD4S As String + Dim SD5S As String + Dim SD6S As String + Dim SD7S As String + + Dim STB1S As String '//ڿ + Dim STB2S As String + Dim STB3S As String + Dim STB4S As String + Dim STB5S As String + Dim STB6S As String + + Dim STC1S As String '//ڿ + Dim STC2S As String + Dim STC3S As String + Dim STC4S As String + Dim STC5S As String + Dim STC6S As String + Dim STC7S As String + + Dim STD1S As String '//ڿ + Dim STD2S As String + Dim STD3S As String + Dim STD4S As String + Dim STD5S As String + Dim STD6S As String + Dim STD7S As String + + Dim Sȣ(0) As MyLabel + + + Dim BlineNum1 As Short = 0 '//ٱ׷ + Dim BlineNum2 As Short = 0 + Dim BlineNum3 As Short = 0 + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleCABLABEL") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCECABLABEL.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_CableLabelDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\(̺)α.txt") + StaStr = Nothing + End Sub + + Public Sub New(ByRef Src As ireaDataSet.Detail_CableLabelDataTable, Optional ByVal IRow As DataRowView = Nothing, Optional ByVal p_StrStr() As String = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\(̺)α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + Me.StaStr = p_StrStr + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjungCABLABEL", "\viewConfig\JijungCAB_") + WLog2(Auto_Log, "Form_Close", "\(̺)α.txt") + Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjungCABLABEL", "\viewConfig\JijungCABLABEL_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + + AddLog(Auto_Log, "Form_Load()", "\(̺)α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + AddLog(Auto_Log, " ⺻ ȯ()", "\(̺)α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + AddLog(Auto_Log, "ڸ=" & Admin.ToString, "\(̺)α.txt") + If Admin Then + showlog() + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + AddLog(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\(̺)α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + 'Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Me.cmb_style.SelectedIndex = 0 + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + 'MsgBox(Srcrow("1").ToString) + 'Dim HASS, HBSS As String + 'Try + ' HASS = Srcrow("HASS").ToString.Trim + 'Catch ex As Exception + ' ' MsgBox(ex.Message.ToString) + ' HASS = "" + 'End Try + 'Try + ' HBSS = Srcrow("HBSS").ToString.Trim + 'Catch ex As Exception + ' ' MsgBox(ex.Message.ToString) + ' HBSS = "" + 'End Try + 'If HBSS <> "" Then + ' Me.cmb_style.Text = "п(HB)" + 'End If + End If + If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0 + + Me.DataGridView1.DataSource = dtpattern + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + ' Me.BT_JNUMCSAVE.PerformClick() + End If + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + + Public Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox) + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = tag & "PATTERN" ' bPattern + ReDim Preserve AllLabels(CtlCnt) + AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = tag & "PATTERN" + End Sub + + Private Sub SetControls() + AddLog(Auto_Log, "SetControls()", "\(̺)α.txt") + Dim CtlCnt As Short = 0 + + AddControl(CtlCnt, "ȣ", "XX", Me.Sȣ, Me.cb_seq) + + AddControl(CtlCnt, "[]ȣ", "A1", Me.SB1, Me.chkb1) + AddControl(CtlCnt, "[]ڸ", "A2", Me.SB2, Me.chkb2) + AddControl(CtlCnt, "[]S/S", "A3", Me.SB3, Me.chkb3) + AddControl(CtlCnt, "[]D/L", "A4", Me.SB4, Me.chkb4) + AddControl(CtlCnt, "[]H1", "A5", Me.SB5, Me.chkb5) + AddControl(CtlCnt, "[]H2", "A6", Me.SB6, Me.chkb6) + + AddControl(CtlCnt, "[1]ȣ", "B1", Me.SC1, Me.chkc1) + AddControl(CtlCnt, "[1]ȸ", "B2", Me.SC2, Me.chkc2) + AddControl(CtlCnt, "[1]޻", "B3", Me.SC3, Me.chkc3) + AddControl(CtlCnt, "[1]޺б", "B4", Me.SC4, Me.chkc4) + AddControl(CtlCnt, "[1]ȣ()", "B5", Me.SC5, Me.chkc5) + AddControl(CtlCnt, "[1]ȣ()", "B6", Me.SC6, Me.chkc6) + AddControl(CtlCnt, "[1]", "B7", Me.SC7, Me.chkc7) + + AddControl(CtlCnt, "[2]ȣ", "C1", Me.SD1, Me.chkd1) + AddControl(CtlCnt, "[2]ȸ", "C2", Me.SD2, Me.chkd2) + AddControl(CtlCnt, "[2]޻", "C3", Me.SD3, Me.chkd3) + AddControl(CtlCnt, "[2]޺б(TR)", "C4", Me.SD4, Me.chkd4) + AddControl(CtlCnt, "[2]ȣ()", "C5", Me.SD5, Me.chkd5) + AddControl(CtlCnt, "[2]ȣ()", "C6", Me.SD6, Me.chkd6) + AddControl(CtlCnt, "[2]", "C7", Me.SD7, Me.chkd7) + + AddControl(CtlCnt, "A1", "J1", Me.STB1, Me.cbb1) + AddControl(CtlCnt, "A2", "J2", Me.STB2, Me.cbb2) + AddControl(CtlCnt, "A3", "J3", Me.STB3, Me.cbb3) + AddControl(CtlCnt, "A4", "J4", Me.STB4, Me.cbb4) + AddControl(CtlCnt, "A5", "J5", Me.STB5, Me.cbb5) + AddControl(CtlCnt, "A6", "J6", Me.STB6, Me.cbb6) + + AddControl(CtlCnt, "B1", "K1", Me.STC1, Me.cbc1) + AddControl(CtlCnt, "B2", "K2", Me.STC2, Me.cbc2) + AddControl(CtlCnt, "B3", "K3", Me.STC3, Me.cbc3) + AddControl(CtlCnt, "B4", "K4", Me.STC4, Me.cbc4) + AddControl(CtlCnt, "B5", "K5", Me.STC5, Me.cbc5) + AddControl(CtlCnt, "B6", "K6", Me.STC6, Me.cbc6) + AddControl(CtlCnt, "B7", "K7", Me.STC7, Me.cbc7) + + AddControl(CtlCnt, "C1", "L1", Me.STD1, Me.cbd1) + AddControl(CtlCnt, "C2", "L2", Me.STD2, Me.cbd2) + AddControl(CtlCnt, "C3", "L3", Me.STD3, Me.cbd3) + AddControl(CtlCnt, "C4", "L4", Me.STD4, Me.cbd4) + AddControl(CtlCnt, "C5", "L5", Me.STD5, Me.cbd5) + AddControl(CtlCnt, "C6", "L6", Me.STD6, Me.cbd6) + AddControl(CtlCnt, "C7", "L7", Me.STD7, Me.cbd7) + + End Sub + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\(̺)α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\(̺)α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\(̺)α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\(̺)α.txt") + WLog2(Auto_Log, "Load_Setting()", "\(̺)α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + AddLog(Auto_Log, "GetviewData ()", "\(̺)α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + AddLog(Auto_Log, "GetViewData : ε ų վ մϴ.()", "\(̺)α.txt") + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + ' STARTTIME = Now + '// ̺ ͸ ǥѴ. ̺ ̴̺ DV + '//絥͸ Ʈѿǥ ¹ (Ϲݿ/Ե) ´. + 'Dim θϰ˻ As Integer = 0 + 'Dim ôϰ˻ As Integer = 0 + Me.SB1S = GetSpread(Me.Dv, index, "N10") + Me.SB2S = GetSpread(Me.Dv, index, "N1D") + Me.SB3S = GetSpread(Me.Dv, index, "N1S") + Me.SB4S = GetSpread(Me.Dv, index, "N1L") + Me.SB5S = GetSpread(Me.Dv, index, "N1H1") + Me.SB6S = GetSpread(Me.Dv, index, "N1H2") + + Me.SC1S = GetSpread(Me.Dv, index, "N20") + Me.SC2S = GetSpread(Me.Dv, index, "N2J") + Me.SC3S = GetSpread(Me.Dv, index, "N2K") + Me.SC4S = GetSpread(Me.Dv, index, "N2B") + Me.SC5S = GetSpread(Me.Dv, index, "N21") + Me.SC6S = GetSpread(Me.Dv, index, "N22") + Me.SC7S = GetSpread(Me.Dv, index, "N2C") + + Me.SD1S = GetSpread(Me.Dv, index, "N30") + Me.SD2S = GetSpread(Me.Dv, index, "N3J") + Me.SD3S = GetSpread(Me.Dv, index, "N3K") + Me.SD4S = GetSpread(Me.Dv, index, "N3B") + Me.SD5S = GetSpread(Me.Dv, index, "N31") + Me.SD6S = GetSpread(Me.Dv, index, "N32") + Me.SD7S = GetSpread(Me.Dv, index, "N3C") + + '--Ҵ + Me.STB1S = "" + Me.STB2S = "" + Me.STB3S = "" + Me.STB4S = "" + Me.STB5S = "" + Me.STB6S = "" + + Me.STC1S = "" + Me.STC2S = "" + Me.STC3S = "" + Me.STC4S = "" + Me.STC5S = "" + Me.STC6S = "" + Me.STC7S = "" + + Me.STD1S = "" + Me.STD2S = "" + Me.STD3S = "" + Me.STD4S = "" + Me.STD5S = "" + Me.STD6S = "" + Me.STD7S = "" + + If Not Me.StaStr Is Nothing Then + If Me.SB1S <> "" Then Me.STB1S = Me.StaStr(0) + If Me.SB2S <> "" Then Me.STB2S = Me.StaStr(1) + If Me.SB3S <> "" Then Me.STB3S = Me.StaStr(2) + If Me.SB4S <> "" Then Me.STB4S = Me.StaStr(3) + If Me.SB5S <> "" Then Me.STB5S = Me.StaStr(4) + If Me.SB6S <> "" Then Me.STB6S = Me.StaStr(5) + + If Me.SC1S <> "" Then Me.STC1S = Me.StaStr(6) + If Me.SC2S <> "" Then Me.STC2S = Me.StaStr(7) + If Me.SC3S <> "" Then Me.STC3S = Me.StaStr(8) + If Me.SC4S <> "" Then Me.STC4S = Me.StaStr(9) + If Me.SC5S <> "" Then Me.STC5S = Me.StaStr(10) + If Me.SC6S <> "" Then Me.STC6S = Me.StaStr(11) + If Me.SC7S <> "" Then Me.STC7S = Me.StaStr(12) + + If Me.SD1S <> "" Then Me.STD1S = Me.StaStr(13) + If Me.SD2S <> "" Then Me.STD2S = Me.StaStr(14) + If Me.SD3S <> "" Then Me.STD3S = Me.StaStr(15) + If Me.SD4S <> "" Then Me.STD4S = Me.StaStr(16) + If Me.SD5S <> "" Then Me.STD5S = Me.StaStr(17) + If Me.SD6S <> "" Then Me.STD6S = Me.StaStr(18) + If Me.SD7S <> "" Then Me.STD7S = Me.StaStr(19) + End If + + 'Me. = GetSpread(Me.Dv, index, "") + 'Me.ȣ = GetSpread(Me.Dv, index, "ȣ") + 'Me.ȣ = GetSpread(Me.Dv, index, "") & "" & GetSpread(Me.Dv, index, "ȣ") + 'If Me.ȣ.Trim = "" Then Me.ȣ = "" + + '//ٹȣ ʱȭ + Me.BlineNum1 = 0 : Me.BlineNum2 = 0 : Me.BlineNum3 = 0 + + If Me.SB1S <> "" Then BlineNum1 += 1 + If Me.SB2S <> "" Then BlineNum1 += 1 + If Me.SB3S <> "" Then BlineNum1 += 1 + If Me.SB4S <> "" Then BlineNum1 += 1 + If Me.SB5S <> "" Then BlineNum1 += 1 + If Me.SB6S <> "" Then BlineNum1 += 1 + + If Me.SC1S <> "" Then BlineNum2 += 1 + If Me.SC2S <> "" Then BlineNum2 += 1 + If Me.SC3S <> "" Then BlineNum2 += 1 + If Me.SC4S <> "" Then BlineNum2 += 1 + If Me.SC5S <> "" Then BlineNum2 += 1 + If Me.SC6S <> "" Then BlineNum2 += 1 + If Me.SC7S <> "" Then BlineNum2 += 1 + + If Me.SD1S <> "" Then BlineNum3 += 1 + If Me.SD2S <> "" Then BlineNum3 += 1 + If Me.SD3S <> "" Then BlineNum3 += 1 + If Me.SD4S <> "" Then BlineNum3 += 1 + If Me.SD5S <> "" Then BlineNum3 += 1 + If Me.SD6S <> "" Then BlineNum3 += 1 + If Me.SD7S <> "" Then BlineNum3 += 1 + + + Me.lb_linenum.Text = "(" & BlineNum1 & "/" & BlineNum2 & "/" & BlineNum3 & ")" + + AddLog(Auto_Log, "ͺ ͸ Ϸ()", "\(̺)α.txt") + + Me.Text = "(̺) ۾(" & Me.SB1S & "/" & Me.SC1S & "/" & Me.SD1S & ")" + + AddLog(Auto_Log, "PASE մϴ.()", "\(̺)α.txt") + '============ ؼ °̴ ========================================================== + If Me.PARSE(Me.STB1S, Me.STB1) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + If Me.PARSE(Me.STB2S, Me.STB2) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + If Me.PARSE(Me.STB3S, Me.STB3) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + If Me.PARSE(Me.STB4S, Me.STB4) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + If Me.PARSE(Me.STB5S, Me.STB5) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + If Me.PARSE(Me.STB6S, Me.STB6) Then Me.PARSE_PATTERN(Me.STB1S, Me.STB1, Me.BlineNum1) '//ڽ + + If Me.PARSE(Me.STC1S, Me.STC1) Then Me.PARSE_PATTERN(Me.STC1S, Me.STC1, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC2S, Me.STC2) Then Me.PARSE_PATTERN(Me.STC2S, Me.STC2, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC3S, Me.STC3) Then Me.PARSE_PATTERN(Me.STC3S, Me.STC3, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC4S, Me.STC4) Then Me.PARSE_PATTERN(Me.STC4S, Me.STC4, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC5S, Me.STC5) Then Me.PARSE_PATTERN(Me.STC5S, Me.STC5, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC6S, Me.STC6) Then Me.PARSE_PATTERN(Me.STC6S, Me.STC6, Me.BlineNum2) '//ڽ + If Me.PARSE(Me.STC7S, Me.STC7) Then Me.PARSE_PATTERN(Me.STC7S, Me.STC7, Me.BlineNum2) '//ڽ + + If Me.PARSE(Me.STD1S, Me.STD1) Then Me.PARSE_PATTERN(Me.STD1S, Me.STD1, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD2S, Me.STD2) Then Me.PARSE_PATTERN(Me.STD2S, Me.STD2, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD3S, Me.STD3) Then Me.PARSE_PATTERN(Me.STD3S, Me.STD3, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD4S, Me.STD4) Then Me.PARSE_PATTERN(Me.STD4S, Me.STD4, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD5S, Me.STD5) Then Me.PARSE_PATTERN(Me.STD5S, Me.STD5, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD6S, Me.STD6) Then Me.PARSE_PATTERN(Me.STD6S, Me.STD6, Me.BlineNum3) '//ڽ + If Me.PARSE(Me.STD7S, Me.STD7) Then Me.PARSE_PATTERN(Me.STD7S, Me.STD7, Me.BlineNum3) '//ڽ + + If Me.PARSE(Me.SB1S, Me.SB1) Then Me.PARSE_PATTERN(Me.SB1S, Me.SB1, BlineNum1) '// + If Me.PARSE(Me.SB2S, Me.SB2) Then Me.PARSE_PATTERN(Me.SB2S, Me.SB2, BlineNum1) '// + If Me.PARSE(Me.SB3S, Me.SB3) Then Me.PARSE_PATTERN(Me.SB3S, Me.SB3, BlineNum1) '// + If Me.PARSE(Me.SB4S, Me.SB4) Then Me.PARSE_PATTERN(Me.SB4S, Me.SB4, BlineNum1) '// + If Me.PARSE(Me.SB5S, Me.SB5) Then Me.PARSE_PATTERN(Me.SB5S, Me.SB5, BlineNum1) '// + If Me.PARSE(Me.SB6S, Me.SB6) Then Me.PARSE_PATTERN(Me.SB6S, Me.SB6, BlineNum1) '// + + If Me.PARSE(Me.SC1S, Me.SC1) Then Me.PARSE_PATTERN(Me.SC1S, Me.SC1, BlineNum2) '//1 + If Me.PARSE(Me.SC2S, Me.SC2) Then Me.PARSE_PATTERN(Me.SC2S, Me.SC2, BlineNum2) '// + If Me.PARSE(Me.SC3S, Me.SC3) Then Me.PARSE_PATTERN(Me.SC3S, Me.SC3, BlineNum2) '// + If Me.PARSE(Me.SC4S, Me.SC4) Then Me.PARSE_PATTERN(Me.SC4S, Me.SC4, BlineNum2) '// + If Me.PARSE(Me.SC5S, Me.SC5) Then Me.PARSE_PATTERN(Me.SC5S, Me.SC5, BlineNum2) '// + If Me.PARSE(Me.SC6S, Me.SC6) Then Me.PARSE_PATTERN(Me.SC6S, Me.SC6, BlineNum2) '// + If Me.PARSE(Me.SC7S, Me.SC7) Then Me.PARSE_PATTERN(Me.SC7S, Me.SC7, BlineNum2) '// + + If Me.PARSE(Me.SD1S, Me.SD1) Then Me.PARSE_PATTERN(Me.SD1S, Me.SD1, BlineNum3) '//2 + If Me.PARSE(Me.SD2S, Me.SD2) Then Me.PARSE_PATTERN(Me.SD2S, Me.SD2, BlineNum3) '// + If Me.PARSE(Me.SD3S, Me.SD3) Then Me.PARSE_PATTERN(Me.SD3S, Me.SD3, BlineNum3) '// + If Me.PARSE(Me.SD4S, Me.SD4) Then Me.PARSE_PATTERN(Me.SD4S, Me.SD4, BlineNum3) '// + If Me.PARSE(Me.SD5S, Me.SD5) Then Me.PARSE_PATTERN(Me.SD5S, Me.SD5, BlineNum3) '// + If Me.PARSE(Me.SD6S, Me.SD6) Then Me.PARSE_PATTERN(Me.SD6S, Me.SD6, BlineNum3) '// + If Me.PARSE(Me.SD7S, Me.SD7) Then Me.PARSE_PATTERN(Me.SD7S, Me.SD7, BlineNum3) '// + + + AddLog(Auto_Log, "ִ PASE մϴ.()", "\(̺)α.txt") + + + AddLog(Auto_Log, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\(̺)α.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + If Me.cb_seq.Checked Then + Me.Sȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.Sȣ(0).Visible = True + Else + Me.Sȣ(0).Visible = False + End If + + '//¥ ƷͰ ´. + 'If <> "" AndAlso ȣ <> "" AndAlso Me.cb_kwanglijungsan.Checked Then + ' Me.Sֹȣ(0).MyText = & "-" & ȣ + ' Me.Sֹȣ(0).Visible = True + 'Else + ' Me.Sֹȣ(0).Visible = False + 'End If + + AddLog(Auto_Log, "ڹ ǥÿθ մϴ.()", "\(̺)α.txt") + 'ڹ ǥÿ u a b d e + ' ....................................................... + AddLog(Auto_Log, "Pewview 츦 մϴ.()", "\(̺)α.txt") + Me.preview_window() + ' If Me.chb_preview.Checked AndAlso previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\(̺)α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\(̺)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\(̺)α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + AddLog(Auto_Log, "Clear_item div=", "\(̺)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + End Sub + Public Sub GetStyleList() + Work_Form("Ÿϸ Ȯմϴ") + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + 'ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("DESC").ToString()) + CurIdx += 1 + Next + Form_Work.Close() + End Sub + + Private Sub ̺() + AddLog(Auto_Log, "̺ ()", "\(̺)α.txt") + 'NWork_Form("̺ մϴ.", 0) + + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + ' Form_Work.Close() + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + AddLog(Auto_Log, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\(̺)α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + End If + + + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 '//ȣ + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\(̺)α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\(̺)α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + Me.tb_rep.Text = sender.Repeat + Me.tb_repx.Text = sender.RepeatX + Me.tb_repy.Text = sender.RepeatY + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + Me.bakimg.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\(̺)α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\(̺)α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.chk_DisplayBG.Checked = True + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\(̺)α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\(̺)α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, "\(̺)α.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\(̺)α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\(̺)α.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + AddLog(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\(̺)α.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\(̺)α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = DrStyle.FILTER + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\(̺)α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + ''WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\(̺)α.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + AddLog(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\(̺)α.txt") + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim pos(), font(), visible, mytext, repeat() As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + If Div = "Z" Then NWork_Form("Ÿϵ ҷ", Me.AllLabels.GetUpperBound(0) + 1) + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Form_Work.pval += 1 + + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.DIV = Div Then + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + repeat = DR(0)(1).ToString.Split(",") + Tobj.Repeat = repeat(0) + Tobj.RepeatX = repeat(1) + Tobj.RepeatY = repeat(2) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + Next + + + If Div.ToUpper <> "Z" Then + Form_Work.Close() + Return '//̾ƴϴ + End If + + AddLog(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\(̺)α.txt") + + + ' MsgBox(Arinini.FileName) + + Work_Form("ùڽ ͸ ɴϴ") + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage7.Controls '//ǥÿ + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + Work_Form(" ͸ ɴϴ") + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = DrStyle.MARGINX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = DrStyle.MARGINY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = DrStyle.SCALEX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = DrStyle.SCALEY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = DrStyle.DUMMYCNT + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + + Me.cmb_dummy.SelectedIndex = DrStyle.DUMMYTYPE ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = DrStyle.DUMMMYX ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = DrStyle.DUMMMYY ' Arinini.Read("STYLE", "dummmyy", "300") + + If DrStyle.BACKIMG.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & DrStyle.BACKIMG + Else + Me.tb_picfile.Text = DrStyle.BACKIMG ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = DrStyle.LANDSCAPE ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + Me.chk_DisplayBG.Checked = DrStyle.VIEWIMAGE ' Arinini.Read("STYLE", "ViewImage", True) + Me.Chk_BgImageprint.Checked = DrStyle.PRINTBG + Me.tb_bakx.Text = DrStyle.BAKX + Me.tb_baky.Text = DrStyle.BAKY + Me.tb_bakw.Text = DrStyle.BAKW + Me.tb_bakh.Text = DrStyle.BAKH + + Me.tb_myfontsize.Text = DrStyle.PRINTFONTOFFSET ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + Form_Work.Close() + + End Sub + + Public Sub SAVE_STYLE() + + + AddLog(Auto_Log, "iniϿ Ÿ մϴ. ", "\(̺)α.txt") + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim Arininic As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "cfg")) + Dim Arininichk As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "ck")) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + + NWork_Form("Ÿ : ü", Me.AllLabels.GetUpperBound(0) + 1) + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + + f.ProgressBar1.Value += 1 + f.Refresh() + + + Form_Work.pval += 1 + Tobj = Me.AllLabels(i).ctl + '// If Tobj.Pattern = "" Then '//̾°͵鸸 ? + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat & "," & Tobj.RepeatX & "," & Tobj.RepeatY) '//ݺ + '// End If + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + + '//ش CKϿ Ǿ ˸.(1/0) + Arininichk.Write("STYLE", "SAVED", "1") 'A.Visible) + NWork_Form("Ÿ : °ü", 0) + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + Arininichk.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + + NWork_Form("Ÿ : ", 0) + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + AddLog(Auto_Log, "save style Ϸ ̺ ȣ ", "\(̺)α.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + + 'If drstyle.IsXml = False Then + ' '//xml ϻ + ' Dim XMLFIlename As String = CStr(drstyle.File).ToLower.Replace("ini", "xml") + ' MsgBox(" ȯմϴ" & vbCrLf & XMLFIlename) + ' Common.PDS(Me.cmb_style.SelectedIndex).WriteXml(XMLFIlename) + 'End If + + Form_Work.Close() + End Sub + Public Sub SAVE_STYLEXML() + AddLog(Auto_Log, "iniϿ Ÿ մϴ. ", "\(̺)α.txt") + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim Arininic As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "cfg")) + Dim Arininichk As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "ck")) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + '//Ÿ̺ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + If Tobj.Pattern = "" Then + XML.SavePatterN(Me.cmb_style.SelectedIndex, Tobj.Name & "pos", CStr(Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height)) + XML.SavePatterN(Me.cmb_style.SelectedIndex, Tobj.Name & "font", CStr(Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.)) + XML.SavePatterN(Me.cmb_style.SelectedIndex, Tobj.Name & "visible", "true") + XML.SavePatterN(Me.cmb_style.SelectedIndex, Tobj.Name & "space", CStr(Tobj.)) + XML.SavePatterN(Me.cmb_style.SelectedIndex, Tobj.Name & "repeat", CStr(Tobj.Repeat & "," & Tobj.RepeatX & "," & Tobj.RepeatY)) + End If + Next + + '//ش CKϿ Ǿ ˸.(1/0) + Arininichk.Write("STYLE", "SAVED", "1") 'A.Visible) + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + XML.SaveChkBox(Me.cmb_style.SelectedIndex, B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + '//ù ͼ ͸ . + Dim SDR As PatternDS.TStyleRow = PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + SDR.VIEWIMAGE = Me.chk_DisplayBG.Checked + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + Me.SaveReadLayOut(False) + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + AddLog(Auto_Log, "save style Ϸ ̺ ȣ ", "\(̺)α.txt") + Me.̺() + Me.preview_window() + + + If DrStyle.ISXML = False Then + '//xml ϻ + Dim XMLFIlename As String = CStr(DrStyle.FILE).ToLower.Replace("ini", "xml") + MsgBox(" ȯմϴ" & vbCrLf & XMLFIlename) + Common.PDS(Me.cmb_style.SelectedIndex).WriteXml(XMLFIlename) + End If + + + + End Sub + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + + + Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, Optional ByVal LOGFILENAME As String = "\.TXT", Optional ByVal BlineNum As String = "", Optional ByVal RefreshDataTable As Boolean = True) ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim MidName As String = labels(0).Pattern + If BlineNum <> "" Then MidName = "LNUM" & BlineNum & MidName + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MidName & "II" & mb.ToString + + ' AddLog(Auto_Log, " save_pattern2 Ѵ.", "\(̺)α.txt") + For i As Integer = 0 To labels.GetUpperBound(0) + TOBJ = labels(i) + ' AddLog(Auto_Log, MidName & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MidName) + 'AddLog(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + ' AddLog(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\(̺)α.txt") + If RefreshDataTable Then Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + AddLog(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\(̺)α.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + AddLog(Auto_Log, "ǥ üũڽ ", "\(̺)α.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + AddLog(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\(̺)α.txt") + Me.preview_window() + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + AddLog(Auto_Log, " ۾ Ŭ", "\(̺)α.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + AddLog(Auto_Log, "۾B õ setfont ȣ ", "\(̺)α.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + AddLog(Auto_Log, "updatefont : ", "\(̺)α.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.DIV = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + AddLog(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + Me.showcnt(i, Me.textbox2.Text) + + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + AddLog(Auto_Log, Mylabels(0).Name & " ׷Ʈ ʱȭմϴ. Clear Item") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + AddLog(Auto_Log, "Zero Length - Return", Log) + Return False + End If + AddLog(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + Return True + End Function + + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + + + Private Sub tb_ntype_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ' ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(DrStyle.FILE) 'drstyle.File) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + NWork_Form("ȭ鱸¸ մϴ.", 0) + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + NWork_Form("ȭ鱸¸ ҷɴϴ.", 0) + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + Form_Work.Close() + + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + AddLog(Auto_Log, "GetPrinterName()", "\(̺)α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub preview_window() '//̸ȭ մϴ. + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + End If + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + ' MsgBox(CType(A, MyControlOLEDBv2.MyLabel).) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordwidth.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CShort(Me.tb_wordheight.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.DIV = Tobj.DIV And Me.AllLabels(z).ctl.TextValue.Trim <> "" Then + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = DtPattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + AddLog(Auto_Log, " ãϷ : =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + 'Try + DR = DtPattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = DtPattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + C.Tag = "C" + 'Catch ex As Exception + ' AddLog(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + 'End Try + Next + Else + AddLog(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + 'ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + If DrStyle.ISXML = False Then + SAVE_STYLE() + Else + SAVE_STYLEXML() + End If + + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + + End Sub + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + + preview_window() + End Sub + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(DrStyle.FILE) + Dim ini2 As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "shape")) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim bcnt, lcnt, ccnt As Short + + If read = False Then + NWork_Form("װü մϴ.", 0) + ini.Write(bname, "Count", Draw_Box.Count) + ini2.Write(bname, "saved", "1") + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + + ini2.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini2.Write(bname, "box" & i & "pensize", L.PenWidth) + ini2.Write(bname, "box" & i & "x", L.X) + ini2.Write(bname, "box" & i & "y", L.Y) + ini2.Write(bname, "box" & i & "x2", L.Width) + ini2.Write(bname, "box" & i & "y2", L.Height) + Next + ini.Write(cname, "Count", Draw_Circle.Count) + ini2.Write(cname, "saved", "1") + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "Circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "Circle" & i & "x", L.X) + ini.Write(cname, "Circle" & i & "y", L.Y) + ini.Write(cname, "Circle" & i & "x2", L.Width) + ini.Write(cname, "Circle" & i & "y2", L.Height) + + ini2.Write(cname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini2.Write(cname, "Circle" & i & "pensize", L.PenWidth) + ini2.Write(cname, "Circle" & i & "x", L.X) + ini2.Write(cname, "Circle" & i & "y", L.Y) + ini2.Write(cname, "Circle" & i & "x2", L.Width) + ini2.Write(cname, "Circle" & i & "y2", L.Height) + Next + ini.Write(lname, "Count", Draw_Line.Count) + ini2.Write(lname, "saved", "1") + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + + ini2.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini2.Write(lname, "line" & i & "pensize", L.PenWidth) + ini2.Write(lname, "line" & i & "x", L.X) + ini2.Write(lname, "line" & i & "y", L.Y) + ini2.Write(lname, "line" & i & "x2", L.X2) + ini2.Write(lname, "line" & i & "y2", L.Y2) + Next + Else '// д κ + NWork_Form("װü մϴ.", 0) + Draw_Box.Clear() + Draw_Line.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "Circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "Circle" & i & "pensize", 3) + L.X = ini.Read(cname, "Circle" & i & "x", 0) + L.Y = ini.Read(cname, "Circle" & i & "y", 0) + L.Width = ini.Read(cname, "Circle" & i & "x2", 10) + L.Height = ini.Read(cname, "Circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + Me.Refresh_Drawlist() + End If + Form_Work.Close() + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + + + + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + End Sub + + Private Sub tb_rep_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_rep.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).Repeat = Me.tb_rep.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repx.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatX = Me.tb_repx.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repy_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repy.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatY = Me.tb_repy.Text + Next + Me.preview_window() + End If + End Sub + + + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + + Private Sub bt_danja_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.sд, Me.HA.Length, "\sд.TXT") '//θ մϴ. + + End Sub + + Private Sub mbt_savepattersta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mbt_savepattersta.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + NWork_Form(" ϰ ֽϴ", 20) + '// + SAVE_PATTERNII(Me.STB1, Me.STB1S, "\Stb1.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 + SAVE_PATTERNII(Me.STB2, Me.STB2S, "\Stb2.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 + SAVE_PATTERNII(Me.STB3, Me.STB3S, "\Stb3.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 + SAVE_PATTERNII(Me.STB4, Me.STB4S, "\Stb4.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STB5, Me.STB5S, "\Stb5.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STB6, Me.STB6S, "\Stb6.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + '//1 + SAVE_PATTERNII(Me.STC1, Me.STC1S, "\stc1.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC2, Me.STC2S, "\stc2.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC3, Me.STC3S, "\stc3.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC4, Me.STC4S, "\stc4.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC5, Me.STC5S, "\stc5.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC6, Me.STC6S, "\stc6.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STC7, Me.STC7S, "\stc7.TXT", Me.BlineNum2, False) : Form_Work.pval += 1 '//θ մϴ.() + '//2 + SAVE_PATTERNII(Me.STD1, Me.STD1S, "\std1.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD2, Me.STD2S, "\std2.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD3, Me.STD3S, "\std3.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD4, Me.STD4S, "\std4.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD5, Me.STD5S, "\std5.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD6, Me.STD6S, "\std6.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.STD7, Me.STD7S, "\std7.TXT", Me.BlineNum3) '//θ մϴ.() + Form_Work.Close() + End Sub + + Private Sub bt_patternha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patternha.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + NWork_Form(" ϰ ֽϴ", 6) + SAVE_PATTERNII(Me.SB1, Me.SB1S, "\SB1.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SB2, Me.SB2S, "\SB2.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SB3, Me.SB3S, "\SB3.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SB4, Me.SB4S, "\SB4.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SB5, Me.SB5S, "\SB5.TXT", Me.BlineNum1, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SB6, Me.SB6S, "\SB6.TXT") '//θ մϴ.() + Form_Work.Close() + + End Sub + + Private Sub bt_patterkaphe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_patterkaphe.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + NWork_Form(" ϰ ֽϴ", 7) + SAVE_PATTERNII(Me.SC1, Me.SC1S, "\SC1.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC2, Me.SC2S, "\Sc2.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC3, Me.SC3S, "\Sc3.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC4, Me.SC4S, "\Sc4.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC5, Me.SC5S, "\Sc5.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC6, Me.SC6S, "\Sc6.TXT", Me.BlineNum2, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SC7, Me.SC7S, "\Sc7.TXT", Me.BlineNum2) '//θ մϴ.() + Form_Work.Close() + End Sub + + Private Sub ToolStripMenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem13.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + NWork_Form(" ϰ ֽϴ", 7) + SAVE_PATTERNII(Me.SD1, Me.SD1S, "\SD1.TXT", Me.BlineNum3, False) '//θ մϴ.() + SAVE_PATTERNII(Me.SD2, Me.SD2S, "\Sd2.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SD3, Me.SD3S, "\Sd3.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SD4, Me.SD4S, "\Sd4.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SD5, Me.SD5S, "\Sd5.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SD6, Me.SD6S, "\Sd6.TXT", Me.BlineNum3, False) : Form_Work.pval += 1 '//θ մϴ.() + SAVE_PATTERNII(Me.SD7, Me.SD7S, "\Sd7.TXT", Me.BlineNum3) '//θ մϴ.() + Form_Work.Close() + End Sub + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub +End Class + + + diff --git a/Epole/출력폼/PrintFormSRC.Designer.vb b/Epole/출력폼/PrintFormSRC.Designer.vb new file mode 100644 index 0000000..8ff3721 --- /dev/null +++ b/Epole/출력폼/PrintFormSRC.Designer.vb @@ -0,0 +1,3261 @@ + _ +Partial Class printform + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printform)) + Dim NumberCellType5 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType6 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType31 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType32 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType33 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType34 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType35 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType36 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType37 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType38 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType39 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType40 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType41 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType42 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType43 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType44 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType45 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_print_repeat = New System.Windows.Forms.RadioButton() + Me.rad_print_all = New System.Windows.Forms.RadioButton() + Me.rad_print_cur = New System.Windows.Forms.RadioButton() + Me.rad_print_area = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.tb_repy = New System.Windows.Forms.TextBox() + Me.tb_repx = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.tb_rep = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cmb_jisun = New System.Windows.Forms.ComboBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.Button30 = New System.Windows.Forms.Button() + Me.Button27 = New System.Windows.Forms.Button() + Me.Button29 = New System.Windows.Forms.Button() + Me.Button26 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.cb_상2단 = New System.Windows.Forms.CheckBox() + Me.cb_상1단 = New System.Windows.Forms.CheckBox() + Me.cb_휴즈용량 = New System.Windows.Forms.CheckBox() + Me.cb_gojang = New System.Windows.Forms.CheckBox() + Me.cb_date1 = New System.Windows.Forms.CheckBox() + Me.cb_han = New System.Windows.Forms.CheckBox() + Me.cb_jumj = New System.Windows.Forms.CheckBox() + Me.cb_jump = New System.Windows.Forms.CheckBox() + Me.cb_date = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.cb_numn = New System.Windows.Forms.CheckBox() + Me.cb_numo = New System.Windows.Forms.CheckBox() + Me.cb_jjnum = New System.Windows.Forms.CheckBox() + Me.cb_maker = New System.Windows.Forms.CheckBox() + Me.cb_mainnum = New System.Windows.Forms.CheckBox() + Me.cb_jangck = New System.Windows.Forms.CheckBox() + Me.cb_u4 = New System.Windows.Forms.CheckBox() + Me.cb_mainrow = New System.Windows.Forms.CheckBox() + Me.cb_dl = New System.Windows.Forms.CheckBox() + Me.cb_u2 = New System.Windows.Forms.CheckBox() + Me.cb_kwang = New System.Windows.Forms.CheckBox() + Me.cb_u1 = New System.Windows.Forms.CheckBox() + Me.cb_oldjun = New System.Windows.Forms.CheckBox() + Me.cb_u3 = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.cb_kwanjun = New System.Windows.Forms.CheckBox() + Me.cb_sunglo = New System.Windows.Forms.CheckBox() + Me.cb_jc1 = New System.Windows.Forms.CheckBox() + Me.cb_u5 = New System.Windows.Forms.CheckBox() + Me.cb_sunsannum = New System.Windows.Forms.CheckBox() + Me.cb_jji = New System.Windows.Forms.CheckBox() + Me.cb_man = New System.Windows.Forms.CheckBox() + Me.cb_yymm = New System.Windows.Forms.CheckBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.Label33 = New System.Windows.Forms.Label() + Me.tb_ty = New System.Windows.Forms.TextBox() + Me.Label34 = New System.Windows.Forms.Label() + Me.tb_tx = New System.Windows.Forms.TextBox() + Me.Button19 = New System.Windows.Forms.Button() + Me.cmb_connfield = New System.Windows.Forms.ComboBox() + Me.Label32 = New System.Windows.Forms.Label() + Me.gojang = New System.Windows.Forms.TextBox() + Me.Button18 = New System.Windows.Forms.Button() + Me.Button17 = New System.Windows.Forms.Button() + Me.Button16 = New System.Windows.Forms.Button() + Me.pgs = New System.Windows.Forms.PropertyGrid() + Me.Label15 = New System.Windows.Forms.Label() + Me.tb_image = New System.Windows.Forms.TextBox() + Me.Button14 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TabPage8 = New System.Windows.Forms.TabPage() + Me.Label29 = New System.Windows.Forms.Label() + Me.home4 = New System.Windows.Forms.TextBox() + Me.home3 = New System.Windows.Forms.TextBox() + Me.home2 = New System.Windows.Forms.TextBox() + Me.home1 = New System.Windows.Forms.TextBox() + Me.cboCorrectionLevel = New System.Windows.Forms.TextBox() + Me.cboVersion = New System.Windows.Forms.TextBox() + Me.cboEncoding = New System.Windows.Forms.TextBox() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.TabPage9 = New System.Windows.Forms.TabPage() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label30 = New System.Windows.Forms.Label() + Me.gita4 = New System.Windows.Forms.TextBox() + Me.gita3 = New System.Windows.Forms.TextBox() + Me.gita2 = New System.Windows.Forms.TextBox() + Me.gita1 = New System.Windows.Forms.TextBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.TB_Pattern_Start = New System.Windows.Forms.ToolStripTextBox() + Me.TB_Pattern_End = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripSplitButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.DoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfdStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_pattern_no = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_pattern_noH = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_style_manager = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_style_company = New System.Windows.Forms.ToolStripMenuItem() + Me.장척3자리ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.COS휴즈용량ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상표시찰1단ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.상표시찰2단ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.lbQrBg = New System.Windows.Forms.Panel() + Me.lbQrFG = New System.Windows.Forms.Panel() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.TabPage6.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() + Me.TabPage8.SuspendLayout() + Me.TabPage9.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.BackColor = System.Drawing.Color.White + 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_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(588, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(17, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(17, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(81, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(17, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Controls.Add(Me.TabPage8) + Me.TabControl1.Controls.Add(Me.TabPage9) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.ToolStrip2) + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 451) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 48 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_print_repeat) + Me.GroupBox3.Controls.Add(Me.rad_print_all) + Me.GroupBox3.Controls.Add(Me.rad_print_cur) + Me.GroupBox3.Controls.Add(Me.rad_print_area) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(11, 368) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(246, 78) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정" + ' + 'rad_print_repeat + ' + Me.rad_print_repeat.AutoSize = True + Me.rad_print_repeat.Location = New System.Drawing.Point(181, 20) + Me.rad_print_repeat.Name = "rad_print_repeat" + Me.rad_print_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_print_repeat.TabIndex = 6 + Me.rad_print_repeat.TabStop = True + Me.rad_print_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_print_repeat, "gfds") + Me.rad_print_repeat.UseVisualStyleBackColor = True + ' + 'rad_print_all + ' + Me.rad_print_all.AutoSize = True + Me.rad_print_all.Location = New System.Drawing.Point(8, 21) + Me.rad_print_all.Name = "rad_print_all" + Me.rad_print_all.Size = New System.Drawing.Size(83, 16) + Me.rad_print_all.TabIndex = 2 + Me.rad_print_all.TabStop = True + Me.rad_print_all.Text = "모든페이지" + Me.rad_print_all.UseVisualStyleBackColor = True + ' + 'rad_print_cur + ' + Me.rad_print_cur.AutoSize = True + Me.rad_print_cur.Checked = True + Me.rad_print_cur.Location = New System.Drawing.Point(97, 21) + Me.rad_print_cur.Name = "rad_print_cur" + Me.rad_print_cur.Size = New System.Drawing.Size(83, 16) + Me.rad_print_cur.TabIndex = 3 + Me.rad_print_cur.TabStop = True + Me.rad_print_cur.Text = "현재페이지" + Me.rad_print_cur.UseVisualStyleBackColor = True + ' + 'rad_print_area + ' + Me.rad_print_area.AutoSize = True + Me.rad_print_area.Location = New System.Drawing.Point(8, 43) + Me.rad_print_area.Name = "rad_print_area" + Me.rad_print_area.Size = New System.Drawing.Size(47, 16) + Me.rad_print_area.TabIndex = 4 + Me.rad_print_area.TabStop = True + Me.rad_print_area.Text = "범위" + Me.ToolTip1.SetToolTip(Me.rad_print_area, "gfds") + Me.rad_print_area.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.tb_repy) + Me.GroupBox2.Controls.Add(Me.tb_repx) + Me.GroupBox2.Controls.Add(Me.Label10) + Me.GroupBox2.Controls.Add(Me.tb_rep) + Me.GroupBox2.Controls.Add(Me.Label14) + Me.GroupBox2.Controls.Add(Me.Button8) + Me.GroupBox2.Controls.Add(Me.cmb_sep) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Location = New System.Drawing.Point(11, 170) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 192) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'tb_repy + ' + Me.tb_repy.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.tb_repy.Location = New System.Drawing.Point(187, 166) + Me.tb_repy.Name = "tb_repy" + Me.tb_repy.Size = New System.Drawing.Size(34, 21) + Me.tb_repy.TabIndex = 73 + Me.tb_repy.Text = "0" + Me.tb_repy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'tb_repx + ' + Me.tb_repx.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_repx.Location = New System.Drawing.Point(151, 166) + Me.tb_repx.Name = "tb_repx" + Me.tb_repx.Size = New System.Drawing.Size(34, 21) + Me.tb_repx.TabIndex = 72 + Me.tb_repx.Text = "0" + Me.tb_repx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(128, 169) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(17, 12) + Me.Label10.TabIndex = 71 + Me.Label10.Text = "회" + ' + 'tb_rep + ' + Me.tb_rep.Location = New System.Drawing.Point(90, 165) + Me.tb_rep.Name = "tb_rep" + Me.tb_rep.Size = New System.Drawing.Size(34, 21) + Me.tb_rep.TabIndex = 70 + Me.tb_rep.Text = "0" + Me.tb_rep.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(31, 169) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(53, 12) + Me.Label14.TabIndex = 69 + Me.Label14.Text = "반복출력" + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(90, 137) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장(F4)" + Me.Button8.UseVisualStyleBackColor = True + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(10, 140) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(10, 116) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(74, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 92) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 65) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 42) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 66) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 43) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 112) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 112) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.tb_top.Location = New System.Drawing.Point(48, 67) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.tb_left.Location = New System.Drawing.Point(48, 44) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 64) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 92) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 41) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 66) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 43) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 65) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 42) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 92) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(11, 18) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(245, 146) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "스타일 종류를 선택하세요.") + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.cmb_jisun) + Me.TabPage3.Controls.Add(Me.cmb_landscape) + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.Button32) + Me.TabPage3.Controls.Add(Me.Button31) + Me.TabPage3.Controls.Add(Me.Button30) + Me.TabPage3.Controls.Add(Me.Button27) + Me.TabPage3.Controls.Add(Me.Button29) + Me.TabPage3.Controls.Add(Me.Button26) + Me.TabPage3.Controls.Add(Me.Button6) + Me.TabPage3.Controls.Add(Me.Button7) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'cmb_jisun + ' + Me.cmb_jisun.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_jisun.FormattingEnabled = True + Me.cmb_jisun.Items.AddRange(New Object() {"지선주 미적용", "지선주 한줄표시", "지선주 한줄미표시"}) + Me.cmb_jisun.Location = New System.Drawing.Point(16, 52) + Me.cmb_jisun.Name = "cmb_jisun" + Me.cmb_jisun.Size = New System.Drawing.Size(239, 20) + Me.cmb_jisun.TabIndex = 59 + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(16, 17) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(239, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(16, 253) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 234) + Me.TabControl2.TabIndex = 52 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox1) + 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(231, 208) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.Label1) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Controls.Add(Me.Label3) + Me.GroupBox6.Location = New System.Drawing.Point(7, 95) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 63) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "페이지당 출력횟수" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(6, 17) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 38 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(32, 18) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(178, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(14, 43) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(53, 12) + Me.Label1.TabIndex = 34 + Me.Label1.Text = "가로거리" + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(71, 40) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(174, 40) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(117, 43) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(53, 12) + Me.Label3.TabIndex = 35 + Me.Label3.Text = "세로거리" + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.Label16) + Me.GroupBox4.Controls.Add(Me.Label17) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 50) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(44, 18) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(80, 21) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(29, 12) + Me.Label16.TabIndex = 44 + Me.Label16.Text = "세로" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(10, 22) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(29, 12) + Me.Label17.TabIndex = 43 + Me.Label17.Text = "가로" + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(108, 18) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(29, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.tb_marginy) + Me.GroupBox1.Controls.Add(Me.tb_marginx) + Me.GroupBox1.Controls.Add(Me.Label12) + Me.GroupBox1.Controls.Add(Me.Label13) + Me.GroupBox1.Location = New System.Drawing.Point(6, 6) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(219, 40) + Me.GroupBox1.TabIndex = 49 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "인쇄여백" + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(109, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(28, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(44, 14) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(80, 17) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(29, 12) + Me.Label12.TabIndex = 41 + Me.Label12.Text = "세로" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(10, 18) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(29, 12) + Me.Label13.TabIndex = 40 + Me.Label13.Text = "가로" + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label2) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 208) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(192, 126) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 71 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(2, 129) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(39, 12) + Me.Label2.TabIndex = 66 + Me.Label2.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(155, 126) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 70 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(111, 130) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 67 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(83, 125) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 69 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(46, 125) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 68 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(6, 153) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 50) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 65 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 55) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(57, 20) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(72, 16) + Me.Chk_BgImageprint.TabIndex = 27 + Me.Chk_BgImageprint.Text = "배경출력" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "인쇄시 배경을 출력합니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(6, 21) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(148, 24) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(6, 43) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(207, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(12, 20) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(195, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.PowderBlue + Me.Button32.Image = CType(resources.GetObject("Button32.Image"), System.Drawing.Image) + Me.Button32.Location = New System.Drawing.Point(212, 219) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(28, 27) + Me.Button32.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button32, "선택한 개채의 글자높이를 5pixel 감소합니다") + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.PowderBlue + Me.Button31.Image = CType(resources.GetObject("Button31.Image"), System.Drawing.Image) + Me.Button31.Location = New System.Drawing.Point(184, 219) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(28, 27) + Me.Button31.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button31, "선택한 개채의 글자높이를 5pixel 증가합니다") + Me.Button31.UseVisualStyleBackColor = False + ' + 'Button30 + ' + Me.Button30.BackColor = System.Drawing.Color.PowderBlue + Me.Button30.Image = CType(resources.GetObject("Button30.Image"), System.Drawing.Image) + Me.Button30.Location = New System.Drawing.Point(128, 219) + Me.Button30.Name = "Button30" + Me.Button30.Size = New System.Drawing.Size(28, 27) + Me.Button30.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button30, "선택한 개채의 글자너비를 5pixel 감소합니다") + Me.Button30.UseVisualStyleBackColor = False + ' + 'Button27 + ' + Me.Button27.Image = CType(resources.GetObject("Button27.Image"), System.Drawing.Image) + Me.Button27.Location = New System.Drawing.Point(100, 219) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(28, 27) + Me.Button27.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button27, "선택된 개체를 위로 5pixel 이동합니다") + Me.Button27.UseVisualStyleBackColor = True + ' + 'Button29 + ' + Me.Button29.BackColor = System.Drawing.Color.PowderBlue + Me.Button29.Image = CType(resources.GetObject("Button29.Image"), System.Drawing.Image) + Me.Button29.Location = New System.Drawing.Point(156, 219) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(28, 27) + Me.Button29.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button29, "선택한 개채의 글자너비를 5pixel 증가합니다") + Me.Button29.UseVisualStyleBackColor = False + ' + 'Button26 + ' + Me.Button26.Image = CType(resources.GetObject("Button26.Image"), System.Drawing.Image) + Me.Button26.Location = New System.Drawing.Point(72, 219) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(28, 27) + Me.Button26.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button26, "선택된 개체를 아래로 5pixel 이동합니다") + Me.Button26.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image) + Me.Button6.Location = New System.Drawing.Point(44, 219) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(28, 27) + Me.Button6.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button6, "선택된 개체를 오른쪽으로 5pixel 이동합니다") + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) + Me.Button7.Location = New System.Drawing.Point(16, 219) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(28, 27) + Me.Button7.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button7, "선택된 개체를 왼쪽으로 5pixel 이동합니다") + Me.Button7.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.DarkGray + Me.Label8.Location = New System.Drawing.Point(12, 206) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(245, 12) + Me.Label8.TabIndex = 51 + Me.Label8.Text = "----------------------------------------" + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.cb_상2단) + Me.TabPage5.Controls.Add(Me.cb_상1단) + Me.TabPage5.Controls.Add(Me.cb_휴즈용량) + Me.TabPage5.Controls.Add(Me.cb_gojang) + Me.TabPage5.Controls.Add(Me.cb_date1) + Me.TabPage5.Controls.Add(Me.cb_han) + Me.TabPage5.Controls.Add(Me.cb_jumj) + Me.TabPage5.Controls.Add(Me.cb_jump) + Me.TabPage5.Controls.Add(Me.cb_date) + Me.TabPage5.Controls.Add(Me.chk_draw) + Me.TabPage5.Controls.Add(Me.cb_numn) + Me.TabPage5.Controls.Add(Me.cb_numo) + Me.TabPage5.Controls.Add(Me.cb_jjnum) + Me.TabPage5.Controls.Add(Me.cb_maker) + Me.TabPage5.Controls.Add(Me.cb_mainnum) + Me.TabPage5.Controls.Add(Me.cb_jangck) + Me.TabPage5.Controls.Add(Me.cb_u4) + Me.TabPage5.Controls.Add(Me.cb_mainrow) + Me.TabPage5.Controls.Add(Me.cb_dl) + Me.TabPage5.Controls.Add(Me.cb_u2) + Me.TabPage5.Controls.Add(Me.cb_kwang) + Me.TabPage5.Controls.Add(Me.cb_u1) + Me.TabPage5.Controls.Add(Me.cb_oldjun) + Me.TabPage5.Controls.Add(Me.cb_u3) + Me.TabPage5.Controls.Add(Me.cb_seq) + Me.TabPage5.Controls.Add(Me.cb_kwanjun) + Me.TabPage5.Controls.Add(Me.cb_sunglo) + Me.TabPage5.Controls.Add(Me.cb_jc1) + Me.TabPage5.Controls.Add(Me.cb_u5) + Me.TabPage5.Controls.Add(Me.cb_sunsannum) + Me.TabPage5.Controls.Add(Me.cb_jji) + Me.TabPage5.Controls.Add(Me.cb_man) + Me.TabPage5.Controls.Add(Me.cb_yymm) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터표시" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'cb_상2단 + ' + Me.cb_상2단.AutoSize = True + Me.cb_상2단.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_상2단.Location = New System.Drawing.Point(134, 187) + Me.cb_상2단.Name = "cb_상2단" + Me.cb_상2단.Size = New System.Drawing.Size(90, 16) + Me.cb_상2단.TabIndex = 70 + Me.cb_상2단.Tag = "O" + Me.cb_상2단.Text = "상표시찰2단" + Me.cb_상2단.UseVisualStyleBackColor = True + ' + 'cb_상1단 + ' + Me.cb_상1단.AutoSize = True + Me.cb_상1단.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_상1단.Location = New System.Drawing.Point(134, 165) + Me.cb_상1단.Name = "cb_상1단" + Me.cb_상1단.Size = New System.Drawing.Size(90, 16) + Me.cb_상1단.TabIndex = 69 + Me.cb_상1단.Tag = "O" + Me.cb_상1단.Text = "상표시찰1단" + Me.cb_상1단.UseVisualStyleBackColor = True + ' + 'cb_휴즈용량 + ' + Me.cb_휴즈용량.AutoSize = True + Me.cb_휴즈용량.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_휴즈용량.Location = New System.Drawing.Point(134, 143) + Me.cb_휴즈용량.Name = "cb_휴즈용량" + Me.cb_휴즈용량.Size = New System.Drawing.Size(98, 16) + Me.cb_휴즈용량.TabIndex = 68 + Me.cb_휴즈용량.Tag = "O" + Me.cb_휴즈용량.Text = "COS휴즈용량" + Me.cb_휴즈용량.UseVisualStyleBackColor = True + ' + 'cb_gojang + ' + Me.cb_gojang.AutoSize = True + Me.cb_gojang.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_gojang.Location = New System.Drawing.Point(134, 121) + Me.cb_gojang.Name = "cb_gojang" + Me.cb_gojang.Size = New System.Drawing.Size(76, 16) + Me.cb_gojang.TabIndex = 67 + Me.cb_gojang.Tag = "O" + Me.cb_gojang.Text = "고장신고" + Me.cb_gojang.UseVisualStyleBackColor = True + ' + 'cb_date1 + ' + Me.cb_date1.AutoSize = True + Me.cb_date1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.cb_date1.Location = New System.Drawing.Point(134, 97) + Me.cb_date1.Name = "cb_date1" + Me.cb_date1.Size = New System.Drawing.Size(50, 19) + Me.cb_date1.TabIndex = 66 + Me.cb_date1.Tag = "HI" + Me.cb_date1.Text = "점검" + Me.cb_date1.UseVisualStyleBackColor = True + ' + 'cb_han + ' + Me.cb_han.AutoSize = True + Me.cb_han.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_han.Location = New System.Drawing.Point(136, 266) + Me.cb_han.Name = "cb_han" + Me.cb_han.Size = New System.Drawing.Size(76, 16) + Me.cb_han.TabIndex = 65 + Me.cb_han.Tag = "O" + Me.cb_han.Text = "한국전력" + Me.cb_han.UseVisualStyleBackColor = True + Me.cb_han.Visible = False + ' + 'cb_jumj + ' + Me.cb_jumj.AutoSize = True + Me.cb_jumj.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jumj.Location = New System.Drawing.Point(136, 244) + Me.cb_jumj.Name = "cb_jumj" + Me.cb_jumj.Size = New System.Drawing.Size(63, 16) + Me.cb_jumj.TabIndex = 64 + Me.cb_jumj.Tag = "O" + Me.cb_jumj.Text = "점검자" + Me.cb_jumj.UseVisualStyleBackColor = True + Me.cb_jumj.Visible = False + ' + 'cb_jump + ' + Me.cb_jump.AutoSize = True + Me.cb_jump.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jump.Location = New System.Drawing.Point(136, 222) + Me.cb_jump.Name = "cb_jump" + Me.cb_jump.Size = New System.Drawing.Size(63, 16) + Me.cb_jump.TabIndex = 63 + Me.cb_jump.Tag = "O" + Me.cb_jump.Text = "점검필" + Me.cb_jump.UseVisualStyleBackColor = True + Me.cb_jump.Visible = False + ' + 'cb_date + ' + Me.cb_date.AutoSize = True + Me.cb_date.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.cb_date.Location = New System.Drawing.Point(134, 76) + Me.cb_date.Name = "cb_date" + Me.cb_date.Size = New System.Drawing.Size(74, 19) + Me.cb_date.TabIndex = 62 + Me.cb_date.Tag = "O" + Me.cb_date.Text = "점검일자" + Me.cb_date.UseVisualStyleBackColor = True + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(134, 55) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(65, 19) + Me.chk_draw.TabIndex = 57 + Me.chk_draw.Tag = "ZZ" + Me.chk_draw.Text = "선,도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'cb_numn + ' + Me.cb_numn.AutoSize = True + Me.cb_numn.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_numn.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_numn.Location = New System.Drawing.Point(134, 34) + Me.cb_numn.Name = "cb_numn" + Me.cb_numn.Size = New System.Drawing.Size(110, 19) + Me.cb_numn.TabIndex = 55 + Me.cb_numn.Tag = "W" + Me.cb_numn.Text = "신선로전주번호" + Me.cb_numn.UseVisualStyleBackColor = True + ' + 'cb_numo + ' + Me.cb_numo.AutoSize = True + Me.cb_numo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_numo.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_numo.Location = New System.Drawing.Point(134, 13) + Me.cb_numo.Name = "cb_numo" + Me.cb_numo.Size = New System.Drawing.Size(110, 19) + Me.cb_numo.TabIndex = 55 + Me.cb_numo.Tag = "V" + Me.cb_numo.Text = "구선로전주번호" + Me.ToolTip1.SetToolTip(Me.cb_numo, "선택시 화면에 [구관리구,전산화번호] 가 표시됩니다") + Me.cb_numo.UseVisualStyleBackColor = True + ' + 'cb_jjnum + ' + Me.cb_jjnum.AutoSize = True + Me.cb_jjnum.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jjnum.Location = New System.Drawing.Point(15, 139) + Me.cb_jjnum.Name = "cb_jjnum" + Me.cb_jjnum.Size = New System.Drawing.Size(76, 16) + Me.cb_jjnum.TabIndex = 3 + Me.cb_jjnum.Tag = "X" + Me.cb_jjnum.Text = "전주번호" + Me.cb_jjnum.UseVisualStyleBackColor = True + ' + 'cb_maker + ' + Me.cb_maker.AutoSize = True + Me.cb_maker.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_maker.Location = New System.Drawing.Point(15, 223) + Me.cb_maker.Name = "cb_maker" + Me.cb_maker.Size = New System.Drawing.Size(63, 16) + Me.cb_maker.TabIndex = 5 + Me.cb_maker.Tag = "C" + Me.cb_maker.Text = "시공자" + Me.cb_maker.UseVisualStyleBackColor = True + ' + 'cb_mainnum + ' + Me.cb_mainnum.AutoSize = True + Me.cb_mainnum.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_mainnum.ForeColor = System.Drawing.Color.Black + Me.cb_mainnum.Location = New System.Drawing.Point(15, 97) + Me.cb_mainnum.Name = "cb_mainnum" + Me.cb_mainnum.Size = New System.Drawing.Size(102, 16) + Me.cb_mainnum.TabIndex = 54 + Me.cb_mainnum.Tag = "G" + Me.cb_mainnum.Text = "본주전주번호" + Me.cb_mainnum.UseVisualStyleBackColor = True + ' + 'cb_jangck + ' + Me.cb_jangck.AutoSize = True + Me.cb_jangck.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jangck.Location = New System.Drawing.Point(15, 160) + Me.cb_jangck.Name = "cb_jangck" + Me.cb_jangck.Size = New System.Drawing.Size(50, 16) + Me.cb_jangck.TabIndex = 4 + Me.cb_jangck.Tag = "J" + Me.cb_jangck.Text = "장척" + Me.cb_jangck.UseVisualStyleBackColor = True + ' + 'cb_u4 + ' + Me.cb_u4.AutoSize = True + Me.cb_u4.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u4.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u4.Location = New System.Drawing.Point(15, 437) + Me.cb_u4.Name = "cb_u4" + Me.cb_u4.Size = New System.Drawing.Size(57, 16) + Me.cb_u4.TabIndex = 29 + Me.cb_u4.Tag = "D" + Me.cb_u4.Text = "문자4" + Me.ToolTip1.SetToolTip(Me.cb_u4, "사용자 정의 문자열 입니다") + Me.cb_u4.UseVisualStyleBackColor = True + ' + 'cb_mainrow + ' + Me.cb_mainrow.AutoSize = True + Me.cb_mainrow.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_mainrow.ForeColor = System.Drawing.Color.Black + Me.cb_mainrow.Location = New System.Drawing.Point(15, 76) + Me.cb_mainrow.Name = "cb_mainrow" + Me.cb_mainrow.Size = New System.Drawing.Size(76, 16) + Me.cb_mainrow.TabIndex = 53 + Me.cb_mainrow.Tag = "G" + Me.cb_mainrow.Text = "본주번호" + Me.cb_mainrow.UseVisualStyleBackColor = True + ' + 'cb_dl + ' + Me.cb_dl.AutoSize = True + Me.cb_dl.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cb_dl.Location = New System.Drawing.Point(15, 181) + Me.cb_dl.Name = "cb_dl" + Me.cb_dl.Size = New System.Drawing.Size(50, 16) + Me.cb_dl.TabIndex = 49 + Me.cb_dl.Tag = "K" + Me.cb_dl.Text = "비고" + Me.cb_dl.UseVisualStyleBackColor = True + ' + 'cb_u2 + ' + Me.cb_u2.AutoSize = True + Me.cb_u2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u2.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u2.Location = New System.Drawing.Point(15, 416) + Me.cb_u2.Name = "cb_u2" + Me.cb_u2.Size = New System.Drawing.Size(57, 16) + Me.cb_u2.TabIndex = 27 + Me.cb_u2.Tag = "A" + Me.cb_u2.Text = "문자2" + Me.ToolTip1.SetToolTip(Me.cb_u2, "사용자 정의 문자열 입니다") + Me.cb_u2.UseVisualStyleBackColor = True + ' + 'cb_kwang + ' + Me.cb_kwang.AutoSize = True + Me.cb_kwang.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cb_kwang.Location = New System.Drawing.Point(15, 202) + Me.cb_kwang.Name = "cb_kwang" + Me.cb_kwang.Size = New System.Drawing.Size(63, 16) + Me.cb_kwang.TabIndex = 0 + Me.cb_kwang.Tag = "H" + Me.cb_kwang.Text = "관리구" + Me.cb_kwang.UseVisualStyleBackColor = True + ' + 'cb_u1 + ' + Me.cb_u1.AutoSize = True + Me.cb_u1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u1.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u1.Location = New System.Drawing.Point(15, 395) + Me.cb_u1.Name = "cb_u1" + Me.cb_u1.Size = New System.Drawing.Size(57, 16) + Me.cb_u1.TabIndex = 26 + Me.cb_u1.Tag = "U" + Me.cb_u1.Text = "문자1" + Me.ToolTip1.SetToolTip(Me.cb_u1, "사용자 정의 문자열 입니다") + Me.cb_u1.UseVisualStyleBackColor = True + ' + 'cb_oldjun + ' + Me.cb_oldjun.AutoSize = True + Me.cb_oldjun.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_oldjun.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_oldjun.Location = New System.Drawing.Point(15, 34) + Me.cb_oldjun.Name = "cb_oldjun" + Me.cb_oldjun.Size = New System.Drawing.Size(89, 16) + Me.cb_oldjun.TabIndex = 10 + Me.cb_oldjun.Tag = "O" + Me.cb_oldjun.Text = "구관리전산" + Me.ToolTip1.SetToolTip(Me.cb_oldjun, "선택시 화면에 [구관리구,전산화번호] 가 표시됩니다") + Me.cb_oldjun.UseVisualStyleBackColor = True + ' + 'cb_u3 + ' + Me.cb_u3.AutoSize = True + Me.cb_u3.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u3.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u3.Location = New System.Drawing.Point(15, 374) + Me.cb_u3.Name = "cb_u3" + Me.cb_u3.Size = New System.Drawing.Size(57, 16) + Me.cb_u3.TabIndex = 28 + Me.cb_u3.Tag = "B" + Me.cb_u3.Text = "문자3" + Me.ToolTip1.SetToolTip(Me.cb_u3, "사용자 정의 문자열 입니다") + Me.cb_u3.UseVisualStyleBackColor = True + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(15, 13) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(76, 16) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'cb_kwanjun + ' + Me.cb_kwanjun.AutoSize = True + Me.cb_kwanjun.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_kwanjun.ForeColor = System.Drawing.Color.Black + Me.cb_kwanjun.Location = New System.Drawing.Point(15, 55) + Me.cb_kwanjun.Name = "cb_kwanjun" + Me.cb_kwanjun.Size = New System.Drawing.Size(76, 16) + Me.cb_kwanjun.TabIndex = 11 + Me.cb_kwanjun.Tag = "G" + Me.cb_kwanjun.Text = "관리전산" + Me.cb_kwanjun.UseVisualStyleBackColor = True + ' + 'cb_sunglo + ' + Me.cb_sunglo.AutoSize = True + Me.cb_sunglo.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_sunglo.Location = New System.Drawing.Point(15, 244) + Me.cb_sunglo.Name = "cb_sunglo" + Me.cb_sunglo.Size = New System.Drawing.Size(63, 16) + Me.cb_sunglo.TabIndex = 2 + Me.cb_sunglo.Tag = "L" + Me.cb_sunglo.Text = "선로명" + Me.cb_sunglo.UseVisualStyleBackColor = True + ' + 'cb_jc1 + ' + Me.cb_jc1.AutoSize = True + Me.cb_jc1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jc1.ForeColor = System.Drawing.Color.Red + Me.cb_jc1.Location = New System.Drawing.Point(15, 114) + Me.cb_jc1.Name = "cb_jc1" + Me.cb_jc1.Size = New System.Drawing.Size(81, 19) + Me.cb_jc1.TabIndex = 50 + Me.cb_jc1.Tag = "G" + Me.cb_jc1.Text = "장척3자리" + Me.ToolTip1.SetToolTip(Me.cb_jc1, "기타 스타일입니다. 어떤 스타일및 패턴보다 우선시됩니다") + Me.cb_jc1.UseVisualStyleBackColor = True + Me.cb_jc1.Visible = False + ' + 'cb_u5 + ' + Me.cb_u5.AutoSize = True + Me.cb_u5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u5.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u5.Location = New System.Drawing.Point(15, 353) + Me.cb_u5.Name = "cb_u5" + Me.cb_u5.Size = New System.Drawing.Size(57, 16) + Me.cb_u5.TabIndex = 30 + Me.cb_u5.Tag = "E" + Me.cb_u5.Text = "문자5" + Me.ToolTip1.SetToolTip(Me.cb_u5, "사용자 정의 문자열 입니다") + Me.cb_u5.UseVisualStyleBackColor = True + ' + 'cb_sunsannum + ' + Me.cb_sunsannum.AutoSize = True + Me.cb_sunsannum.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_sunsannum.Location = New System.Drawing.Point(15, 265) + Me.cb_sunsannum.Name = "cb_sunsannum" + Me.cb_sunsannum.Size = New System.Drawing.Size(76, 16) + Me.cb_sunsannum.TabIndex = 1 + Me.cb_sunsannum.Tag = "S" + Me.cb_sunsannum.Text = "전산번호" + Me.cb_sunsannum.UseVisualStyleBackColor = True + ' + 'cb_jji + ' + Me.cb_jji.AutoSize = True + Me.cb_jji.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jji.Location = New System.Drawing.Point(15, 328) + Me.cb_jji.Name = "cb_jji" + Me.cb_jji.Size = New System.Drawing.Size(50, 16) + Me.cb_jji.TabIndex = 7 + Me.cb_jji.Tag = "Z" + Me.cb_jji.Text = "접지" + Me.cb_jji.UseVisualStyleBackColor = True + ' + 'cb_man + ' + Me.cb_man.AutoSize = True + Me.cb_man.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_man.Location = New System.Drawing.Point(15, 286) + Me.cb_man.Name = "cb_man" + Me.cb_man.Size = New System.Drawing.Size(63, 16) + Me.cb_man.TabIndex = 8 + Me.cb_man.Tag = "M" + Me.cb_man.Text = "감독자" + Me.cb_man.UseVisualStyleBackColor = True + ' + 'cb_yymm + ' + Me.cb_yymm.AutoSize = True + Me.cb_yymm.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_yymm.Location = New System.Drawing.Point(15, 307) + Me.cb_yymm.Name = "cb_yymm" + Me.cb_yymm.Size = New System.Drawing.Size(76, 16) + Me.cb_yymm.TabIndex = 6 + Me.cb_yymm.Tag = "Y" + Me.cb_yymm.Text = "시공년월" + Me.cb_yymm.UseVisualStyleBackColor = True + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.dataview) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "데이터" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1, Row 0, Column 0, " + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 17 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "신전산화번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 5).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 15).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 15).Value = "접지" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "선로명B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "A1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "A2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "A3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "A4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "A5" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "장척" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "시공년월" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "시공자" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "D/L명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "1A" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "2A" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 28.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType5.DecimalPlaces = 0 + NumberCellType5.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType5 + Me.dataview_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.dataview_Sheet1.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.Columns.Get(1).AllowAutoSort = True + NumberCellType6.DecimalPlaces = 0 + NumberCellType6.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(1).CellType = NumberCellType6 + Me.dataview_Sheet1.Columns.Get(1).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 71.0! + TextCellType31.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType31.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType31 + Me.dataview_Sheet1.Columns.Get(2).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "관리구B" + Me.dataview_Sheet1.Columns.Get(2).Tag = "관리구" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 78.0! + TextCellType32.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType32.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType32 + Me.dataview_Sheet1.Columns.Get(3).DataField = "전주번호" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Label = "번호B" + Me.dataview_Sheet1.Columns.Get(3).Tag = "전산화번호" + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType33 + Me.dataview_Sheet1.Columns.Get(4).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Label = "선로명B" + Me.dataview_Sheet1.Columns.Get(4).Tag = "선로명" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 96.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType34.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType34 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(5).Label = "A1" + Me.dataview_Sheet1.Columns.Get(5).Tag = "번호1" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 87.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType35.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType35 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(6).Label = "A2" + Me.dataview_Sheet1.Columns.Get(6).Tag = "번호2" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType36.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType36 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(7).Label = "A3" + Me.dataview_Sheet1.Columns.Get(7).Tag = "번호3" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType37.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType37 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.dataview_Sheet1.Columns.Get(8).Label = "A4" + Me.dataview_Sheet1.Columns.Get(8).Tag = "번호4" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType38.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType38 + Me.dataview_Sheet1.Columns.Get(9).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(9).Label = "A5" + Me.dataview_Sheet1.Columns.Get(9).Tag = "번호5" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 50.0! + TextCellType39.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType39 + Me.dataview_Sheet1.Columns.Get(10).DataField = "장척" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "장척" + Me.dataview_Sheet1.Columns.Get(10).Tag = "장척" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 44.0! + TextCellType40.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.Numeric + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType40 + Me.dataview_Sheet1.Columns.Get(11).DataField = "시공년월" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "시공년월" + Me.dataview_Sheet1.Columns.Get(11).Locked = False + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 69.0! + Me.dataview_Sheet1.Columns.Get(12).CellType = TextCellType41 + Me.dataview_Sheet1.Columns.Get(12).DataField = "시공자" + Me.dataview_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Label = "시공자" + Me.dataview_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(13).CellType = TextCellType42 + Me.dataview_Sheet1.Columns.Get(13).DataField = "감독자" + Me.dataview_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Tag = "감독자" + Me.dataview_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Width = 54.0! + Me.dataview_Sheet1.Columns.Get(14).CellType = TextCellType43 + Me.dataview_Sheet1.Columns.Get(14).DataField = "DL명" + Me.dataview_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Label = "D/L명" + Me.dataview_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Width = 48.0! + Me.dataview_Sheet1.Columns.Get(15).CellType = TextCellType44 + Me.dataview_Sheet1.Columns.Get(15).DataField = "접지저항1" + Me.dataview_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(15).Label = "1A" + Me.dataview_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(15).Width = 58.0! + Me.dataview_Sheet1.Columns.Get(16).CellType = TextCellType45 + Me.dataview_Sheet1.Columns.Get(16).DataField = "접지저항2" + Me.dataview_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(16).Label = "2A" + Me.dataview_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.PrintInfo.ShowGrid = False + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.Label33) + Me.TabPage7.Controls.Add(Me.tb_ty) + Me.TabPage7.Controls.Add(Me.Label34) + Me.TabPage7.Controls.Add(Me.tb_tx) + Me.TabPage7.Controls.Add(Me.Button19) + Me.TabPage7.Controls.Add(Me.cmb_connfield) + Me.TabPage7.Controls.Add(Me.Label32) + Me.TabPage7.Controls.Add(Me.gojang) + Me.TabPage7.Controls.Add(Me.Button18) + Me.TabPage7.Controls.Add(Me.Button17) + Me.TabPage7.Controls.Add(Me.Button16) + Me.TabPage7.Controls.Add(Me.pgs) + Me.TabPage7.Controls.Add(Me.Label15) + Me.TabPage7.Controls.Add(Me.tb_image) + Me.TabPage7.Controls.Add(Me.Button14) + Me.TabPage7.Controls.Add(Me.Label6) + Me.TabPage7.Controls.Add(Me.tb_dw) + Me.TabPage7.Controls.Add(Me.tb_dh) + Me.TabPage7.Controls.Add(Me.Label7) + Me.TabPage7.Controls.Add(Me.Button2) + Me.TabPage7.Controls.Add(Me.Label5) + Me.TabPage7.Controls.Add(Me.tb_dy) + Me.TabPage7.Controls.Add(Me.Label9) + Me.TabPage7.Controls.Add(Me.tb_pensize) + Me.TabPage7.Controls.Add(Me.tb_dx) + Me.TabPage7.Controls.Add(Me.bt_pencolor) + Me.TabPage7.Controls.Add(Me.Button15) + Me.TabPage7.Controls.Add(Me.Button13) + Me.TabPage7.Controls.Add(Me.ListBox1) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "선 및 도형" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(23, 212) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(21, 12) + Me.Label33.TabIndex = 120 + Me.Label33.Text = "TX" + ' + 'tb_ty + ' + Me.tb_ty.Location = New System.Drawing.Point(58, 227) + Me.tb_ty.Name = "tb_ty" + Me.tb_ty.Size = New System.Drawing.Size(35, 21) + Me.tb_ty.TabIndex = 119 + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(63, 212) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(21, 12) + Me.Label34.TabIndex = 121 + Me.Label34.Text = "TY" + ' + 'tb_tx + ' + Me.tb_tx.Location = New System.Drawing.Point(17, 227) + Me.tb_tx.Name = "tb_tx" + Me.tb_tx.Size = New System.Drawing.Size(35, 21) + Me.tb_tx.TabIndex = 118 + ' + 'Button19 + ' + Me.Button19.Location = New System.Drawing.Point(17, 44) + Me.Button19.Name = "Button19" + Me.Button19.Size = New System.Drawing.Size(75, 25) + Me.Button19.TabIndex = 114 + Me.Button19.Text = "화살표" + Me.Button19.UseVisualStyleBackColor = True + ' + 'cmb_connfield + ' + Me.cmb_connfield.FormattingEnabled = True + Me.cmb_connfield.Items.AddRange(New Object() {"", "COS휴즈용량", "상표시찰1단", "상표시찰2단", "점검일자", "선로(전방)", "선로(좌측)", "선로(우측)"}) + Me.cmb_connfield.Location = New System.Drawing.Point(168, 184) + Me.cmb_connfield.Name = "cmb_connfield" + Me.cmb_connfield.Size = New System.Drawing.Size(88, 20) + Me.cmb_connfield.TabIndex = 112 + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(170, 166) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(29, 12) + Me.Label32.TabIndex = 111 + Me.Label32.Text = "연결" + ' + 'gojang + ' + Me.gojang.Location = New System.Drawing.Point(16, 280) + Me.gojang.Name = "gojang" + Me.gojang.Size = New System.Drawing.Size(238, 21) + Me.gojang.TabIndex = 109 + Me.gojang.Text = "고장신고도 스마트하게" + ' + 'Button18 + ' + Me.Button18.Location = New System.Drawing.Point(176, 44) + Me.Button18.Name = "Button18" + Me.Button18.Size = New System.Drawing.Size(51, 25) + Me.Button18.TabIndex = 108 + Me.Button18.Text = "RQR1" + Me.Button18.UseVisualStyleBackColor = True + ' + 'Button17 + ' + Me.Button17.Location = New System.Drawing.Point(135, 44) + Me.Button17.Name = "Button17" + Me.Button17.Size = New System.Drawing.Size(40, 25) + Me.Button17.TabIndex = 107 + Me.Button17.Text = "QR" + Me.Button17.UseVisualStyleBackColor = True + ' + 'Button16 + ' + Me.Button16.Location = New System.Drawing.Point(94, 44) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(40, 25) + Me.Button16.TabIndex = 106 + Me.Button16.Text = "그림" + Me.Button16.UseVisualStyleBackColor = True + ' + 'pgs + ' + Me.pgs.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText + Me.pgs.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.pgs.Location = New System.Drawing.Point(3, 306) + Me.pgs.Name = "pgs" + Me.pgs.Size = New System.Drawing.Size(265, 184) + Me.pgs.TabIndex = 105 + Me.pgs.ToolbarVisible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(198, 238) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(53, 12) + Me.Label15.TabIndex = 104 + Me.Label15.Text = "파일위치" + ' + 'tb_image + ' + Me.tb_image.Location = New System.Drawing.Point(16, 253) + Me.tb_image.Name = "tb_image" + Me.tb_image.Size = New System.Drawing.Size(238, 21) + Me.tb_image.TabIndex = 103 + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(176, 13) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(40, 25) + Me.Button14.TabIndex = 31 + Me.Button14.Text = "원" + Me.Button14.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(136, 166) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(92, 183) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(130, 183) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(101, 166) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(216, 13) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(40, 25) + Me.Button2.TabIndex = 30 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(29, 166) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(55, 183) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(66, 166) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(13, 12) + Me.Label9.TabIndex = 12 + Me.Label9.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(57, 17) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(35, 21) + Me.tb_pensize.TabIndex = 28 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(17, 183) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(16, 13) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(36, 27) + Me.bt_pencolor.TabIndex = 27 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(135, 13) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(40, 25) + Me.Button15.TabIndex = 26 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(94, 13) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(40, 25) + Me.Button13.TabIndex = 25 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(16, 73) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(235, 88) + Me.ListBox1.TabIndex = 24 + ' + 'TabPage8 + ' + Me.TabPage8.Controls.Add(Me.lbQrFG) + Me.TabPage8.Controls.Add(Me.lbQrBg) + Me.TabPage8.Controls.Add(Me.LinkLabel2) + Me.TabPage8.Controls.Add(Me.LinkLabel1) + Me.TabPage8.Controls.Add(Me.Label29) + Me.TabPage8.Controls.Add(Me.home4) + Me.TabPage8.Controls.Add(Me.home3) + Me.TabPage8.Controls.Add(Me.home2) + Me.TabPage8.Controls.Add(Me.home1) + Me.TabPage8.Controls.Add(Me.cboCorrectionLevel) + Me.TabPage8.Controls.Add(Me.cboVersion) + Me.TabPage8.Controls.Add(Me.cboEncoding) + Me.TabPage8.Controls.Add(Me.Label28) + Me.TabPage8.Controls.Add(Me.Label27) + Me.TabPage8.Controls.Add(Me.Label26) + Me.TabPage8.Controls.Add(Me.Label25) + Me.TabPage8.Controls.Add(Me.Label24) + Me.TabPage8.Controls.Add(Me.Label23) + Me.TabPage8.Controls.Add(Me.Label22) + Me.TabPage8.Controls.Add(Me.Label21) + Me.TabPage8.Controls.Add(Me.Label20) + Me.TabPage8.Controls.Add(Me.Label19) + Me.TabPage8.Controls.Add(Me.Label18) + Me.TabPage8.Location = New System.Drawing.Point(4, 22) + Me.TabPage8.Name = "TabPage8" + Me.TabPage8.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage8.Size = New System.Drawing.Size(271, 493) + Me.TabPage8.TabIndex = 5 + Me.TabPage8.Text = "QR코드속성" + Me.TabPage8.UseVisualStyleBackColor = True + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(23, 341) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(101, 12) + Me.Label29.TabIndex = 28 + Me.Label29.Text = "홈페이지주소설정" + ' + 'home4 + ' + Me.home4.Location = New System.Drawing.Point(20, 445) + Me.home4.Name = "home4" + Me.home4.Size = New System.Drawing.Size(231, 21) + Me.home4.TabIndex = 27 + Me.home4.Text = "report.jsp?location" + ' + 'home3 + ' + Me.home3.Location = New System.Drawing.Point(20, 418) + Me.home3.Name = "home3" + Me.home3.Size = New System.Drawing.Size(231, 21) + Me.home3.TabIndex = 26 + Me.home3.Text = "mjeonbuk" + ' + 'home2 + ' + Me.home2.Location = New System.Drawing.Point(20, 391) + Me.home2.Name = "home2" + Me.home2.Size = New System.Drawing.Size(231, 21) + Me.home2.TabIndex = 25 + Me.home2.Text = "jeonbuk" + ' + 'home1 + ' + Me.home1.Location = New System.Drawing.Point(20, 364) + Me.home1.Name = "home1" + Me.home1.Size = New System.Drawing.Size(231, 21) + Me.home1.TabIndex = 24 + Me.home1.Text = "http://cyber.kepco.co.kr" + ' + 'cboCorrectionLevel + ' + Me.cboCorrectionLevel.Location = New System.Drawing.Point(127, 157) + Me.cboCorrectionLevel.Name = "cboCorrectionLevel" + Me.cboCorrectionLevel.Size = New System.Drawing.Size(59, 21) + Me.cboCorrectionLevel.TabIndex = 23 + Me.cboCorrectionLevel.Text = "1" + ' + 'cboVersion + ' + Me.cboVersion.Location = New System.Drawing.Point(86, 99) + Me.cboVersion.Name = "cboVersion" + Me.cboVersion.Size = New System.Drawing.Size(100, 21) + Me.cboVersion.TabIndex = 22 + Me.cboVersion.Text = "1" + ' + 'cboEncoding + ' + Me.cboEncoding.Location = New System.Drawing.Point(86, 17) + Me.cboEncoding.Name = "cboEncoding" + Me.cboEncoding.Size = New System.Drawing.Size(100, 21) + Me.cboEncoding.TabIndex = 21 + Me.cboEncoding.Text = "3" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(149, 216) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(23, 12) + Me.Label28.TabIndex = 20 + Me.Label28.Text = "4.H" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(87, 216) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(24, 12) + Me.Label27.TabIndex = 19 + Me.Label27.Text = "3.Q" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(149, 195) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(26, 12) + Me.Label26.TabIndex = 18 + Me.Label26.Text = "2.M" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(87, 195) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(56, 12) + Me.Label25.TabIndex = 17 + Me.Label25.Text = "1.L(모두)" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(87, 131) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(60, 12) + Me.Label24.TabIndex = 16 + Me.Label24.Text = "1~40 선택" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(87, 78) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(78, 12) + Me.Label23.TabIndex = 15 + Me.Label23.Text = "3. Byte(모두)" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(87, 62) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(101, 12) + Me.Label22.TabIndex = 14 + Me.Label22.Text = "2. Numeric(숫자)" + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(87, 46) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(157, 12) + Me.Label21.TabIndex = 13 + Me.Label21.Text = "1. AlphaNumeric(영문숫자)" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(22, 161) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(97, 12) + Me.Label20.TabIndex = 11 + Me.Label20.Text = "Correction Level" + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(24, 102) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(48, 12) + Me.Label19.TabIndex = 7 + Me.Label19.Text = "Version" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(14, 22) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(58, 12) + Me.Label18.TabIndex = 5 + Me.Label18.Text = "Encoding" + ' + 'TabPage9 + ' + Me.TabPage9.Controls.Add(Me.Label31) + Me.TabPage9.Controls.Add(Me.Label30) + Me.TabPage9.Controls.Add(Me.gita4) + Me.TabPage9.Controls.Add(Me.gita3) + Me.TabPage9.Controls.Add(Me.gita2) + Me.TabPage9.Controls.Add(Me.gita1) + Me.TabPage9.Location = New System.Drawing.Point(4, 22) + Me.TabPage9.Name = "TabPage9" + Me.TabPage9.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage9.Size = New System.Drawing.Size(271, 493) + Me.TabPage9.TabIndex = 6 + Me.TabPage9.Text = "QR코드기타" + Me.TabPage9.UseVisualStyleBackColor = True + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(19, 160) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(191, 12) + Me.Label31.TabIndex = 33 + Me.Label31.Text = "많은 양의 data변환은 error의 원인" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Font = New System.Drawing.Font("굴림", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label30.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.Label30.Location = New System.Drawing.Point(21, 18) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(117, 16) + Me.Label30.TabIndex = 32 + Me.Label30.Text = "RQR1번용 설정" + ' + 'gita4 + ' + Me.gita4.Location = New System.Drawing.Point(16, 129) + Me.gita4.Name = "gita4" + Me.gita4.Size = New System.Drawing.Size(231, 21) + Me.gita4.TabIndex = 31 + ' + 'gita3 + ' + Me.gita3.Location = New System.Drawing.Point(16, 102) + Me.gita3.Name = "gita3" + Me.gita3.Size = New System.Drawing.Size(231, 21) + Me.gita3.TabIndex = 30 + ' + 'gita2 + ' + Me.gita2.Location = New System.Drawing.Point(16, 75) + Me.gita2.Name = "gita2" + Me.gita2.Size = New System.Drawing.Size(231, 21) + Me.gita2.TabIndex = 29 + ' + 'gita1 + ' + Me.gita1.Location = New System.Drawing.Point(16, 48) + Me.gita1.Name = "gita1" + Me.gita1.Size = New System.Drawing.Size(231, 21) + Me.gita1.TabIndex = 28 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Enabled = False + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(194, 22) + Me.cm_styleedit.Text = "스타일 편집(사용불가)" + ' + 'BindingSource1 + ' + Me.BindingSource1.AllowNew = False + Me.BindingSource1.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + '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.Absolute, 21.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 93.79311!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(276, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(21, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(276, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.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.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(1, 2) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(271, 479) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.TB_Pattern_Start, Me.TB_Pattern_End, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripLabel2, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(588, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(41, 27) + Me.ToolStripLabel4.Text = "▶검사" + ' + 'TB_Pattern_Start + ' + Me.TB_Pattern_Start.BackColor = System.Drawing.Color.LightBlue + Me.TB_Pattern_Start.Name = "TB_Pattern_Start" + Me.TB_Pattern_Start.Size = New System.Drawing.Size(40, 30) + Me.TB_Pattern_Start.Text = "0" + Me.TB_Pattern_Start.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'TB_Pattern_End + ' + Me.TB_Pattern_End.BackColor = System.Drawing.Color.LightBlue + Me.TB_Pattern_End.Name = "TB_Pattern_End" + Me.TB_Pattern_End.Size = New System.Drawing.Size(40, 30) + Me.TB_Pattern_End.Text = "0" + Me.TB_Pattern_End.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(68, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(99, 27) + Me.ToolStripLabel2.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DoolStripMenuItem, Me.gfdStripMenuItem, Me.bt_pattern_no, Me.bt_pattern_noH, Me.bt_style_manager, Me.bt_style_company, Me.장척3자리ToolStripMenuItem, Me.COS휴즈용량ToolStripMenuItem, Me.상표시찰1단ToolStripMenuItem, Me.상표시찰2단ToolStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.Green + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(83, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'DoolStripMenuItem + ' + Me.DoolStripMenuItem.Name = "DoolStripMenuItem" + Me.DoolStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.DoolStripMenuItem.Text = "비고명" + ' + 'gfdStripMenuItem + ' + Me.gfdStripMenuItem.Name = "gfdStripMenuItem" + Me.gfdStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.gfdStripMenuItem.Text = "선로명" + ' + 'bt_pattern_no + ' + Me.bt_pattern_no.Name = "bt_pattern_no" + Me.bt_pattern_no.Size = New System.Drawing.Size(218, 22) + Me.bt_pattern_no.Text = "전주번호(H가 없는 경우)" + ' + 'bt_pattern_noH + ' + Me.bt_pattern_noH.Name = "bt_pattern_noH" + Me.bt_pattern_noH.Size = New System.Drawing.Size(218, 22) + Me.bt_pattern_noH.Text = "전주번호(H가 있는 경우)" + ' + 'bt_style_manager + ' + Me.bt_style_manager.Name = "bt_style_manager" + Me.bt_style_manager.Size = New System.Drawing.Size(218, 22) + Me.bt_style_manager.Text = "감독자" + ' + 'bt_style_company + ' + Me.bt_style_company.Name = "bt_style_company" + Me.bt_style_company.Size = New System.Drawing.Size(218, 22) + Me.bt_style_company.Text = "시공자" + ' + '장척3자리ToolStripMenuItem + ' + Me.장척3자리ToolStripMenuItem.Name = "장척3자리ToolStripMenuItem" + Me.장척3자리ToolStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.장척3자리ToolStripMenuItem.Text = "장척" + ' + 'COS휴즈용량ToolStripMenuItem + ' + Me.COS휴즈용량ToolStripMenuItem.Name = "COS휴즈용량ToolStripMenuItem" + Me.COS휴즈용량ToolStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.COS휴즈용량ToolStripMenuItem.Text = "COS휴즈용량" + ' + '상표시찰1단ToolStripMenuItem + ' + Me.상표시찰1단ToolStripMenuItem.Name = "상표시찰1단ToolStripMenuItem" + Me.상표시찰1단ToolStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.상표시찰1단ToolStripMenuItem.Text = "상표시찰1단" + ' + '상표시찰2단ToolStripMenuItem + ' + Me.상표시찰2단ToolStripMenuItem.Name = "상표시찰2단ToolStripMenuItem" + Me.상표시찰2단ToolStripMenuItem.Size = New System.Drawing.Size(218, 22) + Me.상표시찰2단ToolStripMenuItem.Text = "상표시찰2단" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5, Me.ToolStripButton2}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(588, 29) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 26) + Me.ToolStripLabel1.Text = "번호형식" + Me.ToolStripLabel1.ToolTipText = "전주번호가 표시되는 번호 형식입니다" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 29) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 29) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 26) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.Gainsboro + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 29) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.about_161 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 26) + Me.ToolStripButton2.Text = "도움말" + Me.ToolStripButton2.ToolTipText = "현재화면에대한 도움말을 표시합니다" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(26, 253) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(106, 12) + Me.LinkLabel1.TabIndex = 29 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Background Color" + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(26, 286) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(103, 12) + Me.LinkLabel2.TabIndex = 30 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Foreground Color" + ' + 'lbQrBg + ' + Me.lbQrBg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrBg.Location = New System.Drawing.Point(136, 246) + Me.lbQrBg.Name = "lbQrBg" + Me.lbQrBg.Size = New System.Drawing.Size(48, 27) + Me.lbQrBg.TabIndex = 31 + ' + 'lbQrFG + ' + Me.lbQrFG.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrFG.Location = New System.Drawing.Point(137, 279) + Me.lbQrFG.Name = "lbQrFG" + Me.lbQrFG.Size = New System.Drawing.Size(48, 27) + Me.lbQrFG.TabIndex = 32 + ' + 'printform + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(588, 606) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printform" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.TabPage5.ResumeLayout(False) + Me.TabPage5.PerformLayout() + Me.TabPage6.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + Me.TabPage8.ResumeLayout(False) + Me.TabPage8.PerformLayout() + Me.TabPage9.ResumeLayout(False) + Me.TabPage9.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button26 As System.Windows.Forms.Button + Friend WithEvents Button27 As System.Windows.Forms.Button + Friend WithEvents Button29 As System.Windows.Forms.Button + Friend WithEvents Button30 As System.Windows.Forms.Button + Friend WithEvents Button31 As System.Windows.Forms.Button + Friend WithEvents Button32 As System.Windows.Forms.Button + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents rad_print_area As System.Windows.Forms.RadioButton + Friend WithEvents rad_print_cur As System.Windows.Forms.RadioButton + Friend WithEvents rad_print_all As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_kwanjun As System.Windows.Forms.CheckBox + Friend WithEvents cb_oldjun As System.Windows.Forms.CheckBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents cb_man As System.Windows.Forms.CheckBox + Friend WithEvents cb_jji As System.Windows.Forms.CheckBox + Friend WithEvents cb_yymm As System.Windows.Forms.CheckBox + Friend WithEvents cb_maker As System.Windows.Forms.CheckBox + Friend WithEvents cb_jangck As System.Windows.Forms.CheckBox + Friend WithEvents cb_jjnum As System.Windows.Forms.CheckBox + Friend WithEvents cb_sunglo As System.Windows.Forms.CheckBox + Friend WithEvents cb_sunsannum As System.Windows.Forms.CheckBox + Friend WithEvents cb_u5 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u4 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u3 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u2 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u1 As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents TB_Pattern_Start As System.Windows.Forms.ToolStripTextBox + Friend WithEvents TB_Pattern_End As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents cb_jc1 As System.Windows.Forms.CheckBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_kwang As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents cb_dl As System.Windows.Forms.CheckBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents bt_pattern_no As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfdStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents cb_mainnum As System.Windows.Forms.CheckBox + Friend WithEvents cb_mainrow As System.Windows.Forms.CheckBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cmb_jisun As System.Windows.Forms.ComboBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents cb_numn As System.Windows.Forms.CheckBox + Friend WithEvents cb_numo As System.Windows.Forms.CheckBox + Friend WithEvents bt_style_manager As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents rad_print_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_repy As System.Windows.Forms.TextBox + Friend WithEvents tb_repx As System.Windows.Forms.TextBox + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents tb_rep As System.Windows.Forms.TextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents bt_style_company As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Button14 As System.Windows.Forms.Button + Friend WithEvents cb_han As System.Windows.Forms.CheckBox + Friend WithEvents cb_jumj As System.Windows.Forms.CheckBox + Friend WithEvents cb_jump As System.Windows.Forms.CheckBox + Friend WithEvents cb_date As System.Windows.Forms.CheckBox + Friend WithEvents Button16 As System.Windows.Forms.Button + Friend WithEvents pgs As System.Windows.Forms.PropertyGrid + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents tb_image As System.Windows.Forms.TextBox + Friend WithEvents TabPage8 As System.Windows.Forms.TabPage + Private WithEvents Label20 As System.Windows.Forms.Label + Private WithEvents Label19 As System.Windows.Forms.Label + Private WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Button17 As System.Windows.Forms.Button + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Friend WithEvents cboCorrectionLevel As System.Windows.Forms.TextBox + Friend WithEvents cboVersion As System.Windows.Forms.TextBox + Friend WithEvents cboEncoding As System.Windows.Forms.TextBox + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents home4 As System.Windows.Forms.TextBox + Friend WithEvents home3 As System.Windows.Forms.TextBox + Friend WithEvents home2 As System.Windows.Forms.TextBox + Friend WithEvents home1 As System.Windows.Forms.TextBox + Friend WithEvents TabPage9 As System.Windows.Forms.TabPage + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents gita4 As System.Windows.Forms.TextBox + Friend WithEvents gita3 As System.Windows.Forms.TextBox + Friend WithEvents gita2 As System.Windows.Forms.TextBox + Friend WithEvents gita1 As System.Windows.Forms.TextBox + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Button18 As System.Windows.Forms.Button + Friend WithEvents cb_date1 As System.Windows.Forms.CheckBox + Friend WithEvents gojang As System.Windows.Forms.TextBox + Friend WithEvents cb_gojang As System.Windows.Forms.CheckBox + Friend WithEvents 장척3자리ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_pattern_noH As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_상2단 As System.Windows.Forms.CheckBox + Friend WithEvents cb_상1단 As System.Windows.Forms.CheckBox + Friend WithEvents cb_휴즈용량 As System.Windows.Forms.CheckBox + Friend WithEvents 상표시찰1단ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 상표시찰2단ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents cmb_connfield As System.Windows.Forms.ComboBox + Friend WithEvents COS휴즈용량ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Button19 As System.Windows.Forms.Button + Friend WithEvents Label33 As System.Windows.Forms.Label + Friend WithEvents tb_ty As System.Windows.Forms.TextBox + Friend WithEvents Label34 As System.Windows.Forms.Label + Friend WithEvents tb_tx As System.Windows.Forms.TextBox + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents lbQrBg As System.Windows.Forms.Panel + Friend WithEvents lbQrFG As System.Windows.Forms.Panel +End Class diff --git a/Epole/출력폼/PrintFormSRC.resx b/Epole/출력폼/PrintFormSRC.resx new file mode 100644 index 0000000..913ee9b --- /dev/null +++ b/Epole/출력폼/PrintFormSRC.resx @@ -0,0 +1,336 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 240, 17 + + + 676, 17 + + + 676, 17 + + + 17, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABjUlE + QVQ4T5WSvWrCYBiF7VR6CaVIyeRQxEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F + 6XdikvpqF4WH732/8wNJTAAQqN9ds9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUi + XKlUtHa7bQyHwyA4Ho8DOPOOGj3nJXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY + 7/cwpyZMc6rg+Qc1euhlhlkWPFSrVaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4 + TojaZ9HsnDS108sMsyx4KZVKmM/nN8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvV + SrAOzjWo0RN6mWE2cR8ObHvN5XLYeB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclk + cpFKpfAf1OgRGbHI9/FxQfzcIiMW+T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + 17, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABkklE + QVQ4T5WSsWrCUBiFr1OIFZwlg5MISlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71J + c4NLhY/73/Ofc8AkjIgyxM+YTCbL2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINH + y2gXxl5HoxFdLhdabzaSzVqcAmjYwVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+ + KbaS4h4ZZFHQ7vV6FEURhSAMszkKQZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre + 6XT4wlvQfr+/86POAp7nEbzIIIsCU/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDca + DY6v7nA40PH4BzTs4IFXZUrpu8xKTNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad + 8siwVlAowf97EzgKzNC0sMzkL1K4l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB6ElE + QVQ4T42Sv4viQBTHdytdBftVQUQQJO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXI + BsTOH/hXvH1vskbHa27gM2++M+/78ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55O + p7Df7xntdpsOn29zbY+9QHMulwvW63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKK + orC1JEkc+BD7SsycTqeDpVJJHo1GcDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z + 1OYY56SvkK5UKuRkV6LhKxaLcD6fQdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+H + sFqtGGsW14z1+qKvpFIproDP4/HURFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M + 07T4NOETYyKR4BAE4QM99kt8RNzIq8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2 + Oh3Y7XaMaDRKSRlERATkGbF+JJruizgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa + 5VrmgYcvtZo3CPnmmpkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABjUlE + QVQ4T5WSvWrCYBiF7VR6CaVIyeRQxEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F + 6XdikvpqF4WH732/8wNJTAAQqN9ds9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUi + XKlUtHa7bQyHwyA4Ho8DOPOOGj3nJXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY + 7/cwpyZMc6rg+Qc1euhlhlkWPFSrVaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4 + TojaZ9HsnDS108sMsyx4KZVKmM/nN8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvV + SrAOzjWo0RN6mWE2cR8ObHvN5XLYeB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclk + cpFKpfAf1OgRGbHI9/FxQfzcIiMW+T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB2klE + QVQ4T42RPYviUBSGs1UcBXsdQRZBkDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhM + QOz8wF/x7rl3xqzZTLEHHs7HPe8LJxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqC + Wq02yeVyXz8zsTR8IAhSo9Hg4ul0yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRS + KYsJC0+lUsH5fLYwm80+eMUrZTYbDocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2 + QrqHm4Gcz+exXGrE8h2NZQ3aR63dvV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2 + +D5ANBpdWwzi8Tj0nX7HDrpOWadM/Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPl + ctVJ80SYH9FDZIg2MSB+RiIR7Pd7k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6H + wybmBrfCHJCRz+dbB4NBMLxeryGK4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTG + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABkklE + QVQ4T5WSsWrCUBiFr1OIFZwlg5MISlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71J + c4NLhY/73/Ofc8AkjIgyxM+YTCbL2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINH + y2gXxl5HoxFdLhdabzaSzVqcAmjYwVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+ + KbaS4h4ZZFHQ7vV6FEURhSAMszkKQZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre + 6XT4wlvQfr+/86POAp7nEbzIIIsCU/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDca + DY6v7nA40PH4BzTs4IFXZUrpu8xKTNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad + 8siwVlAowf97EzgKzNC0sMzkL1K4l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB2klE + QVQ4T42RPYviUBSGs1UcBXsdQRZBkDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhM + QOz8wF/x7rl3xqzZTLEHHs7HPe8LJxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqC + Wq02yeVyXz8zsTR8IAhSo9Hg4ul0yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRS + KYsJC0+lUsH5fLYwm80+eMUrZTYbDocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2 + QrqHm4Gcz+exXGrE8h2NZQ3aR63dvV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2 + +D5ANBpdWwzi8Tj0nX7HDrpOWadM/Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPl + ctVJ80SYH9FDZIg2MSB+RiIR7Pd7k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6H + wybmBrfCHJCRz+dbB4NBMLxeryGK4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTG + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB6ElE + QVQ4T42Sv4viQBTHdytdBftVQUQQJO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXI + BsTOH/hXvH1vskbHa27gM2++M+/78ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55O + p7Df7xntdpsOn29zbY+9QHMulwvW63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKK + orC1JEkc+BD7SsycTqeDpVJJHo1GcDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z + 1OYY56SvkK5UKuRkV6LhKxaLcD6fQdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+H + sFqtGGsW14z1+qKvpFIproDP4/HURFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M + 07T4NOETYyKR4BAE4QM99kt8RNzIq8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2 + Oh3Y7XaMaDRKSRlERATkGbF+JJruizgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa + 5VrmgYcvtZo3CPnmmpkAAAAASUVORK5CYII= + + + + 1210, 17 + + + 1050, 17 + + + 428, 17 + + + 117, 17 + + + 894, 17 + + + 358, 17 + + + 58 + + + 785, 17 + + + 567, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintFormSRC.vb b/Epole/출력폼/PrintFormSRC.vb new file mode 100644 index 0000000..ccd94fe --- /dev/null +++ b/Epole/출력폼/PrintFormSRC.vb @@ -0,0 +1,5787 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.Drawing.Image +Imports System.IO + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data + +Public Class printform + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim S(4) As MyControlOLEDBv2.MyLabel + Dim Sȣ(2) As MyControlOLEDBv2.MyLabel + Dim Sθ(10) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(20) As MyControlOLEDBv2.MyLabel + Dim Sð(3) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sô(2) As MyControlOLEDBv2.MyLabel + Dim Sð(0) As MyControlOLEDBv2.MyLabel + Dim S(1) As MyControlOLEDBv2.MyLabel + Dim S(9) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim SϷùȣ(0) As MyControlOLEDBv2.MyLabel + ' Dim S(3) As MyControlOLEDBv2.MyLabel '2013/06/13 μ 3 0 + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim S1(0) As MyControlOLEDBv2.MyLabel 'U + Dim S2(0) As MyControlOLEDBv2.MyLabel 'A + Dim S3(0) As MyControlOLEDBv2.MyLabel 'B + Dim S4(0) As MyControlOLEDBv2.MyLabel 'D + Dim S5(0) As MyControlOLEDBv2.MyLabel 'E + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + + '//150201 ߰ + Dim S뷮(9) As MyControlOLEDBv2.MyLabel + Dim Sǥ1(2) As MyControlOLEDBv2.MyLabel + Dim Sǥ2(2) As MyControlOLEDBv2.MyLabel + + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel 'v + Dim Sżֹȣ(0) As MyControlOLEDBv2.MyLabel 'w + + Dim S(0) As MyControlOLEDBv2.MyLabel 'HI + 'Dim S1 As MyControlOLEDBv2.MyLabel 'x + 'Dim S2 As MyControlOLEDBv2.MyLabel 'y + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim Sѱ(0) As MyControlOLEDBv2.MyLabel + + Dim SŰ(0) As MyControlOLEDBv2.MyLabel + + Dim As String = "" + Dim ȣ As String = "" + Dim As String = "" + Dim As String = "" + Dim ȣ As String = "" + Dim θ As String = "" + Dim ȣ As String = "" + Dim ô As String = "" + Dim ð As String = "" + Dim ð As String = "" + Dim As String = "" + Dim As String = "" + Dim 1 As String = "" + Dim 2 As String = "" + Dim As String = "" + Dim ֹȣ As String = "" + Dim ֹȣ As String = "" + Dim ֹȣ As String = "" + 'Dim As String = "" + + '//150201 + Dim 뷮 As String = "" + Dim ǥ1 As String = "" + Dim ǥ2 As String = "" + + Dim ֹȣ As String = "" + Dim żֹȣ As String = "" + Dim θ As String = "" + Dim ֹȣ As String = "" + + Dim As String = "" + Dim As String = "" + Dim ѱ As String = "" + + Dim Ű As String = "" + + '//170711 + Dim As String = "" + Dim As String = "" + Dim ο As String = "" + + + ''QR + 'Dim qð As String = "" + 'Dim qȨ As String = "" + 'Dim q As String = "" + 'Dim q1 As String = "" + 'Dim q2 As String = "" + + Dim qrȨ1 As String = "" + Dim qrȨ2 As String = "" + Dim qrȨ3 As String = "" + Dim qrȨ4 As String = "" + + Dim rqrŸ1 As String = "" + Dim rqrŸ2 As String = "" + Dim rqrŸ3 As String = "" + Dim rqrŸ4 As String = "" + + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д. + Dim ۵ As Boolean = True + Dim ȣ۵ As Boolean = True + Dim θ۵ As Boolean = True + Dim ֹȣ۵ As Boolean = True + Dim ð۵ As Boolean = True + + Dim ۵ As Boolean = True + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\style") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleC.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.jjutableDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False '//϶ true . + + Dim LastStyleName As String '//λѽŸϸ + + Public MyProperty_Paper As PropertyGrid_Paper + + Public Sub New() + InitializeComponent() + AddLog(Admin, "New()", "\Alllog.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.jjutableDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + + 'QR ߰ + + 'qð = d1 + 'qȨ = d2 + 'q = d3 + 'q1 = d4 + 'q2 = d5 + + AddLog(Admin, "New(srctable,srcRow)", "\Alllog.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjung", "\viewConfig\main_") + AddLog(Admin, "Form_Close", "\Alllog.txt") + Save_Setting() + End Sub + + Dim wat As New System.Diagnostics.Stopwatch + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + + + Me.dataview.Setting_Load(False, "printjjung", "\viewConfig\main_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + AddLog(Admin, "Form_Load()", "\Alllog.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + + + + If srcTable Is Nothing Then + MsgBox("ͼҽ ǵ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") + AddLog(Admin, " ⺻ ȯ()", "\Alllog.txt") + Common.Admin = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjutable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjutable + Admin = True + + End If + + AddLog(Admin, "ڸ=" & Admin.ToString, "\Alllog.txt") + If Admin Then '//ڸ üũڽ Ҽ ְѴ. + showlog() + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + + + Console.WriteLine("Form_Load GetStyle List Start") + wat.Restart() + + GetStyleList() '//style.ini Ÿϸϸ ´. + + Console.WriteLine("Form_Load GetStyle List Time : " + wat.ElapsedMilliseconds.ToString() + "ms") + wat.Stop() + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + AddLog(Admin, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\Alllog.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Return + End If + + '//⼭ ప мؼ ޺ܸ ش; '// õ ش ãƾ Ѵ. + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + AddLog(Admin, "õǼ ѿµ ȣ ãϴ=" & Srcnum, "\Alllog.txt") + + Console.WriteLine("Form_Load Events Step 2-1 : " + wat.ElapsedMilliseconds.ToString() + "ms") + wat.Restart() + + Dim As Boolean = Srcrow("") + Dim As Boolean = Srcrow("") + + + If Srcrow("dl").ToString <> "" Then + AddLog(Admin, " Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "" '//⼭ Ͱ ɷԵȴ. + ElseIf AndAlso Not Then + AddLog(Admin, "Կ Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "Կ" '//⼭ Ͱ ɷԵȴ. + ElseIf Then + AddLog(Admin, "Կ =ַ Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "Կ" '//⼭ Ͱ ɷԵȴ. + End If + + + If Me.cmb_style.SelectedIndex = -1 Then + AddLog(Admin, "ϹݿμѴ.()", "\Alllog.txt") + If Me.LastStyleName.Trim = "߱԰" Then + Me.cmb_style.Text = "߱԰" '//⼭ Ͱ ɷԵȴ. + Else + Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + End If + + End If + + Me.cmb_jisun.SelectedIndex = 1 + + + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + Me.bt_pattern_no.PerformClick() + End If + Case Keys.F4 '//5 + Me.Button8.PerformClick() + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + End Sub + + Private Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByRef Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, ByVal bPattern As String) + '//äũڽ ũ + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = bPattern + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = bPattern + End Sub + + + Private Sub SetControls() + AddLog(Admin, "SetControls()", "\Alllog.txt") + Dim CtlCnt As Short = 0 + + '//üũڽ + AddControl(CtlCnt, "", "H", Me.S, Me.cb_kwang, "HNUMBERPATTERN") + AddControl(CtlCnt, "", "K", Me.S, Me.cb_dl, "DLPATTERN") + AddControl(CtlCnt, "ȣ", "S", Me.Sȣ, Me.cb_sunsannum, "JNUMPATTERN") + AddControl(CtlCnt, "θ", "L", Me.Sθ, Me.cb_sunglo, "LINEPATTERN") + AddControl(CtlCnt, "ֹȣ", "X", Me.Sֹȣ, Me.cb_jjnum, "NUMBERPATTERN") + + AddControl(CtlCnt, "ð", "Y", Me.Sð, Me.cb_yymm, "YYMMPATTERN") + AddControl(CtlCnt, "ֹȣ", "G", Me.Sֹȣ, Me.cb_kwanjun, "NUMBERPATTERN") + AddControl(CtlCnt, "ô", "J", Me.Sô, Me.cb_jangck, "CHOKPATTERN") '"NUMBERPATTERN") + AddControl(CtlCnt, "ð", "C", Me.Sð, Me.cb_maker, "MAKERPATTERN") + + AddControl(CtlCnt, "", "Z", Me.S, Me.cb_jji, "NUMBERPATTERN") + AddControl(CtlCnt, "", "M", Me.S, Me.cb_man, "NUMBERPATTERN") + AddControl(CtlCnt, "", "O", Me.S, Me.cb_date, "LINEPATTERN") + AddControl(CtlCnt, "", "HI", Me.S, Me.cb_date1, "LINEPATTERN") + AddControl(CtlCnt, "Ϸùȣ", "N", Me.SϷùȣ, Me.cb_seq, "NUMBERPATTERN") + + AddControl(CtlCnt, "ڹ1", "U", Me.S1, Me.cb_u1, "NUMBERPATTERN") + AddControl(CtlCnt, "ڹ2", "A", Me.S2, Me.cb_u2, "NUMBERPATTERN") + AddControl(CtlCnt, "ڹ3", "B", Me.S3, Me.cb_u3, "NUMBERPATTERN") + AddControl(CtlCnt, "ڹ4", "D", Me.S4, Me.cb_u4, "NUMBERPATTERN") + AddControl(CtlCnt, "ڹ5", "E", Me.S5, Me.cb_u5, "NUMBERPATTERN") + + AddControl(CtlCnt, "ȣ", "O1", Me.S, Me.cb_oldjun, "NUMBERPATTERN") + AddControl(CtlCnt, "ٹȣ", "P", Me.Sֹȣ, Me.cb_mainrow, "NUMBERPATTERN") + AddControl(CtlCnt, "ֹȣ", "Q", Me.Sֹȣ, Me.cb_mainnum, "NUMBERPATTERN") + + AddControl(CtlCnt, "", "Z1", Me.S, Me.cb_jump, "NUMBERPATTERN") + AddControl(CtlCnt, "", "Z2", Me.S, Me.cb_jumj, "NUMBERPATTERN") + AddControl(CtlCnt, "ѱ", "Z3", Me.Sѱ, Me.cb_han, "NUMBERPATTERN") + + AddControl(CtlCnt, "Ű", "Z4", Me.SŰ, Me.cb_gojang, "NUMBERPATTERN") + + '//150201 + AddControl(CtlCnt, "COS뷮", "F", Me.S뷮, Me.cb_뷮, "FUSEPATTERN") + AddControl(CtlCnt, "ǥ1", "I", Me.Sǥ1, Me.cb_1, "SANG1PATTERN") + AddControl(CtlCnt, "ǥ2", "T", Me.Sǥ2, Me.cb_2, "SANG2PATTERN") + + '//̰ ֿ . + Sֹȣ(0) = New MyControlOLEDBv2.MyLabel + Sֹȣ(0). = "ֹȣ" + Sֹȣ(0).Name = "R" + Sֹȣ(0).MyText = "" + Sֹȣ(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sֹȣ(0) + Me.cmb_controls.Items.Add(Sֹȣ(0).) + CtlCnt += 1 + + AddControl(CtlCnt, "ֹȣ", "V", Me.Sֹȣ, Me.cb_numo, "NUMBERPATTERN") + AddControl(CtlCnt, "żֹȣ", "W", Me.Sżֹȣ, Me.cb_numn, "NUMBERPATTERN") + + + Me.cmb_jisun.SelectedIndex = 0 + End Sub + + Private Sub SETTOOLTIP() + AddLog(Admin, "Settooltip()", "\Alllog.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.rad_print_area, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ӽ ش ڸ ֽϴ.") + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ȭ ߾ 1/2 ̸ â Ȱȭ >") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ߾ ̸ ȭ ǥõ ʽϴ") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.chb_preview, TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine("<1忡 ι Ͱ ǥõ˴ϴ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine("[] ½ ̸¿ 絥Ͱ ǥõ") + TMSG.AppendLine(" ½ÿ Ͱ ǥõ˴ϴ.") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + 'TMSG = New System.Text.StringBuilder() + 'TMSG.AppendLine() + 'TMSG.AppendLine("<ý [ŸŸ-ô3ڸ] ˴ϴ>") + 'TMSG.AppendLine() + 'TMSG.AppendLine("ô 3ڸ϶ ϴ ġ ũ ô ") + 'TMSG.AppendLine("ÿ ݵ [ŸŸ] Ŭϼ.") + 'TMSG.AppendLine() + 'TMSG.AppendLine("ϹݽŸ ϸ ġ ߸ ֽϴ.") + 'Me.ToolTip1.SetToolTip(Me.cb_jc1, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + AddLog(Admin, "ü Ŭ߽ϴ.(̰ )", "\Alllog.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + AddLog(Admin, " (Ÿ) մϴ.", "\Alllog.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + '//δݾǽŸϸѴ. + ' MsgBox("ŸѴ " & Me.cmb_style.Text) + A.Write("lastStyle", "name", Me.cmb_style.Text) + + End Sub + Private Sub Load_Setting() + AddLog(Admin, "缳(Ÿ) ɴϴ.()", "\Alllog.txt") + AddLog(Admin, "Load_Setting()", "\Alllog.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + Me.LastStyleName = a.Read("lastStyle", "name") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + AddLog(Admin, "GetviewData ()", "\Alllog.txt") + 'MsgBox("getview = " & index) + + Console.WriteLine("GetTviewData") + + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + AddLog(Admin, "GetViewData : ε ų վ մϴ.(" & index & ")", "\Alllog.txt") + 'MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + ' STARTTIME = Now + '// ̺ ͸ ǥѴ. ̺ ̴̺ DV + '//絥͸ Ʈѿǥ ¹ (Ϲݿ/Ե) ´. + 'Dim θϰ˻ As Integer = 0 + 'Dim ôϰ˻ As Integer = 0 + + ' Me.DataGridView1.DataSource = Dv + + = GetSpread(Me.Dv, index, "") + ȣ = GetSpread(Me.Dv, index, "ȣ") + = GetSpread(Me.Dv, index, "") + ȣ = GetSpread(Me.Dv, index, "ֹȣ") + θ = GetSpread(Me.Dv, index, "θ") + ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + ô = GetSpread(Me.Dv, index, "ô") + ð = GetSpread(Me.Dv, index, "ð") + ð = GetSpread(Me.Dv, index, "ð") + = GetSpread(Me.Dv, index, "") + = GetSpread(Me.Dv, index, "") + + ' = GetSpread(Me.Dv, index, "") + ' = GetSpread(Me.Dv, index, "") + ' = GetSpread(Me.Dv, index, "") + 'ѱ = GetSpread(Me.Dv, index, "ѱ") + 'Ű = GetSpread(Me.Dv, index, "Ű") + + 1 = GetSpread(Me.Dv, index, "1") + 2 = GetSpread(Me.Dv, index, "2") + = GetSpread(Me.Dv, index, "DL") + θ = GetSpread(Me.Dv, index, "θ") + ֹȣ = GetSpread(Me.Dv, index, "ֹȣ") + + '//150201 + 뷮 = GetSpread(Me.Dv, index, "COS뷮") + ǥ1 = GetSpread(Me.Dv, index, "ǥ1") + ǥ2 = GetSpread(Me.Dv, index, "ǥ2") + + '//170711 + = GetSpread(Me.Dv, index, "") + = GetSpread(Me.Dv, index, "") + ο = GetSpread(Me.Dv, index, "ο") + + AddLog(Admin, "ð " & Dv(index)("ð"), "\Alllog.txt") + + '//⼭ μ() ֹȣ ֹȣ Ѵٸ ãƼ ش. + 'addlog(admin, "ENTERING : (Ȯ)", "\Alllog.txt") + If ȣ.IndexOf("G") > -1 OrElse ȣ.IndexOf("K") > -1 Then + 'addlog(admin, "Ȯε(" & ȣ & ")", "\Alllog.txt") + If Me.cb_mainrow.Checked OrElse Me.cb_mainnum.Checked Then '//ָ + Dim MAINNUM As String = "" + If ȣ.IndexOf("K") > -1 Then MAINNUM = ȣ.Substring(0, ȣ.IndexOf("K")) + If ȣ.IndexOf("G") > -1 Then MAINNUM = ȣ.Substring(0, ȣ.IndexOf("G")) + + Dim MAINROW As Integer = -1 + For Z As Integer = index To 0 Step -1 '// ó ȮѴ. + If CStr(Dv(Z)("ȣ1") & Dv(Z)("ȣ2") & Dv(Z)("ȣ3") & Dv(Z)("ȣ4") & Dv(Z)("ȣ5")).Trim = MAINNUM Then '//ָ ãҴٸ + MAINROW = Dv(Z)("ȣ") + Exit For + End If + Next + For Z As Integer = index To Dv.Count - 1 + If CStr(Dv(Z)("ȣ1") & Dv(Z)("ȣ2") & Dv(Z)("ȣ3") & Dv(Z)("ȣ4") & Dv(Z)("ȣ5")).Trim = MAINNUM Then '//ָ ãҴٸ + MAINROW = Dv(Z)("ȣ") + Exit For + End If + Next + 'MsgBox("OK") + If MAINROW <> -1 Then PARSE_(MAINROW, MAINNUM) + Else + AddLog(Admin, "Ȯε(" & ȣ & ") 㳪 üũȰ  ǥø ʴ´.", "\Alllog.txt") + Me.CLEAR_ITEM(Me.Sֹȣ) + Me.CLEAR_ITEM(Sֹȣ) + End If + Else + AddLog(Admin, "־ƴ(" & ȣ & ")", "\Alllog.txt") + Me.CLEAR_ITEM(Me.Sֹȣ) + Me.CLEAR_ITEM(Sֹȣ) + End If + 'addlog(admin, "ENDING : (Ȯ)", "\Alllog.txt") + + If <> "" AndAlso ȣ <> "" Then + = & "-" & ȣ + Else + = "" + End If + + If θ <> "" Then + ֹȣ = CStr(θ & "-" & ֹȣ).Trim + Else + ֹȣ = CStr(ֹȣ).Trim + End If + + + = CStr(" :").Trim + = CStr("").Trim + ѱ = CStr("ѱ").Trim + Ű = gojang.Text.ToString() + + + If θ <> "" Then + żֹȣ = CStr(θ & "-" & ȣ).Trim + Else + żֹȣ = CStr(ȣ).Trim + End If + + ֹȣ = ֹȣ.Replace(";", "") + żֹȣ = żֹȣ.Replace(";", "") + + AddLog(Admin, "Complete : Load Data From Dataview", "\Alllog.txt") + Me.Text = "ȣ ۾(" & ȣ & ")" + AddLog(Admin, "PASE մϴ.()", "\Alllog.txt") + '============ ؼ °̴ ========================================================== + + + Me.PARSE_1(1) + Me.PARSE_2(2) + '==================================================================================================== + + AddLog(Admin, "ִ PASE մϴ.()", "\Alllog.txt") + + If PARSE_() Then Me.PARSE_() '//θ ؼ Ϻм + If PARSE_() Then Me.PARSE_() '//θ ؼ Ϻм + If PARSE_ô(ô) Then Me.PARSE_ô(ô) '//θ ؼ Ϻм + + If Me.PARSE(θ, Me.Sθ) Then Me.PARSE_PATTERN(θ, Me.Sθ) + If Me.PARSE(ȣ, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + If Me.PARSE(ð, Me.Sð) Then Me.PARSE_PATTERN(ð, Me.Sð) + If Me.PARSE(ð, Me.Sð) Then Me.PARSE_PATTERN(ð, Me.Sð) + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + 'If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + If Me.PARSE(ѱ, Me.Sѱ) Then Me.PARSE_PATTERN(ѱ, Me.Sѱ) + + If Me.PARSE(Ű, Me.SŰ) Then Me.PARSE_PATTERN(Ű, Me.SŰ) + + '//1501201 + If Me.PARSE(뷮, Me.S뷮) Then Me.PARSE_PATTERN(뷮, Me.S뷮) + If Me.PARSE(ǥ1, Me.Sǥ1) Then Me.PARSE_PATTERN(ǥ1, Me.Sǥ1) + If Me.PARSE(ǥ2, Me.Sǥ2) Then Me.PARSE_PATTERN(ǥ2, Me.Sǥ2) + + 'If PARSE_DL() Then Me.PARSE_DL() '/ ߰ߴ. 2013/06/13 ӽ Ƴ... + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + ' addlog(admin, "New()", "\Alllog.txt") + If PARSE_ȣ(ȣ, GetSpread(Me.Dv, index, "μ")) Then '//⼭ False ǹ̰ + ȣϰ˻ = Me.PARSE_ȣ(ȣ) '//θ ؼ Ϻм + AddLog(Admin, "ȣϰ˻簡 ϷǾϴ.=" & ȣϰ˻, "\Alllog.txt") + If NUMCOLOR Then '//ȯ漳 󺸱Ⱑ õǾִٸ + If ȣϰ˻ = 3 Then '//Ѵپ. + '//Ѵپ κ̶ ⼭ Ʈ ش. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Red + Next + ElseIf ȣϰ˻ = 2 Then '//ڰ ̸ ִ. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Green + Next + Else '//ڸ ְų Ѵִ. '//0̸ ̸ Ѵִ 1̸ ڵ ̵ ̰ + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Black + Next + End If + End If + End If + + AddLog(Admin, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\Alllog.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + 'MsgBox() + If <> "" AndAlso Me.cb_oldjun.Checked Then + 'MsgBox("=" & ) + Me.S(0).MyText = + Me.S(0).Visible = True + Else + Me.S(0).Visible = False + End If + + If ֹȣ <> "" AndAlso Me.cb_numo.Checked Then + Me.Sֹȣ(0).MyText = ֹȣ + Me.Sֹȣ(0).Visible = True + Else + Me.Sֹȣ(0).Visible = False + End If + + + ' If chk_draw.Checked Then + If cb_date1.Checked Then + + '// + ' If Me.cb_jumj.Checked Then + Me.S(0).MyText = + Me.S(0).Visible = True + ' Else + ' Me.S(0).Visible = False + ' End If + '// + 'If cb_jump.Checked Then + Me.S(0).MyText = + Me.S(0).Visible = True + 'Else + 'Me.S(0).Visible = False + 'End If + '//ѱ + 'If cb_han.Checked Then + Me.Sѱ(0).MyText = ѱ + Me.Sѱ(0).Visible = True + 'Else + ' Me.Sѱ(0).Visible = False + 'End If + ' End If + + + Else + Me.S(0).Visible = False + Me.S(0).Visible = False + Me.Sѱ(0).Visible = False + + End If + + Me.SŰ(0).Visible = cb_gojang.Checked + + '//150201 + Me.S뷮(0).Visible = cb_뷮.Checked + + If cb_1.Checked AndAlso ǥ1 <> "" Then + Me.Sǥ1(0).Visible = True + Me.Sǥ1(1).Visible = True + Me.Sǥ1(2).Visible = True + Else + Me.Sǥ1(0).Visible = False + Me.Sǥ1(1).Visible = False + Me.Sǥ1(2).Visible = False + End If + + If cb_2.Checked AndAlso ǥ2 <> "" Then + Me.Sǥ2(0).Visible = True + Me.Sǥ2(1).Visible = True + Me.Sǥ2(2).Visible = True + Else + Me.Sǥ2(0).Visible = False + Me.Sǥ2(1).Visible = False + Me.Sǥ2(2).Visible = False + End If + + If żֹȣ <> "" AndAlso Me.cb_numn.Checked Then + Me.Sżֹȣ(0).MyText = żֹȣ + Me.Sżֹȣ(0).Visible = True + Else + Me.Sżֹȣ(0).Visible = False + End If + + If Me.cb_seq.Checked Then + Me.SϷùȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.SϷùȣ(0).Visible = True + Else + Me.SϷùȣ(0).Visible = False + End If + If <> "" AndAlso ȣ <> "" AndAlso Me.cb_kwanjun.Checked Then + Me.Sֹȣ(0).MyText = & "-" & ȣ + Me.Sֹȣ(0).Visible = True + Else + Me.Sֹȣ(0).Visible = False + End If + + + 'If ȣ.Trim <> "" AndAlso Me.cb_jnumrow.Checked Then '//ֹȣ ǥÿ + ' Me.Sֹȣ.MyText = ȣ + ' Me.Sֹȣ.Visible = True + 'Else + ' Me.Sֹȣ.Visible = False + 'End If + + AddLog(Admin, "ڹ ǥÿθ մϴ.()", "\Alllog.txt") + 'ڹ ǥÿ u a b d e + If Not Me.cb_u1.Checked Then Me.S1(0).Visible = False + If Not Me.cb_u2.Checked Then Me.S2(0).Visible = False + If Not Me.cb_u3.Checked Then Me.S3(0).Visible = False + If Not Me.cb_u4.Checked Then Me.S4(0).Visible = False + If Not Me.cb_u5.Checked Then Me.S5(0).Visible = False + + 'ENDTIME = Now + ' Me.Text = "ɸð = " & (ENDTIME - STARTTIME).ToString + + ' ....................................................... + AddLog(Admin, "Pewview 츦 մϴ.()", "\Alllog.txt") + 'Me.preview_window() + If previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + AddLog(Admin, "ȣ üũմϴ. int16 ȯմϴ.()", "\Alllog.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & _ + GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + + 'MsgBox(˻ȣ & "/" & PATTERN) + + + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + AddLog(Admin, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\Alllog.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'addlog(admin, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + AddLog(Admin, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\Alllog.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'addlog(admin, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "Clear_item div=", "\(̺)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + End Sub + Public Sub GetStyleList() + + Dim wat As New System.Diagnostics.Stopwatch + + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + ReDim Common.StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + + wat.Restart() + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//pattern table + Common.PDS(CurIdx) = New PatternDS + + '//default setting + Common.StyleList(CurIdx) = New SStyle() + Common.StyleList(CurIdx).LoadOK = False + Common.StyleList(CurIdx).Desc = String.Empty + Common.StyleList(CurIdx).File = String.Empty + + + Console.WriteLine("Getstyle List : GetallSection File=" + FileName) + wat.Restart() + + '//⼭ ڷḦ ʰ ϸ óѴ. + 'GetAllsection(FileName, CurIdx) + + '// д´. + Common.StyleList(CurIdx).File = FileName + + Dim ini As New tinyIni(FileName) + Common.StyleList(CurIdx).Desc = ini.Read("STYLE", "DESC") + + + Console.WriteLine("Getstyle List : GetallSection + " + wat.ElapsedMilliseconds.ToString() + "ms") + wat.Restart() + + Me.cmb_style.Items.Add(Common.StyleList(CurIdx).Desc) + CurIdx += 1 + Next + wat.Stop() + + End Sub + + Private Sub ̺() + AddLog(Admin, "̺ ()", "\Alllog.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + '//ٽü 170222 + DrStyle = Common.PDS(cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(cmb_style.SelectedIndex).TPattern + End Sub + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + AddLog(Admin, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.rad_print_area.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.rad_print_cur.Checked = True + + + If Me.rad_print_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + If Me.rad_print_all.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + If Me.rad_print_cur.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.rad_print_area.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + AddLog(Admin, "print_preview ̸ ư .()", "\Alllog.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_print_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + + '// ׸. + For Each Rect As S_Circle In Draw_Circle + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '//׸ ׸. + For Each Rect As S_Image In Draw_Image + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim F As String = Rect.FileName + If F.Trim <> "" Then + F = F.Replace(".\", My.Application.Info.DirectoryPath & "\") + + If System.IO.File.Exists(F) Then + Dim Image As Image = Image.FromFile(F) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + e.Graphics.DrawImage(Image, Rect.X, Rect.Y) + Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + e.Graphics.DrawImage(Image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + End If + End If + Next + + + '//ȭǥ ׸. 170711 + For Each Rect As S_Arrow In Draw_Arrow + + Select Case Rect.Direction + + Case 0 + If Me. = "" Then + Continue For + End If + Case 1 + If Me. = "" Then + Continue For + End If + Case 2 + If Me.ο = "" Then + Continue For + End If + End Select + + '//Ʈ Ѵ. + Dim pts As New List(Of Point) + + If Rect.Direction = 1 Then '// + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + pts.Add(New Point(Rect.RectX, Rect.RectY - Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH + Rect.TriHeight)) + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + + ElseIf Rect.Direction = 2 Then '// + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY - Rect.TriHeight)) + pts.Add(New Point(Rect.RectX + Rect.RectW + Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH + Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + + ElseIf Rect.Direction = 0 Then '// + + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY)) + + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW / 2, Rect.RectY - Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX + Rect.RectW + Rect.TriWidth, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + End If + + If Me.PrintMode Then + For i As Integer = 0 To pts.Count - 1 + Dim pt As Point = pts(i) + pt.X += CInt(Me.tb_marginx.Text) + pts(i) = pt + Next + ' e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + + End If + + Dim Pen As New Drawing.SolidBrush(Rect.PenColor) + e.Graphics.FillPolygon(Pen, pts.ToArray()) + + Next + + If <> "" Then + '//QRڵ带 ׸. + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + qrȨ1 = home1.Text + qrȨ2 = home2.Text + qrȨ3 = home3.Text + qrȨ4 = home4.Text + + Try + 'data = qð & qȨ & q & q1 & q2 + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & żֹȣ & ":" & ô & "M" ' ð: " & ð & " : " & + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + 'MessageBox.Show(" : " & & "ȣ : " & ȣ & " : " & & "ȣ : " & ȣ & "θ : " & θ & "ȣ : " & ȣ & "ô : " & ô & "ð : " & ð & "ð : " & ð & " : " & & " : " & & "1 : " & 1 & "2 : " & 2 & "DI : " & Dl & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "żֹȣ : " & żֹȣ & "θ : " & θ & "ֹȣ : " & ֹȣ) + ' MBOX  ׸ Ȯϱ ̴.. + + + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Catch ex As Exception + MessageBox.Show("QRڵ带 ׸µ ׸ DATA Ȯ Ͽ ּ") + End Try + + ' If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + 'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text)) + 'Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + 'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + 'End If + Next + End If + End If + + + For Each Rect As S_QRCode1 In Draw_QRcode1 + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + rqrŸ1 = gita1.Text + rqrŸ2 = gita2.Text + rqrŸ3 = gita3.Text + rqrŸ4 = gita4.Text + + Try + 'data = qð & qȨ & q & q1 & q2 + If rqrŸ1 <> "" And rqrŸ2 <> "" And rqrŸ3 <> "" And rqrŸ4 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 & "/" & rqrŸ4 + ElseIf rqrŸ1 <> "" And rqrŸ2 <> "" And rqrŸ3 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 + ElseIf rqrŸ1 <> "" And rqrŸ2 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 + ElseIf rqrŸ1 <> "" Then + data = rqrŸ1 + Else + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 & "/" & rqrŸ4 + End If + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + 'MessageBox.Show(" : " & & "ȣ : " & ȣ & " : " & & "ȣ : " & ȣ & "θ : " & θ & "ȣ : " & ȣ & "ô : " & ô & "ð : " & ð & "ð : " & ð & " : " & & " : " & & "1 : " & 1 & "2 : " & 2 & "DI : " & Dl & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "ֹȣ : " & ֹȣ & "żֹȣ : " & żֹȣ & "θ : " & θ & "ֹȣ : " & ֹȣ) + ' MBOX  ׸ Ȯϱ ̴.. + + + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Catch ex As Exception + MessageBox.Show("QRڵ带 ׸µ ׸ DATA Ȯ Ͽ ּ") + End Try + + Next + + + + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_print_repeat.Checked = False Then + ' MsgBox("Ͱ") + Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + End If + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + AddLog(Admin, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + AddLog(Admin, "con _move ü̵ νε Ⱦ.()", "\Alllog.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + + + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + AddLog(Admin, "view properfty ü º()", "\Alllog.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + Me.tb_rep.Text = sender.Repeat.ToString + Me.tb_repx.Text = sender.RepeatX.ToString + Me.tb_repy.Text = sender.RepeatY.ToString + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.GetSize.Width & ",H=" & sender.GetSize.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + AddLog(Admin, "溸 üũڽ Ŭߴ.)", "\Alllog.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + AddLog(Admin, "ã ư Ŭ", "\Alllog.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.chk_DisplayBG.Checked = True + Me.ViewBackImage() '//̓Gǥ + + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + AddLog(Admin, "ctrpos (õ ü ġ մϴ)", "\Alllog.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + AddLog(Admin, "ctrpos =[ preview ȣմϴ]", "\Alllog.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + AddLog(Admin, "showmsg ޼ ݴϴ =" & Message, "\Alllog.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + AddLog(Admin, "set font üũڽ ¿ Ʈ մϴ.", "\Alllog.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + AddLog(Admin, "setfont = preview ȣմϴ.", "\Alllog.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + AddLog(Admin, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\Alllog.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmb_style.MouseUp + + End Sub + + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + + Dim wat As New System.Diagnostics.Stopwatch + wat.Restart() + + + AddLog(Admin, " Change : Style Index...", "\Alllog.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + Console.WriteLine("style index changed") + + '//Ÿ ε ʾҴٸ ε Ѵ. + If Not Common.StyleList(cmb_style.SelectedIndex).LoadOK Then + + + GetAllsection(Common.StyleList(cmb_style.SelectedIndex).File, cmb_style.SelectedIndex) + Common.StyleList(cmb_style.SelectedIndex).LoadOK = True + + + End If + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + + Dim DataFilter As String = DrStyle.FILTER + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Console.WriteLine("Style Index Changed :: filter=" + DataFilter) + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + + Dim AlphaPos As Short = 0 + If Me.cmb_style.Text.IndexOf("߱԰") >= 0 Then + 'MsgBox("߱԰ݼ") + Dim Fullnum As String + Dim TDT As DataTable = Dv.ToTable + For Each DR As DataRow In TDT.Rows '// ǴѴ. + Fullnum = CStr(DR("ȣ1") & DR("ȣ2") & DR("ȣ3") & DR("ȣ4") & DR("ȣ5")).Trim + If Fullnum.Length = 6 Then '// 6ڸϰ쿡 ǴѴ. + '// 34R213 ̷̴ 㳪 34R1R2̷쵵ְ 1R1231 ׷ ڿ ߰ߵ ĺ 3ڸ ȵȴ. + '//asc 57ũ ĺ̶Ѵ. + For i As Integer = 0 To Fullnum.ToCharArray.GetUpperBound(0) + If Asc(Fullnum.ToCharArray()(i)) > 57 Then AlphaPos = i '//⼭ ĺ ġ . + Next + DR("") = IIf(AlphaPos <= 2, True, False) + Else + DR("") = True + End If + Next + Dv = New DataView(TDT, "", "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + ElseIf Me.cmb_style.Text.IndexOf("Ȱ") >= 0 Then '//Ȱִ H ĺ ȵǴ H Ŵ + Dim Fullnum As String + Dim TDT As DataTable = Dv.ToTable + For Each DR As DataRow In TDT.Rows '// ǴѴ. + Fullnum = CStr(DR("ȣ1") & DR("ȣ2") & DR("ȣ3") & DR("ȣ4") & DR("ȣ5")).ToUpper.Trim + If Fullnum.IndexOf("H") >= 0 Then '//ϴ H ־Ѵ. + DR("") = True + For i As Integer = 0 To Fullnum.ToCharArray.GetUpperBound(0) + If Asc(Fullnum.ToCharArray()(i)) > 57 AndAlso Fullnum.ToCharArray()(i) <> "H" Then '//ε H ƴϸ false + DR("") = False + Exit For + End If + Next + Else + DR("") = False + End If + Next + Dv = New DataView(TDT, "=true", "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + End If + + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + Console.WriteLine("Change Style غð : " + wat.ElapsedMilliseconds.ToString() + "ms") + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + AddLog(Admin, "FindData : Count = " & Dv.Count, "\Alllog.txt") + Me.TB_Pattern_End.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 '//ũѹٰ ȿδ.(Ŀ ) + Me.VScrollBar1.Maximum = Dv.Count - 1 + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + + Console.WriteLine("Change Style Loading ð : " + wat.ElapsedMilliseconds.ToString() + "ms") + + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + + If FirstIdx = 0 Then '//Index is first + AddLog(Admin, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + AddLog(Admin, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + Console.WriteLine("Change Style ü ð : " + wat.ElapsedMilliseconds.ToString() + "ms") + wat.Stop() + + + 'addlog(admin, "cmb_style selectindexchanged preview ȣ", "\Alllog.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + + + + If Div = "Z" Then + Console.WriteLine("Load Style ** ҷɴϴ ** : Z") + Else + Console.WriteLine("Load Style : ׸ ҷ DIV=" + Div) + End If + + AddLog(Admin, "load_style : Ÿ ҷɴϴ. div= " & Div, "\Alllog.txt") + + Dim pos(), font(), visible, mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + ''// ŬѴ. + 'Dim f As New fProgress() + 'f.ProgressBar1.Minimum = 0 + 'f.ProgressBar1.Maximum = Me.AllLabels.Length + 'f.ProgressBar1.Value = 0 + 'f.ProgressBar1.Style = ProgressBarStyle.Blocks + 'f.Label1.Text = String.Format(" Ÿ ʱȭ մϴ." + vbCrLf + "Control") + ''f.TopMost = True + 'f.Show() + 'Application.DoEvents() + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + ' f.ProgressBar1.Value += 1 + If Div.ToUpper = "Z" OrElse Tobj.Name.ToUpper.StartsWith(Div) Then '// + + Tobj.Location = New Point(0, 0) + Tobj.Size = New Size(10, 10) + Tobj. = 10 + Tobj. = 10 + Tobj.MyFont = Me.Font + Tobj.Visible = False + 'Tobj.MyText = String.Empty '//ڴ parse Ҵ ̹Ƿ ϸȵȴ. + Tobj. = 0 + Tobj.Repeat = False + Tobj.RepeatX = 0 + Tobj.RepeatY = 0 + End If + Next + + 'f.ProgressBar1.Value = 0 + 'f.Label1.Text = "Ÿ ҷɴϴ" + 'f.Show() + 'Application.DoEvents() + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + + 'f.ProgressBar1.Value = i + 1 + 'f.ProgressBar1.Refresh() + + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + Dim strdata() As String = DR(0)(1).ToString.Split(",") + Tobj.Repeat = CInt(strdata(0)) + Tobj.RepeatX = CInt(strdata(1)) + Tobj.RepeatY = CInt(strdata(2)) + Else + Tobj.Repeat = False + Tobj.RepeatX = 0 + Tobj.RepeatY = 0 + End If + + + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.StartsWith(Div) Then + If Div.ToUpper = "H" Then '//Hǰ ãƺ. + If Me.۵ = True Then '//ҷ´ + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + Dim strdata() As String = DR(0)(1).ToString.Split(",") + Tobj.Repeat = CInt(strdata(0)) + Tobj.RepeatX = CInt(strdata(1)) + Tobj.RepeatY = CInt(strdata(2)) + Else + Tobj.Repeat = False + Tobj.RepeatX = 0 + Tobj.RepeatY = 0 + End If + End If + + Else + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + Tobj. = DR(0)(1).ToString + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + Dim strdata() As String = DR(0)(1).ToString.Split(",") + Tobj.Repeat = CInt(strdata(0)) + Tobj.RepeatX = CInt(strdata(1)) + Tobj.RepeatY = CInt(strdata(2)) + Else + Tobj.Repeat = False + Tobj.RepeatX = 0 + Tobj.RepeatY = 0 + End If + End If + End If + End If + + Next + + 'f.Label1.Text = "Ÿ ҷɴϴ" + 'f.Refresh() + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + AddLog(Admin, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\Alllog.txt") + + Dim Arinini As New MyINI2(DrStyle.FILE) + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage5.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = DrStyle.MARGINX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = DrStyle.MARGINY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = DrStyle.SCALEX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = DrStyle.SCALEY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = StyleList(Me.cmb_style.SelectedIndex).Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = DrStyle.DUMMYCNT + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + + Me.cmb_dummy.SelectedIndex = DrStyle.DUMMYTYPE ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = DrStyle.DUMMMYX ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = DrStyle.DUMMMYY ' Arinini.Read("STYLE", "dummmyy", "300") + + + + '//QRڵ + Try + Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1) + Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2) + Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1) + Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "") + Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "") + If qrbgstr = "" Then + lbQrBg.BackColor = Drawing.Color.White + Else + lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr)) + End If + If qrfgstr = "" Then + lbQrFG.BackColor = Drawing.Color.Black + Else + lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr)) + End If + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + + + '//QRȨ + '//Try + Me.home1.Text = Arinini.Read("STYLE", "qrhome1", "http://cyber.kepco.co.kr") + Me.home2.Text = Arinini.Read("STYLE", "qrhome2", "jeonbuk") + Me.home3.Text = Arinini.Read("STYLE", "qrhome3", "mjeonbuk") + Me.home4.Text = Arinini.Read("STYLE", "qrhome4", "report.jsp?location") + '//Catch ex As Exception + '// MessageBox.Show(ex.ToString()) + '//End Try + + + '//QRŸ ºκ + Me.gita1.Text = Arinini.Read("STYLE", "rqrgita1", "") + Me.gita2.Text = Arinini.Read("STYLE", "rqrgita2", "") + Me.gita3.Text = Arinini.Read("STYLE", "rqrgita3", "") + Me.gita4.Text = Arinini.Read("STYLE", "rqrgita4", "") + + Me.gojang.Text = Arinini.Read("STYLE", "gojang1", "Ű Ʈϰ") + + + If DrStyle.BACKIMG.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & DrStyle.BACKIMG + Else + Me.tb_picfile.Text = DrStyle.BACKIMG ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = DrStyle.LANDSCAPE ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + + Me.chk_DisplayBG.Checked = DrStyle.VIEWIMAGE ' Arinini.Read("STYLE", "ViewImage", True) + Me.tb_myfontsize.Text = DrStyle.PRINTFONTOFFSET ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + + Application.DoEvents() + + End Sub + + + + Public Sub SAVE_STYLE() + AddLog(Admin, "iniϿ Ÿ մϴ. ", "\Alllog.txt") + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim Arininic As New MyINI2(CStr(DrStyle.FILE).ToLower.Replace("ini", "cfg")) + + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + + + Dim Div As Char + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat.ToString() + "," + Tobj.RepeatX.ToString() + "," + Tobj.RepeatY.ToString()) '//170222 + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E", "Z" + Arinini.Write("STYLE", Tobj.Name & "mytext", TextEnc(Tobj.MyText)) + Case "F", "I", "T" + ' Debug.WriteLine("new datarow") + End Select + + Div = Tobj.Name.Substring(0, 1) '1ڸ üũڽ ±׶ Ѵ. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ش üũڽ ã üũڽ · Ѵ. + Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + Exit For + End If + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name.ToString, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name.ToString, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width) '//ĵѴ. + Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height) + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + + '//QRڵ + Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text) + Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text) + Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text) + Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString()) + Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString()) + + '//QRȨ + Arinini.Write("STYLE", "qrhome1", Me.home1.Text) + Arinini.Write("STYLE", "qrhome2", Me.home2.Text) + Arinini.Write("STYLE", "qrhome3", Me.home3.Text) + Arinini.Write("STYLE", "qrhome4", Me.home4.Text) + + + '//QRŸ + Arinini.Write("STYLE", "rqrgita1", Me.gita1.Text) + Arinini.Write("STYLE", "rqrgita2", Me.gita2.Text) + Arinini.Write("STYLE", "rqrgita3", Me.gita3.Text) + Arinini.Write("STYLE", "rqrgita4", Me.gita4.Text) + + Arinini.Write("STYLE", "gojang1", Me.gojang.Text) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + AddLog(Admin, "save style Ϸ ̺ ȣ ", "\Alllog.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + End Sub + Public Sub SAVE_PATTERNII(ByVal SRCSTR As String, ByVal MIDNAME As String, ByVal DIV As Char, IncludeH As Boolean, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + + '//̰ Ѵ. + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR, IncludeH) '//h ο ϸ ޶Եȴ. Ŀ ã h ȯѰ ã óϰѴ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MIDNAME & mb.ToString + + If MsgBox("" + IIf(IncludeH, "(H)", "") + " Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("({0}) մϴ" + vbCrLf + MIDNAME, DIV) + f.TopMost = True + f.Show() + Application.DoEvents() + + + AddLog(Admin, " save_pattern2" + IIf(IncludeH, "(H)", "") + " Ѵ.", "\Alllog.txt") + + Select Case DIV.ToString.ToUpper + Case "M" '// + + f.ProgressBar1.Maximum = S.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Arinini.Write(Pname, "LineType1", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate1", Me.cmb_sep.SelectedIndex) + Case "J" '//ô 170215 + + f.ProgressBar1.Maximum = Sô.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sô.GetUpperBound(0) + TOBJ = Me.Sô(i) + 'AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "L" '//θ + + f.ProgressBar1.Maximum = Sθ.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sθ.GetUpperBound(0) + TOBJ = Me.Sθ(i) + 'AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + 'AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "C" '//θ + + f.ProgressBar1.Maximum = Sð.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sð.GetUpperBound(0) + TOBJ = Me.Sð(i) + 'AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + 'AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "K" '//dl + + f.ProgressBar1.Maximum = S.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "F" '//뷮 + + f.ProgressBar1.Maximum = S뷮.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + + For i As Integer = 0 To Me.S뷮.GetUpperBound(0) + TOBJ = Me.S뷮(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "I" '//ǥ 1 150201 + + f.ProgressBar1.Maximum = Sǥ1.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sǥ1.GetUpperBound(0) + TOBJ = Me.Sǥ1(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "T" '//ǥ 2 150201 + + f.ProgressBar1.Maximum = Sǥ2.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sǥ2.GetUpperBound(0) + TOBJ = Me.Sǥ2(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + f.ProgressBar1.Value += 1 + Next + Case "X" '//ֹȣ + + f.ProgressBar1.Maximum = Sֹȣ.Length + f.ProgressBar1.Value = 0 + f.Refresh() + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + 'AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + f.ProgressBar1.Value += 1 + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + Case Else + MsgBox("Save_PatternII ǵ (" & DIV & ") ߻Ͽϴ", MsgBoxStyle.Critical, "Ȯ") + End Select + + f.Close() + f.Dispose() + Application.DoEvents() + + + AddLog(Admin, "save_patter2 ̺ ȣѴ٤Ӥ ", "\Alllog.txt") + Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + AddLog(Admin, "ü ޺ڽ Ư ü õǾ view property ȣ", "\Alllog.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + AddLog(Admin, "ǥ üũڽ ", "\Alllog.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + AddLog(Admin, "[ǥ] üũڽ ÿ pewview ȣ ", "\Alllog.txt") + Me.preview_window() + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + AddLog(Admin, " ۾ Ŭ", "\Alllog.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + AddLog(Admin, "۾B õ setfont ȣ ", "\Alllog.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + AddLog(Admin, "updatefont : ", "\Alllog.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.StartsWith(Div.ToUpper()) Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + AddLog(Admin, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + If Not Tobj.Name.ToUpper.StartsWith(div.ToUpper) Then Continue For + + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + + + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click + Me.CtrSize(False, -5) + End Sub + + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click + Me.CtrSize(False, 5) + End Sub + + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click + Me.CtrSize(True, -5) + End Sub + + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click + Me.CtrSize(True, 5) + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Me.CtrPos(False, -5) + End Sub + + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Me.CtrPos(False, 5) + End Sub + + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click + Me.CtrPos(True, -5) + End Sub + + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click + Me.CtrPos(True, 5) + End Sub + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + + + For i As Integer = Me.TB_Pattern_Start.Text To Me.TB_Pattern_End.Text + ' If chkFlag Then Exit For + showcnt(i, Me.TB_Pattern_End.Text) + + Me.TB_Pattern_Start.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '0 Ѵ ٴ ̴ // 3.. ڿ ̰ ÿ Ѵٴ ̴. + NOTICE("ٹȣ=" & i + 1 & " , ʽϴ(" & ȣϰ˻ & ")", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.TB_Pattern_Start.Text = Me.TB_Pattern_End.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_print_repeat.Checked = False Then Me.rad_print_area.Checked = True + End Sub + + '--------------------------------- + Public Function PARSE_ȣ(ByVal srcsTR As String, ByVal jisun As Boolean) As Boolean + 'Me.CLEAR_ITEM("X") + + Dim Log As String = "\Parse_ȣ.txt" + If srcsTR = "" OrElse Not Me.cb_jjnum.Checked Then + Me.CLEAR_ITEM(Sֹȣ) + Me.CLEAR_ITEM(Sֹȣ) + AddLog(Admin, "ȣ ų ȣ ǥ ʵ üũǾֽϴ", Log) + Return False + End If + + '// 츦 ǴѴ. ִ (μ÷) üũǾְ cb.jisun üũǾ ȣ ʰѴ. + If jisun AndAlso Me.cmb_jisun.SelectedIndex > 0 Then + Me.CLEAR_ITEM(Sֹȣ) + AddLog(Admin, "ְ Ǹ 絥ʹ ̹Ƿ ȣ ǥ ʽϴ", Log) + If Me.cmb_jisun.SelectedIndex = 1 Then '// ǥؾѴ. + Me.Sֹȣ(0).MyText = srcsTR + Me.Sֹȣ(0).Visible = True + ' --------------------------------------------------- Else + ' ---------------------------------------------- Me.Sֹȣ(0).Visible = False + End If + Return False + Else ''// ̹ǥõ ¿µ Ʒ̾ Լ ǥõǾ߻ 20080220 + Me.Sֹȣ(0).Visible = False + End If + + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȣ(ByVal SRCSTR As String) As Integer + Dim Wlen As Short = SRCSTR.Length : If Wlen <= 0 Then Return 3 '// ۱Ͱ ع. + Dim SRC() As Char = SRCSTR.ToCharArray + Dim Log As String = "\Parse_ȣ.txt" + Dim SepPos As Short = SRCSTR.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim PATTERN As String = PATTERN_ENC(SRCSTR) + Dim PATTERN2 As String = PATTERN_ENC(SRCSTR, True) + Dim TOBJ As MyControlOLEDBv2.MyLabel + + Dim иε As Short = 0 + Dim ȣ As String = "999" + Dim Dr() As DataRow + + '//H ˻Ѵ. + pname = "JJNUMPATTERNII" & PATTERN2 + Dr = DtPattern.Select("NAME = '" & pname & "X1POS'") + Dim FindHpattern As Boolean = False + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + FindHpattern = True + AddLog(Admin, "ȣH() : =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN2, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + AddLog(Admin, "(H)=" & ex.Message.ToString, Log) + End Try + Next + Else + + '//Hڰ Ƿ Ϲ Ѵ. + pname = "JJNUMPATTERNII" & PATTERN + + Dr = DtPattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + AddLog(Admin, "Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + retval += 2 '// Ƿ ٷ ѱ. + End If + End If + + If retval = 2 Then '// 쿡 ȮѴ. + '// Ȯ + pname = "JJNUMPATTERN" & Wlen + + Dr = DtPattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + AddLog(Admin, " Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & SRCSTR, Log) + retval += 1 '// + End If + End If + + Me.cmb_sep.SelectedIndex = иε + + If ȣ = "999" Then '//̾ٴ ̴ ȣ ش. + 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + If ȣ.Length <= 12 Then + If ȣ.Length <= 4 Then + ȣ = ȣ.Length & "00" + ElseIf ȣ.Length <= 8 Then + ȣ = "4" & CStr(ȣ.Length - 4) & "0" + Else + ȣ = "44" & CStr(ȣ.Length - 8) + End If + Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ȣ = CStr(Int(ȣ.Length / 3)) & CStr(Int(ȣ.Length / 3)) & CStr(ȣ.Length - Int(ȣ.Length / 3) * 2) + End If + 'MsgBox("ȣ=" & ȣ) + End If + + Me.tb_ntype.Text = ȣ + + ȣ(Me.tb_ntype.Text) '//ȣ ش. + Return retval '// 0 ϵɰ̴. ̶ ̴ + + End Function + + Private Function SetXdata(ByVal idx As Short, ByRef Src() As Char) As MyControlOLEDBv2.MyLabel + If idx > Src.GetUpperBound(0) Then Return Nothing + Dim A As MyControlOLEDBv2.MyLabel = Me.Sֹȣ(0) + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + If Me.Sֹȣ(i).MyText = "" Then + Me.Sֹȣ(i).MyText = Src(idx) + If i = 11 Then + A = Nothing + Else + A = Me.Sֹȣ(i + 1) + End If + Exit For + End If + Next + Return A + End Function + + + Private Function GetnextCtl(ByVal currCtl As MyControlOLEDBv2.MyLabel) As MyControlOLEDBv2.MyLabel + Dim a As MyControlOLEDBv2.MyLabel = Nothing + Select Case currCtl.Name.ToUpper + Case "X1" + a = Me.Sֹȣ(1) ' X2 + Case "X2" + a = Me.Sֹȣ(2) 'X3 + Case "X3" + a = Me.Sֹȣ(3) 'x4 + Case "X4" + a = Me.Sֹȣ(4) 'x5 + Case "X5" + a = Me.Sֹȣ(5) ' x6 + Case "X6" + a = Me.Sֹȣ(6) 'x7 + Case "X7" + a = Me.Sֹȣ(7) ' x8 + Case "X8" + a = Me.Sֹȣ(8) 'x9 + Case "X9" + a = Me.Sֹȣ(9) 'x10 + Case "X10" + a = Me.Sֹȣ(10) ' x11 + Case "X11" + a = Me.Sֹȣ(11) 'x12 + Case "X12" + a = Me.Sֹȣ(12) 'X13 + Case "X13" + a = Me.Sֹȣ(13) 'x14 + Case "X14" + a = Me.Sֹȣ(14) 'x15 + Case "X15" + a = Me.Sֹȣ(15) ' x16 + Case "X16" + a = Me.Sֹȣ(16) 'x17 + Case "X17" + a = Me.Sֹȣ(17) ' x18 + Case "X18" + a = Me.Sֹȣ(18) 'x19 + Case "X19" + a = Me.Sֹȣ(19) 'x20 + Case "X20" + a = Me.Sֹȣ(20) ' x21 + Case Else + a = Nothing + End Select + Return a + End Function + Private Sub ȣ(Optional ByVal msg As String = "999") + 'MsgBox("ȣ : " & ȣ, MsgBoxStyle.Information, msg) + '// ȣ ιȣ ǥѴ. + '//20070826 ȣ и/ ؼ Ѵ. + Dim A() As Char = .ToCharArray + Dim P() As Char = msg.ToCharArray + Me.CLEAR_ITEM(S) + '//12̻ ̶ Ѵٸ شȣ + If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso .Length > 12) Then Me.cmb_sep.SelectedIndex = 2 + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.S(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = 0 '//ü ° ߴٴ ǥ + Select Case Me.cmb_sep.SelectedIndex + Case 0 '//ȥ + '//ļ 4 Ѵ. + '// 342 : 345 R23L1 R9 + ' MsgBox("ȣ=" & msg & "/" & ȣ & "/p0=" & P(0)) + + Me.tb_ntype.Enabled = True '//и ̰ false ȴ. + If CInt(P(0).ToString) <> 0 AndAlso CInt(P(0).ToString) < 5 Then '//ùٿش ڸ ִ´. + ' MsgBox("1=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = 0 To (CInt(P(0).ToString) - 1) '// + If i <= A.GetUpperBound(0) Then '// ϰ + Me.S(i).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + CPos = i ' + 1 + CurPos = i + End If + Next + ElseIf CInt(P(0).ToString) > 4 Then '//ù ڸ Ѵ. + For i As Int16 = 0 To (CInt(P(0).ToString) - 1) + If i <= A.GetUpperBound(0) Then '// + Me.S(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(i).Visible = True + CurPos = i + 'CurPos += 1 + 'NextCtl.MyText &= A(i) + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + 'CurPos += 1 '//⼭ 1̵ȴ. + End If + + + 'curpos ° ȣ ߴٴ°̴( ȣ Ų) + 'cpos ° Ʈѱ ٴ ̴. + ' MsgBox("1° ġ=" & CurPos) + + '//2° ׽ƮѴ. + + If CPos = 0 AndAlso Me.S(0).MyText = "" Then '//Ʈѹȣ 0ϰ. ̾ 1°ٿ ƹ͵¶̴. + CPos = -1 + End If + + If CInt(P(1).ToString) > 0 AndAlso CInt(P(1).ToString) < 5 Then + ' MsgBox("2=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.S(CPos + 1).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + CPos += 1 + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + + CurPos = i + End If + Next + ElseIf CInt(P(1).ToString) > 0 Then '// + CPos += 1 + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.S(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(CPos).Visible = True + 'NextCtl.MyText &= A(i) + CurPos = i + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + End If + + + ' MsgBox("2° ġ=" & CurPos) + + If CInt(P(2).ToString) > 0 AndAlso CInt(P(2).ToString) < 5 Then + ' MsgBox("3ٰ=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1 + If i <= A.GetUpperBound(0) Then + ' MsgBox(i & "/" & A(i)) + Me.S(CPos + 1).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + CPos += 1 + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + CurPos = i + End If + + Next + ElseIf CInt(P(2).ToString) > 0 Then '// + 'MsgBox("3=" & msg & "/" & ȣ & "/p0=" & P(0)) + CPos += 1 + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.S(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(CPos).Visible = True + 'NextCtl.MyText &= A(i) + CurPos = i + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + End If + ' MsgBox("3° ġ=" & CurPos) + + + Case 1 '//и + Me.tb_ntype.Enabled = False + For i As Int16 = 0 To A.GetUpperBound(0) '// 12 ͸ Ѵ. + Me.S(i).MyText = IIf(A(i) <> ";", A(i), "") + Next + Case 2 '// + Me.tb_ntype.Enabled = True + For i As Integer = 0 To A.GetUpperBound(0) '// ڿ ִ´ ̰ ڶ ߰ . + If i <= CInt(P(0).ToString) - 1 Then + Me.S(0).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i <= (CInt(P(0).ToString) + CInt(P(1).ToString) - 1) Then + Me.S(1).MyText &= IIf(A(i) <> ";", A(i), "") + Else + Me.S(2).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.S.GetUpperBound(0) + Me.S(i).Visible = IIf(Me.S(i).MyText = "", False, True) + Next + End Sub + Private Sub ȣ(Optional ByVal msg As String = "999") + 'MsgBox("ȣ : " & ȣ, MsgBoxStyle.Information, msg) + '// ȣ ιȣ ǥѴ. + '//20070826 ȣ и/ ؼ Ѵ. + Dim A() As Char = ȣ.ToCharArray + + Dim P() As String + If msg.IndexOf(",") = -1 Then '// 140702 + Dim pp As New List(Of String) + For Each cc As Char In msg.ToCharArray + pp.Add(cc) + Next + P = pp.ToArray() + Else + P = msg.Split(",") + End If + + Me.CLEAR_ITEM(Sֹȣ) + '//12̻ ̶ Ѵٸ شȣ ȥ ٲ۴. + If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso ȣ.Length > 30) Then Me.cmb_sep.SelectedIndex = 0 + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.Sֹȣ(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = 0 '//ü ° ߴٴ ǥ + + Dim Limit(P.GetUpperBound(0)) As Short '//迭 Ѱ + For i As Short = 0 To P.GetUpperBound(0) + If i = 0 Then + Limit(i) = CInt(P(i).ToString) + Else + Limit(i) = Limit(i - 1) + CInt(P(i).ToString) + End If + 'MsgBox("Ѱ԰ : " & i & " =" & Limit(i)) + Next + + Select Case Me.cmb_sep.SelectedIndex + Case 0 '//ȥ + '//ļ 4 Ѵ. + '// 3442 : 345 R23L1 R932 + 'MsgBox("ȣ=" & msg & "/" & ȣ & "/p0=" & P(0)) + Me.tb_ntype.Enabled = True '//и ̰ false ȴ. + Dim OK As Short = -1 '//Ϸ ȣ 迭 + Dim Ʈġ As Short = -1 + Dim RES As Boolean = False + + For i As Integer = 0 To A.GetUpperBound(0) + If CInt(P(OK + 1).ToString) <= 4 Then '//γִ´ + If i + 1 < Limit(OK + 1) Then + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Else '//4ũٸ ش ok Ѱ Ʈѿ ִ´. + If RES = False Then + Ʈġ += 1 + RES = True + End If + If i + 1 < Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For + RES = False + End If + End If + Next + Case 1 '//и + Me.tb_ntype.Enabled = False + For i As Int16 = 0 To A.GetUpperBound(0) '// 12 ͸ Ѵ.(30 ÷ Ұ̴) + Me.Sֹȣ(i).MyText = IIf(A(i) <> ";", A(i), "") + Next + Case 2 '// + Me.tb_ntype.Enabled = True + Dim OK As Short = -1 '//Ϸ ȣ 迭 + For i As Integer = 0 To A.GetUpperBound(0) + If i < Limit(OK + 1) Then + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i = Limit(OK + 1) Then + OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).Visible = IIf(Me.Sֹȣ(i).MyText = "", False, True) + Next + End Sub + + Public Function PARSE_(ByVal SRCNUM As Integer, ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Me.Sֹȣ) + Me.CLEAR_ITEM(Me.Sֹȣ) + Dim Log As String = "\Parse_.txt" + If Me.cb_mainrow.Checked Then + Me.Sֹȣ(0).MyText = SRCNUM + Me.Sֹȣ(0).Visible = True + End If + If Me.cb_mainnum.Checked Then + Me.Sֹȣ(0).MyText = srcstr + Me.Sֹȣ(0).Visible = True + End If + AddLog(Admin, "MAIN ROW NUM=" & SRCNUM & " STRING=" & srcstr, Log) + Return True + End Function + Public Function PARSE_(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + + Console.WriteLine("PARSE_ : " + srcstr) + Me.CLEAR_ITEM(Me.S) + Dim Log As String = "\Parse_.txt" + If srcstr = "" OrElse Not Me.cb_kwang.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + S(i).MyText = SRC(i).ToString + S(i).Visible = True + Catch ex As Exception + Exit For + End Try + 'S(i) = New MyControlOLEDBv2.MyLabel + + ' MsgBox(S(i).MyText) + + Next + Return True + End Function + + Public Function PARSE_(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Me.S) + Dim Log As String = "\Parse_.txt" + If srcstr = "" OrElse Not Me.cb_man.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + 'For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + ' Try + ' S(i).MyText = SRC(i).ToString + ' S(i).Visible = True + ' Catch ex As Exception + ' Exit For + ' End Try + 'Next + Return True + + End Function + + + + Public Sub PARSE_(ByVal srcstr As String) + Dim Log As String = "\Parse_.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + + 'Dim lpattern As Boolean = False + Dim Pname As String = "CNUMPATTERN" & Wlen + 'Dim Sname As String + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim Arinini As New MyINI2(DrStyle.FILE) + 'Dim tobj As MyControlOLEDBv2.MyLabel + Dim Dr() As DataRow + 'Dim idx As Short = 0 + ' Me.Ͽ(srcstr, Pname, Log, "H", S) + + Pname = "CNUMPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, S) + + '//5 ĺ ̵Ǿִ ȮѴ. + Pname = "CNUMPATTERNI" & S(4).MyText ' Me.h5.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + Dr = DtPattern.Select("NAME = '" & Pname & "DESC'") + + If Dr.GetUpperBound(0) = 0 Then '//ִ. + AddLog(Admin, "5 ڸ ãҽϴ (" & Pname & "DESC" & ")", Log) + Dr = DtPattern.Select("NAME = '" & Pname & S(4).Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + Me.S(4).Location = New Point(CTLPOS(0), CTLPOS(1)) + Me.S(4).Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & S(4).Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + S(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + S(4). = CTLFONT(5) + S(4). = CTLFONT(6) + End If + Dr = DtPattern.Select("NAME = '" & Pname & S(4).Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + S(4).Visible = CType(CTLVISIBLE, Boolean) + End If + Dr = DtPattern.Select("NAME = '" & Pname & S(4).Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + S(4). = Dr(0)(1) + End If + Else + AddLog(Admin, "5 ڰ Ǿʽϴ. (" & S(4).MyText & ")", Log) + End If + End Sub + Public Function PARSE_(ByVal srcstr As String) As Integer + + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return 3 '// ۱Ͱ ع. + Dim SRC() As Char = srcstr.ToCharArray + Dim Log As String = "\Parse_.txt" + Dim SepPos As Short = srcstr.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim PATTERN As String = PATTERN_ENC(srcstr) + Dim TOBJ As MyControlOLEDBv2.MyLabel + + Dim иε As Short = 0 + Dim ȣ As String = "999" + Dim Dr() As DataRow + + '//ڰִ ȮѴ. + pname = "MANGPATTERNII" & PATTERN + + Dr = DtPattern.Select("NAME = '" & pname & "M1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ϰ() : =" & Wlen & " ڿ=" & srcstr & " =" & PATTERN, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate1", 2) + ȣ = Arinini.Read(pname, "LineType1", "999") + + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + AddLog(Admin, "Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ =" & Wlen & " ڿ=" & srcstr & " =" & PATTERN, Log) + retval += 2 '// Ƿ ٷ ѱ. + End If + + + + + If retval = 2 Then '// 쿡 ȮѴ. + '// Ȯ + pname = "MANGPATTERN" & Wlen + + Dr = DtPattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ϰ() : =" & Wlen & " ڿ=" & srcstr, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate1", 2) + ȣ = Arinini.Read(pname, "LineType1", "999") + + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + AddLog(Admin, " Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & srcstr, Log) + retval += 1 '// + End If + End If + + Me.cmb_sep.SelectedIndex = иε + + If ȣ = "999" Then '//̾ٴ ̴ ȣ ش. + 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + If ȣ.Length <= 12 Then + If ȣ.Length <= 4 Then + ȣ = ȣ.Length & "00" + ElseIf ȣ.Length <= 8 Then + ȣ = "4" & CStr(ȣ.Length - 4) & "0" + Else + ȣ = "44" & CStr(ȣ.Length - 8) + End If + Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ȣ = CStr(Int(ȣ.Length / 3)) & CStr(Int(ȣ.Length / 3)) & CStr(ȣ.Length - Int(ȣ.Length / 3) * 2) + End If + 'MsgBox("ȣ=" & ȣ) + End If + + Me.tb_ntype.Text = ȣ + + ȣ() '//ȣ ش. + Return retval '// 0 ϵɰ̴. ̶ ̴ + + End Function + + + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + WLog2(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Console.WriteLine("Parse : " + srcstr + ",=" + Mylabels(0).) + If Mylabels(0)..IndexOf("") <> -1 Then + Console.WriteLine("") + End If + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + Return True + End Function + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + + Public Sub PARSE_ô(ByVal SrcStr As String) + + Dim Wlen As Short = SrcStr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_ô.txt" + Dim SepPos As Short = SrcStr.IndexOf(";") + Dim Pname As String = "CHOKPATTERN" & Wlen + + ' Me.Ͽ(SrcStr, Pname, Log, "J", Sô) + Pname = "CHOKPATTERNII" & PATTERN_ENC(SrcStr) + Me.Ͽ(SrcStr, Pname, Log, Sô) + End Sub + + Public Function PARSE_ô(ByVal srcStr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("ô") + Me.CLEAR_ITEM(Sô) + Dim Log As String = "\Parse_ô.txt" + If srcStr = "" OrElse Not Me.cb_jangck.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcStr.Length + Dim SepPos As Short = srcStr.IndexOf(";") + Dim SRC() As Char = srcStr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Select Case srcStr.Length + Case 1 + Me.Sô(0).MyText = "0" + Me.Sô(1).MyText = srcStr + Me.Sô(0).Visible = True + Me.Sô(1).Visible = True + + Me.Sô(2).Visible = False + Case 2 + Me.Sô(0).MyText = srcStr.Substring(0, 1) + Me.Sô(1).MyText = srcStr.Substring(1) + Me.Sô(0).Visible = True + Me.Sô(1).Visible = True + + Me.Sô(2).Visible = False + 'Case 3 + ' Me.Sô(0).MyText = srcStr.Substring(0, 1) + ' Me.Sô(1).MyText = srcStr.Substring(1, 1) + ' Me.Sô(2).MyText = srcStr.Substring(2) + ' Me.Sô(0).Visible = True + ' Me.Sô(1).Visible = True + ' Me.Sô(2).Visible = True + Case Else + + Me.Sô(0).MyText = srcStr.ToString + Me.Sô(0).Visible = True + + Me.Sô(1).Visible = False + Me.Sô(2).Visible = False + + 'If Me.cb_jc1.Checked Then '//ô3ڸ ϶ + ' Me.Sô(2).Visible = True + ' Me.Sô(2).MyText = srcStr.ToString + ' Me.Sô(2).Visible = True + ' LOAD_STYLEC(Me.cmb_style.SelectedIndex & "STYLEJANGCHOK", "J") '//ô3ڸ϶ ĿҽŸ ҷɴϴ + ' Return False '//ڿ ϰ˻縦 ʱؼ̴.. ʿ ... + 'Else '//ôü ش. + ' Me.Sô(0).MyText = srcStr.Substring(1, 1) + ' Me.Sô(1).MyText = srcStr.Substring(2, 1) + ' Me.Sô(0).Visible = True + 'End If + End Select + Return True + End Function + + + + + Private Sub PARSE_1(ByVal srcstr As String) + Me.CLEAR_ITEM(S) + If srcstr <> "" AndAlso Me.cb_jji.Checked Then + Me.S(0).MyText = srcstr & "" + Me.S(0).Visible = True + End If + End Sub + Private Sub PARSE_2(ByVal srcstr As String) + If srcstr <> "" AndAlso Me.cb_jji.Checked Then + Me.S(1).MyText = srcstr & "" + Me.S(1).Visible = True + End If + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + AddLog(Admin, "GetPrinterName()", "\Alllog.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + 'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then '//ε ְ + 'Me.BindingSource1.Position += 2 + 'Else + Me.BindingSource1.Position += 1 + 'End If + 'Me.BindingNavigatorMoveNextItem.PerformClick() + 'Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + + If Me.BindingNavigatorPositionItem.Text > 0 Then + 'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then '//ε ְ + ' Me.BindingSource1.Position -= 2 + 'Else + Me.BindingSource1.Position -= 1 + 'End If + 'Me.BindingNavigatorMovePreviousItem.PerformClick() + 'Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Me.Text = e.X & "/" & e.Y + End Sub + + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + 'Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' Dim A As New System.Text.StringBuilder + ' A.AppendLine("[ŸŸ] ô3ڸ õǾֽϴ") + ' A.AppendLine() + ' A.AppendLine("ŸŸ Ŭϼ") + ' If Me.cb_jc1.Checked Then + ' MsgBox(A.ToString, MsgBoxStyle.Critical, "Ȯ") + ' Return + ' End If + ' SAVE_PATTERNII(Me.ô.ToCharArray, "CHOKPATTERNII", "J", "\ô2.TXT") '//θ մϴ. + 'End Sub + + 'Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' SAVE_PATTERNII(Me.ð.ToCharArray, "YYMMPATTERNII", "Y", "\ð2.TXT") '//θ մϴ. + ' SAVE_PATTERNII(Me..ToCharArray, "YYMMPATTERNII", "O", "\2.TXT") '//θ մϴ. + ' SAVE_PATTERNII(Me..ToCharArray, "YYMMPATTERNII", "HI", "\2.TXT") '//θ մϴ. + 'End Sub + + 'Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' SAVE_PATTERNII(Me.ȣ.ToCharArray, "JNUMPATTERNII", "S", "\ιȣ2.TXT") '//θ մϴ. + 'End Sub + + 'Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' SAVE_PATTERNII(Me..ToCharArray, "CNUMPATTERNII", "H", "\ȣ2.TXT") '//θ մϴ. + 'End Sub + + 'Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + ' SAVE_PATTERNII(Me.θ.ToCharArray, "LINEPATTERNII", "L", "\θ2.TXT") '//θ մϴ. + 'End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("5 (" & Me.S(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S(4).) + msg.AppendLine(" = " & Me.S(4).) + msg.AppendLine("ǥ = " & Me.S(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + 'MsgBox(StyleList(Me.cmb_style.SelectedIndex).File) + + + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S(4) + Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If Not Me.cb_jc1.Checked Then + MsgBox("ŸŸ[ô3ڸ] ʱ⋚ ʽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + If MsgBox(" Ÿ(Ÿ-ô3ڸ) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "ŸŸ") = MsgBoxResult.Yes Then + If Me.cb_jc1.Checked Then Me.SAVE_STYLEC(Me.cmb_style.SelectedIndex & "STYLEJANGCHOK", "J") + NOTICE("Ÿ(Ÿ-ô3ڸ) ߽ϴ", Me.lb_msg) + Else + NOTICE("Ÿ(Ÿ-ô3ڸ) ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub Ÿô3ڸToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + If Not Me.cb_jc1.Checked Then + MsgBox("ŸŸ[ô3ڸ] ʱ⋚ ʽϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + If MsgBox(" Ÿ(Ÿ-ô3ڸ) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "ŸŸ") = MsgBoxResult.Yes Then + Me.SAVE_STYLEC(Me.cmb_style.SelectedIndex & "STYLEJANGCHOK", "J") + NOTICE("Ÿ(Ÿ-ô3ڸ) ߽ϴ", Me.lb_msg) + Else + NOTICE("Ÿ(Ÿ-ô3ڸ) ҵǾϴ", Me.lb_msg) + End If + End Sub + +#Region "Not Edit" + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Public Sub preview_window() '//̸ȭ մϴ. ((â)) + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + + For Each Rect As S_Circle In Draw_Circle + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + + '//׸ ׸. + For Each Rect As S_Image In Draw_Image + + If Rect.Field <> "" Then + Select Case Rect.Field + Case "COS뷮" + If Me.뷮 = "" OrElse Not cb_뷮.Checked Then + Continue For + End If + Case "ǥ1" + If Me.ǥ1 = "" OrElse Not cb_1.Checked Then + Continue For + End If + Case "ǥ2" + If Me.ǥ2 = "" OrElse Not cb_2.Checked Then + Continue For + End If + Case "" + If Me. = "" OrElse Not cb_date.Checked Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "" + If Me. = "" Then + Continue For + End If + Case "ο" + If Me.ο = "" Then + Continue For + End If + End Select + End If + + Dim F As String = Rect.FileName + If F.Trim <> "" Then + F = F.Replace(".\", My.Application.Info.DirectoryPath & "\") + + If System.IO.File.Exists(F) Then + Dim Image As Image = Image.FromFile(F) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(Image, Rect.X, Rect.Y) + Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(Image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + End If + End If + Next + + '//ȭǥ ׸. 170711 + For Each Rect As S_Arrow In Draw_Arrow + + Select Case Rect.Direction + + Case 0 + If Me. = "" Then + Continue For + End If + Case 1 + If Me. = "" Then + Continue For + End If + Case 2 + If Me.ο = "" Then + Continue For + End If + End Select + + '//Ʈ Ѵ. + Dim pts As New List(Of Point) + + If Rect.Direction = 1 Then '// + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + pts.Add(New Point(Rect.RectX, Rect.RectY - Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH + Rect.TriHeight)) + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + + ElseIf Rect.Direction = 2 Then '// + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY - Rect.TriHeight)) + pts.Add(New Point(Rect.RectX + Rect.RectW + Rect.TriWidth, Rect.RectY + Rect.RectH / 2)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH + Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + pts.Add(New Point(Rect.RectX, Rect.RectY)) + + ElseIf Rect.Direction = 0 Then '// + + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY)) + + pts.Add(New Point(Rect.RectX - Rect.TriWidth, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW / 2, Rect.RectY - Rect.TriHeight)) + + pts.Add(New Point(Rect.RectX + Rect.RectW + Rect.TriWidth, Rect.RectY)) + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY)) + + pts.Add(New Point(Rect.RectX + Rect.RectW, Rect.RectY + Rect.RectH)) + pts.Add(New Point(Rect.RectX, Rect.RectY + Rect.RectH)) + + End If + + + + + Dim Pen As New Drawing.SolidBrush(Rect.PenColor) + Ga.FillPolygon(Pen, pts.ToArray()) + + Next + + If <> "" Then + '// qrڵ带 ׸ + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + + qrȨ1 = home1.Text + qrȨ2 = home2.Text + qrȨ3 = home3.Text + qrȨ4 = home4.Text + + Try + 'data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & ȣ & "&name=" & żֹȣ & ":" & ð & ":" & ô ' & " ð: " & ð & " : " & + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & żֹȣ & ":" & ô & "M" ' ð: " & ð & " : " & + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) 'data ӽ + + + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Catch ex As Exception + 'MessageBox.Show("QRڵ带 ׸µ DATA Ȯ Ͽ ּ") + MessageBox.Show(ex.ToString()) + End Try + + Next + + + '// qrڵ带 ׸ + For Each Rect As S_QRCode1 In Draw_QRcode1 + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + rqrŸ1 = gita1.Text + rqrŸ2 = gita2.Text + rqrŸ3 = gita3.Text + rqrŸ4 = gita4.Text + + Try + 'data = qð & qȨ & q & q1 & q2 + If rqrŸ1 <> "" And rqrŸ2 <> "" And rqrŸ3 <> "" And rqrŸ4 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 & "/" & rqrŸ4 + ElseIf rqrŸ1 <> "" And rqrŸ2 <> "" And rqrŸ3 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 + ElseIf rqrŸ1 <> "" And rqrŸ2 <> "" Then + data = rqrŸ1 & "/" & rqrŸ2 + ElseIf rqrŸ1 <> "" Then + data = rqrŸ1 + Else + data = rqrŸ1 & "/" & rqrŸ2 & "/" & rqrŸ3 & "/" & rqrŸ4 + End If + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) + + + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Catch ex As Exception + 'MessageBox.Show("QRڵ带 ׸µ DATA Ȯ Ͽ ּ") + MessageBox.Show(ex.ToString()) + End Try + + Next + + End If + + End If + + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + + If obj..IndexOf("") <> -1 Then + Console.WriteLine("ֹȣ ǥ visible=" + obj.Visible.ToString()) + End If + + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(BindingSource1.Position, True) + End If + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_jc1.CheckedChanged + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + If SelCon Is Nothing Then + MsgBox("õ ü ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordwidth.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + If SelCon Is Nothing Then + MsgBox("õ ü ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordheight.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged + Debug.Print("ValueChange Current : " & Me.VScrollBar1.Value) + + End Sub + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + ' End If + + End Sub + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim SelItem As New ArrayList + + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + SelItem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If SelItem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To SelItem.Count + A.ListBox1.Items.Add(CType(SelItem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = SelItem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = SelItem.Item(0) + End If + End If + 'End If + + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then '//ʹư ߰ + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + + + '//⼭ Ʈ ش ׷ ü ´. + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + Else '// + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + 'Dim Tobj As MyControlOLEDBv2.MyLabel + 'Tobj = Nothing + + 'For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + ' If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ' ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + ' AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + ' Tobj = Me.AllLabels(i).ctl + ' Exit For + ' End If + 'Next + + 'If Tobj Is Nothing Then Return '//õȰ + + 'Dim Msg As New System.Text.StringBuilder(" Էϼ") + 'Msg.AppendLine("ٹٲϷ \n Էϼ") + 'Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + 'Msg.AppendLine() + 'Msg.AppendLine(" ˴ϴ") + + + 'Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + 'If Val = "" Then Return + 'Val = Val.Replace("\n", vbCrLf) + 'Tobj.MyText = Val + + 'Me.preview_window() + End Sub + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + End Sub + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + + + DR = DtPattern.Select("[NAME] = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + AddLog(Admin, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = DtPattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + 'AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + 'DR = DtPattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + 'If DR.GetUpperBound(0) = 0 Then + ' AddLog(Auto_Log, "شݺڸ ãҽϴ") + ' CTLFONT = DR(0)(1).ToString.Split(",") + ' AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + ' C.Repeat = CTLFONT(0) + ' AddLog(Auto_Log, "شݺ 0°ġ ") + ' C.RepeatX = CTLFONT(1) + ' AddLog(Auto_Log, "شݺ 1°ġ ") + ' C.RepeatY = CTLFONT(2) + ' AddLog(Auto_Log, "شݺ 2°ġ ") + ' 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' ' C. = CTLFONT(5) + ' ' C. = CTLFONT(6) + 'Else + ' AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + 'End If + + + C.Tag &= "C" + Catch ex As Exception + AddLog(Admin, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + AddLog(Admin, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + Private Sub ⺻ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(DrStyle.FILE) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + + Else + Me.pDoc.DefaultPageSettings.Landscape = 1 + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + 'MsgBox(Me.PictureBox1.Size.ToString) + End Sub + Private Sub bt_print_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + + Me.Print() + End Sub + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + + Me.Print_Preview() + End Sub + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Process.Start(My.Application.Info.DirectoryPath & "\help\printform1.htm") + End Sub + Private Sub cm_styleeditoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + '//Ʒ + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + Private Sub cmb_jisun_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_jisun.SelectedIndexChanged + If Me.cmb_jisun.SelectedIndex > 0 Then + Me.StatusStrip1.BackColor = Drawing.Color.Thistle + Else + Me.StatusStrip1.BackColor = Drawing.Color.White + End If + End Sub + Private Sub ToolStripLabel2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.ButtonClick + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + End Sub + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + 'MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + If Me.cmb_controls.Text.IndexOf("") > -1 Then + ȣ(Me.tb_ntype.Text) + Else + ȣ(Me.tb_ntype.Text) + End If + End If + Me.preview_window() + End If + End Sub +#End Region + + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Public Sub Refresh_Drawlist() + + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "," & Rect.Field & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "," & Rect.Field & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "," & Rect.Field & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Image In Draw_Image + Me.ListBox1.Items.Add("׸(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "," & Rect.Field & "):" & I) + Me.ListBox1.Items.Add("׸ġ(" & Rect.FileName & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_QRCode In Draw_QRcode + Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "," & Rect.Field & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_QRCode1 In Draw_QRcode1 + Me.ListBox1.Items.Add("RQR1(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "," & Rect.Field & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Arrow In Draw_Arrow + Dim sName As String = "ARR({0})({1},{2},{3},{4},{5},{6}):" & I + sName = String.Format(sName, Rect.Direction, Rect.RectX, Rect.RectY, Rect.RectW, Rect.RectH, Rect.TriWidth, Rect.TriHeight) + Me.ListBox1.Items.Add(sName) + I += 1 + Next + preview_window() + End Sub + + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + NewLine.Field = "" + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + NewLine.Field = "" + + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + + cmb_connfield.Enabled = True + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Me.cmb_connfield.Text = Line.Field + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Me.cmb_connfield.Text = Line.Field + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Me.cmb_connfield.Text = Line.Field + Case "" + Dim Line As S_Image = Draw_Image(Me.ListBox1.Text.Split(":")(1)) + 'Me.bt_pencolor.BackColor = Line.PenColor + 'Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Me.tb_image.Text = Line.FileName + Me.cmb_connfield.Text = Line.Field + Case "Q" + Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) + 'Me.bt_pencolor.BackColor = Line.PenColor + 'Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Me.cmb_connfield.Text = Line.Field + Case "R" + Dim Line As S_QRCode1 = Draw_QRcode1(Me.ListBox1.Text.Split(":")(1)) + 'Me.bt_pencolor.BackColor = Line.PenColor + 'Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Me.cmb_connfield.Text = Line.Field + + Case "A" '//170711 + Dim Line As S_Arrow = Draw_Arrow(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.RectX + Me.tb_dy.Text = Line.RectY + Me.tb_dw.Text = Line.RectW + Me.tb_dh.Text = Line.RectH + Me.tb_tx.Text = Line.TriWidth + Me.tb_ty.Text = Line.TriHeight + Me.tb_tx.Enabled = True + Me.tb_ty.Enabled = True + 'Me.cmb_connfield.Text = Line.Field + cmb_connfield.SelectedIndex = 5 + Line.Direction + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown, tb_image.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "A" + Dim Line As S_Arrow = Draw_Arrow(Me.ListBox1.Text.Split(":")(1)) + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.RectX = Me.tb_dx.Text + Line.RectY = Me.tb_dy.Text + Line.RectW = Me.tb_dw.Text + Line.RectH = Me.tb_dh.Text + Line.Direction = Me.cmb_connfield.SelectedIndex - 5 + Line.TriHeight = Me.tb_ty.Text + Line.TriWidth = Me.tb_tx.Text + Draw_Arrow(Me.ListBox1.Text.Split(":")(1)) = Line + + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Line.Field = Me.cmb_connfield.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Line.Field = Me.cmb_connfield.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Line.Field = Me.cmb_connfield.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + Case "" + Dim Line As New S_Image + 'Line.PenColor = Me.bt_pencolor.BackColor + 'Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Line.FileName = Me.tb_image.Text + Line.Field = Me.cmb_connfield.Text + Draw_Image(Me.ListBox1.Text.Split(":")(1)) = Line + Case "Q" + Dim Line As New S_QRCode + 'Line.PenColor = Me.bt_pencolor.BackColor + 'Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Line.Field = Me.cmb_connfield.Text + Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line + Case "R" + Dim Line As New S_QRCode1 + 'Line.PenColor = Me.bt_pencolor.BackColor + 'Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Line.Field = Me.cmb_connfield.Text + Draw_QRcode1(Me.ListBox1.Text.Split(":")(1)) = Line + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(DrStyle.FILE) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim sname As String = "DrawCircle" + Dim pname As String = "DrawImage" + Dim qname As String = "DrawQRcode" + Dim rname As String = "DrawQRcode1" + Dim aname As String = "DrawArrow" + + Dim bcnt, lcnt, scnt, pcnt, qcnt, rcnt, acnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + ini.Write(bname, "box" & i & "field", L.Field) + Next + + ini.Write(sname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(sname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(sname, "Circle" & i & "pensize", L.PenWidth) + ini.Write(sname, "Circle" & i & "x", L.X) + ini.Write(sname, "Circle" & i & "y", L.Y) + ini.Write(sname, "Circle" & i & "x2", L.Width) + ini.Write(sname, "Circle" & i & "y2", L.Height) + ini.Write(sname, "Circle" & i & "field", L.Field) + Next + + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + ini.Write(lname, "line" & i & "field", L.Field) + Next + + ini.Write(pname, "Count", Draw_Image.Count) + For i As Short = 1 To Draw_Image.Count '//εƼ Ѵ. + Dim L As S_Image = Draw_Image(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(pname, "Image" & i & "x", L.X) + ini.Write(pname, "Image" & i & "y", L.Y) + ini.Write(pname, "Image" & i & "x2", L.Width) + ini.Write(pname, "Image" & i & "y2", L.Height) + ini.Write(pname, "Image" & i & "location", L.FileName) + ini.Write(pname, "Image" & i & "field", L.Field) + Next + + ini.Write(qname, "Count", Draw_QRcode.Count) + For i As Short = 1 To Draw_QRcode.Count '//εƼ Ѵ. + Dim L As S_QRCode = Draw_QRcode(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(qname, "qrcode" & i & "x", L.X) + ini.Write(qname, "qrcode" & i & "y", L.Y) + ini.Write(qname, "qrcode" & i & "x2", L.Width) + ini.Write(qname, "qrcode" & i & "y2", L.Height) + ini.Write(qname, "qrcode" & i & "field", L.Field) + Next + + ini.Write(rname, "Count", Draw_QRcode1.Count) + For i As Short = 1 To Draw_QRcode1.Count '//εƼ Ѵ. + Dim L As S_QRCode1 = Draw_QRcode1(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(rname, "rqrcode1" & i & "x", L.X) + ini.Write(rname, "rqrcode1" & i & "y", L.Y) + ini.Write(rname, "rqrcode1" & i & "x2", L.Width) + ini.Write(rname, "rqrcode1" & i & "y2", L.Height) + ini.Write(rname, "rqrcode1" & i & "field", L.Field) + Next + + ini.Write(aname, "Count", Draw_Arrow.Count) + For i As Short = 1 To Draw_Arrow.Count '//εƼ Ѵ. + Dim L As S_Arrow = Draw_Arrow(i - 1) + ini.Write(aname, "arrow" & i & "direction", L.Direction.ToString()) + ini.Write(aname, "arrow" & i & "pencolor", L.PenColor.ToArgb) + '//ini.Write(pname, "arrow" & i & "fillcolor", L.FillColor.ToArgb) + ini.Write(aname, "arrow" & i & "pensize", L.PenWidth) + ini.Write(aname, "arrow" & i & "tx", L.TriWidth) + ini.Write(aname, "arrow" & i & "ty", L.TriHeight) + ini.Write(aname, "arrow" & i & "x", L.RectX) + ini.Write(aname, "arrow" & i & "y", L.RectY) + ini.Write(aname, "arrow" & i & "x2", L.RectW) + ini.Write(aname, "arrow" & i & "y2", L.RectH) + ini.Write(aname, "arrow" & i & "field", L.Field) + Next + + Else '// д κ + + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + Draw_Image.Clear() + Draw_QRcode.Clear() + Draw_QRcode1.Clear() + Draw_Arrow.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + L.Field = ini.Read(bname, "box" & i & "field", "") + Draw_Box.Add(L) + Next + + scnt = ini.Read(sname, "Count", 0) + For i As Short = 1 To scnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(sname, "Circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(sname, "Circle" & i & "x", 0) + L.Y = ini.Read(sname, "Circle" & i & "y", 0) + L.Width = ini.Read(sname, "Circle" & i & "x2", 10) + L.Height = ini.Read(sname, "Circle" & i & "y2", 10) + L.Field = ini.Read(sname, "Circle" & i & "field", "") + Draw_Circle.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + L.Field = ini.Read(lname, "line" & i & "field", "") + Draw_Line.Add(L) + Next + + pcnt = ini.Read(pname, "Count", 0) + For i As Short = 1 To pcnt '//εƼ Ѵ. + Dim L As New S_Image + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(pname, "Image" & i & "x", 0) + L.Y = ini.Read(pname, "Image" & i & "y", 0) + L.Width = ini.Read(pname, "Image" & i & "x2", 10) + L.Height = ini.Read(pname, "Image" & i & "y2", 10) + L.FileName = ini.Read(pname, "Image" & i & "location", 10) + L.Field = ini.Read(pname, "Image" & i & "field", "") + Draw_Image.Add(L) + Next + + qcnt = ini.Read(qname, "Count", 0) + For i As Short = 1 To qcnt '//εƼ Ѵ. + Dim L As New S_QRCode + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(qname, "qrcode" & i & "x", 0) + L.Y = ini.Read(qname, "qrcode" & i & "y", 0) + L.Width = ini.Read(qname, "qrcode" & i & "x2", 10) + L.Height = ini.Read(qname, "qrcode" & i & "y2", 10) + L.Field = ini.Read(qname, "qrcode" & i & "field", "") + Draw_QRcode.Add(L) + Next + + rcnt = ini.Read(rname, "Count", 0) + For i As Short = 1 To rcnt '//εƼ Ѵ. + Dim L As New S_QRCode1 + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(rname, "rqrcode1" & i & "x", 0) + L.Y = ini.Read(rname, "rqrcode1" & i & "y", 0) + L.Width = ini.Read(rname, "rqrcode1" & i & "x2", 10) + L.Height = ini.Read(rname, "rqrcode1" & i & "y2", 10) + L.Field = ini.Read(rname, "rqrcode1" & i & "field", "") + Draw_QRcode1.Add(L) + Next + + acnt = ini.Read(aname, "Count", 0) + For i As Short = 1 To acnt '//εƼ Ѵ. + Dim L As New S_Arrow + L.Direction = ini.Read(aname, "arrow" & i & "direction", 0) + L.PenColor = System.Drawing.Color.FromArgb(ini.Read(aname, "arrow" & i & "pencolor", 0)) + L.PenWidth = ini.Read(aname, "arrow" & i & "pensize", 3) + ' L.FillColor = System.Drawing.Color.FromArgb(ini.Read(aname, "arrow" & i & "fillcolor", 0)) + L.TriWidth = ini.Read(aname, "arrow" & i & "tx", 30) + L.TriHeight = ini.Read(aname, "arrow" & i & "ty", 20) + L.RectX = ini.Read(aname, "arrow" & i & "x", 0) + L.RectY = ini.Read(aname, "arrow" & i & "y", 0) + L.RectW = ini.Read(aname, "arrow" & i & "x2", 10) + L.RectH = ini.Read(aname, "arrow" & i & "y2", 10) + L.Field = ini.Read(aname, "arrow" & i & "field", "") + Draw_Arrow.Add(L) + Next + + + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Image.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "Q" + Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "R" + Draw_QRcode1.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "A" + Draw_Arrow.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + + End Sub + + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + + Private Sub tb_rep_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_rep.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).Repeat = Me.tb_rep.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repx.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatX = Me.tb_repx.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub tb_repy_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_repy.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.tb_rep.Text = "" OrElse Me.tb_rep Is vbNullString Then Me.tb_rep.Text = 0 + For Each A As Control In SelCon + CType(A, MyLabel).RepeatY = Me.tb_repy.Text + Next + Me.preview_window() + End If + End Sub + + Private Sub COS뷮ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles COS뷮ToolStripMenuItem.Click + SAVE_PATTERNII(Me.뷮, "FUSEPATTERNII", "F", False, "\뷮.TXT") '//θ մϴ. + End Sub + + Private Sub ǥ1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ǥ1ToolStripMenuItem.Click + SAVE_PATTERNII(Me.ǥ1, "SANG1PATTERNII", "I", False, "\ǥ1.TXT") '//θ մϴ. + End Sub + + Private Sub ǥ2ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ǥ2ToolStripMenuItem.Click + SAVE_PATTERNII(Me.ǥ2, "SANG2PATTERNII", "T", False, "\ǥ2.TXT") '//θ մϴ. + End Sub + + Private Sub DoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoolStripMenuItem.Click + SAVE_PATTERNII(Me., "DLPATTERNII", "K", False, "\Dl2.TXT") '//θ մϴ. + End Sub + + Private Sub gfdStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfdStripMenuItem.Click + SAVE_PATTERNII(Me.θ, "LINEPATTERNII", "L", False, "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub gfdlStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pattern_no.Click + If Me.ȣ.IndexOf("H") <> -1 Then + MsgBox("ȣ H ֽϴ. H 쿡 մϴ.", MsgBoxStyle.Critical, "Ȯ") + Return + End If + SAVE_PATTERNII(Me.ȣ, "JJNUMPATTERNII", "X", False, "\ȣ2.TXT") '//H ° + End Sub + + Private Sub bt_pattern_noH_Click(sender As System.Object, e As System.EventArgs) Handles bt_pattern_noH.Click + If Me.ȣ.IndexOf("H") = -1 Then + MsgBox("ȣ H ϴ. H ־ ֽϴ.", MsgBoxStyle.Critical, "Ȯ") + Return + End If + SAVE_PATTERNII(Me.ȣ, "JJNUMPATTERNII", "X", True, "\ȣ2H.TXT") '//H ִ° + End Sub + + Private Sub bt_style_manager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_style_manager.Click + SAVE_PATTERNII(Me., "MANGPATTERNII", "M", False, "\2.TXT") '//θ մϴ. + 'SAVE_PATTERNII(Me., "MANGPATTERN", "MM", "\2.TXT") '//θ մϴ. + End Sub + + Private Sub bt_style_company_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_style_company.Click + SAVE_PATTERNII(Me.ð, "MAKERPATTERNII", "C", False, "\ð2.TXT") '//θ մϴ. + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click + + + ' Dim NewLine As S_Circle + ' NewLine.PenColor = Color.Black + ' NewLine.PenWidth = 3 + ' NewLine.X = 100 + ' NewLine.Y = 50 + ' NewLine.Width = 200 + ' NewLine.Height = 50 + ' Draw_Circle.Add(NewLine) + ' Me.Refresh_Drawlist() + + Dim NewLine As S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Circle.Count * 10 + NewLine.Y = Draw_Circle.Count * 10 + NewLine.Width = 100 + Draw_Circle.Count * 10 + 'NewLine.Height = NewLine.Width + NewLine.Field = "" + + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click + Dim NewLine As S_Image + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + NewLine.FileName = ".\image\׸ϸ.jpg" + NewLine.Field = "" + + Draw_Image.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button17_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click + Dim NewLine As S_QRCode + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + NewLine.Field = "" + + Draw_QRcode.Add(NewLine) + Refresh_Drawlist() + End Sub + 'Public Sub qr_Draw() + ' 'Dim scale As Int16 + ' Dim version As Int16 + ' Dim image As Image + ' Dim data As String + ' Dim errorCorrect As String + ' Dim qrCodeEncoder As New QRCodeEncoder() + ' Dim encoding As String + ' encoding = cboEncoding.Text + ' If encoding = "3" Then + ' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ' ElseIf encoding = "1" Then + ' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ' ElseIf encoding = "2" Then + ' qrCodeEncoder.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + ' 'Try + ' ' scale = Convert.ToInt16(txtSize.Text) + ' 'qrCodeEncoder.QRCodeScale = scale + ' 'Catch ex As Exception + ' ' MessageBox.Show("Invalid size!") + ' 'End Try + ' Try + ' version = Convert.ToInt16(cboVersion.Text) + ' qrCodeEncoder.QRCodeVersion = version + ' Catch ex As Exception + ' MessageBox.Show("Invaild Version!") + ' End Try + ' End If + + ' errorCorrect = cboCorrectionLevel.Text + ' If errorCorrect = "1" Then + ' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ' ElseIf errorCorrect = "2" Then + ' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ' ElseIf errorCorrect = "3" Then + ' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ' ElseIf errorCorrect = "4" Then + ' qrCodeEncoder.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + ' End If + + + ' data = qð & qȨ ' & q & q1 & q2 + + ' image = qrCodeEncoder.Encode(data) 'data ӽ.................... + ' PictureBox1.Image = image + 'End Sub + + Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click + Dim NewLine As S_QRCode1 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + NewLine.Field = "" + + Draw_QRcode1.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ô3ڸToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ô3ڸToolStripMenuItem.Click + 'If Not Me.cb_jc1.Checked Then + ' MsgBox("ŸŸ[ô3ڸ] ʱ⋚ ʽϴ", MsgBoxStyle.Critical, "Ȯ") + ' Return + 'End If + + 'If MsgBox(" Ÿ(Ÿ-ô3ڸ) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "ŸŸ") = MsgBoxResult.Yes Then + ' Me.SAVE_STYLEC(Me.cmb_style.SelectedIndex & "STYLEJANGCHOK", "J") + ' NOTICE("Ÿ(Ÿ-ô3ڸ) ߽ϴ", Me.lb_msg) + 'Else + ' NOTICE("Ÿ(Ÿ-ô3ڸ) ҵǾϴ", Me.lb_msg) + 'End If + + 'Dim A As New System.Text.StringBuilder + 'A.AppendLine("[ŸŸ] ô3ڸ õǾֽϴ") + 'A.AppendLine() + 'A.AppendLine("ŸŸ Ŭϼ") + 'If Me.cb_jc1.Checked Then + ' MsgBox(A.ToString, MsgBoxStyle.Critical, "Ȯ") + ' Return + 'End If + + SAVE_PATTERNII(Me.ô, "CHOKPATTERNII", "J", False, "\ô.TXT") '//θ մϴ. + + + + + End Sub + + Private Sub cmb_sep_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_sep.SelectedIndexChanged + Me.preview_window() + End Sub + + Private Sub cmb_connfield_SelectedValueChanged(sender As System.Object, e As System.EventArgs) Handles cmb_connfield.SelectedValueChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End Sub + + + Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click + '//߰ + Dim NewLine As S_Arrow + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + ' NewLine.FillColor = Drawing.Color.Black + + NewLine.TriHeight = 20 + NewLine.TriWidth = 30 + NewLine.RectX = 10 + NewLine.RectY = 10 + NewLine.RectW = 50 + NewLine.RectH = 50 + NewLine.Field = "" + + Draw_Arrow.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrBg.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrBg.BackColor = a.Color + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrFG.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrFG.BackColor = a.Color + End If + End Sub +End Class + + + diff --git a/Epole/출력폼/PrintForm_Deung.Designer.vb b/Epole/출력폼/PrintForm_Deung.Designer.vb new file mode 100644 index 0000000..0d328cb --- /dev/null +++ b/Epole/출력폼/PrintForm_Deung.Designer.vb @@ -0,0 +1,1902 @@ + _ +Partial Class Printform_deung + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Printform_deung)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.TextBox3 = New System.Windows.Forms.TextBox() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.chk_m = New System.Windows.Forms.CheckBox() + Me.chk_l = New System.Windows.Forms.CheckBox() + Me.chk_k = New System.Windows.Forms.CheckBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cb_dummy = New System.Windows.Forms.CheckBox() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.CheckBox4 = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.cb_mnum1 = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.cb_usernum = New System.Windows.Forms.CheckBox() + Me.Button30 = New System.Windows.Forms.Button() + Me.Button27 = New System.Windows.Forms.Button() + Me.Button26 = New System.Windows.Forms.Button() + Me.Button29 = New System.Windows.Forms.Button() + Me.cb_jijum = New System.Windows.Forms.CheckBox() + Me.cb_mnum3 = New System.Windows.Forms.CheckBox() + Me.cb_mnum2 = New System.Windows.Forms.CheckBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.yoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.fyripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dfgdfoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.fdaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_jijunm = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_junju = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_sunlo = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_junsan = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(584, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정 및 배경" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(188, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.cmb_sep) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.TextBox3) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(10, 155) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(11, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 107) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'TextBox3 + ' + Me.TextBox3.Location = New System.Drawing.Point(201, 155) + Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Size = New System.Drawing.Size(34, 21) + Me.TextBox3.TabIndex = 60 + Me.TextBox3.Text = "10" + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 75) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 52) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 76) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 53) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 127) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 127) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(48, 77) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(48, 54) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 74) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 107) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 51) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 76) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 53) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 75) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 52) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 107) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 6) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 153) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 445) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.chk_m) + Me.TabPage3.Controls.Add(Me.chk_l) + Me.TabPage3.Controls.Add(Me.chk_k) + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Controls.Add(Me.cb_mnum1) + Me.TabPage3.Controls.Add(Me.cb_seq) + Me.TabPage3.Controls.Add(Me.Button7) + Me.TabPage3.Controls.Add(Me.Button32) + Me.TabPage3.Controls.Add(Me.Button6) + Me.TabPage3.Controls.Add(Me.Button31) + Me.TabPage3.Controls.Add(Me.cb_usernum) + Me.TabPage3.Controls.Add(Me.Button30) + Me.TabPage3.Controls.Add(Me.Button27) + Me.TabPage3.Controls.Add(Me.Button26) + Me.TabPage3.Controls.Add(Me.Button29) + Me.TabPage3.Controls.Add(Me.cb_jijum) + Me.TabPage3.Controls.Add(Me.cb_mnum3) + Me.TabPage3.Controls.Add(Me.cb_mnum2) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'chk_m + ' + Me.chk_m.AutoSize = True + Me.chk_m.ForeColor = System.Drawing.Color.Navy + Me.chk_m.Location = New System.Drawing.Point(115, 126) + Me.chk_m.Name = "chk_m" + Me.chk_m.Size = New System.Drawing.Size(72, 16) + Me.chk_m.TabIndex = 59 + Me.chk_m.Tag = "M" + Me.chk_m.Text = "전주번호" + Me.chk_m.UseVisualStyleBackColor = True + ' + 'chk_l + ' + Me.chk_l.AutoSize = True + Me.chk_l.ForeColor = System.Drawing.Color.Navy + Me.chk_l.Location = New System.Drawing.Point(115, 104) + Me.chk_l.Name = "chk_l" + Me.chk_l.Size = New System.Drawing.Size(60, 16) + Me.chk_l.TabIndex = 58 + Me.chk_l.Tag = "L" + Me.chk_l.Text = "선로명" + Me.chk_l.UseVisualStyleBackColor = True + ' + 'chk_k + ' + Me.chk_k.AutoSize = True + Me.chk_k.ForeColor = System.Drawing.Color.Navy + Me.chk_k.Location = New System.Drawing.Point(115, 82) + Me.chk_k.Name = "chk_k" + Me.chk_k.Size = New System.Drawing.Size(84, 16) + Me.chk_k.TabIndex = 57 + Me.chk_k.Tag = "K" + Me.chk_k.Text = "전산화번호" + Me.chk_k.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(16, 246) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 187) + Me.TabControl2.TabIndex = 56 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 161) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.Label2) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cb_dummy) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 92) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 65) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "2장출력" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 43) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 12) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 43) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cb_dummy + ' + Me.cb_dummy.AutoSize = True + Me.cb_dummy.Location = New System.Drawing.Point(13, 20) + Me.cb_dummy.Name = "cb_dummy" + Me.cb_dummy.Size = New System.Drawing.Size(15, 14) + Me.cb_dummy.TabIndex = 24 + Me.ToolTip1.SetToolTip(Me.cb_dummy, "한 화면에 2장을 출력할 수 있습니다") + Me.cb_dummy.UseVisualStyleBackColor = True + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"복사", "다음"}) + Me.cmb_dummy.Location = New System.Drawing.Point(37, 17) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(169, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 40) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 40) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 45) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 44) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(102, 19) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(12, 20) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(47, 16) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(49, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(136, 16) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(49, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 4) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 40) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(102, 17) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(12, 18) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(47, 15) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(48, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(137, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(48, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 161) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.CheckBox4) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 57) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Location = New System.Drawing.Point(8, 24) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(48, 16) + Me.CheckBox4.TabIndex = 9 + Me.CheckBox4.Text = "표시" + Me.ToolTip1.SetToolTip(Me.CheckBox4, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.CheckBox4.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 25) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(7, 46) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(204, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(9, 18) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(202, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.DarkGray + Me.Label8.Location = New System.Drawing.Point(14, 188) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(245, 12) + Me.Label8.TabIndex = 55 + Me.Label8.Text = "----------------------------------------" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(115, 15) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(147, 61) + Me.GroupBox1.TabIndex = 51 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(17, 20) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(116, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'cb_mnum1 + ' + Me.cb_mnum1.AutoSize = True + Me.cb_mnum1.Location = New System.Drawing.Point(15, 56) + Me.cb_mnum1.Name = "cb_mnum1" + Me.cb_mnum1.Size = New System.Drawing.Size(78, 16) + Me.cb_mnum1.TabIndex = 0 + Me.cb_mnum1.Tag = "H" + Me.cb_mnum1.Text = "관리번호1" + Me.cb_mnum1.UseVisualStyleBackColor = True + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(15, 15) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(72, 16) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Image = Global.EpoleNet.My.Resources.Resources.back_16 + Me.Button7.Location = New System.Drawing.Point(18, 203) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(28, 27) + Me.Button7.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button7, "선택된 개체를 왼쪽으로 5pixel 이동합니다") + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.PowderBlue + Me.Button32.Image = Global.EpoleNet.My.Resources.Resources.up_16 + Me.Button32.Location = New System.Drawing.Point(186, 203) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(28, 27) + Me.Button32.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button32, "선택한 개채의 글자높이를 5pixel 감소합니다") + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button6 + ' + Me.Button6.Image = Global.EpoleNet.My.Resources.Resources.forwd_16 + Me.Button6.Location = New System.Drawing.Point(46, 203) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(28, 27) + Me.Button6.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button6, "선택된 개체를 오른쪽으로 5pixel 이동합니다") + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.PowderBlue + Me.Button31.Image = Global.EpoleNet.My.Resources.Resources.down_16 + Me.Button31.Location = New System.Drawing.Point(214, 203) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(28, 27) + Me.Button31.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button31, "선택한 개채의 글자높이를 5pixel 증가합니다") + Me.Button31.UseVisualStyleBackColor = False + ' + 'cb_usernum + ' + Me.cb_usernum.AutoSize = True + Me.cb_usernum.ForeColor = System.Drawing.Color.Black + Me.cb_usernum.Location = New System.Drawing.Point(15, 34) + Me.cb_usernum.Name = "cb_usernum" + Me.cb_usernum.Size = New System.Drawing.Size(72, 16) + Me.cb_usernum.TabIndex = 11 + Me.cb_usernum.Tag = "G" + Me.cb_usernum.Text = "고객번호" + Me.cb_usernum.UseVisualStyleBackColor = True + ' + 'Button30 + ' + Me.Button30.BackColor = System.Drawing.Color.PowderBlue + Me.Button30.Image = Global.EpoleNet.My.Resources.Resources.back_16 + Me.Button30.Location = New System.Drawing.Point(130, 203) + Me.Button30.Name = "Button30" + Me.Button30.Size = New System.Drawing.Size(28, 27) + Me.Button30.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button30, "선택한 개채의 글자너비를 5pixel 감소합니다") + Me.Button30.UseVisualStyleBackColor = False + ' + 'Button27 + ' + Me.Button27.Image = Global.EpoleNet.My.Resources.Resources.up_16 + Me.Button27.Location = New System.Drawing.Point(74, 203) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(28, 27) + Me.Button27.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button27, "선택된 개체를 위로 5pixel 이동합니다") + Me.Button27.UseVisualStyleBackColor = True + ' + 'Button26 + ' + Me.Button26.Image = Global.EpoleNet.My.Resources.Resources.down_16 + Me.Button26.Location = New System.Drawing.Point(102, 203) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(28, 27) + Me.Button26.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button26, "선택된 개체를 아래로 5pixel 이동합니다") + Me.Button26.UseVisualStyleBackColor = True + ' + 'Button29 + ' + Me.Button29.BackColor = System.Drawing.Color.PowderBlue + Me.Button29.Image = Global.EpoleNet.My.Resources.Resources.forwd_16 + Me.Button29.Location = New System.Drawing.Point(158, 203) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(28, 27) + Me.Button29.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button29, "선택한 개채의 글자너비를 5pixel 증가합니다") + Me.Button29.UseVisualStyleBackColor = False + ' + 'cb_jijum + ' + Me.cb_jijum.AutoSize = True + Me.cb_jijum.Location = New System.Drawing.Point(15, 119) + Me.cb_jijum.Name = "cb_jijum" + Me.cb_jijum.Size = New System.Drawing.Size(60, 16) + Me.cb_jijum.TabIndex = 3 + Me.cb_jijum.Tag = "X" + Me.cb_jijum.Text = "지점명" + Me.cb_jijum.UseVisualStyleBackColor = True + ' + 'cb_mnum3 + ' + Me.cb_mnum3.AutoSize = True + Me.cb_mnum3.Location = New System.Drawing.Point(15, 98) + Me.cb_mnum3.Name = "cb_mnum3" + Me.cb_mnum3.Size = New System.Drawing.Size(78, 16) + Me.cb_mnum3.TabIndex = 2 + Me.cb_mnum3.Tag = "L" + Me.cb_mnum3.Text = "관리번호3" + Me.cb_mnum3.UseVisualStyleBackColor = True + ' + 'cb_mnum2 + ' + Me.cb_mnum2.AutoSize = True + Me.cb_mnum2.Location = New System.Drawing.Point(15, 77) + Me.cb_mnum2.Name = "cb_mnum2" + Me.cb_mnum2.Size = New System.Drawing.Size(78, 16) + Me.cb_mnum2.TabIndex = 1 + Me.cb_mnum2.Tag = "S" + Me.cb_mnum2.Text = "관리번호2" + Me.cb_mnum2.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1" + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.dataview_Sheet1.ColumnCount = 14 + Me.dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AllowNoteEdit = True + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "고객번호1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "관리번호1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "관리번호2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 6).Value = "관리번호3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 7).Value = "지점명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 8).Value = "전산화번호1" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 62.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(0).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).Label = "번호" + Me.dataview_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).Width = 74.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.MaxLength = 3 + Me.dataview_Sheet1.Columns.Get(1).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(1).DataField = "고객번호1" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Label = "고객번호1" + Me.dataview_Sheet1.Columns.Get(1).Locked = False + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 74.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.MaxLength = 5 + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(2).DataField = "고객번호2" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 67.0! + TextCellType3.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType3.MaxLength = 5 + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(3).DataField = "고객번호3" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType4.MaxLength = 8 + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(4).DataField = "관리번호1" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Label = "관리번호1" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 74.0! + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType5.MaxLength = 2 + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(5).DataField = "관리번호2" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Label = "관리번호2" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 74.0! + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType6.MaxLength = 5 + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(6).DataField = "관리번호3" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Label = "관리번호3" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 74.0! + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(7).DataField = "지점명" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Label = "지점명" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 74.0! + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(8).DataField = "전산화번호1" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Label = "전산화번호1" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 74.0! + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(9).DataField = "전산화번호2" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(10).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(11).DataField = "전주번호1" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).CellType = TextCellType12 + Me.dataview_Sheet1.Columns.Get(12).DataField = "전주번호2" + Me.dataview_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).CellType = TextCellType13 + Me.dataview_Sheet1.Columns.Get(13).DataField = "전주번호3" + Me.dataview_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + Me.dataview.SetActiveViewport(0, -1, 0) + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(6, 6) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(263, 473) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(584, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Enabled = False + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Enabled = False + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Enabled = False + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Enabled = False + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(82, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.yoolStripMenuItem, Me.fyripMenuItem, Me.dfgdfoolStripMenuItem, Me.fdaToolStripMenuItem, Me.pbt_jijunm, Me.pbt_junju, Me.ToolStripMenuItem1, Me.pbt_sunlo, Me.pbt_junsan}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(79, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'yoolStripMenuItem + ' + Me.yoolStripMenuItem.Name = "yoolStripMenuItem" + Me.yoolStripMenuItem.Size = New System.Drawing.Size(166, 22) + Me.yoolStripMenuItem.Text = "고객번호" + ' + 'fyripMenuItem + ' + Me.fyripMenuItem.Name = "fyripMenuItem" + Me.fyripMenuItem.Size = New System.Drawing.Size(166, 22) + Me.fyripMenuItem.Text = "관리번호1" + ' + 'dfgdfoolStripMenuItem + ' + Me.dfgdfoolStripMenuItem.Name = "dfgdfoolStripMenuItem" + Me.dfgdfoolStripMenuItem.Size = New System.Drawing.Size(166, 22) + Me.dfgdfoolStripMenuItem.Text = "관리번호2" + ' + 'fdaToolStripMenuItem + ' + Me.fdaToolStripMenuItem.Name = "fdaToolStripMenuItem" + Me.fdaToolStripMenuItem.Size = New System.Drawing.Size(166, 22) + Me.fdaToolStripMenuItem.Text = "관리번호3" + ' + 'pbt_jijunm + ' + Me.pbt_jijunm.Name = "pbt_jijunm" + Me.pbt_jijunm.Size = New System.Drawing.Size(166, 22) + Me.pbt_jijunm.Text = "지점명" + ' + 'pbt_junju + ' + Me.pbt_junju.Name = "pbt_junju" + Me.pbt_junju.Size = New System.Drawing.Size(166, 22) + Me.pbt_junju.Text = "전주번호" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Enabled = False + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(166, 22) + Me.ToolStripMenuItem1.Text = "전주번호(H제외)" + Me.ToolStripMenuItem1.Visible = False + ' + 'pbt_sunlo + ' + Me.pbt_sunlo.Name = "pbt_sunlo" + Me.pbt_sunlo.Size = New System.Drawing.Size(166, 22) + Me.pbt_sunlo.Text = "선로명" + ' + 'pbt_junsan + ' + Me.pbt_junsan.Name = "pbt_junsan" + Me.pbt_junsan.Size = New System.Drawing.Size(166, 22) + Me.pbt_junsan.Text = "전산화번호" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(584, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Enabled = False + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'Printform_deung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(584, 606) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "Printform_deung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button26 As System.Windows.Forms.Button + Friend WithEvents Button27 As System.Windows.Forms.Button + Friend WithEvents Button29 As System.Windows.Forms.Button + Friend WithEvents Button30 As System.Windows.Forms.Button + Friend WithEvents Button31 As System.Windows.Forms.Button + Friend WithEvents Button32 As System.Windows.Forms.Button + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_usernum As System.Windows.Forms.CheckBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents cb_jijum As System.Windows.Forms.CheckBox + Friend WithEvents cb_mnum3 As System.Windows.Forms.CheckBox + Friend WithEvents cb_mnum2 As System.Windows.Forms.CheckBox + Friend WithEvents cb_dummy As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_mnum1 As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents yoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents fyripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents dfgdfoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents fdaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TextBox3 As System.Windows.Forms.TextBox + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents pbt_jijunm As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chk_m As System.Windows.Forms.CheckBox + Friend WithEvents chk_l As System.Windows.Forms.CheckBox + Friend WithEvents chk_k As System.Windows.Forms.CheckBox + Friend WithEvents pbt_junju As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbt_sunlo As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbt_junsan As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem +End Class diff --git a/Epole/출력폼/PrintForm_Deung.resx b/Epole/출력폼/PrintForm_Deung.resx new file mode 100644 index 0000000..6ca5b2c --- /dev/null +++ b/Epole/출력폼/PrintForm_Deung.resx @@ -0,0 +1,230 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 229, 17 + + + 173, 43 + + + 401, 11 + + + 334, 43 + + + 526, 11 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintForm_Deung.vb b/Epole/출력폼/PrintForm_Deung.vb new file mode 100644 index 0000000..ade9853 --- /dev/null +++ b/Epole/출력폼/PrintForm_Deung.vb @@ -0,0 +1,2243 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + +Public Class Printform_deung + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim Sȣ(0) As MyLabel + + Dim Sȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ1(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ2(0) As MyControlOLEDBv2.MyLabel + Dim Sȣ3(0) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + + Dim Sȭȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sθ(0) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + + + Dim ȣ As String = vbNullString + Dim ȣ1 As String = vbNullString + Dim ȣ2 As String = vbNullString + Dim ȣ3 As String = vbNullString + Dim As String = vbNullString + Dim ȭȣ As String = "" + Dim θ As String = "" + Dim ֹȣ As String = "" + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylejd") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCjd.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_DeungDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\׵α.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.Detail_DeungDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\׵α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjung", "\viewConfig\deung_") + WLog2(Auto_Log, "Form_Close", "\׵α.txt") + Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjung", "\viewConfig\deung_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + WLog2(Auto_Log, "Form_Load()", "\׵α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + WLog2(Auto_Log, " ⺻ ȯ()", "\׵α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + WLog2(Auto_Log, "ڸ=" & Admin.ToString, "\׵α.txt") + If Admin Then + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\׵α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + Me.cmb_style.Text = "׵" '//⼭ Ͱ ɷԵȴ. + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + Me.cmb_style.Text = "׵" '//⼭ Ͱ ɷԵȴ. + End If + + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + + Public Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, Optional ByVal bPattern As String = "") + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = bPattern + ReDim Preserve AllLabels(CtlCnt) + AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = bPattern + End Sub + + Private Sub SetControls() + WLog2(Auto_Log, "SetControls()", "\׵α.txt") + Dim CtlCnt As Short = 0 + + AddControl(CtlCnt, "ȣ", "X", Me.Sȣ, Me.cb_seq) + + AddControl(CtlCnt, "ȣ", "U", Me.Sȣ, Me.cb_usernum, "UNOPATTERN") + AddControl(CtlCnt, "ȣ1", "A", Me.Sȣ1, Me.cb_mnum1, "MAN1PATTERN") + AddControl(CtlCnt, "ȣ2", "B", Me.Sȣ2, Me.cb_mnum2, "MAN2ATTERN") + AddControl(CtlCnt, "ȣ3", "C", Me.Sȣ3, Me.cb_mnum3, "MAN3PATTERN") + AddControl(CtlCnt, "", "J", Me.S, Me.cb_jijum, "JIJUMPATTERN") + AddControl(CtlCnt, "ȭȣ", "K", Me.Sȭȣ, Me.chk_k, "JUNSANPATTERN") + AddControl(CtlCnt, "θ", "L", Me.Sθ, Me.chk_l, "SUNLOPATTERN") + AddControl(CtlCnt, "ֹȣ", "M", Me.Sֹȣ, Me.chk_m, "JUNJUPATTERN") + End Sub + + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\׵α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ӽ ش ڸ ֽϴ.") + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\׵α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\׵α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\׵α.txt") + WLog2(Auto_Log, "Load_Setting()", "\׵α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + WLog2(Auto_Log, "GetviewData ()", "\׵α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + WLog2(Auto_Log, "GetViewData : ε ų վ մϴ.()", "\׵α.txt") + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + + ȣ = GetSpread(Me.Dv, index, "ȣ1") & Space(1) & GetSpread(Me.Dv, index, "ȣ2") & Space(1) & GetSpread(Me.Dv, index, "ȣ3") + ȣ1 = GetSpread(Me.Dv, index, "ȣ1") + ȣ2 = GetSpread(Me.Dv, index, "ȣ2") + ȣ3 = GetSpread(Me.Dv, index, "ȣ3") + = GetSpread(Me.Dv, index, "") + + ȭȣ = GetSpread(Me.Dv, index, "ȭȣ1") & GetSpread(Me.Dv, index, "ȭȣ2") + θ = GetSpread(Me.Dv, index, "θ") + ֹȣ = GetSpread(Me.Dv, index, "ֹȣ1") & GetSpread(Me.Dv, index, "ֹȣ2") & GetSpread(Me.Dv, index, "ֹȣ3") + + WLog2(Auto_Log, "ͺ ͸ Ϸ()", "\׵α.txt") + + Me.Text = "۾(" & ȣ & " : " & ȣ1 & "/" & ȣ2 & "/" & ȣ3 + + WLog2(Auto_Log, "PASE մϴ.()", "\׵α.txt") + '============ ؼ °̴ ========================================================== + 'Me.PARSE_ȣ(ȣ) + 'Me.PARSE_ȣ1(ȣ1) + 'Me.PARSE_ȣ2(ȣ2) + 'Me.PARSE_ȣ3(ȣ3) + 'Me.PARSE_() + '==================================================================================================== + + WLog2(Auto_Log, "ִ PASE մϴ.()", "\׵α.txt") + + If Me.PARSE(ȣ, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + If Me.PARSE(ȣ1, Me.Sȣ1) Then Me.PARSE_PATTERN(ȣ1, Me.Sȣ1) + If Me.PARSE(ȣ2, Me.Sȣ2) Then Me.PARSE_PATTERN(ȣ2, Me.Sȣ2) + If Me.PARSE(ȣ3, Me.Sȣ3) Then Me.PARSE_PATTERN(ȣ3, Me.Sȣ3) + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE(ȭȣ, Me.Sȭȣ) Then Me.PARSE_PATTERN(ȭȣ, Me.Sȭȣ) + If Me.PARSE(θ, Me.Sθ) Then Me.PARSE_PATTERN(θ, Me.Sθ) + If Me.PARSE(ֹȣ, Me.Sֹȣ) Then Me.PARSE_PATTERN(ֹȣ, Me.Sֹȣ) + + '======================== Ÿ ================================================= + ' ....................................................... + WLog2(Auto_Log, "Pewview 츦 մϴ.()", "\׵α.txt") + + '//̷ ǥؾѴ. + If Me.cb_seq.Checked Then + Me.Sȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.Sȣ(0).Visible = True + Else + Me.Sȣ(0).Visible = False + End If + + Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\߼α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "Clear_item div=", "\(̺)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + End Sub + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + ' ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("Desc").ToString) + CurIdx += 1 + Next + + + + End Sub + + Private Sub ̺() + WLog2(Auto_Log, "̺ ()", "\׵α.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + WLog2(Auto_Log, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\׵α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + 'MsgBox(dummy) + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + If dummy Then '//μⰡ ƴҴ뿡 margin ʴ´. + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text + Else + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + End If + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + + '// ִ 2庹縦 ȮѴ. + '// Ȯϰ ׷ 쿡 庹縸 ȮѴ. + If dummy = False AndAlso Me.cb_dummy.Checked Then '//2庹ϰ쿡 纹 üũ + + dummy = True + If Me.cmb_dummy.SelectedIndex = 0 Then '//纹  ϴ. + 'dummy = True + ' MsgBox("մ 纹") + GoTo Dummyflag + Else '//̹Ƿ մ ȮϰؾѴ. + 'MsgBox("庹") + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + 'MsgBox("մ.. ͹ٲٰ gotoѴ") + Me.printindex += 1 '/1ѱ + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + GoTo Dummyflag '//ٷ ´ٽѴ. + Else + 'MsgBox(" ׳ɳѾ") + '̾Ƿ ׳ Ѿ. + e.HasMorePages = False + End If + End If + Else '//γѱϴ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + dummy = False '// Ѿ ̸ Ѵ. + Me.printindex += 1 + e.HasMorePages = True + Else + e.HasMorePages = False + End If + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Color.Tomato, Me.lb_msg) + End If + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\׵α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\׵α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height + + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Color.Green, Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Color.Green, Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Color.Black + Me.lb_strpattern.ForeColor = Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.CheckBox4.Checked = False + ElseIf Me.CheckBox4.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\׵α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\׵α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.CheckBox4.Checked = True + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\׵α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender.Top -= 1 + Else + sender.Top += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender.Left -= 1 + Else + sender.Left += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\׵α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, "\׵α.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\׵α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\׵α.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\׵α.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\׵α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + Me.SaveReadLayOut(True) + + Try + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\׵α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + Catch ex As Exception + '//ٸ ;; ٷ ϴ° + '//MsgBox(" ΰϴ") + + End Try + + ''WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\߼α.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\׵α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim pos(), font(), visible, mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + + + WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\׵α.txt") + + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + Me.cb_dummy.Checked = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(drstyle.LandScape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + Me.CheckBox4.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + Me.tb_myfontsize.Text = drstyle.PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + + 'Me.PictureBox1.Width = drstyle.CanvasX 'Arinini.Read("STYLE", "CanvasX", 297) '520 + 'Me.PictureBox1.Height = drstyle.CanvasY ' Arinini.Read("STYLE", "CanvasY", 520) '520 + + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + + Public Sub SAVE_STYLE() + WLog2(Auto_Log, "iniϿ Ÿ մϴ. ", "\׵α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg")) + + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + + f.ProgressBar1.Value += 1 + f.Refresh() + + + Tobj = Me.AllLabels(i).ctl + If Tobj.Pattern = "" Then + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + End If + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + Arinini.Write("STYLE", "ViewImage", Me.CheckBox4.Checked) + + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + '//Ÿÿ ̾ƿ¶ ϰѴ. ̺κ ŸϺҷö ʰ + '/// Ҷ ҷѴ(Ͽ ҷѴ ѹ̹Ƿ ޸𸮿 øʿ + SaveReadLayOut(False) '//̾ƿѴ. + + f.Close() + f.Dispose() + Application.DoEvents() + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + WLog2(Auto_Log, "save style Ϸ ̺ ȣ ", "\׵α.txt") + Me.̺() + Me.preview_window() + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "TabControl2loc", Me.TabControl2.Left & "," & Me.TabControl2.Top) + ini.Write(Secname, "TabControl2size", Me.TabControl2.Width & "," & Me.TabControl2.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + 'TabControl2.Size = New Size(ini.Read(Secname, "TabControl2size", "239,228").Split(",")(0), ini.Read(Secname, "TabControl2size", "239,228").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + 'TabControl2.Size = New Size(ini.Read(Secname, "TabControl2size", "239,228").Split(",")(0), ini.Read(Secname, "TabControl2size", "239,228").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + End Sub + + Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, ExceptH As Boolean, Optional ByVal LOGFILENAME As String = "\.TXT", Optional ByVal BlineNum As String = "") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + Dim Arinini As New MyINI2(drstyle.File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR, ExceptH) + Dim MidName As String = labels(0).Pattern + If BlineNum <> "" Then MidName = "LNUM" & BlineNum & MidName + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MidName & "II" & mb.ToString + + WLog2(Auto_Log, " save_pattern2 Ѵ.", "\(̺)α.txt") + For i As Integer = 0 To labels.GetUpperBound(0) + TOBJ = labels(i) + WLog2(Auto_Log, MidName & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MidName) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\(̺)α.txt") + Me.̺() + End Sub + + + + '--------------------------------- + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + WLog2(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + Return True + End Function + + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr, True) + If Not Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) Then + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + End If + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr, True) + If Not Me.Ͽ(Srcstr, Pname, Log, labels) Then + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\εα.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + WLog2(Auto_Log, "ǥ üũڽ ", "\εα.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + WLog2(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\εα.txt") + Me.preview_window() + End Sub + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + WLog2(Auto_Log, " ۾ Ŭ", "\εα.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + WLog2(Auto_Log, "۾B õ setfont ȣ ", "\εα.txt") + SetFont() + End Sub + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + WLog2(Auto_Log, "updatefont : ", "\εα.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender. -= 1 + Else + sender. += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender. -= 1 + Else + sender. += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click + Me.CtrSize(False, -5) + End Sub + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click + Me.CtrSize(False, 5) + End Sub + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click + Me.CtrSize(True, -5) + End Sub + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click + Me.CtrSize(True, 5) + End Sub + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Me.CtrPos(False, -5) + End Sub + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Me.CtrPos(False, 5) + End Sub + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click + Me.CtrPos(True, -5) + End Sub + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click + Me.CtrPos(True, 5) + End Sub + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + + + Dim endcnt As Integer = Me.textbox2.Text + + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + ' If chkFlag Then Exit For + showcnt(i, endcnt, "ϰ˻") + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + WLog2(Auto_Log, "GetPrinterName()", "\׵α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Me.Text = e.X & "/" & e.Y + End Sub + + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub preview_window() '//̸ȭ մϴ. + + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + ' If Me.printindex <> -1 Then Me.GeTviewData(Me.PrintArray(Me.printindex)) '// ϰ Ѵ. + 'Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + 'If Not Me.PictureBox1.BackgroundImage Is Nothing Then + ' Ga.DrawImage(Me.PictureBox1.BackgroundImage, 0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height) + ' End If + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + 'Ga.RotateTransform(45) + Ga.DrawString(obj., MyFont, Brush, obj.Location) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left, obj.Top)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + 'Ga.RotateTransform(20 + + + + End If + End If + Next + + If Me.cb_dummy.Checked Then '//簡 õǾ ѹ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brushes.Gray, (obj.Left + Me.tb_secX.Text), (obj.Top + Me.tb_secY.Text)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brushes.Gray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, CSng(obj.Left + Me.tb_secX.Text), CSng(obj.Top + Me.tb_secY.Text)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + + + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordwidth.Text) + ViewProperty(A) + Next + Me.preview_window() + + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordheight.Text) + ViewProperty(A) + Next + Me.preview_window() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp, TextBox3.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + Me.AllLabels(z).ctl.MyForeColor = Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.Close() + End Sub + + Private Function Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) As Boolean + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return False '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = dtpattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + C.Tag = "L" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Return True + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + Return False + End If + End Function + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + End Sub + + Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + End Sub + + Private Sub yoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yoolStripMenuItem.Click + SAVE_PATTERNII(Me.Sȣ, Me.ȣ, False, "\ȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub fyripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fyripMenuItem.Click + SAVE_PATTERNII(Me.Sȣ1, Me.ȣ1, False, "\ȣ12.TXT") '//θ մϴ. + End Sub + + Private Sub dfgdfoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dfgdfoolStripMenuItem.Click + SAVE_PATTERNII(Me.Sȣ2, Me.ȣ2, False, "\ȣ22.TXT") '//θ մϴ. + End Sub + + Private Sub fdaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fdaToolStripMenuItem.Click + SAVE_PATTERNII(Me.Sȣ3, Me.ȣ3, False, "\ȣ32.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_jijunm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_jijunm.Click + SAVE_PATTERNII(Me.S, Me., False, "\2.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_junju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_junju.Click + SAVE_PATTERNII(Me.Sֹȣ, Me.ֹȣ, False, "\ֹȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_sunlo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_sunlo.Click + SAVE_PATTERNII(Me.Sθ, Me.θ, False, "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_junsan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_junsan.Click + SAVE_PATTERNII(Me.Sȭȣ, Me.ȭȣ, False, "\ȭȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripMenuItem1.Click + SAVE_PATTERNII(Me.Sֹȣ, Me.ֹȣ, True, "\ֹȣ2.TXT") '//θ մϴ. + End Sub +End Class + + diff --git a/Epole/출력폼/PrintFormkiki.Designer.vb b/Epole/출력폼/PrintFormkiki.Designer.vb new file mode 100644 index 0000000..0a44ec1 --- /dev/null +++ b/Epole/출력폼/PrintFormkiki.Designer.vb @@ -0,0 +1,2742 @@ + _ +Partial Class printformkiki + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformkiki)) + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType17 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType18 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType19 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType20 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim CheckBoxCellType1 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType2 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Dim CheckBoxCellType3 As FarPoint.Win.Spread.CellType.CheckBoxCellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.Button30 = New System.Windows.Forms.Button() + Me.Button27 = New System.Windows.Forms.Button() + Me.Button29 = New System.Windows.Forms.Button() + Me.Button26 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button7 = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.CB_BIGO4 = New System.Windows.Forms.CheckBox() + Me.CB_BIGO3 = New System.Windows.Forms.CheckBox() + Me.CB_BIGO2 = New System.Windows.Forms.CheckBox() + Me.CB_BIGO1 = New System.Windows.Forms.CheckBox() + Me.cb_dl3 = New System.Windows.Forms.CheckBox() + Me.cb_dl2 = New System.Windows.Forms.CheckBox() + Me.cb_jjnum = New System.Windows.Forms.CheckBox() + Me.cb_u4 = New System.Windows.Forms.CheckBox() + Me.cb_dl1 = New System.Windows.Forms.CheckBox() + Me.cb_u2 = New System.Windows.Forms.CheckBox() + Me.cb_kwang = New System.Windows.Forms.CheckBox() + Me.cb_u1 = New System.Windows.Forms.CheckBox() + Me.cb_u3 = New System.Windows.Forms.CheckBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.cb_kwanjun = New System.Windows.Forms.CheckBox() + Me.cb_sunglo = New System.Windows.Forms.CheckBox() + Me.cb_u5 = New System.Windows.Forms.CheckBox() + Me.cb_sunsannum = New System.Windows.Forms.CheckBox() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.cboCorrectionLevel = New System.Windows.Forms.TextBox() + Me.cboVersion = New System.Windows.Forms.TextBox() + Me.cboEncoding = New System.Windows.Forms.TextBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label21 = New System.Windows.Forms.Label() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label23 = New System.Windows.Forms.Label() + Me.Button16 = New System.Windows.Forms.Button() + Me.Button14 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.IreaDataSet1 = New EpoleNet.ireaDataSet() + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.TB_Pattern_Start = New System.Windows.Forms.ToolStripTextBox() + Me.TB_Pattern_End = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripSplitButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.DoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_style_manager = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() + Me.gfdStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gfdlStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.lbQrFG = New System.Windows.Forms.Panel() + Me.lbQrBg = New System.Windows.Forms.Panel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.Label25 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.TabPage5.SuspendLayout() + Me.TabPage6.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage7.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.BackColor = System.Drawing.Color.White + 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_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(588, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(17, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(17, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(81, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(17, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.ToolStrip2) + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 451) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 48 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(11, 368) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(246, 78) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(181, 20) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 6 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button8) + Me.GroupBox2.Controls.Add(Me.cmb_sep) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Location = New System.Drawing.Point(11, 170) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 192) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(90, 153) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장(F4)" + Me.Button8.UseVisualStyleBackColor = True + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(10, 156) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(10, 132) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(74, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 108) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 76) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 53) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 77) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 54) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 128) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 128) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(48, 78) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(48, 55) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 75) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(162, 108) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 52) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 77) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 54) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 76) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 53) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 108) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(11, 18) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(245, 146) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "스타일 종류를 선택하세요.") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.cmb_landscape) + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.Button32) + Me.TabPage3.Controls.Add(Me.Button31) + Me.TabPage3.Controls.Add(Me.Button30) + Me.TabPage3.Controls.Add(Me.Button27) + Me.TabPage3.Controls.Add(Me.Button29) + Me.TabPage3.Controls.Add(Me.Button26) + Me.TabPage3.Controls.Add(Me.Button6) + Me.TabPage3.Controls.Add(Me.Button7) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(16, 17) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(239, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(16, 97) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 373) + Me.TabControl2.TabIndex = 52 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox1) + 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(231, 347) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.Label1) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Controls.Add(Me.Label3) + Me.GroupBox6.Location = New System.Drawing.Point(7, 95) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 63) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "2장출력" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(6, 18) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 38 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(32, 18) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(178, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(14, 43) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(53, 12) + Me.Label1.TabIndex = 34 + Me.Label1.Text = "가로거리" + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(71, 40) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(174, 40) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(117, 43) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(53, 12) + Me.Label3.TabIndex = 35 + Me.Label3.Text = "세로거리" + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.Label16) + Me.GroupBox4.Controls.Add(Me.Label17) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 50) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(44, 18) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(80, 21) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(29, 12) + Me.Label16.TabIndex = 44 + Me.Label16.Text = "세로" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(10, 22) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(29, 12) + Me.Label17.TabIndex = 43 + Me.Label17.Text = "가로" + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(108, 18) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(29, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.tb_marginy) + Me.GroupBox1.Controls.Add(Me.tb_marginx) + Me.GroupBox1.Controls.Add(Me.Label12) + Me.GroupBox1.Controls.Add(Me.Label13) + Me.GroupBox1.Location = New System.Drawing.Point(6, 6) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(219, 40) + Me.GroupBox1.TabIndex = 49 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "인쇄여백" + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(109, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(28, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(44, 14) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(80, 17) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(29, 12) + Me.Label12.TabIndex = 41 + Me.Label12.Text = "세로" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(10, 18) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(29, 12) + Me.Label13.TabIndex = 40 + Me.Label13.Text = "가로" + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label2) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 347) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(194, 136) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 58 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(4, 139) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(39, 12) + Me.Label2.TabIndex = 53 + Me.Label2.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(157, 136) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 57 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(113, 140) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 54 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(85, 135) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 56 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(48, 135) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 55 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(7, 175) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 110) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 52 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 55) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(62, 20) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(106, 16) + Me.Chk_BgImageprint.TabIndex = 25 + Me.Chk_BgImageprint.Text = "배경출력(인쇄)" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "인쇄시 배경을 출력합니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(6, 20) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(176, 22) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(41, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(6, 43) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(207, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(12, 20) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(195, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.PowderBlue + Me.Button32.Image = CType(resources.GetObject("Button32.Image"), System.Drawing.Image) + Me.Button32.Location = New System.Drawing.Point(212, 219) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(28, 27) + Me.Button32.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button32, "선택한 개채의 글자높이를 5pixel 감소합니다") + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.PowderBlue + Me.Button31.Image = CType(resources.GetObject("Button31.Image"), System.Drawing.Image) + Me.Button31.Location = New System.Drawing.Point(184, 63) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(28, 27) + Me.Button31.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button31, "선택한 개채의 글자높이를 5pixel 증가합니다") + Me.Button31.UseVisualStyleBackColor = False + ' + 'Button30 + ' + Me.Button30.BackColor = System.Drawing.Color.PowderBlue + Me.Button30.Image = CType(resources.GetObject("Button30.Image"), System.Drawing.Image) + Me.Button30.Location = New System.Drawing.Point(128, 63) + Me.Button30.Name = "Button30" + Me.Button30.Size = New System.Drawing.Size(28, 27) + Me.Button30.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button30, "선택한 개채의 글자너비를 5pixel 감소합니다") + Me.Button30.UseVisualStyleBackColor = False + ' + 'Button27 + ' + Me.Button27.Image = CType(resources.GetObject("Button27.Image"), System.Drawing.Image) + Me.Button27.Location = New System.Drawing.Point(100, 63) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(28, 27) + Me.Button27.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button27, "선택된 개체를 위로 5pixel 이동합니다") + Me.Button27.UseVisualStyleBackColor = True + ' + 'Button29 + ' + Me.Button29.BackColor = System.Drawing.Color.PowderBlue + Me.Button29.Image = CType(resources.GetObject("Button29.Image"), System.Drawing.Image) + Me.Button29.Location = New System.Drawing.Point(156, 63) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(28, 27) + Me.Button29.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button29, "선택한 개채의 글자너비를 5pixel 증가합니다") + Me.Button29.UseVisualStyleBackColor = False + ' + 'Button26 + ' + Me.Button26.Image = CType(resources.GetObject("Button26.Image"), System.Drawing.Image) + Me.Button26.Location = New System.Drawing.Point(72, 63) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(28, 27) + Me.Button26.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button26, "선택된 개체를 아래로 5pixel 이동합니다") + Me.Button26.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image) + Me.Button6.Location = New System.Drawing.Point(44, 63) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(28, 27) + Me.Button6.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button6, "선택된 개체를 오른쪽으로 5pixel 이동합니다") + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) + Me.Button7.Location = New System.Drawing.Point(16, 63) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(28, 27) + Me.Button7.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button7, "선택된 개체를 왼쪽으로 5pixel 이동합니다") + Me.Button7.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.DarkGray + Me.Label8.Location = New System.Drawing.Point(12, 50) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(245, 12) + Me.Label8.TabIndex = 51 + Me.Label8.Text = "----------------------------------------" + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.chk_draw) + Me.TabPage5.Controls.Add(Me.CB_BIGO4) + Me.TabPage5.Controls.Add(Me.CB_BIGO3) + Me.TabPage5.Controls.Add(Me.CB_BIGO2) + Me.TabPage5.Controls.Add(Me.CB_BIGO1) + Me.TabPage5.Controls.Add(Me.cb_dl3) + Me.TabPage5.Controls.Add(Me.cb_dl2) + Me.TabPage5.Controls.Add(Me.cb_jjnum) + Me.TabPage5.Controls.Add(Me.cb_u4) + Me.TabPage5.Controls.Add(Me.cb_dl1) + Me.TabPage5.Controls.Add(Me.cb_u2) + Me.TabPage5.Controls.Add(Me.cb_kwang) + Me.TabPage5.Controls.Add(Me.cb_u1) + Me.TabPage5.Controls.Add(Me.cb_u3) + Me.TabPage5.Controls.Add(Me.cb_seq) + Me.TabPage5.Controls.Add(Me.cb_kwanjun) + Me.TabPage5.Controls.Add(Me.cb_sunglo) + Me.TabPage5.Controls.Add(Me.cb_u5) + Me.TabPage5.Controls.Add(Me.cb_sunsannum) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터표시" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(160, 13) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(65, 19) + Me.chk_draw.TabIndex = 56 + Me.chk_draw.Tag = "ZZ" + Me.chk_draw.Text = "선,도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'CB_BIGO4 + ' + Me.CB_BIGO4.AutoSize = True + Me.CB_BIGO4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_BIGO4.Location = New System.Drawing.Point(15, 399) + Me.CB_BIGO4.Name = "CB_BIGO4" + Me.CB_BIGO4.Size = New System.Drawing.Size(57, 19) + Me.CB_BIGO4.TabIndex = 55 + Me.CB_BIGO4.Tag = "Z" + Me.CB_BIGO4.Text = "비고4" + Me.CB_BIGO4.UseVisualStyleBackColor = True + ' + 'CB_BIGO3 + ' + Me.CB_BIGO3.AutoSize = True + Me.CB_BIGO3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_BIGO3.Location = New System.Drawing.Point(15, 374) + Me.CB_BIGO3.Name = "CB_BIGO3" + Me.CB_BIGO3.Size = New System.Drawing.Size(57, 19) + Me.CB_BIGO3.TabIndex = 54 + Me.CB_BIGO3.Tag = "Y" + Me.CB_BIGO3.Text = "비고3" + Me.CB_BIGO3.UseVisualStyleBackColor = True + ' + 'CB_BIGO2 + ' + Me.CB_BIGO2.AutoSize = True + Me.CB_BIGO2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_BIGO2.Location = New System.Drawing.Point(15, 349) + Me.CB_BIGO2.Name = "CB_BIGO2" + Me.CB_BIGO2.Size = New System.Drawing.Size(57, 19) + Me.CB_BIGO2.TabIndex = 53 + Me.CB_BIGO2.Tag = "W" + Me.CB_BIGO2.Text = "비고2" + Me.CB_BIGO2.UseVisualStyleBackColor = True + ' + 'CB_BIGO1 + ' + Me.CB_BIGO1.AutoSize = True + Me.CB_BIGO1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.CB_BIGO1.Location = New System.Drawing.Point(15, 324) + Me.CB_BIGO1.Name = "CB_BIGO1" + Me.CB_BIGO1.Size = New System.Drawing.Size(57, 19) + Me.CB_BIGO1.TabIndex = 52 + Me.CB_BIGO1.Tag = "V" + Me.CB_BIGO1.Text = "비고1" + Me.CB_BIGO1.UseVisualStyleBackColor = True + ' + 'cb_dl3 + ' + Me.cb_dl3.AutoSize = True + Me.cb_dl3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_dl3.Location = New System.Drawing.Point(15, 123) + Me.cb_dl3.Name = "cb_dl3" + Me.cb_dl3.Size = New System.Drawing.Size(72, 19) + Me.cb_dl3.TabIndex = 51 + Me.cb_dl3.Tag = "K" + Me.cb_dl3.Text = "D/L명(3)" + Me.cb_dl3.UseVisualStyleBackColor = True + ' + 'cb_dl2 + ' + Me.cb_dl2.AutoSize = True + Me.cb_dl2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_dl2.Location = New System.Drawing.Point(15, 101) + Me.cb_dl2.Name = "cb_dl2" + Me.cb_dl2.Size = New System.Drawing.Size(72, 19) + Me.cb_dl2.TabIndex = 50 + Me.cb_dl2.Tag = "J" + Me.cb_dl2.Text = "D/L명(2)" + Me.cb_dl2.UseVisualStyleBackColor = True + ' + 'cb_jjnum + ' + Me.cb_jjnum.AutoSize = True + Me.cb_jjnum.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_jjnum.Location = New System.Drawing.Point(15, 57) + Me.cb_jjnum.Name = "cb_jjnum" + Me.cb_jjnum.Size = New System.Drawing.Size(74, 19) + Me.cb_jjnum.TabIndex = 3 + Me.cb_jjnum.Tag = "X" + Me.cb_jjnum.Text = "전주번호" + Me.cb_jjnum.UseVisualStyleBackColor = True + ' + 'cb_u4 + ' + Me.cb_u4.AutoSize = True + Me.cb_u4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u4.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u4.Location = New System.Drawing.Point(15, 277) + Me.cb_u4.Name = "cb_u4" + Me.cb_u4.Size = New System.Drawing.Size(57, 19) + Me.cb_u4.TabIndex = 29 + Me.cb_u4.Tag = "D" + Me.cb_u4.Text = "문자4" + Me.ToolTip1.SetToolTip(Me.cb_u4, "사용자 정의 문자열 입니다") + Me.cb_u4.UseVisualStyleBackColor = True + ' + 'cb_dl1 + ' + Me.cb_dl1.AutoSize = True + Me.cb_dl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_dl1.Location = New System.Drawing.Point(15, 79) + Me.cb_dl1.Name = "cb_dl1" + Me.cb_dl1.Size = New System.Drawing.Size(72, 19) + Me.cb_dl1.TabIndex = 49 + Me.cb_dl1.Tag = "I" + Me.cb_dl1.Text = "D/L명(1)" + Me.cb_dl1.UseVisualStyleBackColor = True + ' + 'cb_u2 + ' + Me.cb_u2.AutoSize = True + Me.cb_u2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u2.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u2.Location = New System.Drawing.Point(15, 233) + Me.cb_u2.Name = "cb_u2" + Me.cb_u2.Size = New System.Drawing.Size(57, 19) + Me.cb_u2.TabIndex = 27 + Me.cb_u2.Tag = "A" + Me.cb_u2.Text = "문자2" + Me.ToolTip1.SetToolTip(Me.cb_u2, "사용자 정의 문자열 입니다") + Me.cb_u2.UseVisualStyleBackColor = True + ' + 'cb_kwang + ' + Me.cb_kwang.AutoSize = True + Me.cb_kwang.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_kwang.Location = New System.Drawing.Point(15, 145) + Me.cb_kwang.Name = "cb_kwang" + Me.cb_kwang.Size = New System.Drawing.Size(62, 19) + Me.cb_kwang.TabIndex = 0 + Me.cb_kwang.Tag = "H" + Me.cb_kwang.Text = "관리구" + Me.cb_kwang.UseVisualStyleBackColor = True + ' + 'cb_u1 + ' + Me.cb_u1.AutoSize = True + Me.cb_u1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u1.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u1.Location = New System.Drawing.Point(15, 211) + Me.cb_u1.Name = "cb_u1" + Me.cb_u1.Size = New System.Drawing.Size(57, 19) + Me.cb_u1.TabIndex = 26 + Me.cb_u1.Tag = "U" + Me.cb_u1.Text = "문자1" + Me.ToolTip1.SetToolTip(Me.cb_u1, "사용자 정의 문자열 입니다") + Me.cb_u1.UseVisualStyleBackColor = True + ' + 'cb_u3 + ' + Me.cb_u3.AutoSize = True + Me.cb_u3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u3.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u3.Location = New System.Drawing.Point(15, 255) + Me.cb_u3.Name = "cb_u3" + Me.cb_u3.Size = New System.Drawing.Size(57, 19) + Me.cb_u3.TabIndex = 28 + Me.cb_u3.Tag = "B" + Me.cb_u3.Text = "문자3" + Me.ToolTip1.SetToolTip(Me.cb_u3, "사용자 정의 문자열 입니다") + Me.cb_u3.UseVisualStyleBackColor = True + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(15, 13) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(74, 19) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'cb_kwanjun + ' + Me.cb_kwanjun.AutoSize = True + Me.cb_kwanjun.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_kwanjun.ForeColor = System.Drawing.Color.Black + Me.cb_kwanjun.Location = New System.Drawing.Point(15, 35) + Me.cb_kwanjun.Name = "cb_kwanjun" + Me.cb_kwanjun.Size = New System.Drawing.Size(126, 19) + Me.cb_kwanjun.TabIndex = 11 + Me.cb_kwanjun.Tag = "G" + Me.cb_kwanjun.Text = "관리구-전산화번호" + Me.cb_kwanjun.UseVisualStyleBackColor = True + ' + 'cb_sunglo + ' + Me.cb_sunglo.AutoSize = True + Me.cb_sunglo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_sunglo.Location = New System.Drawing.Point(15, 167) + Me.cb_sunglo.Name = "cb_sunglo" + Me.cb_sunglo.Size = New System.Drawing.Size(62, 19) + Me.cb_sunglo.TabIndex = 2 + Me.cb_sunglo.Tag = "L" + Me.cb_sunglo.Text = "선로명" + Me.cb_sunglo.UseVisualStyleBackColor = True + ' + 'cb_u5 + ' + Me.cb_u5.AutoSize = True + Me.cb_u5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_u5.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u5.Location = New System.Drawing.Point(15, 299) + Me.cb_u5.Name = "cb_u5" + Me.cb_u5.Size = New System.Drawing.Size(57, 19) + Me.cb_u5.TabIndex = 30 + Me.cb_u5.Tag = "E" + Me.cb_u5.Text = "문자5" + Me.ToolTip1.SetToolTip(Me.cb_u5, "사용자 정의 문자열 입니다") + Me.cb_u5.UseVisualStyleBackColor = True + ' + 'cb_sunsannum + ' + Me.cb_sunsannum.AutoSize = True + Me.cb_sunsannum.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_sunsannum.Location = New System.Drawing.Point(15, 189) + Me.cb_sunsannum.Name = "cb_sunsannum" + Me.cb_sunsannum.Size = New System.Drawing.Size(74, 19) + Me.cb_sunsannum.TabIndex = 1 + Me.cb_sunsannum.Tag = "S" + Me.cb_sunsannum.Text = "전산번호" + Me.cb_sunsannum.UseVisualStyleBackColor = True + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.dataview) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "데이터" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1, Row 0, Column 0, " + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetViewportLeftColumn(0, 0, 13) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 25 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산화번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 5).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 5).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 10).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 10).Value = "1회선" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 12).ColumnSpan = 4 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 12).Value = "2회선" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 16).ColumnSpan = 6 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 16).Value = "3회선" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 23).Value = "선택" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 24).Value = "출력" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "관리구B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 3).Value = "번호B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "선로명B" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "A1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "A2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "A3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "A4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "A5" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "D11" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "D12" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 12).Value = "D21" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 13).Value = "D22" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 14).Value = "D23" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 15).Value = "D24" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 16).Value = "D31" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 17).Value = "D32" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 18).Value = "D33" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 19).Value = "D34" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 20).Value = "D35" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 21).Value = "D36" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 22).Value = "대규격" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 23).Value = "S" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 24).Value = "P" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 28.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(0).DataField = "관리ID" + Me.dataview_Sheet1.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.Columns.Get(1).AllowAutoSort = True + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(1).CellType = NumberCellType2 + Me.dataview_Sheet1.Columns.Get(1).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 49.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(2).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "관리구B" + Me.dataview_Sheet1.Columns.Get(2).Tag = "관리구" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 77.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(3).DataField = "전주번호" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Label = "번호B" + Me.dataview_Sheet1.Columns.Get(3).Tag = "전산화번호" + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(4).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Label = "선로명B" + Me.dataview_Sheet1.Columns.Get(4).Tag = "선로명" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 96.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(5).Label = "A1" + Me.dataview_Sheet1.Columns.Get(5).Tag = "번호1" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(6).Label = "A2" + Me.dataview_Sheet1.Columns.Get(6).Tag = "번호2" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(7).Label = "A3" + Me.dataview_Sheet1.Columns.Get(7).Tag = "번호3" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.dataview_Sheet1.Columns.Get(8).Label = "A4" + Me.dataview_Sheet1.Columns.Get(8).Tag = "번호4" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(9).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(9).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(9).Label = "A5" + Me.dataview_Sheet1.Columns.Get(9).Tag = "번호5" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(10).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(10).DataField = "회선11" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "D11" + Me.dataview_Sheet1.Columns.Get(10).Tag = "장척" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 59.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(11).DataField = "회선12" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "D12" + Me.dataview_Sheet1.Columns.Get(11).Locked = False + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 51.0! + Me.dataview_Sheet1.Columns.Get(12).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType11.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(12).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(12).DataField = "회선21" + Me.dataview_Sheet1.Columns.Get(12).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Label = "D21" + Me.dataview_Sheet1.Columns.Get(12).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(12).Width = 53.0! + TextCellType12.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(13).CellType = TextCellType12 + Me.dataview_Sheet1.Columns.Get(13).DataField = "회선22" + Me.dataview_Sheet1.Columns.Get(13).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Label = "D22" + Me.dataview_Sheet1.Columns.Get(13).Tag = "감독자" + Me.dataview_Sheet1.Columns.Get(13).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(13).Width = 57.0! + Me.dataview_Sheet1.Columns.Get(14).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType13.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(14).CellType = TextCellType13 + Me.dataview_Sheet1.Columns.Get(14).DataField = "회선23" + Me.dataview_Sheet1.Columns.Get(14).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Label = "D23" + Me.dataview_Sheet1.Columns.Get(14).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(14).Width = 48.0! + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(15).CellType = TextCellType14 + Me.dataview_Sheet1.Columns.Get(15).DataField = "회선24" + Me.dataview_Sheet1.Columns.Get(15).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(15).Label = "D24" + Me.dataview_Sheet1.Columns.Get(15).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(16).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType15.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(16).CellType = TextCellType15 + Me.dataview_Sheet1.Columns.Get(16).DataField = "회선31" + Me.dataview_Sheet1.Columns.Get(16).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(16).Label = "D31" + Me.dataview_Sheet1.Columns.Get(16).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(17).CellType = TextCellType16 + Me.dataview_Sheet1.Columns.Get(17).DataField = "회선32" + Me.dataview_Sheet1.Columns.Get(17).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(17).Label = "D32" + Me.dataview_Sheet1.Columns.Get(17).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(18).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType17.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(18).CellType = TextCellType17 + Me.dataview_Sheet1.Columns.Get(18).DataField = "회선33" + Me.dataview_Sheet1.Columns.Get(18).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(18).Label = "D33" + Me.dataview_Sheet1.Columns.Get(18).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType18.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(19).CellType = TextCellType18 + Me.dataview_Sheet1.Columns.Get(19).DataField = "회선34" + Me.dataview_Sheet1.Columns.Get(19).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(19).Label = "D34" + Me.dataview_Sheet1.Columns.Get(19).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(20).BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + TextCellType19.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(20).CellType = TextCellType19 + Me.dataview_Sheet1.Columns.Get(20).DataField = "회선35" + Me.dataview_Sheet1.Columns.Get(20).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(20).Label = "D35" + Me.dataview_Sheet1.Columns.Get(20).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + TextCellType20.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(21).CellType = TextCellType20 + Me.dataview_Sheet1.Columns.Get(21).DataField = "회선36" + Me.dataview_Sheet1.Columns.Get(21).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(21).Label = "D36" + Me.dataview_Sheet1.Columns.Get(21).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(21).Width = 59.0! + Me.dataview_Sheet1.Columns.Get(22).CellType = CheckBoxCellType1 + Me.dataview_Sheet1.Columns.Get(22).DataField = "대규격" + Me.dataview_Sheet1.Columns.Get(22).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(22).Label = "대규격" + Me.dataview_Sheet1.Columns.Get(22).Tag = "대규격" + Me.dataview_Sheet1.Columns.Get(22).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(22).Width = 47.0! + Me.dataview_Sheet1.Columns.Get(23).AllowAutoFilter = True + Me.dataview_Sheet1.Columns.Get(23).CellType = CheckBoxCellType2 + Me.dataview_Sheet1.Columns.Get(23).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(23).Label = "S" + Me.dataview_Sheet1.Columns.Get(23).Tag = "S" + Me.dataview_Sheet1.Columns.Get(23).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(23).Width = 55.0! + Me.dataview_Sheet1.Columns.Get(24).AllowAutoFilter = True + Me.dataview_Sheet1.Columns.Get(24).CellType = CheckBoxCellType3 + Me.dataview_Sheet1.Columns.Get(24).DataField = "출력" + Me.dataview_Sheet1.Columns.Get(24).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(24).Label = "P" + Me.dataview_Sheet1.Columns.Get(24).Tag = "P" + Me.dataview_Sheet1.Columns.Get(24).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(24).Width = 49.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.PrintInfo.ShowGrid = False + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 42.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.lbQrFG) + Me.TabPage7.Controls.Add(Me.lbQrBg) + Me.TabPage7.Controls.Add(Me.LinkLabel2) + Me.TabPage7.Controls.Add(Me.LinkLabel1) + Me.TabPage7.Controls.Add(Me.Label28) + Me.TabPage7.Controls.Add(Me.Label27) + Me.TabPage7.Controls.Add(Me.Label26) + Me.TabPage7.Controls.Add(Me.Label25) + Me.TabPage7.Controls.Add(Me.cboCorrectionLevel) + Me.TabPage7.Controls.Add(Me.cboVersion) + Me.TabPage7.Controls.Add(Me.cboEncoding) + Me.TabPage7.Controls.Add(Me.Label15) + Me.TabPage7.Controls.Add(Me.Label18) + Me.TabPage7.Controls.Add(Me.Label19) + Me.TabPage7.Controls.Add(Me.Label21) + Me.TabPage7.Controls.Add(Me.Label20) + Me.TabPage7.Controls.Add(Me.Label22) + Me.TabPage7.Controls.Add(Me.Label23) + Me.TabPage7.Controls.Add(Me.Button16) + Me.TabPage7.Controls.Add(Me.Button14) + Me.TabPage7.Controls.Add(Me.Label6) + Me.TabPage7.Controls.Add(Me.tb_dw) + Me.TabPage7.Controls.Add(Me.tb_dh) + Me.TabPage7.Controls.Add(Me.Label7) + Me.TabPage7.Controls.Add(Me.Button2) + Me.TabPage7.Controls.Add(Me.Label5) + Me.TabPage7.Controls.Add(Me.tb_dy) + Me.TabPage7.Controls.Add(Me.Label9) + Me.TabPage7.Controls.Add(Me.tb_pensize) + Me.TabPage7.Controls.Add(Me.tb_dx) + Me.TabPage7.Controls.Add(Me.bt_pencolor) + Me.TabPage7.Controls.Add(Me.Button15) + Me.TabPage7.Controls.Add(Me.Button13) + Me.TabPage7.Controls.Add(Me.ListBox1) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "선 및 도형" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'cboCorrectionLevel + ' + Me.cboCorrectionLevel.Location = New System.Drawing.Point(139, 342) + Me.cboCorrectionLevel.Name = "cboCorrectionLevel" + Me.cboCorrectionLevel.Size = New System.Drawing.Size(59, 21) + Me.cboCorrectionLevel.TabIndex = 65 + Me.cboCorrectionLevel.Text = "1" + Me.cboCorrectionLevel.Visible = False + ' + 'cboVersion + ' + Me.cboVersion.Location = New System.Drawing.Point(98, 287) + Me.cboVersion.Name = "cboVersion" + Me.cboVersion.Size = New System.Drawing.Size(100, 21) + Me.cboVersion.TabIndex = 64 + Me.cboVersion.Text = "1" + Me.cboVersion.Visible = False + ' + 'cboEncoding + ' + Me.cboEncoding.Location = New System.Drawing.Point(98, 205) + Me.cboEncoding.Name = "cboEncoding" + Me.cboEncoding.Size = New System.Drawing.Size(100, 21) + Me.cboEncoding.TabIndex = 63 + Me.cboEncoding.Text = "2" + Me.cboEncoding.Visible = False + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(99, 319) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(60, 12) + Me.Label15.TabIndex = 58 + Me.Label15.Text = "1~40 선택" + Me.Label15.Visible = False + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(99, 266) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(44, 12) + Me.Label18.TabIndex = 57 + Me.Label18.Text = "3. Byte" + Me.Label18.Visible = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(99, 250) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(67, 12) + Me.Label19.TabIndex = 56 + Me.Label19.Text = "2. Numeric" + Me.Label19.Visible = False + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.Location = New System.Drawing.Point(99, 234) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(99, 12) + Me.Label21.TabIndex = 55 + Me.Label21.Text = "1. AlphaNumeric" + Me.Label21.Visible = False + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(36, 345) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(97, 12) + Me.Label20.TabIndex = 54 + Me.Label20.Text = "Correction Level" + Me.Label20.Visible = False + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(36, 290) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(48, 12) + Me.Label22.TabIndex = 53 + Me.Label22.Text = "Version" + Me.Label22.Visible = False + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(26, 210) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(58, 12) + Me.Label23.TabIndex = 52 + Me.Label23.Text = "Encoding" + Me.Label23.Visible = False + ' + 'Button16 + ' + Me.Button16.Location = New System.Drawing.Point(227, 11) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(38, 25) + Me.Button16.TabIndex = 25 + Me.Button16.Text = "QR" + Me.Button16.UseVisualStyleBackColor = True + Me.Button16.Visible = False + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(150, 11) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(38, 25) + Me.Button14.TabIndex = 24 + Me.Button14.Text = "원" + Me.Button14.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(145, 137) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(98, 154) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(139, 154) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(107, 137) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(189, 11) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(38, 25) + Me.Button2.TabIndex = 23 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(28, 137) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(57, 154) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(68, 137) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(13, 12) + Me.Label9.TabIndex = 12 + Me.Label9.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(40, 13) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(32, 21) + Me.tb_pensize.TabIndex = 21 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(16, 154) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(4, 9) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(33, 27) + Me.bt_pencolor.TabIndex = 20 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(112, 11) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(38, 25) + Me.Button15.TabIndex = 19 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(74, 11) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(38, 25) + Me.Button13.TabIndex = 18 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(6, 41) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(259, 88) + Me.ListBox1.TabIndex = 17 + ' + 'BindingSource1 + ' + Me.BindingSource1.AllowNew = False + Me.BindingSource1.Sort = "" + ' + 'IreaDataSet1 + ' + Me.IreaDataSet1.DataSetName = "ireaDataSet" + Me.IreaDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + '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.Absolute, 21.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 93.79311!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(276, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(21, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(276, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.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.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(1, 2) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(271, 479) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.TB_Pattern_Start, Me.TB_Pattern_End, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripLabel2, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(588, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(41, 27) + Me.ToolStripLabel4.Text = "▶검사" + ' + 'TB_Pattern_Start + ' + Me.TB_Pattern_Start.BackColor = System.Drawing.Color.LightBlue + Me.TB_Pattern_Start.Name = "TB_Pattern_Start" + Me.TB_Pattern_Start.Size = New System.Drawing.Size(40, 30) + Me.TB_Pattern_Start.Text = "0" + Me.TB_Pattern_Start.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'TB_Pattern_End + ' + Me.TB_Pattern_End.BackColor = System.Drawing.Color.LightBlue + Me.TB_Pattern_End.Name = "TB_Pattern_End" + Me.TB_Pattern_End.Size = New System.Drawing.Size(40, 30) + Me.TB_Pattern_End.Text = "0" + Me.TB_Pattern_End.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(68, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel2.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(99, 27) + Me.ToolStripLabel2.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DoolStripMenuItem, Me.ToolStripMenuItem2, Me.bt_style_manager, Me.ToolStripMenuItem3, Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.gfdStripMenuItem, Me.gfdlStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.Green + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(83, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'DoolStripMenuItem + ' + Me.DoolStripMenuItem.Name = "DoolStripMenuItem" + Me.DoolStripMenuItem.Size = New System.Drawing.Size(170, 22) + Me.DoolStripMenuItem.Text = "D/L명(1회선) 좌" + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(170, 22) + Me.ToolStripMenuItem2.Text = "D/L명(1회선) 우" + ' + 'bt_style_manager + ' + Me.bt_style_manager.Name = "bt_style_manager" + Me.bt_style_manager.Size = New System.Drawing.Size(170, 22) + Me.bt_style_manager.Text = "D/L명(2회선) 좌" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(170, 22) + Me.ToolStripMenuItem3.Text = "D/L명(2회선) 우" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(170, 22) + Me.ToolStripMenuItem1.Text = "D/L명(3회선) 좌" + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(170, 22) + Me.ToolStripMenuItem4.Text = "D/L명(3회선) 우" + ' + 'gfdStripMenuItem + ' + Me.gfdStripMenuItem.Name = "gfdStripMenuItem" + Me.gfdStripMenuItem.Size = New System.Drawing.Size(170, 22) + Me.gfdStripMenuItem.Text = "선로명" + ' + 'gfdlStripMenuItem + ' + Me.gfdlStripMenuItem.Name = "gfdlStripMenuItem" + Me.gfdlStripMenuItem.Size = New System.Drawing.Size(170, 22) + Me.gfdlStripMenuItem.Text = "전주번호" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5, Me.ToolStripButton2}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(588, 29) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 26) + Me.ToolStripLabel1.Text = "번호형식" + Me.ToolStripLabel1.ToolTipText = "전주번호가 표시되는 번호 형식입니다" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 29) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 29) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 26) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.Gainsboro + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 29) + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = Global.EpoleNet.My.Resources.Resources.about_161 + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 26) + Me.ToolStripButton2.Text = "도움말" + Me.ToolStripButton2.ToolTipText = "현재화면에대한 도움말을 표시합니다" + ' + 'lbQrFG + ' + Me.lbQrFG.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrFG.Location = New System.Drawing.Point(164, 456) + Me.lbQrFG.Name = "lbQrFG" + Me.lbQrFG.Size = New System.Drawing.Size(48, 27) + Me.lbQrFG.TabIndex = 73 + ' + 'lbQrBg + ' + Me.lbQrBg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrBg.Location = New System.Drawing.Point(163, 423) + Me.lbQrBg.Name = "lbQrBg" + Me.lbQrBg.Size = New System.Drawing.Size(48, 27) + Me.lbQrBg.TabIndex = 72 + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(53, 463) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(103, 12) + Me.LinkLabel2.TabIndex = 71 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Foreground Color" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(53, 430) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(106, 12) + Me.LinkLabel1.TabIndex = 70 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Background Color" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(176, 393) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(23, 12) + Me.Label28.TabIndex = 69 + Me.Label28.Text = "4.H" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(114, 393) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(24, 12) + Me.Label27.TabIndex = 68 + Me.Label27.Text = "3.Q" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(176, 372) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(26, 12) + Me.Label26.TabIndex = 67 + Me.Label26.Text = "2.M" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(114, 372) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(56, 12) + Me.Label25.TabIndex = 66 + Me.Label25.Text = "1.L(모두)" + ' + 'printformkiki + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(588, 606) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformkiki" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.TabPage5.ResumeLayout(False) + Me.TabPage5.PerformLayout() + Me.TabPage6.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.IreaDataSet1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button26 As System.Windows.Forms.Button + Friend WithEvents Button27 As System.Windows.Forms.Button + Friend WithEvents Button29 As System.Windows.Forms.Button + Friend WithEvents Button30 As System.Windows.Forms.Button + Friend WithEvents Button31 As System.Windows.Forms.Button + Friend WithEvents Button32 As System.Windows.Forms.Button + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 IreaDataSet1 As EpoleNet.ireaDataSet + Friend WithEvents tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_kwanjun As System.Windows.Forms.CheckBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents cb_jjnum As System.Windows.Forms.CheckBox + Friend WithEvents cb_sunglo As System.Windows.Forms.CheckBox + Friend WithEvents cb_sunsannum As System.Windows.Forms.CheckBox + Friend WithEvents cb_u5 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u4 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u3 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u2 As System.Windows.Forms.CheckBox + Friend WithEvents cb_u1 As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents TB_Pattern_Start As System.Windows.Forms.ToolStripTextBox + Friend WithEvents TB_Pattern_End As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_kwang As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents cb_dl1 As System.Windows.Forms.CheckBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents gfdlStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents gfdStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents DoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents bt_style_manager As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents cb_dl3 As System.Windows.Forms.CheckBox + Friend WithEvents cb_dl2 As System.Windows.Forms.CheckBox + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents CB_BIGO1 As System.Windows.Forms.CheckBox + Friend WithEvents CB_BIGO4 As System.Windows.Forms.CheckBox + Friend WithEvents CB_BIGO3 As System.Windows.Forms.CheckBox + Friend WithEvents CB_BIGO2 As System.Windows.Forms.CheckBox + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents ToolStripMenuItem2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem4 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents Button14 As System.Windows.Forms.Button + Friend WithEvents Button16 As System.Windows.Forms.Button + Friend WithEvents cboCorrectionLevel As System.Windows.Forms.TextBox + Friend WithEvents cboVersion As System.Windows.Forms.TextBox + Friend WithEvents cboEncoding As System.Windows.Forms.TextBox + Friend WithEvents Label15 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents Label21 As System.Windows.Forms.Label + Private WithEvents Label20 As System.Windows.Forms.Label + Private WithEvents Label22 As System.Windows.Forms.Label + Private WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents lbQrFG As System.Windows.Forms.Panel + Friend WithEvents lbQrBg As System.Windows.Forms.Panel + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents Label25 As System.Windows.Forms.Label +End Class diff --git a/Epole/출력폼/PrintFormkiki.resx b/Epole/출력폼/PrintFormkiki.resx new file mode 100644 index 0000000..3480ef9 --- /dev/null +++ b/Epole/출력폼/PrintFormkiki.resx @@ -0,0 +1,330 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 546, 11 + + + 14, 4 + + + 1014, 4 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABjUlE + QVQ4T5WSvWrCYBiF7VR6CaVIyeRQxEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F + 6XdikvpqF4WH732/8wNJTAAQqN9ds9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUi + XKlUtHa7bQyHwyA4Ho8DOPOOGj3nJXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY + 7/cwpyZMc6rg+Qc1euhlhlkWPFSrVaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4 + TojaZ9HsnDS108sMsyx4KZVKmM/nN8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvV + SrAOzjWo0RN6mWE2cR8ObHvN5XLYeB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclk + cpFKpfAf1OgRGbHI9/FxQfzcIiMW+T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABkklE + QVQ4T5WSsWrCUBiFr1OIFZwlg5MISlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71J + c4NLhY/73/Ofc8AkjIgyxM+YTCbL2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINH + y2gXxl5HoxFdLhdabzaSzVqcAmjYwVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+ + KbaS4h4ZZFHQ7vV6FEURhSAMszkKQZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre + 6XT4wlvQfr+/86POAp7nEbzIIIsCU/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDca + DY6v7nA40PH4BzTs4IFXZUrpu8xKTNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad + 8siwVlAowf97EzgKzNC0sMzkL1K4l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB6ElE + QVQ4T42Sv4viQBTHdytdBftVQUQQJO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXI + BsTOH/hXvH1vskbHa27gM2++M+/78ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55O + p7Df7xntdpsOn29zbY+9QHMulwvW63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKK + orC1JEkc+BD7SsycTqeDpVJJHo1GcDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z + 1OYY56SvkK5UKuRkV6LhKxaLcD6fQdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+H + sFqtGGsW14z1+qKvpFIproDP4/HURFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M + 07T4NOETYyKR4BAE4QM99kt8RNzIq8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2 + Oh3Y7XaMaDRKSRlERATkGbF+JJruizgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa + 5VrmgYcvtZo3CPnmmpkAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABjUlE + QVQ4T5WSvWrCYBiF7VR6CaVIyeRQxEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F + 6XdikvpqF4WH732/8wNJTAAQqN9ds9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUi + XKlUtHa7bQyHwyA4Ho8DOPOOGj3nJXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY + 7/cwpyZMc6rg+Qc1euhlhlkWPFSrVaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4 + TojaZ9HsnDS108sMsyx4KZVKmM/nN8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvV + SrAOzjWo0RN6mWE2cR8ObHvN5XLYeB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclk + cpFKpfAf1OgRGbHI9/FxQfzcIiMW+T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB2klE + QVQ4T42RPYviUBSGs1UcBXsdQRZBkDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhM + QOz8wF/x7rl3xqzZTLEHHs7HPe8LJxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqC + Wq02yeVyXz8zsTR8IAhSo9Hg4ul0yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRS + KYsJC0+lUsH5fLYwm80+eMUrZTYbDocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2 + QrqHm4Gcz+exXGrE8h2NZQ3aR63dvV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2 + +D5ANBpdWwzi8Tj0nX7HDrpOWadM/Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPl + ctVJ80SYH9FDZIg2MSB+RiIR7Pd7k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6H + wybmBrfCHJCRz+dbB4NBMLxeryGK4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTG + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAABkklE + QVQ4T5WSsWrCUBiFr1OIFZwlg5MISlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71J + c4NLhY/73/Ofc8AkjIgyxM+YTCbL2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINH + y2gXxl5HoxFdLhdabzaSzVqcAmjYwVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+ + KbaS4h4ZZFHQ7vV6FEURhSAMszkKQZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre + 6XT4wlvQfr+/86POAp7nEbzIIIsCU/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDca + DY6v7nA40PH4BzTs4IFXZUrpu8xKTNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad + 8siwVlAowf97EzgKzNC0sMzkL1K4l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB2klE + QVQ4T42RPYviUBSGs1UcBXsdQRZBkDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhM + QOz8wF/x7rl3xqzZTLEHHs7HPe8LJxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqC + Wq02yeVyXz8zsTR8IAhSo9Hg4ul0yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRS + KYsJC0+lUsH5fLYwm80+eMUrZTYbDocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2 + QrqHm4Gcz+exXGrE8h2NZQ3aR63dvV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2 + +D5ANBpdWwzi8Tj0nX7HDrpOWadM/Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPl + ctVJ80SYH9FDZIg2MSB+RiIR7Pd7k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6H + wybmBrfCHJCRz+dbB4NBMLxeryGK4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTG + AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA68AAAOvAGVvHJJAAAB6ElE + QVQ4T42Sv4viQBTHdytdBftVQUQQJO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXI + BsTOH/hXvH1vskbHa27gM2++M+/78ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55O + p7Df7xntdpsOn29zbY+9QHMulwvW63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKK + orC1JEkc+BD7SsycTqeDpVJJHo1GcDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z + 1OYY56SvkK5UKuRkV6LhKxaLcD6fQdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+H + sFqtGGsW14z1+qKvpFIproDP4/HURFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M + 07T4NOETYyKR4BAE4QM99kt8RNzIq8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2 + Oh3Y7XaMaDRKSRlERATkGbF+JJruizgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa + 5VrmgYcvtZo3CPnmmpkAAAAASUVORK5CYII= + + + + 229, 17 + + + 407, 11 + + + 906, -4 + + + 754, 4 + + + 221, 13 + + + 36 + + + 658, 1 + + + 531, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintFormkiki.vb b/Epole/출력폼/PrintFormkiki.vb new file mode 100644 index 0000000..e7198de --- /dev/null +++ b/Epole/출력폼/PrintFormkiki.vb @@ -0,0 +1,4714 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data +Public Class printformkiki + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + '// Ʈó ޺ڽ ϸ ̰ ˻Ҷ Ѵ. + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + Dim S(4) As MyControlOLEDBv2.MyLabel + Dim Sȣ(2) As MyControlOLEDBv2.MyLabel + Dim Sθ(10) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(30) As MyControlOLEDBv2.MyLabel + Dim SϷùȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sȭȣ As MyControlOLEDBv2.MyLabel + Dim s1 As MyControlOLEDBv2.MyLabel + Dim s2 As MyControlOLEDBv2.MyLabel + Dim s3 As MyControlOLEDBv2.MyLabel + Dim s4 As MyControlOLEDBv2.MyLabel + + '// ʵ尡 ٷκؼ ̰ Ѵ. + Dim SDL11(1) As MyControlOLEDBv2.MyLabel + Dim SDL12(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL13(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL14(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL15(1) As MyControlOLEDBv2.MyLabel + + Dim SDL21(1) As MyControlOLEDBv2.MyLabel + Dim SDL22(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL23(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL24(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL25(1) As MyControlOLEDBv2.MyLabel + + Dim SDL31(1) As MyControlOLEDBv2.MyLabel + Dim SDL32(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL33(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL34(1) As MyControlOLEDBv2.MyLabel + 'Dim SDL35(1) As MyControlOLEDBv2.MyLabel + + '//ڹ + Dim S1 As MyControlOLEDBv2.MyLabel 'U + Dim S2 As MyControlOLEDBv2.MyLabel 'A + Dim S3 As MyControlOLEDBv2.MyLabel 'B + Dim S4 As MyControlOLEDBv2.MyLabel 'D + Dim S5 As MyControlOLEDBv2.MyLabel 'E + + Dim As String = vbNullString + Dim ȣ As String = vbNullString + Dim θ As String = vbNullString + Dim ȣ As String = vbNullString + + Dim Dl11 As String = vbNullString + Dim Dl12 As String = vbNullString + 'Dim Dl13 As String = vbNullString + 'Dim Dl14 As String = vbNullString + 'Dim Dl15 As String = vbNullString + + Dim Dl21 As String = vbNullString + Dim Dl22 As String = vbNullString + 'Dim Dl23 As String = vbNullString + 'Dim Dl24 As String = vbNullString + 'Dim Dl25 As String = vbNullString + + Dim Dl31 As String = vbNullString + Dim Dl32 As String = vbNullString + 'Dim Dl33 As String = vbNullString + 'Dim Dl34 As String = vbNullString + 'Dim Dl35 As String = vbNullString + + Dim 1 As String + Dim 2 As String + Dim 3 As String + Dim 4 As String + + Dim ֹȣ As String = "" + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д. + Dim ۵ As Boolean = True + Dim ȣ۵ As Boolean = True + Dim θ۵ As Boolean = True + Dim ֹȣ۵ As Boolean = True + Dim ð۵ As Boolean = True + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As ireaDataSet.Detail_kikiRow + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleKK") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCK.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_kikiDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False '//϶ true . + + Public Sub New() + InitializeComponent() + AddLog(Admin, "New()", "\Alllog.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.Detail_kikiDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + AddLog(Admin, "New(srctable,srcRow)", "\Alllog.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow.Row '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.dataview.Setting_Save(False, "printkiki", "\viewConfig\main_") + AddLog(Admin, "Form_Closk", "\Alllog.txt") + Save_Setting() + End Sub + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printkiki", "\viewConfig\main_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + AddLog(Admin, "Form_Load()", "\Alllog.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + If srcTable Is Nothing Then + MsgBox("ͼҽ ǵ ʾҽϴ", MsgBoxStyle.Critical, "Ȯ") + AddLog(Admin, " ⺻ ȯ()", "\Alllog.txt") + Common.Admin = True + Me.NoView = True + Admin = True + End If + + AddLog(Admin, "ڸ=" & Admin.ToString, "\Alllog.txt") + If Admin Then '//ڸ üũڽ Ҽ ְѴ. + showlog() + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + AddLog(Admin, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\Alllog.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Return + End If + + '//⼭ ప мؼ ޺ܸ ش; '// õ ش ãƾ Ѵ. + Srcnum = Srcrow.ȣ ' Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + AddLog(Admin, "õǼ ѿµ ȣ ãϴ=" & Srcnum, "\Alllog.txt") + + If Srcrow.ȸ10 <> "" AndAlso Srcrow.ȸ20 <> "" AndAlso Srcrow.ȸ30 <> "" Then + AddLog(Admin, "3ȸ Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "(3ȸ)" '//⼭ Ͱ ɷԵȴ. + + ElseIf Srcrow.ȸ10 <> "" AndAlso Srcrow.ȸ20 <> "" Then + AddLog(Admin, "2ȸ Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "(2ȸ)" '//⼭ Ͱ ɷԵȴ. + + ElseIf Srcrow.ȸ10 <> "" Then + AddLog(Admin, "1ȸ Ǻ()", "\Alllog.txt") + Me.cmb_style.Text = "(1ȸ)" '//⼭ Ͱ ɷԵȴ. + Else + AddLog(Admin, "ŸȸμѴ.()", "\Alllog.txt") + Me.cmb_style.Text = "(ǥؿ)" '//⼭ Ͱ ɷԵȴ. + End If + + If Me.cmb_style.SelectedIndex = -1 Then + Me.cmb_style.SelectedIndex = 0 + End If + End Sub + + Private Sub SetControls() + AddLog(Admin, "SetControls()", "\Alllog.txt") + Dim CtlCnt As Short = 0 + + For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + S(i) = New MyControlOLEDBv2.MyLabel + S(i). = "" & i + 1 + S(i).Name = "H" & i + 1 + S(i).DIV = "H" + S(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S(i) + Me.cmb_controls.Items.Add(S(i).) + CtlCnt += 1 + Next + + '////////////////////////// + For i As Integer = 0 To SDL11.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL11(i) = New MyControlOLEDBv2.MyLabel + SDL11(i). = "D/L 1ȸ(1)" & i + 1 + SDL11(i).Name = "I" & i + 1 + SDL11(i).DIV = "I" + SDL11(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL11(i) + Me.cmb_controls.Items.Add(SDL11(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To SDL12.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL12(i) = New MyControlOLEDBv2.MyLabel + SDL12(i). = "D/L 1ȸ(2)" & i + 1 + SDL12(i).Name = "C" & i + 1 + SDL12(i).DIV = "C" + SDL12(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL12(i) + Me.cmb_controls.Items.Add(SDL12(i).) + CtlCnt += 1 + Next + + 'For i As Integer = 0 To SDL13.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL13(i) = New MyControlOLEDBv2.MyLabel + ' SDL13(i). = "D/L 1ȸ(3)" & i + 1 + ' SDL13(i).Name = "PA" & i + 1 + ' SDL13(i).DIV = "PA" + ' SDL13(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL13(i) + ' Me.cmb_controls.Items.Add(SDL13(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL14.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL14(i) = New MyControlOLEDBv2.MyLabel + ' SDL14(i). = "D/L 1ȸ(4)" & i + 1 + ' SDL14(i).Name = "PB" & i + 1 + ' SDL14(i).DIV = "PB" + ' SDL14(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL14(i) + ' Me.cmb_controls.Items.Add(SDL14(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL15.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL15(i) = New MyControlOLEDBv2.MyLabel + ' SDL15(i). = "D/L 1ȸ(5)" & i + 1 + ' SDL15(i).Name = "PC" & i + 1 + ' SDL15(i).DIV = "PC" + ' SDL15(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL15(i) + ' Me.cmb_controls.Items.Add(SDL15(i).) + ' CtlCnt += 1 + 'Next + + For i As Integer = 0 To SDL21.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL21(i) = New MyControlOLEDBv2.MyLabel + SDL21(i). = "D/L 2ȸ(1)" & i + 1 + SDL21(i).Name = "J" & i + 1 + SDL21(i).DIV = "J" + SDL21(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL21(i) + Me.cmb_controls.Items.Add(SDL21(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To SDL22.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL22(i) = New MyControlOLEDBv2.MyLabel + SDL22(i). = "D/L 2ȸ(2)" & i + 1 + SDL22(i).Name = "F" & i + 1 + SDL22(i).DIV = "F" + SDL22(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL22(i) + Me.cmb_controls.Items.Add(SDL22(i).) + CtlCnt += 1 + Next + + 'For i As Integer = 0 To SDL23.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL23(i) = New MyControlOLEDBv2.MyLabel + ' SDL23(i). = "D/L 2ȸ(3)" & i + 1 + ' SDL23(i).Name = "QA" & i + 1 + ' SDL23(i).DIV = "QA" + ' SDL23(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL23(i) + ' Me.cmb_controls.Items.Add(SDL23(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL24.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL24(i) = New MyControlOLEDBv2.MyLabel + ' SDL24(i). = "D/L 2ȸ(4)" & i + 1 + ' SDL24(i).Name = "QB" & i + 1 + ' SDL24(i).DIV = "QB" + ' SDL24(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL24(i) + ' Me.cmb_controls.Items.Add(SDL24(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL25.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL25(i) = New MyControlOLEDBv2.MyLabel + ' SDL25(i). = "D/L 2ȸ(5)" & i + 1 + ' SDL25(i).Name = "QC" & i + 1 + ' SDL25(i).DIV = "QC" + ' SDL25(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL25(i) + ' Me.cmb_controls.Items.Add(SDL25(i).) + ' CtlCnt += 1 + 'Next + + For i As Integer = 0 To SDL31.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL31(i) = New MyControlOLEDBv2.MyLabel + SDL31(i). = "D/L 3ȸ(1)" & i + 1 + SDL31(i).Name = "K" & i + 1 + SDL31(i).DIV = "K" + SDL31(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL31(i) + Me.cmb_controls.Items.Add(SDL31(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To SDL32.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL32(i) = New MyControlOLEDBv2.MyLabel + SDL32(i). = "D/L 3ȸ(2)" & i + 1 + SDL32(i).Name = "M" & i + 1 + SDL32(i).DIV = "M" + SDL32(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL32(i) + Me.cmb_controls.Items.Add(SDL32(i).) + CtlCnt += 1 + Next + + 'For i As Integer = 0 To SDL33.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL33(i) = New MyControlOLEDBv2.MyLabel + ' SDL33(i). = "D/L 3ȸ(3)" & i + 1 + ' SDL33(i).Name = "RA" & i + 1 + ' SDL33(i).DIV = "RA" + ' SDL33(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL33(i) + ' Me.cmb_controls.Items.Add(SDL33(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL34.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL34(i) = New MyControlOLEDBv2.MyLabel + ' SDL34(i). = "D/L 3ȸ(4)" & i + 1 + ' SDL34(i).Name = "RB" & i + 1 + ' SDL34(i).DIV = "RB" + ' SDL34(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL34(i) + ' Me.cmb_controls.Items.Add(SDL34(i).) + ' CtlCnt += 1 + 'Next + + 'For i As Integer = 0 To SDL35.GetUpperBound(0) '//繮ڸ ҴѴ. + ' SDL35(i) = New MyControlOLEDBv2.MyLabel + ' SDL35(i). = "D/L 3ȸ(5)" & i + 1 + ' SDL35(i).Name = "RC" & i + 1 + ' SDL35(i).DIV = "RC" + ' SDL35(i).Visible = False + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = SDL35(i) + ' Me.cmb_controls.Items.Add(SDL35(i).) + ' CtlCnt += 1 + 'Next + '////////////////////////// + + For i As Integer = 0 To Sȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sȣ(i) = New MyControlOLEDBv2.MyLabel + Sȣ(i). = "ȣ" & i + 1 + Sȣ(i).Name = "S" & i + 1 + Sȣ(i).DIV = "S" + Sȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȣ(i) + Me.cmb_controls.Items.Add(Sȣ(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To Sθ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sθ(i) = New MyControlOLEDBv2.MyLabel + Sθ(i). = "θ" & i + 1 + Sθ(i).Name = "L" & i + 1 + Sθ(i).DIV = "L" + Sθ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sθ(i) + Me.cmb_controls.Items.Add(Sθ(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To Sֹȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sֹȣ(i) = New MyControlOLEDBv2.MyLabel + Sֹȣ(i). = "ֹȣ" & i + 1 + Sֹȣ(i).Name = "X" & i + 1 + Sֹȣ(i).DIV = "X" + Sֹȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sֹȣ(i) + Me.cmb_controls.Items.Add(Sֹȣ(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To SϷùȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + SϷùȣ(i) = New MyControlOLEDBv2.MyLabel + SϷùȣ(i). = "Ϸùȣ" & i + 1 + SϷùȣ(i).Name = "N" & i + 1 + SϷùȣ(i).DIV = "N" + SϷùȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SϷùȣ(i) + Me.cmb_controls.Items.Add(SϷùȣ(i).) + CtlCnt += 1 + Next + + S1 = New MyControlOLEDBv2.MyLabel + S1. = "ڹ1" + S1.MyText = "" + S1.Name = "U" + S1.DIV = "U" + S1.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S1 + Me.cmb_controls.Items.Add(S1.) + CtlCnt += 1 + + S2 = New MyControlOLEDBv2.MyLabel + S2. = "ڹ2" + S2.Name = "A" + S2.DIV = "A" + S2.MyText = "" + S2.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S2 + Me.cmb_controls.Items.Add(S2.) + CtlCnt += 1 + + S3 = New MyControlOLEDBv2.MyLabel + S3. = "ڹ3" + S3.Name = "B" + S3.DIV = "B" + S3.MyText = "" + S3.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S3 + Me.cmb_controls.Items.Add(S3.) + CtlCnt += 1 + + S4 = New MyControlOLEDBv2.MyLabel + S4. = "ڹ4" + S4.Name = "D" + S4.DIV = "D" + S4.MyText = "" + S4.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S4 + Me.cmb_controls.Items.Add(S4.) + CtlCnt += 1 + + S5 = New MyControlOLEDBv2.MyLabel + S5. = "ڹ5" + S5.Name = "E" + S5.DIV = "E" + S5.MyText = "" + S5.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S5 + Me.cmb_controls.Items.Add(S5.) + CtlCnt += 1 + + Sȭȣ = New MyControlOLEDBv2.MyLabel + Sȭȣ. = "ȭȣ" + Sȭȣ.Name = "G" + Sȭȣ.DIV = "G" + Sȭȣ.MyText = "" + Sȭȣ.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȭȣ + Me.cmb_controls.Items.Add(Sȭȣ.) + CtlCnt += 1 + + s1 = New MyControlOLEDBv2.MyLabel + s1. = "1" + s1.Name = "V" + s1.DIV = "V" + s1.MyText = "" + s1.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = s1 + Me.cmb_controls.Items.Add(s1.) + CtlCnt += 1 + + s2 = New MyControlOLEDBv2.MyLabel + s2. = "2" + s2.Name = "W" + s2.DIV = "W" + s2.MyText = "" + s2.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = s2 + Me.cmb_controls.Items.Add(s2.) + CtlCnt += 1 + + s3 = New MyControlOLEDBv2.MyLabel + s3. = "3" + s3.Name = "Y" + s3.DIV = "Y" + s3.MyText = "" + s3.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = s3 + Me.cmb_controls.Items.Add(s3.) + CtlCnt += 1 + + s4 = New MyControlOLEDBv2.MyLabel + s4. = "4" + s4.Name = "Z" + s4.DIV = "Z" + s4.MyText = "" + s4.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = s4 + Me.cmb_controls.Items.Add(s4.) + CtlCnt += 1 + End Sub + + Private Sub SETTOOLTIP() + AddLog(Admin, "Settooltip()", "\Alllog.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ӽ ش ڸ ֽϴ.") + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ȭ ߾ 1/2 ̸ â Ȱȭ >") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ߾ ̸ ȭ ǥõ ʽϴ") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.chb_preview, TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine("<1忡 ι Ͱ ǥõ˴ϴ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine("[] ½ ̸¿ 絥Ͱ ǥõ") + TMSG.AppendLine(" ½ÿ Ͱ ǥõ˴ϴ.") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + End Sub + + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + AddLog(Admin, "ü Ŭ߽ϴ.(̰ )", "\Alllog.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + + Private Sub Save_Setting() + AddLog(Admin, " (Ÿ) մϴ.", "\Alllog.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + AddLog(Admin, "缳(Ÿ) ɴϴ.()", "\Alllog.txt") + AddLog(Admin, "Load_Setting()", "\Alllog.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + + AddLog(Admin, "GetviewData ()", "\Alllog.txt") + 'MsgBox("getview = " & index) + + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + AddLog(Admin, "GetViewData : ε ų վ մϴ.(" & index & ")", "\Alllog.txt") + 'MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + + Dim ֹȣ As String = "" + + = GetSpread(Me.Dv, index, "") + ȣ = GetSpread(Me.Dv, index, "ֹȣ") + θ = GetSpread(Me.Dv, index, "θ") + ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + + Dl11 = GetSpread(Me.Dv, index, "ȸ11") + Dl12 = GetSpread(Me.Dv, index, "ȸ12") + 'Dl13 = GetSpread(Me.Dv, index, "ȸ13") + 'Dl14 = GetSpread(Me.Dv, index, "ȸ14") + 'Dl15 = GetSpread(Me.Dv, index, "ȸ15") + + Dl21 = GetSpread(Me.Dv, index, "ȸ21") + Dl22 = GetSpread(Me.Dv, index, "ȸ22") + 'Dl23 = GetSpread(Me.Dv, index, "ȸ23") + 'Dl24 = GetSpread(Me.Dv, index, "ȸ24") + 'Dl25 = GetSpread(Me.Dv, index, "ȸ25") + + Dl31 = GetSpread(Me.Dv, index, "ȸ31") + Dl32 = GetSpread(Me.Dv, index, "ȸ32") + 'Dl33 = GetSpread(Me.Dv, index, "ȸ33") + 'Dl34 = GetSpread(Me.Dv, index, "ȸ34") + 'Dl35 = GetSpread(Me.Dv, index, "ȸ35") + + Me.1 = GetSpread(Me.Dv, index, "1") + Me.2 = GetSpread(Me.Dv, index, "2") + Me.3 = GetSpread(Me.Dv, index, "3") + Me.4 = GetSpread(Me.Dv, index, "4") + + AddLog(Admin, "Complete : Load Data From Dataview", "\Alllog.txt") + Me.Text = "ȣ ۾(" & ȣ & ")" + + AddLog(Admin, "PASE մϴ.()", "\Alllog.txt") + AddLog(Admin, "ִ PASE մϴ.()", "\Alllog.txt") + + If PARSE_() Then Me.PARSE_() '//θ ؼ Ϻм + If PARSE_θ(θ) Then Me.PARSE_θ(θ) '//θ ؼ Ϻм + If PARSE_ȣ(ȣ) Then Me.PARSE_ȣ(ȣ) '//θ ؼ Ϻм + + If PARSE_DL11(Dl11) Then Me.PARSE_DL11(Dl11) '/DL ߰ߴ. + If PARSE_DL12(Dl12) Then Me.PARSE_DL12(Dl12) '/DL ߰ߴ. + 'If PARSE_DL12(Dl13) Then Me.PARSE_DL13(Dl13) '/DL ߰ߴ. + 'If PARSE_DL12(Dl14) Then Me.PARSE_DL14(Dl14) '/DL ߰ߴ. + 'If PARSE_DL12(Dl15) Then Me.PARSE_DL15(Dl15) '/DL ߰ߴ. + + If PARSE_DL21(Dl21) Then Me.PARSE_DL21(Dl21) '/DL ߰ߴ. + If PARSE_DL22(Dl22) Then Me.PARSE_DL22(Dl22) '/DL ߰ߴ. + 'If PARSE_DL12(Dl23) Then Me.PARSE_DL23(Dl23) '/DL ߰ߴ. + 'If PARSE_DL12(Dl24) Then Me.PARSE_DL24(Dl24) '/DL ߰ߴ. + 'If PARSE_DL12(Dl25) Then Me.PARSE_DL25(Dl25) '/DL ߰ߴ. + + If PARSE_DL31(Dl31) Then Me.PARSE_DL31(Dl31) '/DL ߰ߴ. + If PARSE_DL32(Dl32) Then Me.PARSE_DL32(Dl32) '/DL ߰ߴ. + 'If PARSE_DL12(Dl33) Then Me.PARSE_DL33(Dl33) '/DL ߰ߴ. + 'If PARSE_DL12(Dl34) Then Me.PARSE_DL34(Dl34) '/DL ߰ߴ. + 'If PARSE_DL12(Dl35) Then Me.PARSE_DL35(Dl35) '/DL ߰ߴ. + + ' addlog(admin, "New()", "\Alllog.txt") + If PARSE_ȣ(ȣ) Then '//⼭ False ǹ̰ + ȣϰ˻ = Me.PARSE_ȣ(ȣ) '//θ ؼ Ϻм + AddLog(Admin, "ȣϰ˻簡 ϷǾϴ.=" & ȣϰ˻, "\Alllog.txt") + If NUMCOLOR Then '//ȯ漳 󺸱Ⱑ õǾִٸ + If ȣϰ˻ = 3 Then '//Ѵپ. + '//Ѵپ κ̶ ⼭ Ʈ ش. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Red + Next + ElseIf ȣϰ˻ = 2 Then '//ڰ ̸ ִ. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Green + Next + Else '//ڸ ְų Ѵִ. '//0̸ ̸ Ѵִ 1̸ ڵ ̵ ̰ + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Black + Next + End If + End If + End If + + AddLog(Admin, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\Alllog.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + 'MsgBox() + + If Me.cb_seq.Checked Then + Me.SϷùȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.SϷùȣ(0).Visible = True + Else + Me.SϷùȣ(0).Visible = False + End If + + If Me.CB_BIGO1.Checked Then + Me.s1.MyText = Me.1 + Me.s1.Visible = True + Else + Me.s1.Visible = False + End If + + If Me.CB_BIGO2.Checked Then + Me.s2.MyText = Me.2 + Me.s2.Visible = True + Else + Me.s2.Visible = False + End If + + If Me.CB_BIGO3.Checked Then + Me.s3.MyText = Me.3 + Me.s3.Visible = True + Else + Me.s3.Visible = False + End If + + If Me.CB_BIGO4.Checked Then + Me.s4.MyText = Me.4 + Me.s4.Visible = True + Else + Me.s4.Visible = False + End If + + If Me.cb_kwanjun.Checked Then + Me.Sȭȣ.MyText = Me. & "-" & Me.ȣ + Me.Sȭȣ.Visible = True + Else + Me.Sȭȣ.Visible = False + End If + + AddLog(Admin, "ڹ ǥÿθ մϴ.()", "\Alllog.txt") + 'ڹ ǥÿ u a b d e + If Not Me.cb_u1.Checked Then Me.S1.Visible = False + If Not Me.cb_u2.Checked Then Me.S2.Visible = False + If Not Me.cb_u3.Checked Then Me.S3.Visible = False + If Not Me.cb_u4.Checked Then Me.S4.Visible = False + If Not Me.cb_u5.Checked Then Me.S5.Visible = False + + 'ENDTIME = Now + ' Me.Text = "ɸð = " & (ENDTIME - STARTTIME).ToString + + ' ....................................................... + AddLog(Admin, "Pewview 츦 մϴ.()", "\Alllog.txt") + 'Me.preview_window() + If previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + AddLog(Admin, "ȣ üũմϴ. int16 ȯմϴ.()", "\Alllog.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + 'MsgBox(˻ȣ & "/" & PATTERN) + + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + AddLog(Admin, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\Alllog.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'addlog(admin, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + AddLog(Admin, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\Alllog.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'addlog(admin, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + + Public Sub CLEAR_ITEM(ByVal DIV As String) + AddLog(Admin, "Clear_item div=" & DIV, "\Alllog.txt") + + Select Case DIV.ToUpper + Case "L" + For i As Short = 0 To Sθ.GetUpperBound(0) + Sθ(i).MyText = "" + Sθ(i).Visible = False + Next + Case "H" + For i As Short = 0 To S.GetUpperBound(0) + S(i).MyText = "" + S(i).Visible = False + Next + Case "I" + For i As Short = 0 To SDL11.GetUpperBound(0) + SDL11(i).MyText = "" + SDL11(i).Visible = False + Next + Case "C" + For i As Short = 0 To SDL12.GetUpperBound(0) + SDL12(i).MyText = "" + SDL12(i).Visible = False + Next + + 'Case "PA" + ' For i As Short = 0 To SDL13.GetUpperBound(0) + ' SDL13(i).MyText = "" + ' SDL13(i).Visible = False + ' Next + + 'Case "PB" + ' For i As Short = 0 To SDL14.GetUpperBound(0) + ' SDL14(i).MyText = "" + ' SDL14(i).Visible = False + ' Next + + 'Case "PC" + ' For i As Short = 0 To SDL15.GetUpperBound(0) + ' SDL15(i).MyText = "" + ' SDL15(i).Visible = False + ' Next + + + Case "J" + For i As Short = 0 To SDL21.GetUpperBound(0) + SDL21(i).MyText = "" + SDL21(i).Visible = False + Next + Case "F" + For i As Short = 0 To SDL22.GetUpperBound(0) + SDL22(i).MyText = "" + SDL22(i).Visible = False + Next + 'Case "QA" + ' For i As Short = 0 To SDL23.GetUpperBound(0) + ' SDL23(i).MyText = "" + ' SDL23(i).Visible = False + ' Next + 'Case "QB" + ' For i As Short = 0 To SDL24.GetUpperBound(0) + ' SDL24(i).MyText = "" + ' SDL24(i).Visible = False + ' Next + 'Case "QC" + ' For i As Short = 0 To SDL25.GetUpperBound(0) + ' SDL25(i).MyText = "" + ' SDL25(i).Visible = False + ' Next + + + Case "K" + For i As Short = 0 To SDL31.GetUpperBound(0) + SDL31(i).MyText = "" + SDL31(i).Visible = False + Next + Case "M" + For i As Short = 0 To SDL32.GetUpperBound(0) + SDL32(i).MyText = "" + SDL32(i).Visible = False + Next + + 'Case "RA" + ' For i As Short = 0 To SDL33.GetUpperBound(0) + ' SDL33(i).MyText = "" + ' SDL33(i).Visible = False + ' Next + 'Case "RB" + ' For i As Short = 0 To SDL34.GetUpperBound(0) + ' SDL34(i).MyText = "" + ' SDL34(i).Visible = False + ' Next + 'Case "RC" + ' For i As Short = 0 To SDL35.GetUpperBound(0) + ' SDL35(i).MyText = "" + ' SDL35(i).Visible = False + ' Next + + + + + Case "X" + For i As Short = 0 To Sֹȣ.GetUpperBound(0) + Sֹȣ(i).MyText = "" + Sֹȣ(i).Visible = False + Next + Case "S" + For i As Short = 0 To Sȣ.GetUpperBound(0) + Sȣ(i).MyText = "" + Sȣ(i).Visible = False + Next + Case "N" + For i As Short = 0 To SϷùȣ.GetUpperBound(0) + SϷùȣ(i).MyText = "" + SϷùȣ(i).Visible = False + Next + Case "G" + Me.Sȭȣ.MyText = "" + Me.Sȭȣ.Visible = False + + Case "U" + Me.S1.MyText = "" + Me.S1.Visible = False + + Case "A" + Me.S2.MyText = "" + Me.S2.Visible = False + + Case "B" + Me.S3.MyText = "" + Me.S3.Visible = False + + Case "D" + Me.S4.MyText = "" + Me.S4.Visible = False + + Case "E" + Me.S5.MyText = "" + Me.S5.Visible = False + + + Case "V" + Me.s1.MyText = "" + Me.s1.Visible = False + + Case "W" + Me.s2.MyText = "" + Me.s2.Visible = False + + Case "Y" + Me.s3.MyText = "" + Me.s3.Visible = False + + Case "Z" + Me.s4.MyText = "" + Me.s4.Visible = False + + Case Else + MsgBox("Clear_Item ˼ ( " & DIV & ") Դϴ") + End Select + + End Sub + + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + 'ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("Desc").ToString()) + CurIdx += 1 + Next + + + End Sub + + Private Sub ̺() + AddLog(Admin, "̺ ()", "\Alllog.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + AddLog(Admin, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + AddLog(Admin, "print_preview ̸ ư .()", "\Alllog.txt") + Me.PrintMode = False + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + + If <> "" Then + Try + '//QRڵ带 ׸. + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = 'data + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + ' If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + 'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text)) + 'Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + 'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + 'End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + End If + + + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 '//ȣ + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + AddLog(Admin, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + AddLog(Admin, "con _move ü̵ νε Ⱦ.()", "\Alllog.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + AddLog(Admin, "view properfty ü º()", "\Alllog.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.GetSize.Width & ",H=" & sender.GetSize.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + Me.bakimg.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + AddLog(Admin, "溸 üũڽ Ŭߴ.)", "\Alllog.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + AddLog(Admin, "ã ư Ŭ", "\Alllog.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.chk_DisplayBG.Checked = True + Me.ViewBackImage() '//̓Gǥ + + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + AddLog(Admin, "ctrpos (õ ü ġ մϴ)", "\Alllog.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + AddLog(Admin, "ctrpos =[ preview ȣմϴ]", "\Alllog.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + AddLog(Admin, "showmsg ޼ ݴϴ =" & Message, "\Alllog.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + AddLog(Admin, "set font üũڽ ¿ Ʈ մϴ.", "\Alllog.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + AddLog(Admin, "setfont = preview ȣմϴ.", "\Alllog.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + AddLog(Admin, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\Alllog.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + AddLog(Admin, " Change : Style Index...", "\Alllog.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + + Dim AlphaPos As Short = 0 + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + AddLog(Admin, "FindData : Count = " & Dv.Count, "\Alllog.txt") + Me.TB_Pattern_End.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 '//ũѹٰ ȿδ.(Ŀ ) + Me.VScrollBar1.Maximum = Dv.Count - 1 + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + + If FirstIdx = 0 Then '//Index is first + AddLog(Admin, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + AddLog(Admin, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + 'addlog(admin, "cmb_style selectindexchanged preview ȣ", "\Alllog.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + + + AddLog(Admin, "load_style : Ÿ ҷɴϴ. div= " & Div, "\Alllog.txt") + + Dim pos(), font(), visible, mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + If Div.ToUpper = "H" Then '//Hǰ ãƺ. + If Me.۵ = True Then '//ҷ´ + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + Else + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + End If + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + AddLog(Admin, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\Alllog.txt") + + Dim Arinini As New MyINI2(drstyle.File) + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage5.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name.ToString, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = drstyle.DummyCnt + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + + If drstyle.Backimg.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & drstyle.Backimg + Else + Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + + Me.chk_DisplayBG.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + Me.Chk_BgImageprint.Checked = drstyle.Printbg + Me.tb_bakx.Text = drstyle.bakx + Me.tb_baky.Text = drstyle.baky + Me.tb_bakw.Text = drstyle.bakw + Me.tb_bakh.Text = drstyle.bakh + + Try + Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1) + Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2) + Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1) + Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "") + Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "") + If qrbgstr = "" Then + lbQrBg.BackColor = Drawing.Color.White + Else + lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr)) + End If + If qrfgstr = "" Then + lbQrFG.BackColor = Drawing.Color.Black + Else + lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr)) + End If + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + + + + Me.tb_myfontsize.Text = drstyle.PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + + Public Sub SAVE_STYLE() + AddLog(Admin, "iniϿ Ÿ մϴ. ", "\Alllog.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg")) + + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + + Dim Div As Char + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" + Arinini.Write("STYLE", Tobj.Name & "mytext", TextEnc(Tobj.MyText)) + End Select + + Div = Tobj.Name.Substring(0, 1) '1ڸ üũڽ ±׶ Ѵ. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ش üũڽ ã üũڽ · Ѵ. + Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + Exit For + End If + End If + Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name.ToString, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name.ToString, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width) '//ĵѴ. + Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height) + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + '//QRڵ + Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text) + Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text) + Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text) + Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString()) + Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString()) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + + SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + Me.SaveDrawData(False) + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + AddLog(Admin, "save style Ϸ ̺ ȣ ", "\Alllog.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + + Me.̺() + Me.preview_window() + End Sub + + + + Public Sub SAVE_PATTERNII(ByVal SRCSTR As String, ByVal MIDNAME As String, ByVal DIV As Char, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + '//̰ Ѵ. + Dim Arinini As New MyINI2(drstyle.File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MIDNAME & mb.ToString + + + + AddLog(Admin, " save_pattern2 Ѵ.", "\Alllog.txt") + + Select Case DIV.ToString.ToUpper + + Case "L" '//θ + For i As Integer = 0 To Me.Sθ.GetUpperBound(0) + TOBJ = Me.Sθ(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "I" '//dl + For i As Integer = 0 To Me.SDL11.GetUpperBound(0) + TOBJ = Me.SDL11(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "C" '//dl + For i As Integer = 0 To Me.SDL12.GetUpperBound(0) + TOBJ = Me.SDL12(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + + 'Case "PA" '//dl + ' For i As Integer = 0 To Me.SDL13.GetUpperBound(0) + ' TOBJ = Me.SDL13(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "PB" '//dl + ' For i As Integer = 0 To Me.SDL14.GetUpperBound(0) + ' TOBJ = Me.SDL14(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "PC" '//dl + ' For i As Integer = 0 To Me.SDL15.GetUpperBound(0) + ' TOBJ = Me.SDL15(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + + + Case "J" '//dl + For i As Integer = 0 To Me.SDL21.GetUpperBound(0) + TOBJ = Me.SDL21(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "F" '//dl + For i As Integer = 0 To Me.SDL22.GetUpperBound(0) + TOBJ = Me.SDL22(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + 'Case "QA" '//dl + ' For i As Integer = 0 To Me.SDL23.GetUpperBound(0) + ' TOBJ = Me.SDL23(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "QB" '//dl + ' For i As Integer = 0 To Me.SDL24.GetUpperBound(0) + ' TOBJ = Me.SDL24(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "QC" '//dl + ' For i As Integer = 0 To Me.SDL25.GetUpperBound(0) + ' TOBJ = Me.SDL25(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + + + + Case "K" '//dl + For i As Integer = 0 To Me.SDL31.GetUpperBound(0) + TOBJ = Me.SDL31(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "M" '//dl + For i As Integer = 0 To Me.SDL32.GetUpperBound(0) + TOBJ = Me.SDL32(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + 'Case "RA" '//dl + ' For i As Integer = 0 To Me.SDL33.GetUpperBound(0) + ' TOBJ = Me.SDL33(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "RB" '//dl + ' For i As Integer = 0 To Me.SDL34.GetUpperBound(0) + ' TOBJ = Me.SDL34(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + 'Case "RC" '//dl + ' For i As Integer = 0 To Me.SDL35.GetUpperBound(0) + ' TOBJ = Me.SDL35(i) + ' AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + + + + Case "X" '//ֹȣ + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + AddLog(Admin, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + AddLog(Admin, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + Case Else + MsgBox("Save_PatternII ǵ (" & DIV & ") ߻Ͽϴ", MsgBoxStyle.Critical, "Ȯ") + End Select + + AddLog(Admin, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\Alllog.txt") + Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + AddLog(Admin, "ü ޺ڽ Ư ü õǾ view property ȣ", "\Alllog.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + AddLog(Admin, "ǥ üũڽ ", "\Alllog.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + AddLog(Admin, "[ǥ] üũڽ ÿ pewview ȣ ", "\Alllog.txt") + Me.preview_window() + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + AddLog(Admin, " ۾ Ŭ", "\Alllog.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + AddLog(Admin, "۾B õ setfont ȣ ", "\Alllog.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + AddLog(Admin, "updatefont : ", "\Alllog.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + AddLog(Admin, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + For i As Integer = Me.TB_Pattern_Start.Text To Me.TB_Pattern_End.Text + ' If chkFlag Then Exit For + showcnt(i, Me.TB_Pattern_End.Text) + + Me.TB_Pattern_Start.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '0 Ѵ ٴ ̴ // 3.. ڿ ̰ ÿ Ѵٴ ̴. + NOTICE("ٹȣ=" & i + 1 & " , ʽϴ(" & ȣϰ˻ & ")", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.TB_Pattern_Start.Text = Me.TB_Pattern_End.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + '--------------------------------- + Public Function PARSE_ȣ(ByVal srcsTR As String) As Boolean + 'Me.CLEAR_ITEM("X") + + Dim Log As String = "\Parse_ȣ.txt" + If srcsTR = "" OrElse Not Me.cb_jjnum.Checked Then + Me.CLEAR_ITEM("X") + AddLog(Admin, "ȣ ų ȣ ǥ ʵ üũǾֽϴ", Log) + Return False + End If + + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȣ(ByVal SRCSTR As String) As Integer + Dim Wlen As Short = SRCSTR.Length : If Wlen <= 0 Then Return 3 '// ۱Ͱ ع. + Dim SRC() As Char = SRCSTR.ToCharArray + Dim Log As String = "\Parse_ȣ.txt" + Dim SepPos As Short = SRCSTR.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim PATTERN As String = PATTERN_ENC(SRCSTR) + Dim TOBJ As MyControlOLEDBv2.MyLabel + + Dim иε As Short = 0 + Dim ȣ As String = "999" + Dim Dr() As DataRow + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dr = dtpattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + AddLog(Admin, "Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + retval += 2 '// Ƿ ٷ ѱ. + End If + + + If retval = 2 Then '// 쿡 ȮѴ. + '// Ȯ + pname = "JJNUMPATTERN" & Wlen + + Dr = dtpattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + AddLog(Admin, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + AddLog(Admin, " Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + AddLog(Admin, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & SRCSTR, Log) + retval += 1 '// + End If + End If + + Me.cmb_sep.SelectedIndex = иε + + If ȣ = "999" Then '//̾ٴ ̴ ȣ ش. + 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + If ȣ.Length <= 12 Then + If ȣ.Length <= 4 Then + ȣ = ȣ.Length & "00" + ElseIf ȣ.Length <= 8 Then + ȣ = "4" & CStr(ȣ.Length - 4) & "0" + Else + ȣ = "44" & CStr(ȣ.Length - 8) + End If + Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ȣ = CStr(Int(ȣ.Length / 3)) & CStr(Int(ȣ.Length / 3)) & CStr(ȣ.Length - Int(ȣ.Length / 3) * 2) + End If + 'MsgBox("ȣ=" & ȣ) + End If + + Me.tb_ntype.Text = ȣ + + ȣ(Me.tb_ntype.Text) '//ȣ ش. + Return retval '// 0 ϵɰ̴. ̶ ̴ + + + End Function + + Private Function SetXdata(ByVal idx As Short, ByRef Src() As Char) As MyControlOLEDBv2.MyLabel + If idx > Src.GetUpperBound(0) Then Return Nothing + Dim A As MyControlOLEDBv2.MyLabel = Me.Sֹȣ(0) + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + If Me.Sֹȣ(i).MyText = "" Then + Me.Sֹȣ(i).MyText = Src(idx) + If i = 11 Then + A = Nothing + Else + A = Me.Sֹȣ(i + 1) + End If + Exit For + End If + Next + Return A + End Function + Private Function GetnextCtl(ByVal currCtl As MyControlOLEDBv2.MyLabel) As MyControlOLEDBv2.MyLabel + Dim a As MyControlOLEDBv2.MyLabel = Nothing + Select Case currCtl.Name.ToUpper + Case "X1" + a = Me.Sֹȣ(1) ' X2 + Case "X2" + a = Me.Sֹȣ(2) 'X3 + Case "X3" + a = Me.Sֹȣ(3) 'x4 + Case "X4" + a = Me.Sֹȣ(4) 'x5 + Case "X5" + a = Me.Sֹȣ(5) ' x6 + Case "X6" + a = Me.Sֹȣ(6) 'x7 + Case "X7" + a = Me.Sֹȣ(7) ' x8 + Case "X8" + a = Me.Sֹȣ(8) 'x9 + Case "X9" + a = Me.Sֹȣ(9) 'x10 + Case "X10" + a = Me.Sֹȣ(10) ' x11 + Case "X11" + a = Me.Sֹȣ(11) 'x12 + Case "X12" + a = Me.Sֹȣ(12) 'X13 + Case "X13" + a = Me.Sֹȣ(13) 'x14 + Case "X14" + a = Me.Sֹȣ(14) 'x15 + Case "X15" + a = Me.Sֹȣ(15) ' x16 + Case "X16" + a = Me.Sֹȣ(16) 'x17 + Case "X17" + a = Me.Sֹȣ(17) ' x18 + Case "X18" + a = Me.Sֹȣ(18) 'x19 + Case "X19" + a = Me.Sֹȣ(19) 'x20 + Case "X20" + a = Me.Sֹȣ(20) ' x21 + Case "X21" + a = Me.Sֹȣ(21) 'x12 + Case "X22" + a = Me.Sֹȣ(22) 'X13 + Case "X23" + a = Me.Sֹȣ(23) 'x14 + Case "X24" + a = Me.Sֹȣ(24) 'x15 + Case "X25" + a = Me.Sֹȣ(25) ' x16 + Case "X26" + a = Me.Sֹȣ(26) 'x17 + Case "X27" + a = Me.Sֹȣ(27) ' x18 + Case "X28" + a = Me.Sֹȣ(28) 'x19 + Case "X29" + a = Me.Sֹȣ(29) 'x20 + Case "X30" + a = Me.Sֹȣ(30) ' x21 + Case Else + a = Nothing + End Select + Return a + End Function + Private Sub ȣ(Optional ByVal msg As String = "999") + 'MsgBox("ȣ : " & ȣ, MsgBoxStyle.Information, msg) + '// ȣ ιȣ ǥѴ. + '//20070826 ȣ и/ ؼ Ѵ. + Dim A() As Char = ȣ.ToCharArray + Dim P() As String + If msg.IndexOf(",") = -1 Then '// 140702 + Dim pp As New List(Of String) + For Each cc As Char In msg.ToCharArray + pp.Add(cc) + Next + P = pp.ToArray() + Else + P = msg.Split(",") + End If + + Me.CLEAR_ITEM("X") + '//12̻ ̶ Ѵٸ شȣ ȥ ٲ۴. + If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso ȣ.Length > 30) Then Me.cmb_sep.SelectedIndex = 0 + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.Sֹȣ(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = 0 '//ü ° ߴٴ ǥ + + Dim Limit(P.GetUpperBound(0)) As Short '//迭 Ѱ + For i As Short = 0 To P.GetUpperBound(0) + If i = 0 Then + Limit(i) = CInt(P(i).ToString) + Else + Limit(i) = Limit(i - 1) + CInt(P(i).ToString) + End If + ' MsgBox("Ѱ԰ : " & i & " =" & Limit(i)) + Next + + Select Case Me.cmb_sep.SelectedIndex + Case 0 '//ȥ + '//ļ 4 Ѵ. + '// 3442 : 345 R23L1 R932 + ' MsgBox("ȣ=" & msg & "/" & ȣ & "/p0=" & P(0)) + Me.tb_ntype.Enabled = True '//и ̰ false ȴ. + Dim OK As Short = -1 '//Ϸ ȣ 迭 + Dim Ʈġ As Short = -1 + Dim RES As Boolean = False + + For i As Integer = 0 To A.GetUpperBound(0) + If CInt(P(OK + 1).ToString) <= 4 Then '//γִ´ + If i + 1 < Limit(OK + 1) Then + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Else '//4ũٸ ش ok Ѱ Ʈѿ ִ´. + If RES = False Then + Ʈġ += 1 + RES = True + End If + If i + 1 < Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For + RES = False + End If + End If + Next + Case 1 '//и + Me.tb_ntype.Enabled = False + For i As Int16 = 0 To A.GetUpperBound(0) '// 12 ͸ Ѵ.(30 ÷ Ұ̴) + Me.Sֹȣ(i).MyText = IIf(A(i) <> ";", A(i), "") + Next + Case 2 '// + Me.tb_ntype.Enabled = True + Dim OK As Short = -1 '//Ϸ ȣ 迭 + For i As Integer = 0 To A.GetUpperBound(0) + If i < Limit(OK + 1) Then + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i = Limit(OK + 1) Then + OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).Visible = IIf(Me.Sֹȣ(i).MyText = "", False, True) + Next + End Sub + + Public Function PARSE_(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM("H") + Dim Log As String = "\Parse_.txt" + If srcstr = "" OrElse Not Me.cb_kwang.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + S(i).MyText = SRC(i).ToString + S(i).Visible = True + Catch ex As Exception + Exit For + End Try + 'S(i) = New MyControlOLEDBv2.MyLabel + + ' MsgBox(S(i).MyText) + + Next + Return True + End Function + Public Sub PARSE_(ByVal srcstr As String) + Dim Log As String = "\Parse_.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + + 'Dim lpattern As Boolean = False + Dim Pname As String = "CNUMPATTERN" & Wlen + 'Dim Sname As String + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim Arinini As New MyINI2(drstyle.File) + 'Dim tobj As MyControlOLEDBv2.MyLabel + Dim Dr() As DataRow + 'Dim idx As Short = 0 + 'Me.Ͽ(srcstr, Pname, Log, "H", S) + + Pname = "CNUMPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, S) + + '//5 ĺ ̵Ǿִ ȮѴ. + Pname = "CNUMPATTERNI" & S(4).MyText ' Me.h5.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + Dr = dtpattern.Select("NAME = '" & Pname & "DESC'") + + If Dr.GetUpperBound(0) = 0 Then '//ִ. + AddLog(Admin, "5 ڸ ãҽϴ (" & Pname & "DESC" & ")", Log) + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + Me.S(4).Location = New Point(CTLPOS(0), CTLPOS(1)) + Me.S(4).Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + S(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + S(4). = CTLFONT(5) + S(4). = CTLFONT(6) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + S(4).Visible = CType(CTLVISIBLE, Boolean) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + S(4). = Dr(0)(1) + End If + Else + AddLog(Admin, "5 ڰ Ǿʽϴ. (" & S(4).MyText & ")", Log) + End If + End Sub + + Public Function PARSE_DL11(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("I") + Dim Log As String = "\Parse_DL11.txt" + If srcstr = "" OrElse Not Me.cb_dl1.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL11(0).MyText = Me.Dl11 + Me.SDL11(0).Visible = True + + + Return True + End Function + Public Function PARSE_DL12(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("C") + Dim Log As String = "\Parse_DL12.txt" + If srcstr = "" OrElse Not Me.cb_dl1.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL12(0).MyText = Me.Dl12 + Me.SDL12(0).Visible = True + + Return True + End Function + 'Public Function PARSE_DL13(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("C") + ' Dim Log As String = "\Parse_DL13.txt" + ' If srcstr = "" OrElse Not Me.cb_dl1.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL13(0).MyText = Me.Dl13 + ' Me.SDL13(0).Visible = True + + ' Return True + 'End Function + 'Public Function PARSE_DL14(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("C") + ' Dim Log As String = "\Parse_DL14.txt" + ' If srcstr = "" OrElse Not Me.cb_dl1.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL14(0).MyText = Me.Dl14 + ' Me.SDL14(0).Visible = True + + ' Return True + 'End Function + 'Public Function PARSE_DL15(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("C") + ' Dim Log As String = "\Parse_DL15.txt" + ' If srcstr = "" OrElse Not Me.cb_dl1.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL15(0).MyText = Me.Dl15 + ' Me.SDL15(0).Visible = True + + ' Return True + 'End Function + + Public Sub PARSE_DL11(ByVal srcstr As String) + Dim Log As String = "\Parse_dl11.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL11PATTERN" & Wlen + 'Me.Ͽ(srcstr, Pname, Log, "I", SDL11) + + Pname = "DL11PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL11) + + End Sub + Public Sub PARSE_DL12(ByVal srcstr As String) + Dim Log As String = "\Parse_dl12.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL12PATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "C", SDL12) + + Pname = "DL12PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL12) + + End Sub + 'Public Sub PARSE_DL13(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl13.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL13PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "C", SDL12) + + ' Pname = "DL13PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL13) + + 'End Sub + 'Public Sub PARSE_DL14(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl14.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL14PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "C", SDL12) + + ' Pname = "DL14PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL14) + + 'End Sub + 'Public Sub PARSE_DL15(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl15.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL15PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "C", SDL12) + + ' Pname = "DL15PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL15) + + 'End Sub + + Public Function PARSE_DL21(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("J") + Dim Log As String = "\Parse_DL21.txt" + If srcstr = "" OrElse Not Me.cb_dl2.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL21(0).MyText = Me.Dl21 + Me.SDL21(0).Visible = True + + Return True + End Function + Public Function PARSE_DL22(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("F") + Dim Log As String = "\Parse_DL22.txt" + If srcstr = "" OrElse Not Me.cb_dl2.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL22(0).MyText = Me.Dl22 + Me.SDL22(0).Visible = True + + Return True + End Function + 'Public Function PARSE_DL23(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("F") + ' Dim Log As String = "\Parse_DL23.txt" + ' If srcstr = "" OrElse Not Me.cb_dl2.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL23(0).MyText = Me.Dl23 + ' Me.SDL23(0).Visible = True + + ' Return True + 'End Function + 'Public Function PARSE_DL24(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("F") + ' Dim Log As String = "\Parse_DL24.txt" + ' If srcstr = "" OrElse Not Me.cb_dl2.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL24(0).MyText = Me.Dl24 + ' Me.SDL24(0).Visible = True + + ' Return True + 'End Function + 'Public Function PARSE_DL25(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("F") + ' Dim Log As String = "\Parse_DL25.txt" + ' If srcstr = "" OrElse Not Me.cb_dl2.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL25(0).MyText = Me.Dl25 + ' Me.SDL25(0).Visible = True + + ' Return True + 'End Function + + Public Sub PARSE_DL21(ByVal srcstr As String) + Dim Log As String = "\Parse_dl2.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL21PATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "J", SDL21) + + Pname = "DL21PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL21) + + End Sub + Public Sub PARSE_DL22(ByVal srcstr As String) + Dim Log As String = "\Parse_dl2.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL22PATTERN" & Wlen + 'Me.Ͽ(srcstr, Pname, Log, "F", SDL22) + + Pname = "DL22PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL22) + + End Sub + 'Public Sub PARSE_DL23(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl23.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL23PATTERN" & Wlen + ' 'Me.Ͽ(srcstr, Pname, Log, "F", SDL22) + + ' Pname = "DL23PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL23) + + 'End Sub + 'Public Sub PARSE_DL24(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl24.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL24PATTERN" & Wlen + ' 'Me.Ͽ(srcstr, Pname, Log, "F", SDL22) + + ' Pname = "DL24PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL24) + + 'End Sub + 'Public Sub PARSE_DL25(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl25.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL25PATTERN" & Wlen + ' 'Me.Ͽ(srcstr, Pname, Log, "F", SDL22) + + ' Pname = "DL25PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL25) + + 'End Sub + + Public Function PARSE_DL31(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("K") + Dim Log As String = "\Parse_DL31.txt" + If srcstr = "" OrElse Not Me.cb_dl3.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL31(0).MyText = Me.Dl31 + Me.SDL31(0).Visible = True + Return True + End Function + Public Function PARSE_DL32(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("M") + Dim Log As String = "\Parse_DL32.txt" + If srcstr = "" OrElse Not Me.cb_dl3.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SDL32(0).MyText = Me.Dl32 + Me.SDL32(0).Visible = True + Return True + End Function + 'Public Function PARSE_DL33(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("M") + ' Dim Log As String = "\Parse_DL33.txt" + ' If srcstr = "" OrElse Not Me.cb_dl3.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL33(0).MyText = Me.Dl33 + ' Me.SDL33(0).Visible = True + ' Return True + 'End Function + 'Public Function PARSE_DL34(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("M") + ' Dim Log As String = "\Parse_DL34.txt" + ' If srcstr = "" OrElse Not Me.cb_dl3.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL34(0).MyText = Me.Dl34 + ' Me.SDL34(0).Visible = True + ' Return True + 'End Function + 'Public Function PARSE_DL35(ByVal srcstr As String) As Boolean + ' Me.CLEAR_ITEM("M") + ' Dim Log As String = "\Parse_DL35.txt" + ' If srcstr = "" OrElse Not Me.cb_dl3.Checked Then + ' AddLog(Admin, "Zero Length - Return", Log) + ' Return False + ' End If + ' AddLog(Admin, "Start Parse [DL:" & srcstr & "]", Log) + + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + + ' AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + ' Me.SDL35(0).MyText = Me.Dl35 + ' Me.SDL35(0).Visible = True + ' Return True + 'End Function + + Public Sub PARSE_DL31(ByVal srcstr As String) + Dim Log As String = "\Parse_dl31.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL31PATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "K", SDL31) + + Pname = "DL31PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL31) + + End Sub + Public Sub PARSE_DL32(ByVal srcstr As String) + Dim Log As String = "\Parse_dl32.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "DL32PATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "M", SDL32) + + Pname = "DL32PATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, SDL32) + + End Sub + 'Public Sub PARSE_DL33(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl33.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL33PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "M", SDL32) + + ' Pname = "DL33PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL33) + + 'End Sub + 'Public Sub PARSE_DL34(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl34.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL34PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "M", SDL32) + + ' Pname = "DL34PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL34) + + 'End Sub + 'Public Sub PARSE_DL35(ByVal srcstr As String) + ' Dim Log As String = "\Parse_dl35.txt" + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = "DL35PATTERN" & Wlen + ' ' Me.Ͽ(srcstr, Pname, Log, "M", SDL32) + + ' Pname = "DL35PATTERNII" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, Log, SDL35) + + 'End Sub + + Public Function PARSE_ȣ(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + Me.CLEAR_ITEM("S") + Dim Log As String = "\Parse_ȣ.txt" + If srcstr = "" OrElse Not Me.cb_kwang.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + '/θ ̴ ʴ´ Ʈ Ѵ. + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Sȣ(i).MyText = SRC(i).ToString + Catch ex As Exception + Exit For + End Try + + 'MsgBox("ȣ=" & Sȣ(i).MyText) + Next + Return True + End Function + Public Sub PARSE_ȣ(ByVal srcstr As String) + + Dim Log As String = "\Parse_ȣ.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "JNUMPATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "S", Sȣ) + + Pname = "JNUMPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, Sȣ) + End Sub + + Public Sub PARSE_θ(ByVal Srcstr As String) + Dim Log As String = "\Parse_θ.txt" + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return + Dim Src() As Char = Srcstr.ToCharArray + Dim SepPos As Short = Srcstr.IndexOf(";") + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = "LINEPATTERN" & Wlen + + ' Me.Ͽ(Srcstr, Pname, Log, "L", Sθ) + '//1 2 ã´. + '//2 style1LInepatternIIڼ + Pname = "LINEPATTERNII" & PATTERN_ENC(θ) + Me.Ͽ(Srcstr, Pname, Log, Me.Sθ) + + + End Sub + Public Function PARSE_θ(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("L") + '/θ ̴ ʴ´ Ʈ Ѵ. + Dim Log As String = "\Parse_θ.txt" + If srcstr = "" OrElse Not Me.cb_sunglo.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + If SRC(i) = ";" Then + Sθ(i).MyText = "---" + + End If + Select Case SRC(i) + Case ";" + Sθ(i).MyText = "---" + Case ":" + Sθ(i).MyText = "" + Case Else + Sθ(i).MyText = SRC(i) + End Select + Sθ(i).Visible = True + Catch ex As Exception + Exit For + End Try + + Next + Return True + End Function + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + AddLog(Admin, "GetPrinterName()", "\Alllog.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + 'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then '//ε ְ + 'Me.BindingSource1.Position += 2 + 'Else + Me.BindingSource1.Position += 1 + 'End If + 'Me.BindingNavigatorMoveNextItem.PerformClick() + 'Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + + If Me.BindingNavigatorPositionItem.Text > 0 Then + 'If Me.cb_dummy.Checked AndAlso Me.cmb_dummy.SelectedIndex = 1 And Me.BindingSource1.Position >= 0 AndAlso Me.BindingSource1.Position + 1 < Me.BindingSource1.Count Then '//ε ְ + ' Me.BindingSource1.Position -= 2 + 'Else + Me.BindingSource1.Position -= 1 + 'End If + 'Me.BindingNavigatorMovePreviousItem.PerformClick() + 'Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Me.Text = e.X & "/" & e.Y + End Sub + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + Dim msg As New System.Text.StringBuilder + msg.AppendLine("5 (" & Me.S(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S(4).) + msg.AppendLine(" = " & Me.S(4).) + msg.AppendLine("ǥ = " & Me.S(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + '̰ ϴ Լ. + 'MsgBox(drstyle.File) + + Dim Arinini As New MyINI2(drstyle.File) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S(4) + Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + + +#Region "Not Edit" + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + Private Sub preview_window() '//̸ȭ մϴ. + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + End If + If <> "" Then + Try + '// qrڵ带 ׸ + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = 'data ӽ + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + If SelCon Is Nothing Then + MsgBox("õ ü ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordwidth.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + If SelCon Is Nothing Then + MsgBox("õ ü ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordheight.Text) + Next + ViewProperty(SelCon(0)) + Me.preview_window() + End Sub + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged + Debug.Print("ValueChange Current : " & Me.VScrollBar1.Value) + + End Sub + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + ' End If + + End Sub + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim SelItem As New ArrayList + + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + SelItem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If SelItem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To SelItem.Count + A.ListBox1.Items.Add(CType(SelItem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = SelItem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = SelItem.Item(0) + End If + End If + 'End If + + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then '//ʹư ߰ + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + + + '//⼭ Ʈ ش ׷ ü ´. + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + Else '// + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + 'Dim Tobj As MyControlOLEDBv2.MyLabel + 'Tobj = Nothing + + 'For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + ' If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ' ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + ' AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + ' Tobj = Me.AllLabels(i).ctl + ' Exit For + ' End If + 'Next + + 'If Tobj Is Nothing Then Return '//õȰ + + 'Dim Msg As New System.Text.StringBuilder(" Էϼ") + 'Msg.AppendLine("ٹٲϷ \n Էϼ") + 'Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + 'Msg.AppendLine() + 'Msg.AppendLine(" ˴ϴ") + + + 'Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + 'If Val = "" Then Return + 'Val = Val.Replace("\n", vbCrLf) + 'Tobj.MyText = Val + + 'Me.preview_window() + End Sub + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + End Sub + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = dtpattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + AddLog(Admin, "(ã) ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + C.Tag &= "C" + Catch ex As Exception + AddLog(Admin, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + AddLog(Admin, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + AddLog(Admin, S(0). & "/" & S(0)., log) + 'MsgBox(S.GetUpperBound(0)) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + Private Sub ⺻ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + Me.gfdlStripMenuItem.PerformClick() + End If + Case Keys.F5 + Me.gfdlStripMenuItem.PerformClick() + Case Keys.F4 '//5 + Me.Button8.PerformClick() + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + ' MsgBox(drstyle.File) + + Dim ini As New MyINI2(DrStyle.FILE) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + + Else + Me.pDoc.DefaultPageSettings.Landscape = 1 + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + 'MsgBox(Me.PictureBox1.Size.ToString) + End Sub + Private Sub bt_print_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + + Me.Print() + End Sub + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + + Me.Print_Preview() + End Sub + Private Sub ToolStripButton2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click + Process.Start(My.Application.Info.DirectoryPath & "\help\printform1.htm") + End Sub + Private Sub cm_styleeditoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + '//Ʒ + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + Private Sub ToolStripLabel2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.ButtonClick + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + End Sub + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + 'MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click + Me.CtrSize(False, -5) + End Sub + + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click + Me.CtrSize(False, 5) + End Sub + + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click + Me.CtrSize(True, -5) + End Sub + + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click + Me.CtrSize(True, 5) + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Me.CtrPos(False, -5) + End Sub + + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Me.CtrPos(False, 5) + End Sub + + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click + Me.CtrPos(True, -5) + End Sub + + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click + Me.CtrPos(True, 5) + End Sub + +#End Region + + + + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + + For Each Rect As S_QRCode In Draw_QRcode + Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + preview_window() + End Sub + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "Q" + Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "Q" + Dim Line As New S_QRCode + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim qname As String = "DrawQRcode" + Dim bcnt, lcnt, ccnt, qcnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + Next + ini.Write(cname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "Circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "Circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "Circle" & i & "x", L.X) + ini.Write(cname, "Circle" & i & "y", L.Y) + ini.Write(cname, "Circle" & i & "x2", L.Width) + 'ini.Write(cname, "Circle" & i & "y2", L.Height) + Next + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + Next + ini.Write(qname, "Count", Draw_QRcode.Count) + For i As Short = 1 To Draw_QRcode.Count '//εƼ Ѵ. + Dim L As S_QRCode = Draw_QRcode(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(qname, "qrcode" & i & "x", L.X) + ini.Write(qname, "qrcode" & i & "y", L.Y) + ini.Write(qname, "qrcode" & i & "x2", L.Width) + ini.Write(qname, "qrcode" & i & "y2", L.Height) + Next + Else '// д κ + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + Draw_QRcode.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) + For i As Short = 1 To ccnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "Circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "Circle" & i & "pensize", 3) + L.X = ini.Read(cname, "Circle" & i & "x", 0) + L.Y = ini.Read(cname, "Circle" & i & "y", 0) + L.Width = ini.Read(cname, "Circle" & i & "x2", 10) + L.Height = ini.Read(cname, "Circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + qcnt = ini.Read(qname, "Count", 0) + For i As Short = 1 To qcnt '//εƼ Ѵ. + Dim L As New S_QRCode + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(qname, "qrcode" & i & "x", 0) + L.Y = ini.Read(qname, "qrcode" & i & "y", 0) + L.Width = ini.Read(qname, "qrcode" & i & "x2", 10) + L.Height = ini.Read(qname, "qrcode" & i & "y2", 10) + Draw_QRcode.Add(L) + Next + + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "Q" + Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + Private Sub DoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DoolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN("DL11PATTERN", "I", Me.Dl11.Length, "\dl1.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl11, "DL11PATTERNII", "I", "\Dl12.TXT") '//θ մϴ. + End Sub + + Private Sub bt_style_manager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_style_manager.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN("DL21PATTERN", "J", Me.Dl21.Length, "\dl2.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl21, "DL21PATTERNII", "J", "\Dl22.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + + End If + ' SAVE_PATTERN("DL31PATTERN", "K", Me.Dl31.Length, "\dl3.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl31, "DL31PATTERNII", "K", "\Dl32.TXT") '//θ մϴ. + End Sub + + Private Sub gfdStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfdStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN("LINEPATTERN", "L", Me.θ.Length, "\θ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.θ, "LINEPATTERNII", "L", "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub gfdlStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gfdlStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN("JJNUMPATTERN", "X", Me.ȣ.Length, "\ȣ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.ȣ, "JJNUMPATTERNII", "X", "\ȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN("DL12PATTERN", "C", Me.Dl12.Length, "\dl1.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl12, "DL12PATTERNII", "C", "\Dl12.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN("DL22PATTERN", "F", Me.Dl22.Length, "\dl2.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl22, "DL22PATTERNII", "F", "\Dl22.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN("DL32PATTERN", "M", Me.Dl32.Length, "\dl3.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Dl32, "DL32PATTERNII", "M", "\Dl32.TXT") '//θ մϴ. + End Sub + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + + End Sub + + + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click + Dim NewLine As New S_QRCode + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + Draw_QRcode.Add(NewLine) + Refresh_Drawlist() + End Sub + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrBg.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrBg.BackColor = a.Color + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrFG.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrFG.BackColor = a.Color + End If + End Sub +End Class + + + diff --git a/Epole/출력폼/PrintForm수용.Designer.vb b/Epole/출력폼/PrintForm수용.Designer.vb new file mode 100644 index 0000000..0d6d3aa --- /dev/null +++ b/Epole/출력폼/PrintForm수용.Designer.vb @@ -0,0 +1,2367 @@ + _ +Partial Class printformsy + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformsy)) + Dim NumberCellType2 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType12 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType13 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType14 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType15 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType16 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cb_gojang = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cb_dummy = New System.Windows.Forms.CheckBox() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.CheckBox4 = New System.Windows.Forms.CheckBox() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.cb_bigo2 = New System.Windows.Forms.CheckBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.cb_kwnaligu = New System.Windows.Forms.CheckBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.cb_seq = New System.Windows.Forms.CheckBox() + Me.cb_sunlo = New System.Windows.Forms.CheckBox() + Me.cb_bigo4 = New System.Windows.Forms.CheckBox() + Me.cb_jnum = New System.Windows.Forms.CheckBox() + Me.cb_bigo3 = New System.Windows.Forms.CheckBox() + Me.cb_bigo1 = New System.Windows.Forms.CheckBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button29 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button27 = New System.Windows.Forms.Button() + Me.Button30 = New System.Windows.Forms.Button() + Me.Button31 = New System.Windows.Forms.Button() + Me.Button32 = New System.Windows.Forms.Button() + Me.Button26 = New System.Windows.Forms.Button() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.gojang = New System.Windows.Forms.TextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button14 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button16 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.Label29 = New System.Windows.Forms.Label() + Me.home4 = New System.Windows.Forms.TextBox() + Me.home3 = New System.Windows.Forms.TextBox() + Me.home2 = New System.Windows.Forms.TextBox() + Me.home1 = New System.Windows.Forms.TextBox() + Me.cboCorrectionLevel = New System.Windows.Forms.TextBox() + Me.cboVersion = New System.Windows.Forms.TextBox() + Me.cboEncoding = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label36 = New System.Windows.Forms.Label() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.tyuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.xxxolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.olStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.kiuStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.lbQrFG = New System.Windows.Forms.Panel() + Me.lbQrBg = New System.Windows.Forms.Panel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(584, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button8) + Me.GroupBox2.Controls.Add(Me.cmb_sep) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(86, 152) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장" + Me.Button8.UseVisualStyleBackColor = True + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(6, 155) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(7, 129) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(6, 107) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(198, 75) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(198, 52) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(120, 76) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(120, 53) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(208, 127) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(86, 127) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(44, 77) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(44, 54) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(160, 74) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(158, 107) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 46 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "개체를 화면에 표시합니까?") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(160, 51) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(6, 76) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(6, 53) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(82, 75) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(82, 52) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(86, 107) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 7) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 152) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(188, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 451) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.cb_gojang) + Me.TabPage3.Controls.Add(Me.chk_draw) + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.cb_bigo2) + Me.TabPage3.Controls.Add(Me.Label8) + Me.TabPage3.Controls.Add(Me.Label4) + Me.TabPage3.Controls.Add(Me.cb_kwnaligu) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Controls.Add(Me.cb_seq) + Me.TabPage3.Controls.Add(Me.cb_sunlo) + Me.TabPage3.Controls.Add(Me.cb_bigo4) + Me.TabPage3.Controls.Add(Me.cb_jnum) + Me.TabPage3.Controls.Add(Me.cb_bigo3) + Me.TabPage3.Controls.Add(Me.cb_bigo1) + Me.TabPage3.Controls.Add(Me.Button7) + Me.TabPage3.Controls.Add(Me.Button29) + Me.TabPage3.Controls.Add(Me.Button6) + Me.TabPage3.Controls.Add(Me.Button27) + Me.TabPage3.Controls.Add(Me.Button30) + Me.TabPage3.Controls.Add(Me.Button31) + Me.TabPage3.Controls.Add(Me.Button32) + Me.TabPage3.Controls.Add(Me.Button26) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'cb_gojang + ' + Me.cb_gojang.AutoSize = True + Me.cb_gojang.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_gojang.Location = New System.Drawing.Point(189, 104) + Me.cb_gojang.Name = "cb_gojang" + Me.cb_gojang.Size = New System.Drawing.Size(76, 16) + Me.cb_gojang.TabIndex = 68 + Me.cb_gojang.Tag = "Z" + Me.cb_gojang.Text = "고장신고" + Me.cb_gojang.UseVisualStyleBackColor = True + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(15, 167) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(65, 19) + Me.chk_draw.TabIndex = 66 + Me.chk_draw.Tag = "ZZ" + Me.chk_draw.Text = "선,도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(15, 245) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 188) + Me.TabControl2.TabIndex = 54 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 162) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.Label20) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cb_dummy) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 92) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 66) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "2장출력" + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(14, 45) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(53, 12) + Me.Label20.TabIndex = 34 + Me.Label20.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 45) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cb_dummy + ' + Me.cb_dummy.AutoSize = True + Me.cb_dummy.Location = New System.Drawing.Point(6, 24) + Me.cb_dummy.Name = "cb_dummy" + Me.cb_dummy.Size = New System.Drawing.Size(15, 14) + Me.cb_dummy.TabIndex = 24 + Me.ToolTip1.SetToolTip(Me.cb_dummy, "한 화면에 2장을 출력할 수 있습니다") + Me.cb_dummy.UseVisualStyleBackColor = True + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"복사", "다음"}) + Me.cmb_dummy.Location = New System.Drawing.Point(29, 20) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(178, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 42) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 42) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 50) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(80, 18) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(10, 19) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(42, 15) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(119, 15) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(27, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 6) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 40) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(82, 16) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(12, 17) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(44, 13) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(122, 13) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(26, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 162) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.CheckBox4) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 50) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 24) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Location = New System.Drawing.Point(6, 23) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(48, 16) + Me.CheckBox4.TabIndex = 9 + Me.CheckBox4.Text = "표시" + Me.ToolTip1.SetToolTip(Me.CheckBox4, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.CheckBox4.UseVisualStyleBackColor = True + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(6, 51) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(205, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(5, 19) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(206, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'cb_bigo2 + ' + Me.cb_bigo2.AutoSize = True + Me.cb_bigo2.Location = New System.Drawing.Point(133, 125) + Me.cb_bigo2.Name = "cb_bigo2" + Me.cb_bigo2.Size = New System.Drawing.Size(54, 16) + Me.cb_bigo2.TabIndex = 6 + Me.cb_bigo2.Tag = "P" + Me.cb_bigo2.Text = "비고2" + Me.cb_bigo2.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.ForeColor = System.Drawing.Color.DarkGray + Me.Label8.Location = New System.Drawing.Point(11, 183) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(245, 12) + Me.Label8.TabIndex = 53 + Me.Label8.Text = "----------------------------------------" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.ForeColor = System.Drawing.Color.DarkGray + Me.Label4.Location = New System.Drawing.Point(13, 89) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(245, 12) + Me.Label4.TabIndex = 52 + Me.Label4.Text = "----------------------------------------" + ' + 'cb_kwnaligu + ' + Me.cb_kwnaligu.AutoSize = True + Me.cb_kwnaligu.Location = New System.Drawing.Point(15, 104) + Me.cb_kwnaligu.Name = "cb_kwnaligu" + Me.cb_kwnaligu.Size = New System.Drawing.Size(112, 16) + Me.cb_kwnaligu.TabIndex = 0 + Me.cb_kwnaligu.Tag = "H" + Me.cb_kwnaligu.Text = "관리구,전산번호" + Me.cb_kwnaligu.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(112, 9) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(147, 61) + Me.GroupBox1.TabIndex = 49 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(12, 19) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(124, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'cb_seq + ' + Me.cb_seq.AutoSize = True + Me.cb_seq.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_seq.Location = New System.Drawing.Point(15, 9) + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(72, 16) + Me.cb_seq.TabIndex = 9 + Me.cb_seq.Tag = "N" + Me.cb_seq.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_seq, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_seq.UseVisualStyleBackColor = True + ' + 'cb_sunlo + ' + Me.cb_sunlo.AutoSize = True + Me.cb_sunlo.Location = New System.Drawing.Point(15, 126) + Me.cb_sunlo.Name = "cb_sunlo" + Me.cb_sunlo.Size = New System.Drawing.Size(60, 16) + Me.cb_sunlo.TabIndex = 2 + Me.cb_sunlo.Tag = "L" + Me.cb_sunlo.Text = "선로명" + Me.cb_sunlo.UseVisualStyleBackColor = True + ' + 'cb_bigo4 + ' + Me.cb_bigo4.AutoSize = True + Me.cb_bigo4.Location = New System.Drawing.Point(133, 167) + Me.cb_bigo4.Name = "cb_bigo4" + Me.cb_bigo4.Size = New System.Drawing.Size(54, 16) + Me.cb_bigo4.TabIndex = 8 + Me.cb_bigo4.Tag = "R" + Me.cb_bigo4.Text = "비고4" + Me.cb_bigo4.UseVisualStyleBackColor = True + ' + 'cb_jnum + ' + Me.cb_jnum.AutoSize = True + Me.cb_jnum.Location = New System.Drawing.Point(15, 148) + Me.cb_jnum.Name = "cb_jnum" + Me.cb_jnum.Size = New System.Drawing.Size(72, 16) + Me.cb_jnum.TabIndex = 3 + Me.cb_jnum.Tag = "X" + Me.cb_jnum.Text = "전주번호" + Me.cb_jnum.UseVisualStyleBackColor = True + ' + 'cb_bigo3 + ' + Me.cb_bigo3.AutoSize = True + Me.cb_bigo3.Location = New System.Drawing.Point(133, 146) + Me.cb_bigo3.Name = "cb_bigo3" + Me.cb_bigo3.Size = New System.Drawing.Size(54, 16) + Me.cb_bigo3.TabIndex = 7 + Me.cb_bigo3.Tag = "Q" + Me.cb_bigo3.Text = "비고3" + Me.cb_bigo3.UseVisualStyleBackColor = True + ' + 'cb_bigo1 + ' + Me.cb_bigo1.AutoSize = True + Me.cb_bigo1.Location = New System.Drawing.Point(133, 104) + Me.cb_bigo1.Name = "cb_bigo1" + Me.cb_bigo1.Size = New System.Drawing.Size(54, 16) + Me.cb_bigo1.TabIndex = 5 + Me.cb_bigo1.Tag = "O" + Me.cb_bigo1.Text = "비고1" + Me.cb_bigo1.UseVisualStyleBackColor = True + ' + 'Button7 + ' + Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) + Me.Button7.Location = New System.Drawing.Point(22, 202) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(28, 27) + Me.Button7.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button7, "선택된 개체를 왼쪽으로 5pixel 이동합니다") + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button29 + ' + Me.Button29.BackColor = System.Drawing.Color.PowderBlue + Me.Button29.Image = CType(resources.GetObject("Button29.Image"), System.Drawing.Image) + Me.Button29.Location = New System.Drawing.Point(162, 202) + Me.Button29.Name = "Button29" + Me.Button29.Size = New System.Drawing.Size(28, 27) + Me.Button29.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button29, "선택한 개채의 글자너비를 5pixel 증가합니다") + Me.Button29.UseVisualStyleBackColor = False + ' + 'Button6 + ' + Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image) + Me.Button6.Location = New System.Drawing.Point(50, 202) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(28, 27) + Me.Button6.TabIndex = 40 + Me.ToolTip1.SetToolTip(Me.Button6, "선택된 개체를 오른쪽으로 5pixel 이동합니다") + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button27 + ' + Me.Button27.Image = CType(resources.GetObject("Button27.Image"), System.Drawing.Image) + Me.Button27.Location = New System.Drawing.Point(78, 202) + Me.Button27.Name = "Button27" + Me.Button27.Size = New System.Drawing.Size(28, 27) + Me.Button27.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button27, "선택된 개체를 위로 5pixel 이동합니다") + Me.Button27.UseVisualStyleBackColor = True + ' + 'Button30 + ' + Me.Button30.BackColor = System.Drawing.Color.PowderBlue + Me.Button30.Image = CType(resources.GetObject("Button30.Image"), System.Drawing.Image) + Me.Button30.Location = New System.Drawing.Point(134, 202) + Me.Button30.Name = "Button30" + Me.Button30.Size = New System.Drawing.Size(28, 27) + Me.Button30.TabIndex = 39 + Me.ToolTip1.SetToolTip(Me.Button30, "선택한 개채의 글자너비를 5pixel 감소합니다") + Me.Button30.UseVisualStyleBackColor = False + ' + 'Button31 + ' + Me.Button31.BackColor = System.Drawing.Color.PowderBlue + Me.Button31.Image = CType(resources.GetObject("Button31.Image"), System.Drawing.Image) + Me.Button31.Location = New System.Drawing.Point(218, 202) + Me.Button31.Name = "Button31" + Me.Button31.Size = New System.Drawing.Size(28, 27) + Me.Button31.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button31, "선택한 개채의 글자높이를 5pixel 증가합니다") + Me.Button31.UseVisualStyleBackColor = False + ' + 'Button32 + ' + Me.Button32.BackColor = System.Drawing.Color.PowderBlue + Me.Button32.Image = CType(resources.GetObject("Button32.Image"), System.Drawing.Image) + Me.Button32.Location = New System.Drawing.Point(190, 202) + Me.Button32.Name = "Button32" + Me.Button32.Size = New System.Drawing.Size(28, 27) + Me.Button32.TabIndex = 37 + Me.ToolTip1.SetToolTip(Me.Button32, "선택한 개채의 글자높이를 5pixel 감소합니다") + Me.Button32.UseVisualStyleBackColor = False + ' + 'Button26 + ' + Me.Button26.Image = CType(resources.GetObject("Button26.Image"), System.Drawing.Image) + Me.Button26.Location = New System.Drawing.Point(106, 202) + Me.Button26.Name = "Button26" + Me.Button26.Size = New System.Drawing.Size(28, 27) + Me.Button26.TabIndex = 38 + Me.ToolTip1.SetToolTip(Me.Button26, "선택된 개체를 아래로 5pixel 이동합니다") + Me.Button26.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "MyFpoint1, Sheet1" + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.ScrollBarTrackPolicy = FarPoint.Win.Spread.ScrollBarTrackPolicy.Both + Me.dataview.ScrollTipPolicy = FarPoint.Win.Spread.ScrollTipPolicy.Both + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 9 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "관리구" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "선로명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "5" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 27.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 30.0! + Me.dataview_Sheet1.Columns.Get(0).AllowAutoSort = True + NumberCellType2.DecimalPlaces = 0 + NumberCellType2.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType2 + Me.dataview_Sheet1.Columns.Get(0).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(0).Width = 57.0! + TextCellType9.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType9.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(1).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(1).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 76.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType10.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(2).DataField = "전주번호" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "번호" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 79.0! + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(3).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 96.0! + Me.dataview_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType12.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType12 + Me.dataview_Sheet1.Columns.Get(4).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Label = "1" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 87.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType13.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType13 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Label = "2" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType14.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType14 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Label = "3" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType15.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType15 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Label = "4" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 46.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType16.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType16 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Label = "5" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 50.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).AllowAutoSort = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.gojang) + Me.TabPage6.Controls.Add(Me.Button2) + Me.TabPage6.Controls.Add(Me.Button13) + Me.TabPage6.Controls.Add(Me.Label6) + Me.TabPage6.Controls.Add(Me.tb_dw) + Me.TabPage6.Controls.Add(Me.tb_dh) + Me.TabPage6.Controls.Add(Me.Label7) + Me.TabPage6.Controls.Add(Me.Button14) + Me.TabPage6.Controls.Add(Me.Label3) + Me.TabPage6.Controls.Add(Me.tb_dy) + Me.TabPage6.Controls.Add(Me.Label5) + Me.TabPage6.Controls.Add(Me.tb_pensize) + Me.TabPage6.Controls.Add(Me.tb_dx) + Me.TabPage6.Controls.Add(Me.bt_pencolor) + Me.TabPage6.Controls.Add(Me.Button15) + Me.TabPage6.Controls.Add(Me.Button16) + Me.TabPage6.Controls.Add(Me.ListBox1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "선 및 도형" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'gojang + ' + Me.gojang.Location = New System.Drawing.Point(20, 192) + Me.gojang.Name = "gojang" + Me.gojang.Size = New System.Drawing.Size(238, 21) + Me.gojang.TabIndex = 110 + Me.gojang.Text = "고장신고도 스마트하게" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(224, 6) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(40, 28) + Me.Button2.TabIndex = 34 + Me.Button2.Text = "QR" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(143, 6) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(40, 28) + Me.Button13.TabIndex = 33 + Me.Button13.Text = "원" + Me.Button13.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(149, 130) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 30 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(102, 146) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 26 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(143, 146) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 27 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(111, 130) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 31 + Me.Label7.Text = "X2" + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(184, 6) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(40, 28) + Me.Button14.TabIndex = 32 + Me.Button14.Text = "삭제" + Me.Button14.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(32, 130) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(13, 12) + Me.Label3.TabIndex = 28 + Me.Label3.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(61, 146) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 25 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(72, 130) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 29 + Me.Label5.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(30, 9) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(31, 21) + Me.tb_pensize.TabIndex = 23 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(20, 146) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 24 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(3, 6) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(25, 25) + Me.bt_pencolor.TabIndex = 22 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(103, 6) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(40, 28) + Me.Button15.TabIndex = 21 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button16 + ' + Me.Button16.Location = New System.Drawing.Point(63, 6) + Me.Button16.Name = "Button16" + Me.Button16.Size = New System.Drawing.Size(40, 28) + Me.Button16.TabIndex = 20 + Me.Button16.Text = "선" + Me.Button16.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(5, 36) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(259, 88) + Me.ListBox1.TabIndex = 19 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.lbQrFG) + Me.TabPage7.Controls.Add(Me.lbQrBg) + Me.TabPage7.Controls.Add(Me.LinkLabel2) + Me.TabPage7.Controls.Add(Me.LinkLabel1) + Me.TabPage7.Controls.Add(Me.Label28) + Me.TabPage7.Controls.Add(Me.Label27) + Me.TabPage7.Controls.Add(Me.Label1) + Me.TabPage7.Controls.Add(Me.Label2) + Me.TabPage7.Controls.Add(Me.Label29) + Me.TabPage7.Controls.Add(Me.home4) + Me.TabPage7.Controls.Add(Me.home3) + Me.TabPage7.Controls.Add(Me.home2) + Me.TabPage7.Controls.Add(Me.home1) + Me.TabPage7.Controls.Add(Me.cboCorrectionLevel) + Me.TabPage7.Controls.Add(Me.cboVersion) + Me.TabPage7.Controls.Add(Me.cboEncoding) + Me.TabPage7.Controls.Add(Me.Label30) + Me.TabPage7.Controls.Add(Me.Label31) + Me.TabPage7.Controls.Add(Me.Label32) + Me.TabPage7.Controls.Add(Me.Label33) + Me.TabPage7.Controls.Add(Me.Label34) + Me.TabPage7.Controls.Add(Me.Label35) + Me.TabPage7.Controls.Add(Me.Label36) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "QR코드 속성" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(29, 332) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(101, 12) + Me.Label29.TabIndex = 66 + Me.Label29.Text = "홈페이지주소설정" + ' + 'home4 + ' + Me.home4.Location = New System.Drawing.Point(26, 436) + Me.home4.Name = "home4" + Me.home4.Size = New System.Drawing.Size(231, 21) + Me.home4.TabIndex = 65 + Me.home4.Text = "report.jsp?location" + ' + 'home3 + ' + Me.home3.Location = New System.Drawing.Point(26, 409) + Me.home3.Name = "home3" + Me.home3.Size = New System.Drawing.Size(231, 21) + Me.home3.TabIndex = 64 + Me.home3.Text = "mjeonbuk" + ' + 'home2 + ' + Me.home2.Location = New System.Drawing.Point(26, 382) + Me.home2.Name = "home2" + Me.home2.Size = New System.Drawing.Size(231, 21) + Me.home2.TabIndex = 63 + Me.home2.Text = "jeonbuk" + ' + 'home1 + ' + Me.home1.Location = New System.Drawing.Point(26, 355) + Me.home1.Name = "home1" + Me.home1.Size = New System.Drawing.Size(231, 21) + Me.home1.TabIndex = 62 + Me.home1.Text = "http://cyber.kepco.co.kr" + ' + 'cboCorrectionLevel + ' + Me.cboCorrectionLevel.Location = New System.Drawing.Point(127, 172) + Me.cboCorrectionLevel.Name = "cboCorrectionLevel" + Me.cboCorrectionLevel.Size = New System.Drawing.Size(59, 21) + Me.cboCorrectionLevel.TabIndex = 61 + Me.cboCorrectionLevel.Text = "1" + ' + 'cboVersion + ' + Me.cboVersion.Location = New System.Drawing.Point(86, 117) + Me.cboVersion.Name = "cboVersion" + Me.cboVersion.Size = New System.Drawing.Size(100, 21) + Me.cboVersion.TabIndex = 60 + Me.cboVersion.Text = "1" + ' + 'cboEncoding + ' + Me.cboEncoding.Location = New System.Drawing.Point(86, 35) + Me.cboEncoding.Name = "cboEncoding" + Me.cboEncoding.Size = New System.Drawing.Size(100, 21) + Me.cboEncoding.TabIndex = 59 + Me.cboEncoding.Text = "3" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(87, 149) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(60, 12) + Me.Label30.TabIndex = 54 + Me.Label30.Text = "1~40 선택" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(87, 96) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(78, 12) + Me.Label31.TabIndex = 53 + Me.Label31.Text = "3. Byte(모두)" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(87, 80) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(101, 12) + Me.Label32.TabIndex = 52 + Me.Label32.Text = "2. Numeric(숫자)" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(87, 64) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(157, 12) + Me.Label33.TabIndex = 51 + Me.Label33.Text = "1. AlphaNumeric(영문숫자)" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(24, 175) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(97, 12) + Me.Label34.TabIndex = 50 + Me.Label34.Text = "Correction Level" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(24, 120) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(48, 12) + Me.Label35.TabIndex = 49 + Me.Label35.Text = "Version" + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(14, 40) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(58, 12) + Me.Label36.TabIndex = 48 + Me.Label36.Text = "Encoding" + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 22 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 23 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(3, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(269, 478) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripLabel2, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(584, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripLabel2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel2.Image = CType(resources.GetObject("ToolStripLabel2.Image"), System.Drawing.Image) + Me.ToolStripLabel2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(82, 27) + Me.ToolStripLabel2.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tyuToolStripMenuItem, Me.xxxolStripMenuItem, Me.olStripMenuItem, Me.kiuStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.ForestGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(79, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'tyuToolStripMenuItem + ' + Me.tyuToolStripMenuItem.Name = "tyuToolStripMenuItem" + Me.tyuToolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.tyuToolStripMenuItem.Text = "관리구전산번호" + ' + 'xxxolStripMenuItem + ' + Me.xxxolStripMenuItem.Name = "xxxolStripMenuItem" + Me.xxxolStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.xxxolStripMenuItem.Text = "비고" + ' + 'olStripMenuItem + ' + Me.olStripMenuItem.Name = "olStripMenuItem" + Me.olStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.olStripMenuItem.Text = "선로명" + ' + 'kiuStripMenuItem + ' + Me.kiuStripMenuItem.Name = "kiuStripMenuItem" + Me.kiuStripMenuItem.Size = New System.Drawing.Size(158, 22) + Me.kiuStripMenuItem.Text = "전주번호" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(584, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'lbQrFG + ' + Me.lbQrFG.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrFG.Location = New System.Drawing.Point(143, 286) + Me.lbQrFG.Name = "lbQrFG" + Me.lbQrFG.Size = New System.Drawing.Size(48, 27) + Me.lbQrFG.TabIndex = 74 + ' + 'lbQrBg + ' + Me.lbQrBg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrBg.Location = New System.Drawing.Point(142, 253) + Me.lbQrBg.Name = "lbQrBg" + Me.lbQrBg.Size = New System.Drawing.Size(48, 27) + Me.lbQrBg.TabIndex = 73 + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(32, 293) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(103, 12) + Me.LinkLabel2.TabIndex = 72 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Foreground Color" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(32, 260) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(106, 12) + Me.LinkLabel1.TabIndex = 71 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Background Color" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(155, 223) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(23, 12) + Me.Label28.TabIndex = 70 + Me.Label28.Text = "4.H" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(93, 223) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(24, 12) + Me.Label27.TabIndex = 69 + Me.Label27.Text = "3.Q" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(155, 202) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(26, 12) + Me.Label1.TabIndex = 68 + Me.Label1.Text = "2.M" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(93, 202) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(56, 12) + Me.Label2.TabIndex = 67 + Me.Label2.Text = "1.L(모두)" + ' + 'printformsy + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(584, 606) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.DoubleBuffered = True + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformsy" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents Button26 As System.Windows.Forms.Button + Friend WithEvents Button27 As System.Windows.Forms.Button + Friend WithEvents Button29 As System.Windows.Forms.Button + Friend WithEvents Button30 As System.Windows.Forms.Button + Friend WithEvents Button31 As System.Windows.Forms.Button + Friend WithEvents Button32 As System.Windows.Forms.Button + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_seq As System.Windows.Forms.CheckBox + Friend WithEvents cb_bigo4 As System.Windows.Forms.CheckBox + Friend WithEvents cb_bigo3 As System.Windows.Forms.CheckBox + Friend WithEvents cb_bigo2 As System.Windows.Forms.CheckBox + Friend WithEvents cb_bigo1 As System.Windows.Forms.CheckBox + Friend WithEvents cb_jnum As System.Windows.Forms.CheckBox + Friend WithEvents cb_sunlo As System.Windows.Forms.CheckBox + Friend WithEvents cb_dummy As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_kwnaligu As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents tyuToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents xxxolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents olStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents kiuStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Button14 As System.Windows.Forms.Button + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents Button16 As System.Windows.Forms.Button + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents home4 As System.Windows.Forms.TextBox + Friend WithEvents home3 As System.Windows.Forms.TextBox + Friend WithEvents home2 As System.Windows.Forms.TextBox + Friend WithEvents home1 As System.Windows.Forms.TextBox + Friend WithEvents cboCorrectionLevel As System.Windows.Forms.TextBox + Friend WithEvents cboVersion As System.Windows.Forms.TextBox + Friend WithEvents cboEncoding As System.Windows.Forms.TextBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Private WithEvents Label34 As System.Windows.Forms.Label + Private WithEvents Label35 As System.Windows.Forms.Label + Private WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents gojang As System.Windows.Forms.TextBox + Friend WithEvents cb_gojang As System.Windows.Forms.CheckBox + Friend WithEvents lbQrFG As System.Windows.Forms.Panel + Friend WithEvents lbQrBg As System.Windows.Forms.Panel + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label +End Class diff --git a/Epole/출력폼/PrintForm수용.resx b/Epole/출력폼/PrintForm수용.resx new file mode 100644 index 0000000..15d9188 --- /dev/null +++ b/Epole/출력폼/PrintForm수용.resx @@ -0,0 +1,346 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 401, 11 + + + 229, 17 + + + 400, 17 + + + 229, 17 + + + 401, 11 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAB6ElEQVQ4T42Sv4viQBTHdytdBftVQUQQ + JO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXIBsTOH/hXvH1vskbHa27gM2++M+/7 + 8ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55Op7Df7xntdpsOn29zbY+9QHMulwvW + 63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKKorC1JEkc+BD7SsycTqeDpVJJHo1G + cDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z1OYY56SvkK5UKuRkV6LhKxaLcD6f + Qdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+HsFqtGGsW14z1+qKvpFIproDP4/HU + RFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M07T4NOETYyKR4BAE4QM99kt8RNzI + q8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2Oh3Y7XaMaDRKSRlERATkGbF+JJru + izgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa5VrmgYcvtZo3CPnmmpkAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAB2klEQVQ4T42RPYviUBSGs1UcBXsdQRZB + kDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhMQOz8wF/x7rl3xqzZTLEHHs7HPe8L + JxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqCWq02yeVyXz8zsTR8IAhSo9Hg4ul0 + yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRSKYsJC0+lUsH5fLYwm80+eMUrZTYb + DocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2QrqHm4Gcz+exXGrE8h2NZQ3aR63d + vV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2+D5ANBpdWwzi8Tj0nX7HDrpOWadM + /Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPlctVJ80SYH9FDZIg2MSB+RiIR7Pd7 + k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6HwybmBrfCHJCRz+dbB4NBMLxeryGK + 4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTGAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAB2klEQVQ4T42RPYviUBSGs1UcBXsdQRZB + kDiTwkawtNVKBEERVhCx0kbstFEUkbWaRVyEbOlvkCwOCrFQUIhMQOz8wF/x7rl3xqzZTLEHHs7HPe8L + JxEAWKAQm82m0u12waD6V7FY9NP8y7+7fN82EARPq9XC8XjkKIqCWq02yeVyXz8zsTR8IAhSo9Hg4ul0 + yvN4PEa1Wp1kMhmbCQuRHpV6vY57TqcTVFWF+lvl9Wg0QrlcnqRSKYsJC0+lUsH5fLYwm80+eMUrZTYb + DocoFAqTZDJpmrCQSqUSFvMF5ou/sH4xn2PB+/d8uVzw8uMF2Wx2QrqHm4Gcz+exXGrE8h2NZQ3aR63d + vV2vV7B90j2aBul0GqvV6r9h+6STTINEIoHNZmOyZWxZveWw/vY2+D5ANBpdWwzi8Tj0nX7HDrpOWadM + /Y7XOvr9PmRZNtxud4V05gkSxToWi+GeN8OA8UawTPR6PYRCIcPlctVJ80SYH9FDZIg2MSB+RiIR7Pd7 + k06ng0AgYDidTiZ+JlyE+RtFgplIhEykwuEwDocDp91uw+/3Gw6HwybmBrfCHJCRz+dbB4NBMLxeryGK + 4qdivn/f8IH1JMY3gt1sE/N928B6EuOReCBsYgDCHx7WNwizNlTGAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABjUlEQVQ4T5WSvWrCYBiF7VR6CaVIyeRQ + xEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F6XdikvpqF4WH732/8wNJTAAQqN9d + s9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUiXKlUtHa7bQyHwyA4Ho8DOPOOGj3n + JXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY7/cwpyZMc6rg+Qc1euhlhlkWPFSr + VaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4TojaZ9HsnDS108sMsyx4KZVKmM/n + N8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvVSrAOzjWo0RN6mWE2cR8ObHvN5XLY + eB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclkcpFKpfAf1OgRGbHI9/FxQfzcIiMW + +T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAB6ElEQVQ4T42Sv4viQBTHdytdBftVQUQQ + JO6msBEsbbUSQVCEE0SstJF02iiKyFntIR6CV+ZvkBxZDJjCBYXIBsTOH/hXvH1vskbHa27gM2++M+/7 + 8ibJAwBw4Hgsl8uBVqv1p9frAYHrKe477nNZPifQXCgUgo1GQ55Op7Df7xntdpsOn29zbY+9QHMulwvW + 63V5Mpkw42w2Y7HZbFKCcGu0fWxCcyaTCVarVXk8HsPhcADlrwKKorC1JEkc+BD7SsycTqeDpVJJHo1G + cDwe4V1VQVXfEYoq27ulVquRk12JxlM+n5fffr3B6XQCTdNgrs1Z1OYY56SvkK5UKuRkV6LhKxaLcD6f + Qdd1xkJfgL6gSNpaX85IUz76xEsBIZvNwnK5/G8onysQj8c/hj+HsFqtGGsW14z1+qKvpFIproDP4/HU + RFE0B4MBGIYBG8TYIMaGaWODkfQ3yWSSK/CEvLjdbikSiZj9fh9M07T4NOETYyKR4BAE4QM99kt8RNzI + q8vlkkKhkNntdmG73drEYjHK/I0MkQ6SQ6zP+F3FLuJ0OqVAIGB2Oh3Y7XaMaDRKSRlERATkGbF+JJru + izgcDsnr9ZrhcBgIv99vt3wPL65FXpAfCLXLtXzPvxtWEXqxPoTa5VrmgYcvtZo3CPnmmpkAAAAASUVO + RK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABkklEQVQ4T5WSsWrCUBiFr1OIFZwlg5MI + SlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71Jc4NLhY/73/Ofc8AkjIgyxM+YTCbL + 2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINHy2gXxl5HoxFdLhdabzaSzVqcAmjY + wVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+KbaS4h4ZZFHQ7vV6FEURhSAMszkK + QZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre6XT4wlvQfr+/86POAp7nEbzIIIsC + U/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDcaDY6v7nA40PH4BzTs4IFXZUrpu8xK + TNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad8siwVlAowf97EzgKzNC0sMzkL1K4 + l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABjUlEQVQ4T5WSvWrCYBiF7VR6CaVIyeRQ + xEEcXZ0cxA5WnRwENxd3p4JbF0HSCtIx1yBCJAEzKERQDM3qD17F6XdikvpqF4WH732/8wNJTAAQqN9d + s9l87na7371eD4Qz76hd+cWiDPV6Xet0OsZoNMJ2uw3gzDtqlyUiXKlUtHa7bQyHwyA4Ho8DOPOOGj3n + JXG4XC5rrVbL0PVP7HY7TCYTAe90XQc99EYlQbhYLGqNRsMYDAbY7/cwpyZMc6rg+Qc1euhlhlkWPFSr + VaPf7+NwOMC27BO2DYtYlprJ6Y4eeplhlgVPtVoNx+MRjjPDTOE4TojaZ9HsnDS108sMsyx4KZVKmM/n + N8EMs0FBNptdFAoFRLiui6WCZ8TSXcY6YSYqeFS8Kd4VX/l8HqvVSrAOzjWo0RN6mWE2cR8ObHvN5XLY + eB68jcLbKHieoEZP6GXmPv4jhd80k06n4fv+NT8+qNEjMmJRzclkcpFKpfAf1OgRGbHI9/FxQfzcIiMW + +T4yF8TPLTLny+0g8QufuDg9vZ8bBgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAABkklEQVQ4T5WSsWrCUBiFr1OIFZwlg5MI + SlucfRO3grhJJ8kkDhKQaEgfwfcQpRksJNAIdchFcVPxLf7ec71Jc4NLhY/73/Ofc8AkjIgyxM+YTCbL + 2WxGj8AOHi2jXRirTadTOp/PD8EOHi2jXRhrj8djaV6tVhrQsINHy2gXxl5HoxFdLhdabzaSzVqcAmjY + wVPIMGMwGCyHwyGlXK9XCj4DCgKBOqHlPcggi4Jav9+n2+2msd1+KbaS4h4ZZFHQ7vV6FEURhSAMszkK + QZhpKaHQkUFWFnS73W/f9ymOY9rtYnlK0jmvCfwPn5BJC6xqtfre6XT4wlvQfr+/86POAp7nEbzIIIsC + U/BcqVTsVqvFXdelJOGChBIuwKmYu3OCB15kVJaVBE+Cl3K5bDcaDY6v7nA40PH4BzTs4IFXZUrpu8xK + TNO06/U6dxyHTqeTBDM07OBR3pLM5j6IrMQwDNuyLN5sNglghoad8siwVlAowf97EzgKzNC0sMzkL1K4 + l+Dh4AnjNQHM0LSw9BeF/0HsF9L8N2E9f/ZWAAAAAElFTkSuQmCC + + + + 561, 17 + + + 526, 11 + + + 18, 15 + + + 330, 17 + + + 65 + + + 765, 7 + + + 663, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintForm수용.vb b/Epole/출력폼/PrintForm수용.vb new file mode 100644 index 0000000..71ad363 --- /dev/null +++ b/Epole/출력폼/PrintForm수용.vb @@ -0,0 +1,3394 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data +Public Class printformsy + + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim Sȣ As MyControlOLEDBv2.MyLabel + Dim Sθ(0) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(1) As MyControlOLEDBv2.MyLabel + Dim S1(0) As MyControlOLEDBv2.MyLabel + Dim S2(0) As MyControlOLEDBv2.MyLabel + Dim S3(0) As MyControlOLEDBv2.MyLabel + Dim S4(0) As MyControlOLEDBv2.MyLabel + 'Dim S1(0) As MyControlOLEDBv2.MyLabel 'U ̳ʽ + 'Dim S2(0) As MyControlOLEDBv2.MyLabel 'A + 'Dim S3(0) As MyControlOLEDBv2.MyLabel 'B + 'Dim S4(0) As MyControlOLEDBv2.MyLabel 'D + 'Dim S5(0) As MyControlOLEDBv2.MyLabel 'E + Dim SϷùȣ As MyControlOLEDBv2.MyLabel + + Dim SŰ(0) As MyControlOLEDBv2.MyLabel + + + Dim , ȣ As String + Dim ȣ As String = vbNullString + Dim ϸ_ȣ As String = "KWANLIJUNSAN" + Dim θ As String = vbNullString + Dim ϸ_ As String = "SUNLOPATTERN" + Dim ȣ As String = vbNullString + Dim ϸ_ȣ As String = "JJNUMPATTERN" + Dim As String = vbNullString + Dim 1 As String = vbNullString + Dim ϸ_1 As String = "BIGO1PATTERN" + Dim 2 As String = vbNullString + Dim ϸ_2 As String = "BIGO2PATTERN" + Dim 3 As String = vbNullString + Dim ϸ_3 As String = "BIGO3PATTERN" + Dim 4 As String = vbNullString + Dim ϸ_4 As String = "BIGO4PATTERN" + Dim Ű As String = vbNullString + Dim ϸ_Ű As String = "GOJANGPATTERN" + + Dim BlineNum As Short = 0 + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д. + Dim ȣ۵ As Boolean = True + Dim θ۵ As Boolean = True + Dim ֹȣ۵ As Boolean = True + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleetc") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleetc.ini" '// Ÿ + + '/qrڵ庯 + Dim qrȨ1 As String = "" + Dim qrȨ2 As String = "" + Dim qrȨ3 As String = "" + Dim qrȨ4 As String = "" + + + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.EtcTableDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + +#Region "New" + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\α.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.EtcTableDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub +#End Region + + Private Sub printformsy_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress + + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjung", "\viewConfig\suyoung_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + WLog2(Auto_Log, "Form_Load()", "\α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + WLog2(Auto_Log, " ⺻ ȯ()", "\α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.fryTableAdapter.Connection.ConnectionString = ConString + 'Me.fryTableAdapter.Fill(Me.IreaDataSet1.etctable, 1) + 'Me.srcTable = Me.IreaDataSet1.etctable + ''MsgBox("ͼ=" & Me.IreaDataSet1.etctable.Rows.Count) + Admin = True + End If + + WLog2(Auto_Log, "ڸ=" & Admin.ToString, "\α.txt") + If Admin Then '//ڸ üũڽѴ. + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then A.Visible = True + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + Me.cmb_style.SelectedIndex = 0 + Return + End If + + '//⼭ ప мؼ ޺ܸ ش; '// õ ش ãƾ Ѵ. + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + Me.cmb_style.SelectedIndex = 0 + WLog2(Auto_Log, "õǼ ѿµ ȣ ãϴ=" & Srcnum, "\α.txt") + If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0 + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Me.dataview.Setting_Save(False, "printjjung", "\viewConfig\suyoung_") + WLog2(Auto_Log, "Form_Closk", "\α.txt") + Save_Setting() + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + + Case Keys.F4 '//5 + Me.Button8.PerformClick() + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + + Private Sub SetControls() + WLog2(Auto_Log, "Running : SetControls()", "\α.txt") + Dim CtlCnt As Short = 0 + + For i As Integer = 0 To Sֹȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sֹȣ(i) = New MyControlOLEDBv2.MyLabel + Sֹȣ(i). = "ֹȣ" & i + 1 + Sֹȣ(i).Name = "X" & i + 1 + Sֹȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sֹȣ(i) + Me.cmb_controls.Items.Add(Sֹȣ(i).) + CtlCnt += 1 + Next + + SϷùȣ = New MyControlOLEDBv2.MyLabel + SϷùȣ. = "Ϸùȣ" + SϷùȣ.MyText = "" + SϷùȣ.Name = "N1" + SϷùȣ.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SϷùȣ + Me.cmb_controls.Items.Add(SϷùȣ.) + CtlCnt += 1 + + S4(0) = New MyControlOLEDBv2.MyLabel + S4(0). = "4" + S4(0).MyText = "" + S4(0).Name = "R" + S4(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S4(0) + Me.cmb_controls.Items.Add(S4(0).) + CtlCnt += 1 + + S3(0) = New MyControlOLEDBv2.MyLabel + S3(0). = "3" + S3(0).MyText = "" + S3(0).Name = "Q" + S3(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S3(0) + Me.cmb_controls.Items.Add(S3(0).) + CtlCnt += 1 + + S2(0) = New MyControlOLEDBv2.MyLabel + S2(0). = "2" + S2(0).MyText = "" + S2(0).Name = "P" + S2(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S2(0) + Me.cmb_controls.Items.Add(S2(0).) + CtlCnt += 1 + + S1(0) = New MyControlOLEDBv2.MyLabel + S1(0). = "1" + S1(0).MyText = "" + S1(0).Name = "O" + S1(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S1(0) + Me.cmb_controls.Items.Add(S1(0).) + CtlCnt += 1 + + Sθ(0) = New MyControlOLEDBv2.MyLabel + Sθ(0). = "θ" + Sθ(0).MyText = "" + Sθ(0).Name = "L" + Sθ(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sθ(0) + Me.cmb_controls.Items.Add(Sθ(0).) + CtlCnt += 1 + + Sȣ = New MyControlOLEDBv2.MyLabel + Sȣ. = "ȣ" + Sȣ.MyText = "" + Sȣ.Name = "H" + Sȣ.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȣ + Me.cmb_controls.Items.Add(Sȣ.) + CtlCnt += 1 + + SŰ(0) = New MyControlOLEDBv2.MyLabel + SŰ(0). = "Ű" + SŰ(0).MyText = "" + SŰ(0).Name = "Z" + SŰ(0).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SŰ(0) + Me.cmb_controls.Items.Add(SŰ(0).) + CtlCnt += 1 + + + End Sub + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder("") + TMSG.AppendLine() + TMSG.AppendLine("õ ü ȭǥÿθ մϴ") + Me.ToolTip1.SetToolTip(Me.cb_visible, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ӽ ش ڸ ֽϴ.") + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + End Sub + + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\α.txt") + WLog2(Auto_Log, "Load_Setting()", "\α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + WLog2(Auto_Log, "Entering : GetviewData", "\α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + WLog2(Auto_Log, "GetViewData : Not index or has problem", "\α.txt") + 'MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + WLog2(Auto_Log, "Running : GetviewData", "\α.txt") + + = GetSpread(Me.Dv, index, "") + ȣ = GetSpread(Me.Dv, index, "ֹȣ") + If <> "" OrElse ȣ <> "" Then Me.ȣ = & "-" & ȣ + + θ = GetSpread(Me.Dv, index, "θ") + ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + + Me.1 = GetSpread(Me.Dv, index, "1") : Me.2 = GetSpread(Me.Dv, index, "2") + Me.3 = GetSpread(Me.Dv, index, "3") : Me.4 = GetSpread(Me.Dv, index, "4") + = 1 & 2 & 3 & 4 + + Me.Ű = Me.gojang.Text.ToString() + Me.BlineNum = 0 '//ٹȣ ʱȭѴ. //'//ü ǥÉ ȮѴ. ̴ ã . + If 1 <> "" Then BlineNum += 1 : If 2 <> "" Then BlineNum += 1 : If 3 <> "" Then BlineNum += 1 : If 4 <> "" Then BlineNum += 1 + + WLog2(Auto_Log, "Complete : Load Data from Dataview's data", "\α.txt") + Me.Text = "ȣ ۾(" & ȣ & ")" + + WLog2(Auto_Log, "Entering : All Parse Function.", "\α.txt") + '============ ؼ °̴ ========================================================== + Me.PARSE_Ϸùȣ(index) + '==================================================================================================== + WLog2(Auto_Log, "ִ PASE մϴ.()", "\α.txt") + If Me.PARSE_θ(Me.θ) Then Me.PARSE_θ(θ) + If Me.PARSE_ȣ(Me.ȣ) Then Me.PARSE_ȣ(ȣ) + If Me.PARSE_ȣ(Me.ȣ) Then Me.PARSE_ȣ(Me.ȣ) + If Me.PARSE_1(Me.1) Then Me.PARSE_1(1) + If Me.PARSE_2(Me.2) Then Me.PARSE_2(2) + If Me.PARSE_3(Me.3) Then Me.PARSE_3(3) + If Me.PARSE_4(Me.4) Then Me.PARSE_4(4) + If Me.PARSE_Ű(Me.Ű) Then Me.PARSE_Ű(Ű) + + WLog2(Auto_Log, "ڹ ǥÿθ մϴ.()", "\α.txt") + 'ڹ ǥÿ u a b d e + 'If Not Me.cb_1.Checked Then Me.S1(0).Visible = False + 'If Not Me.cb_2.Checked Then Me.S2(0).Visible = False + 'If Not Me.cb_3.Checked Then Me.S3(0).Visible = False + 'If Not Me.cb_4.Checked Then Me.S4(0).Visible = False + 'If Not Me.cb_5.Checked Then Me.S5(0).Visible = False + + WLog2(Auto_Log, "Pewview 츦 մϴ.()", "\α.txt") + Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + ˻ȣ = GetSpread(Me.Dv, index, 7) & GetSpread(Me.Dv, index, 8) & GetSpread(Me.Dv, index, 9) & GetSpread(Me.Dv, index, 10) & GetSpread(Me.Dv, index, 11) + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(DrStyle.FILE) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = Me.DtPattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = DtPattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Sub CLEAR_ITEM(ByVal DIV As String) + WLog2(Auto_Log, "Running : Clear_item() div=" & DIV, "\α.txt") + + Select Case DIV.ToUpper + Case "L" + For i As Short = 0 To Sθ.GetUpperBound(0) + Sθ(i).MyText = "" + Sθ(i).Visible = False + Next + Case "H" + Sȣ.MyText = "" + Sȣ.Visible = False + Case "X" + For i As Short = 0 To Sֹȣ.GetUpperBound(0) + Sֹȣ(i).MyText = "" + Sֹȣ(i).Visible = False + Next + Case "N" + SϷùȣ.MyText = "" + SϷùȣ.Visible = False + Case "O" + Me.S1(0).MyText = "" + Me.S1(0).Visible = False + Case "P" + Me.S2(0).MyText = "" + Me.S2(0).Visible = False + Case "Q" + Me.S3(0).MyText = "" + Me.S3(0).Visible = False + Case "R" + Me.S4(0).MyText = "" + Me.S4(0).Visible = False + Case "Z" + Me.SŰ(0).MyText = "" + Me.SŰ(0).Visible = False + Case Else + MsgBox("Clear_Item ˼ ( " & DIV & ") Դϴ") + End Select + + End Sub + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + 'ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("DESC").ToString) + CurIdx += 1 + Next + + End Sub + Private Sub ̺() + WLog2(Auto_Log, "̺ ()", "\α.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + WLog2(Auto_Log, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + 'MsgBox("rad1") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + Me.PrintArray(i) = i + Next + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + 'MsgBox("Rad2" & Me.BindingNavigatorPositionItem.Text - 1) + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "proc_printpage Ʈ ۼѴ ߿ϴ.()", "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + + + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + End If + + If <> "" Then + Try + '//QRڵ带 ׸. + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + qrȨ1 = home1.Text + qrȨ2 = home2.Text + qrȨ3 = home3.Text + qrȨ4 = home4.Text + + + + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & θ & ":" & ȣ + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + ' If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + 'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text)) + 'Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + 'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + 'End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + + + + + + + +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + 'MsgBox(dummy) + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + If dummy Then '//μⰡ ƴҴ뿡 margin ʴ´. + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text + Else + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + End If + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + + '// ִ 2庹縦 ȮѴ. + '// Ȯϰ ׷ 쿡 庹縸 ȮѴ. + If dummy = False AndAlso Me.cb_dummy.Checked Then '//2庹ϰ쿡 纹 üũ + + dummy = True + If Me.cmb_dummy.SelectedIndex = 0 Then '//纹  ϴ. + 'dummy = True + ' MsgBox("մ 纹") + GoTo Dummyflag + Else '//̹Ƿ մ ȮϰؾѴ. + 'MsgBox("庹") + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + 'MsgBox("մ.. ͹ٲٰ gotoѴ") + Me.printindex += 1 '/1ѱ + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + GoTo Dummyflag '//ٷ ´ٽѴ. + Else + 'MsgBox(" ׳ɳѾ") + '̾Ƿ ׳ Ѿ. + e.HasMorePages = False + End If + End If + Else '//γѱϴ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + dummy = False '// Ѿ ̸ Ѵ. + Me.printindex += 1 + e.HasMorePages = True + Else + e.HasMorePages = False + End If + End If + e.Graphics.Dispose() + End Sub + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + End Sub + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.GetSize.Width & ",H=" & sender.GetSize.Height + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.CheckBox4.Checked = False + ElseIf Me.CheckBox4.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.CheckBox4.Checked = True + End Sub + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\α.txt") + Me.preview_window() + End Sub + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\α.txt") + e.Handled = True + End Sub + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´. + + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + 'Me.VScrollBar1.Minimum = 1 'Me.BindingNavigatorPositionItem.Text + 'Me.VScrollBar1.Maximum = Dv.Count 'Me.BindingNavigatorCountItem.Text ' Dv.Count '- 1 + + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + 'MsgBox("cmb style select change=" & Me.VScrollBar1.Maximum) + + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + + End If + + 'WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\α.txt") + 'Me.preview_window() + End Sub + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\α.txt") + Dim Arinini As New MyINI2(drstyle.file) + Dim pos(), font(), visible, mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + If Div.ToUpper = "H" Then '//Hǰ ãƺ. + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + + Else + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLE") + ' MsgBox(ex.Message.ToString) + End Try + + Next + + ' If Div.ToUpper <> "Z" Then Return '//̾ƴϴ ------ӽù.. + ' WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\α.txt") ------ӽ .. + + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + Me.cb_dummy.Checked = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + If DrStyle.BACKIMG.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & DrStyle.BACKIMG + Else + Me.tb_picfile.Text = DrStyle.BACKIMG ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = DrStyle.LANDSCAPE ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + + Me.CheckBox4.Checked = DrStyle.VIEWIMAGE ' Arinini.Read("STYLE", "ViewImage", True) + Me.tb_myfontsize.Text = DrStyle.PRINTFONTOFFSET ' Arinini.Read("STYLE", "PrintFontOffset", 0) + + + '//QRڵ + Try + Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1) + Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2) + Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1) + Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "") + Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "") + If qrbgstr = "" Then + lbQrBg.BackColor = Drawing.Color.White + Else + lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr)) + End If + If qrfgstr = "" Then + lbQrFG.BackColor = Drawing.Color.Black + Else + lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr)) + End If + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + + '//QRȨ + '//Try + Me.home1.Text = Arinini.Read("STYLE", "qrhome1", "http://cyber.kepco.co.kr") + Me.home2.Text = Arinini.Read("STYLE", "qrhome2", "jeonbuk") + Me.home3.Text = Arinini.Read("STYLE", "qrhome3", "mjeonbuk") + Me.home4.Text = Arinini.Read("STYLE", "qrhome4", "report.jsp?location") + '//Catch ex As Exception + '// MessageBox.Show(ex.ToString()) + '//End Try + + Me.gojang.Text = Arinini.Read("STYLE", "gojang", "Ű Ʈϰ") + + + 'Me.PictureBox1.Width =drstyle.CanvasX 'Arinini.Read("STYLE", "CanvasX", 297) '520 + 'Me.PictureBox1.Height =drstyle.CanvasY ' Arinini.Read("STYLE", "CanvasY", 520) '520 + + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + Public Sub SAVE_STYLE() + WLog2(Auto_Log, "[Saving] Current Style to INI File ", "\α.txt") + Dim Arinini As New MyINI2(drstyle.file) + Dim Arininic As New MyINI2(CStr(drstyle.file).ToLower.Replace("ini", "cfg")) + Dim Tobj As MyControlOLEDBv2.MyLabel + 'Dim Div As Char + + + + '// õ Ÿ մϴ. + erp.SetError(Me.cmb_style, vbNullString) + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õ ʾҽϴ.") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Select Case Tobj.Name.ToUpper.Substring(0, 1) '//ڹ 쿡 ش ڿ Ѵ. + Case "U", "A", "B", "D", "E" '//ڹڴ 5̴. + Arinini.Write("STYLE", Tobj.Name & "mytext", TextEnc(Tobj.MyText)) + End Select + + 'Div = Tobj.Name.Substring(0, 1) '1ڸ üũڽ ±׶ Ѵ. (𸣰ٴ ̺κ ִ ϴѴ. 1118 19 2 + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ش üũڽ ã üũڽ · Ѵ. + ' Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' Exit For + ' End If + ' End If + 'Next + Next + + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + + 'Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width) '//Save Canvas Size + 'Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "ViewImage", Me.CheckBox4.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + + + '//QRڵ + Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text) + Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text) + Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text) + Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString()) + Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString()) + + '//QRȨ + Arinini.Write("STYLE", "qrhome1", Me.home1.Text) + Arinini.Write("STYLE", "qrhome2", Me.home2.Text) + Arinini.Write("STYLE", "qrhome3", Me.home3.Text) + Arinini.Write("STYLE", "qrhome4", Me.home4.Text) + + + Arinini.Write("STYLE", "gojang", Me.gojang.Text) + + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + WLog2(Auto_Log, "Request Update DataTable Infomation After Style Save ", "\α.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + End Sub + + Public Sub SAVE_PATTERNII(ByVal SRCSTR As String, ByVal MIDNAME As String, ByVal DIV As Char, Optional ByVal LOGFILENAME As String = "\.TXT", Optional ByVal prompt As Boolean = True) ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + Dim Arinini As New MyINI2(drstyle.file) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MIDNAME & mb.ToString + + If prompt Then + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + End If + + WLog2(Auto_Log, " save_pattern2 Ѵ.", "\α.txt") + + Select Case DIV.ToString.ToUpper + Case "O" '//θ + For i As Integer = 0 To Me.S1.GetUpperBound(0) + TOBJ = Me.S1(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "P" '//θ + For i As Integer = 0 To Me.S2.GetUpperBound(0) + TOBJ = Me.S2(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "Q" '//θ + For i As Integer = 0 To Me.S3.GetUpperBound(0) + TOBJ = Me.S3(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "R" '//θ + For i As Integer = 0 To Me.S4.GetUpperBound(0) + TOBJ = Me.S4(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "L" '//θ + For i As Integer = 0 To Me.Sθ.GetUpperBound(0) + TOBJ = Me.Sθ(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "X" '//ֹȣ + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + Case Else + MsgBox("Save_PatternII ǵ (" & DIV & ") ߻Ͽϴ", MsgBoxStyle.Critical, "Ȯ") + End Select + + WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\α.txt") + Me.̺() + End Sub + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\α.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + WLog2(Auto_Log, "ǥ üũڽ ", "\α.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + WLog2(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\α.txt") + Me.preview_window() + End Sub + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + WLog2(Auto_Log, " ۾ Ŭ", "\α.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + WLog2(Auto_Log, "۾B õ setfont ȣ ", "\α.txt") + SetFont() + End Sub + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + WLog2(Auto_Log, "updatefont : ", "\α.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click + Me.CtrSize(False, -5) + End Sub + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click + Me.CtrSize(False, 5) + End Sub + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click + Me.CtrSize(True, -5) + End Sub + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click + Me.CtrSize(True, 5) + End Sub + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Me.CtrPos(False, -5) + End Sub + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Me.CtrPos(False, 5) + End Sub + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click + Me.CtrPos(True, -5) + End Sub + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click + Me.CtrPos(True, 5) + End Sub + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + + + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + ' If chkFlag Then Exit For + Me.showcnt(i, Me.textbox2.Text) + + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + Private Sub ȣ(Optional ByVal msg As String = "99,99") + 'MsgBox("ȣ : " & ȣ, MsgBoxStyle.Information, msg) + '// ȣ ιȣ ǥѴ. + '//20070826 ȣ и/ ؼ Ѵ. + Dim A() As Char = ȣ.ToCharArray + + Dim P() As String + If msg.IndexOf(",") = -1 Then '// 140702 + Dim pp As New List(Of String) + For Each cc As Char In msg.ToCharArray + pp.Add(cc) + Next + P = pp.ToArray() + Else + P = msg.Split(",") + End If + + Me.CLEAR_ITEM("X") + + Me.cmb_sep.SelectedIndex = 2 '// + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.Sθ(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = -1 '//ü ° ߴٴ ǥ + Select Case Me.cmb_sep.SelectedIndex + Case 2 '// + Me.tb_ntype.Enabled = True + For i As Integer = 0 To A.GetUpperBound(0) '// ڿ ִ´ ̰ ڶ ߰ . + If i <= CInt(P(0).ToString) - 1 Then + Me.Sֹȣ(0).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i <= (CInt(P(0).ToString) + CInt(P(1).ToString) - 1) Then + Me.Sֹȣ(1).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).Visible = IIf(Me.Sֹȣ(i).MyText = "", False, True) + Next + End Sub + + Public Function PARSE_ȣ(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + Me.CLEAR_ITEM("H") +0: Dim Log As String = "\Parse_ȣ.txt" + If srcstr = "" OrElse Not Me.cb_kwnaligu.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Me.Sȣ.MyText = srcstr + Me.Sȣ.Visible = True + Return True + End Function + + Private Sub PARSE_ȣ(ByVal SRCSTR As String) + '//5 ĺ ̵Ǿִ ȮѴ. + Dim Log As String = "\Parse_ȣ().txt" + Dim PNAME As String = "" + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + If .Length < 5 Then Return '//160830 + + PNAME = "CNUMPATTERNI" & .Substring(4, 1) ' Me.h5.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + DR = DtPattern.Select("NAME = '" & PNAME & "DESC'") + + If DR.GetUpperBound(0) = 0 Then '//ִ. + WLog2(Auto_Log, "5 ڸ ãҽϴ (" & PNAME & "DESC" & ")", Log) + DR = DtPattern.Select("NAME = '" & PNAME & Sȣ.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + Me.Sȣ.Location = New Point(CTLPOS(0), CTLPOS(1)) + Me.Sȣ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = DtPattern.Select("NAME = '" & PNAME & Sȣ.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + Sȣ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Sȣ. = CTLFONT(5) + Sȣ. = CTLFONT(6) + End If + DR = DtPattern.Select("NAME = '" & PNAME & Sȣ.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + Sȣ.Visible = CType(CTLVISIBLE, Boolean) + End If + DR = DtPattern.Select("NAME = '" & PNAME & Sȣ.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + Sȣ. = DR(0)(1) + End If + Else + WLog2(Auto_Log, "5 ڰ Ǿʽϴ. (" & Sȣ.MyText & ")", Log) + End If + End Sub + + Public Sub PARSE_θ(ByVal Srcstr As String) + Dim Log As String = "\PATTERN_θ.txt" + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + 'Me.Ͽ(Srcstr, CStr(Me.ϸ_ & Wlen), Log, "L", Sθ) + Me.Ͽ(Srcstr, CStr(Me.ϸ_ & "II" & PATTERN_ENC(θ)), Log, Me.Sθ) + + End Sub + Public Function PARSE_θ(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("L") + '/θ ̴ ʴ´ Ʈ Ѵ. + Dim Log As String = "\Parse_θ.txt" + If srcstr = "" OrElse Not Me.cb_sunlo.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Sθ(0).MyText = srcstr.Trim(";") + Sθ(0).Visible = True + Return True + End Function + Private Sub PARSE_Ϸùȣ(ByVal index As Short) + If Me.cb_seq.Checked Then + Me.SϷùȣ.MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.SϷùȣ.Visible = True + Else + Me.SϷùȣ.Visible = False + End If + End Sub + + Public Function PARSE_ȣ(ByVal srcstr As String) As Boolean + 'Me.CLEAR_ITEM("X") + Dim Log As String = "\Parse_ȣ.txt" + If srcstr = "" OrElse Not Me.cb_jnum.Checked Then + Me.CLEAR_ITEM("X") + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȣ(ByVal srcstr As String) As Integer + Dim Wlen As Short = ȣ.Length : If Wlen <= 0 Then Return False '// ۱Ͱ ع. + Dim SRC() As Char = ȣ.ToCharArray + Dim Log As String = "\ȣETC.txt" + Dim SepPos As Short = ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + + '//ȣ ʰ ϸ Ѵ. + Dim Arinini As New MyINI2(drstyle.file) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Dr() As DataRow + Dim иε As Short = 0 + Dim ȣ As String = "99,99" + + Dim Pname As String = CStr(Me.ϸ_ȣ & "II" & PATTERN_ENC(srcstr)) + Dr = DtPattern.Select("NAME = '" & Pname & "DESC'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & srcstr & " =" & Pname, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(Pname, "nseparate", 0) + ȣ = Arinini.Read(Pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr & " =" & Pname, Log) + 'MsgBox("ھ=" & Pname) + retval += 2 '// Ƿ ٷ ѱ. + End If + + + If retval = 2 Then '// 쿡 ȮѴ. + '// Ȯ + Pname = CStr(Me.ϸ_ȣ & Wlen) + Dr = DtPattern.Select("NAME = '" & Pname & "DESC'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & srcstr, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(Pname, "nseparate", 0) + ȣ = Arinini.Read(Pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = DtPattern.Select("NAME = '" & Pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + WLog2(Auto_Log, " Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & srcstr, Log) + retval += 1 '// + End If + End If + + Me.cmb_sep.SelectedIndex = иε + + If ȣ = "99,99" Then '//̾ٴ ̴ ȣ ش. + 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + If ȣ.Length <= 10 Then + ȣ = "10,0" + Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ȣ = "10," & srcstr.Length - 10 + End If + End If + Me.tb_ntype.Text = ȣ + + ȣ(Me.tb_ntype.Text) '//ȣ ش. + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Function PARSE_Ű(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("Z") + Dim Log As String = "\Parse_Ű.txt" + If srcstr = "" OrElse Not Me.cb_gojang.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.SŰ(0).MyText = srcstr + Me.SŰ(0).Visible = True + Return True + End Function + Public Sub PARSE_Ű(ByVal SRCSTR As String) '// 1234 Ѵ. + ''// Ѵ. + Dim Wlen As Short = Ű.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_Ű.txt" + Dim SepPos As Short = Ű.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + 'Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_1 & Wlen), Log, "O", S1) + Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_Ű & "II" & PATTERN_ENC(SRCSTR)), Log, Me.SŰ) + End Sub + + Public Function PARSE_1(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("O") + Dim Log As String = "\Parse_1.txt" + If srcstr = "" OrElse Not Me.cb_bigo1.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.S1(0).MyText = srcstr + Me.S1(0).Visible = True + Return True + End Function + Public Sub PARSE_1(ByVal SRCSTR As String) '// 1234 Ѵ. + ''// Ѵ. + Dim Wlen As Short = 1.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_1.txt" + Dim SepPos As Short = 1.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + 'Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_1 & Wlen), Log, "O", S1) + Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_1 & "II" & PATTERN_ENC(SRCSTR)), Log, Me.S1) + End Sub + Public Function PARSE_2(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("P") + Dim Log As String = "\Parse_2.txt" + If srcstr = "" OrElse Not Me.cb_bigo1.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + Me.S2(0).MyText = srcstr + Me.S2(0).Visible = True + Return True + End Function + Public Sub PARSE_2(ByVal SRCSTR As String) '// 1234 Ѵ. + ''// Ѵ. + Dim Wlen As Short = 2.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_2.txt" + Dim SepPos As Short = 2.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + 'Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_2 & Wlen), Log, "P", S2) + Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_2 & "II" & PATTERN_ENC(SRCSTR)), Log, Me.S2) + End Sub + Public Function PARSE_3(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("Q") + Dim Log As String = "\Parse_3.txt" + If srcstr = "" OrElse Not Me.cb_bigo1.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Me.S3(0).MyText = srcstr + Me.S3(0).Visible = True + Return True + End Function + Public Sub PARSE_3(ByVal SRCSTR As String) '// 1234 Ѵ. + ''// Ѵ. + Dim Wlen As Short = 3.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_3.txt" + Dim SepPos As Short = 3.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + 'Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_3 & Wlen), Log, "Q", S3) + Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_3 & "II" & PATTERN_ENC(SRCSTR)), Log, Me.S3) + End Sub + Public Function PARSE_4(ByVal srcstr As String) As Boolean + Me.CLEAR_ITEM("R") + Dim Log As String = "\Parse_1.txt" + If srcstr = "" OrElse Not Me.cb_bigo1.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Me.S4(0).MyText = srcstr + Me.S4(0).Visible = True + Return True + End Function + Public Sub PARSE_4(ByVal SRCSTR As String) '// 1234 Ѵ. + ''// Ѵ. + Dim Wlen As Short = 4.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_4.txt" + Dim SepPos As Short = 4.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + 'Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_4 & Wlen), Log, "R", S4) + Me.Ͽ(SRCSTR, "LNUM" & BlineNum & CStr(Me.ϸ_4 & "II" & PATTERN_ENC(SRCSTR)), Log, Me.S4) + End Sub + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.file) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + + End Sub + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub GetPrintersName() + WLog2(Auto_Log, "GetPrinterName()", "\α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + End If + End Sub + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + End Sub + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + + + Private Sub preview_window() '//̸ȭ մϴ. + + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + ' If Me.printindex <> -1 Then Me.GeTviewData(Me.PrintArray(Me.printindex)) '// ϰ Ѵ. + 'Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + 'If Not Me.PictureBox1.BackgroundImage Is Nothing Then + ' Ga.DrawImage(Me.PictureBox1.BackgroundImage, 0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height) + ' End If + + 'MsgBox("orevuew") + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, obj.Location) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left, obj.Top)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + + If Me.cb_dummy.Checked Then '//簡 õǾ ѹ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brushes.Gray, (obj.Left + Me.tb_secX.Text), (obj.Top + Me.tb_secY.Text)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brushes.Gray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, CSng(obj.Left + Me.tb_secX.Text), CSng(obj.Top + Me.tb_secY.Text)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + + + + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸ + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + + If <> "" Then + Try + '// qrڵ带 ׸ + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & θ & ":" & ȣ + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + End If + + + + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordwidth.Text) + ViewProperty(A) + Next + Me.preview_window() + + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordheight.Text) + ViewProperty(A) + Next + Me.preview_window() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + a. = CType(SelCon(0), MyControlOLEDBv2.MyLabel). + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) + 'MsgBox(Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum & "=" & e.NewValue) + Me.BindingSource1.Position = e.NewValue + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + + Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click + + End Sub + + Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) + + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + End Sub + + Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = DtPattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = DtPattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = DtPattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = DtPattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + + C.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + 'MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + + If .Trim = "" Then + MsgBox(" [] ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("-ȣ (" & Me..Substring(4, 1) & " ) Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.Sȣ.MyFont.ToString) + msg.AppendLine("ʺ = " & Me.Sȣ.) + msg.AppendLine(" = " & Me.Sȣ.) + msg.AppendLine("ǥ = " & Me.Sȣ.Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + 'MsgBox(drstyle.file) + + Dim Arinini As New MyINI2(drstyle.file) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.Sȣ + Dim Pname As String = "CNUMPATTERNI" & .Substring(4, 1) '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & .Substring(4, 1) & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & Me..Substring(4, 1) & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + + Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + + End Sub + + Private Sub VScrollBar1_Scroll_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub sdfnuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub bt_print_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + End Sub + + Private Sub tyuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tyuToolStripMenuItem.Click + SAVE_PATTERNII(Me.ȣ & "II", ϸ_ȣ, "H", "\2.TXT") '//θ մϴ. + End Sub + + Private Sub xxxolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xxxolStripMenuItem.Click + If MsgBox("1,2,3,4 Ͻðڽϱ?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Information, "") = MsgBoxResult.Ok Then + If 1 <> "" Then SAVE_PATTERNII(Me.1, "LNUM" & BlineNum & ϸ_1 & "II", "O", "\12.TXT", False) '//θ մϴ. + If 2 <> "" Then SAVE_PATTERNII(Me.2, "LNUM" & BlineNum & ϸ_2 & "II", "P", "\22.TXT", False) '//θ մϴ. + If 3 <> "" Then SAVE_PATTERNII(Me.3, "LNUM" & BlineNum & ϸ_3 & "II", "Q", "\32.TXT", False) '//θ մϴ. + If 4 <> "" Then SAVE_PATTERNII(Me.4, "LNUM" & BlineNum & ϸ_4 & "II", "R", "\42.TXT", False) '//θ մϴ. + End If + End Sub + + Private Sub olStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles olStripMenuItem.Click + SAVE_PATTERNII(Me.θ, ϸ_ & "II", "L", "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub kiuStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kiuStripMenuItem.Click + SAVE_PATTERNII(Me.ȣ, ϸ_ȣ & "II", "X", "\ȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + 'NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click + Try + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "Q" + Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Dim NewLine As New S_QRCode + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + Draw_QRcode.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Case "Q" + Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "Q" + Dim Line As New S_QRCode + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line + End Select + End Sub + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.file) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim qname As String = "DrawQRcode" + + Dim bcnt, lcnt, ccnt, qcnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + Next + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + Next + ini.Write(cname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "circle" & i & "x", L.X) + ini.Write(cname, "circle" & i & "y", L.Y) + ini.Write(cname, "circle" & i & "x2", L.Width) + ini.Write(cname, "box" & i & "y2", L.Height) + Next + ini.Write(qname, "Count", Draw_QRcode.Count) + For i As Short = 1 To Draw_QRcode.Count '//εƼ Ѵ. + Dim L As S_QRCode = Draw_QRcode(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(qname, "qrcode" & i & "x", L.X) + ini.Write(qname, "qrcode" & i & "y", L.Y) + ini.Write(qname, "qrcode" & i & "x2", L.Width) + ini.Write(qname, "qrcode" & i & "y2", L.Height) + Next + Else '// д κ + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + Draw_QRcode.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) '// + For i As Short = 1 To ccnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "circle" & i & "pensize", 3) + L.X = ini.Read(cname, "circle" & i & "x", 0) + L.Y = ini.Read(cname, "circle" & i & "y", 0) + L.Width = ini.Read(cname, "circle" & i & "x2", 10) + L.Height = ini.Read(cname, "circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + qcnt = ini.Read(qname, "Count", 0) + For i As Short = 1 To qcnt '//εƼ Ѵ. + Dim L As New S_QRCode + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(qname, "qrcode" & i & "x", 0) + L.Y = ini.Read(qname, "qrcode" & i & "y", 0) + L.Width = ini.Read(qname, "qrcode" & i & "x2", 10) + L.Height = ini.Read(qname, "qrcode" & i & "y2", 10) + Draw_QRcode.Add(L) + Next + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + Next + I = 0 + For Each Rect As S_QRCode In Draw_QRcode + Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + + preview_window() + End Sub + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrBg.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrBg.BackColor = a.Color + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrFG.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrFG.BackColor = a.Color + End If + End Sub +End Class + + + diff --git a/Epole/출력폼/PrintForm지중.Designer.vb b/Epole/출력폼/PrintForm지중.Designer.vb new file mode 100644 index 0000000..e155050 --- /dev/null +++ b/Epole/출력폼/PrintForm지중.Designer.vb @@ -0,0 +1,2742 @@ + _ +Partial Class printformjjung + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim NumberCellType1 As FarPoint.Win.Spread.CellType.NumberCellType = New FarPoint.Win.Spread.CellType.NumberCellType() + Dim TextCellType1 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType2 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType3 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType4 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType5 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType6 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType7 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType8 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType9 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType10 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim TextCellType11 As FarPoint.Win.Spread.CellType.TextCellType = New FarPoint.Win.Spread.CellType.TextCellType() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(printformjjung)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel() + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.rad_repeat = New System.Windows.Forms.RadioButton() + Me.RadioButton1 = New System.Windows.Forms.RadioButton() + Me.RadioButton2 = New System.Windows.Forms.RadioButton() + Me.RadioButton3 = New System.Windows.Forms.RadioButton() + Me.tb_printrange = New System.Windows.Forms.TextBox() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.cb_visible = New System.Windows.Forms.CheckBox() + Me.Button14 = New System.Windows.Forms.Button() + Me.Button8 = New System.Windows.Forms.Button() + Me.cmb_sep = New System.Windows.Forms.ComboBox() + Me.cmb_controls = New System.Windows.Forms.ComboBox() + Me.lb_sel = New System.Windows.Forms.Label() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.tb_space = New System.Windows.Forms.TextBox() + Me.tb_fsize = New System.Windows.Forms.TextBox() + Me.tb_wordheight = New System.Windows.Forms.TextBox() + Me.tb_wordwidth = New System.Windows.Forms.TextBox() + Me.tb_foncol = New System.Windows.Forms.TextBox() + Me.TB_FONTNAME = New System.Windows.Forms.TextBox() + Me.tb_top = New System.Windows.Forms.TextBox() + Me.tb_left = New System.Windows.Forms.TextBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button12 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + Me.Button10 = New System.Windows.Forms.Button() + Me.cb_bold = New System.Windows.Forms.CheckBox() + Me.cmb_style = New System.Windows.Forms.ComboBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.bt_print = New System.Windows.Forms.ToolStripSplitButton() + Me.bt_prnpreview = New System.Windows.Forms.ToolStripMenuItem() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.cb_m = New System.Windows.Forms.CheckBox() + Me.cb_b = New System.Windows.Forms.CheckBox() + Me.cb_a = New System.Windows.Forms.CheckBox() + Me.cb_lf = New System.Windows.Forms.CheckBox() + Me.cb_lu = New System.Windows.Forms.CheckBox() + Me.cb_gojang = New System.Windows.Forms.CheckBox() + Me.cb_w = New System.Windows.Forms.CheckBox() + Me.cb_v = New System.Windows.Forms.CheckBox() + Me.cb_t = New System.Windows.Forms.CheckBox() + Me.cb_r = New System.Windows.Forms.CheckBox() + Me.chk_draw = New System.Windows.Forms.CheckBox() + Me.cb_p = New System.Windows.Forms.CheckBox() + Me.cb_k = New System.Windows.Forms.CheckBox() + Me.cb_i = New System.Windows.Forms.CheckBox() + Me.cb_f = New System.Windows.Forms.CheckBox() + Me.cb_e = New System.Windows.Forms.CheckBox() + Me.cb_d = New System.Windows.Forms.CheckBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.tb_pagerepeat = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmb_dummy = New System.Windows.Forms.ComboBox() + Me.tb_secX = New System.Windows.Forms.TextBox() + Me.tb_secY = New System.Windows.Forms.TextBox() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.Label24 = New System.Windows.Forms.Label() + Me.tb_scalex = New System.Windows.Forms.TextBox() + Me.tb_scaley = New System.Windows.Forms.TextBox() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.Label26 = New System.Windows.Forms.Label() + Me.tb_marginx = New System.Windows.Forms.TextBox() + Me.tb_marginy = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.tb_bakh = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.tb_bakw = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.tb_baky = New System.Windows.Forms.TextBox() + Me.tb_bakx = New System.Windows.Forms.TextBox() + Me.bakimg = New System.Windows.Forms.PictureBox() + Me.GroupBox8 = New System.Windows.Forms.GroupBox() + Me.Chk_BgImageprint = New System.Windows.Forms.CheckBox() + Me.chk_DisplayBG = New System.Windows.Forms.CheckBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.tb_picfile = New System.Windows.Forms.TextBox() + Me.GroupBox7 = New System.Windows.Forms.GroupBox() + Me.tb_myfontsize = New System.Windows.Forms.TextBox() + Me.cmb_bigo1 = New System.Windows.Forms.ComboBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.cmb_landscape = New System.Windows.Forms.ComboBox() + Me.cb_j = New System.Windows.Forms.CheckBox() + Me.cb_h = New System.Windows.Forms.CheckBox() + Me.cb_y = New System.Windows.Forms.CheckBox() + Me.cb_n = New System.Windows.Forms.CheckBox() + Me.cb_u = New System.Windows.Forms.CheckBox() + Me.cb_g = New System.Windows.Forms.CheckBox() + Me.cb_c = New System.Windows.Forms.CheckBox() + Me.cb_x = New System.Windows.Forms.CheckBox() + Me.cb_l = New System.Windows.Forms.CheckBox() + Me.cb_s = New System.Windows.Forms.CheckBox() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.dataview = New MyControlOLEDBv2.MyFpoint() + Me.dataview_Sheet1 = New FarPoint.Win.Spread.SheetView() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.gojang = New System.Windows.Forms.TextBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Label6 = New System.Windows.Forms.Label() + Me.tb_dw = New System.Windows.Forms.TextBox() + Me.tb_dh = New System.Windows.Forms.TextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.Label3 = New System.Windows.Forms.Label() + Me.tb_dy = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.tb_pensize = New System.Windows.Forms.TextBox() + Me.tb_dx = New System.Windows.Forms.TextBox() + Me.bt_pencolor = New System.Windows.Forms.Button() + Me.Button15 = New System.Windows.Forms.Button() + Me.Button13 = New System.Windows.Forms.Button() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.Label29 = New System.Windows.Forms.Label() + Me.home4 = New System.Windows.Forms.TextBox() + Me.home3 = New System.Windows.Forms.TextBox() + Me.home2 = New System.Windows.Forms.TextBox() + Me.home1 = New System.Windows.Forms.TextBox() + Me.cboCorrectionLevel = New System.Windows.Forms.TextBox() + Me.cboVersion = New System.Windows.Forms.TextBox() + Me.cboEncoding = New System.Windows.Forms.TextBox() + Me.Label30 = New System.Windows.Forms.Label() + Me.Label31 = New System.Windows.Forms.Label() + Me.Label32 = New System.Windows.Forms.Label() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.Label36 = New System.Windows.Forms.Label() + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton() + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.textbox1 = New System.Windows.Forms.ToolStripTextBox() + Me.textbox2 = New System.Windows.Forms.ToolStripTextBox() + Me.bt_chkpattern = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton() + Me.yoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.fyripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.dfgdfoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.선로명변압ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_savenum = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_c = New System.Windows.Forms.ToolStripMenuItem() + Me.pbt_y = New System.Windows.Forms.ToolStripMenuItem() + Me.제조회사ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.제조년월ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.관리구AToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.전산화번호AToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator() + Me.bt_kwnb = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_kawnbus = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_nuha = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_sw = New System.Windows.Forms.ToolStripMenuItem() + Me.bt_byun = New System.Windows.Forms.ToolStripMenuItem() + Me.선로명변압기명ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.선로명기기번호ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.combobox5 = New System.Windows.Forms.ToolStripComboBox() + Me.lbQrFG = New System.Windows.Forms.Panel() + Me.lbQrBg = New System.Windows.Forms.Panel() + Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.Label28 = New System.Windows.Forms.Label() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox8.SuspendLayout() + Me.GroupBox7.SuspendLayout() + Me.GroupBox1.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.dataview, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage6.SuspendLayout() + Me.TabPage7.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 584) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(586, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage5) + Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) + Me.TabControl1.Location = New System.Drawing.Point(303, 34) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(279, 519) + Me.TabControl1.TabIndex = 10 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.GroupBox3) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.cmb_style) + Me.TabPage1.Controls.Add(Me.ToolStrip2) + 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(271, 493) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "일반조정" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.rad_repeat) + Me.GroupBox3.Controls.Add(Me.RadioButton1) + Me.GroupBox3.Controls.Add(Me.RadioButton2) + Me.GroupBox3.Controls.Add(Me.RadioButton3) + Me.GroupBox3.Controls.Add(Me.tb_printrange) + Me.GroupBox3.Location = New System.Drawing.Point(6, 361) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(245, 77) + Me.GroupBox3.TabIndex = 47 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "인쇄설정 및 배경" + ' + 'rad_repeat + ' + Me.rad_repeat.AutoSize = True + Me.rad_repeat.Location = New System.Drawing.Point(189, 21) + Me.rad_repeat.Name = "rad_repeat" + Me.rad_repeat.Size = New System.Drawing.Size(47, 16) + Me.rad_repeat.TabIndex = 7 + Me.rad_repeat.TabStop = True + Me.rad_repeat.Text = "반복" + Me.ToolTip1.SetToolTip(Me.rad_repeat, "gfds") + Me.rad_repeat.UseVisualStyleBackColor = True + ' + 'RadioButton1 + ' + Me.RadioButton1.AutoSize = True + Me.RadioButton1.Location = New System.Drawing.Point(8, 21) + Me.RadioButton1.Name = "RadioButton1" + Me.RadioButton1.Size = New System.Drawing.Size(83, 16) + Me.RadioButton1.TabIndex = 2 + Me.RadioButton1.TabStop = True + Me.RadioButton1.Text = "모든페이지" + Me.RadioButton1.UseVisualStyleBackColor = True + ' + 'RadioButton2 + ' + Me.RadioButton2.AutoSize = True + Me.RadioButton2.Checked = True + Me.RadioButton2.Location = New System.Drawing.Point(97, 21) + Me.RadioButton2.Name = "RadioButton2" + Me.RadioButton2.Size = New System.Drawing.Size(83, 16) + Me.RadioButton2.TabIndex = 3 + Me.RadioButton2.TabStop = True + Me.RadioButton2.Text = "현재페이지" + Me.RadioButton2.UseVisualStyleBackColor = True + ' + 'RadioButton3 + ' + Me.RadioButton3.AutoSize = True + Me.RadioButton3.Location = New System.Drawing.Point(8, 43) + Me.RadioButton3.Name = "RadioButton3" + Me.RadioButton3.Size = New System.Drawing.Size(47, 16) + Me.RadioButton3.TabIndex = 4 + Me.RadioButton3.TabStop = True + Me.RadioButton3.Text = "범위" + Me.ToolTip1.SetToolTip(Me.RadioButton3, "gfds") + Me.RadioButton3.UseVisualStyleBackColor = True + ' + 'tb_printrange + ' + Me.tb_printrange.BackColor = System.Drawing.Color.LightGoldenrodYellow + Me.tb_printrange.Location = New System.Drawing.Point(55, 42) + Me.tb_printrange.Name = "tb_printrange" + Me.tb_printrange.Size = New System.Drawing.Size(124, 21) + Me.tb_printrange.TabIndex = 5 + Me.tb_printrange.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_printrange, "해당 범위를 이곳에 입력하세요") + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.cb_visible) + Me.GroupBox2.Controls.Add(Me.Button14) + Me.GroupBox2.Controls.Add(Me.Button8) + Me.GroupBox2.Controls.Add(Me.cmb_sep) + Me.GroupBox2.Controls.Add(Me.cmb_controls) + Me.GroupBox2.Controls.Add(Me.lb_sel) + Me.GroupBox2.Controls.Add(Me.Button4) + Me.GroupBox2.Controls.Add(Me.Button1) + Me.GroupBox2.Controls.Add(Me.tb_space) + Me.GroupBox2.Controls.Add(Me.tb_fsize) + Me.GroupBox2.Controls.Add(Me.tb_wordheight) + Me.GroupBox2.Controls.Add(Me.tb_wordwidth) + Me.GroupBox2.Controls.Add(Me.tb_foncol) + Me.GroupBox2.Controls.Add(Me.TB_FONTNAME) + Me.GroupBox2.Controls.Add(Me.tb_top) + Me.GroupBox2.Controls.Add(Me.tb_left) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.Button12) + Me.GroupBox2.Controls.Add(Me.Button9) + Me.GroupBox2.Controls.Add(Me.Button5) + Me.GroupBox2.Controls.Add(Me.Button11) + Me.GroupBox2.Controls.Add(Me.Button10) + Me.GroupBox2.Controls.Add(Me.cb_bold) + Me.GroupBox2.Enabled = False + Me.GroupBox2.Location = New System.Drawing.Point(6, 165) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(245, 190) + Me.GroupBox2.TabIndex = 31 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "위치/크기/글꼴" + Me.ToolTip1.SetToolTip(Me.GroupBox2, "선택된 개체의 위치를 변경합니다.") + ' + 'cb_visible + ' + Me.cb_visible.AutoSize = True + Me.cb_visible.Location = New System.Drawing.Point(163, 97) + Me.cb_visible.Name = "cb_visible" + Me.cb_visible.Size = New System.Drawing.Size(66, 16) + Me.cb_visible.TabIndex = 66 + Me.cb_visible.Text = "표시(&D)" + Me.ToolTip1.SetToolTip(Me.cb_visible, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_visible.UseVisualStyleBackColor = True + ' + 'Button14 + ' + Me.Button14.Location = New System.Drawing.Point(90, 166) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(145, 24) + Me.Button14.TabIndex = 65 + Me.Button14.Text = "관리구5번 저장(변압기)" + Me.Button14.UseVisualStyleBackColor = True + ' + 'Button8 + ' + Me.Button8.Location = New System.Drawing.Point(90, 143) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 24) + Me.Button8.TabIndex = 51 + Me.Button8.Text = "관리구5번 저장" + Me.Button8.UseVisualStyleBackColor = True + ' + 'cmb_sep + ' + Me.cmb_sep.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_sep.FormattingEnabled = True + Me.cmb_sep.Items.AddRange(New Object() {"혼합", "분리", "통합"}) + Me.cmb_sep.Location = New System.Drawing.Point(10, 146) + Me.cmb_sep.Name = "cmb_sep" + Me.cmb_sep.Size = New System.Drawing.Size(74, 20) + Me.cmb_sep.TabIndex = 64 + Me.ToolTip1.SetToolTip(Me.cmb_sep, "전주번호 표시형태를 선택하세요") + ' + 'cmb_controls + ' + Me.cmb_controls.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_controls.FormattingEnabled = True + Me.cmb_controls.Location = New System.Drawing.Point(62, 19) + Me.cmb_controls.Name = "cmb_controls" + Me.cmb_controls.Size = New System.Drawing.Size(173, 20) + Me.cmb_controls.TabIndex = 44 + Me.ToolTip1.SetToolTip(Me.cmb_controls, "선택가능한 개체목록을 볼 수 잇습니다. 화면에 보이지 않는 개체도 선택이 가능합니다") + ' + 'lb_sel + ' + Me.lb_sel.AutoSize = True + Me.lb_sel.Location = New System.Drawing.Point(8, 23) + Me.lb_sel.Name = "lb_sel" + Me.lb_sel.Size = New System.Drawing.Size(53, 12) + Me.lb_sel.TabIndex = 19 + Me.lb_sel.Text = "개체선택" + ' + 'Button4 + ' + Me.Button4.Location = New System.Drawing.Point(11, 120) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(73, 23) + Me.Button4.TabIndex = 63 + Me.Button4.Text = "▼(&F)" + Me.ToolTip1.SetToolTip(Me.Button4, "처음선택한 글꼴로 모두 변경합니다") + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(10, 98) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(74, 23) + Me.Button1.TabIndex = 62 + Me.Button1.Text = "글꼴변경" + Me.ToolTip1.SetToolTip(Me.Button1, "클릭시 선택된 개체들을 글꼴을 변경 할 수 있습니다") + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_space + ' + Me.tb_space.Location = New System.Drawing.Point(202, 66) + Me.tb_space.Name = "tb_space" + Me.tb_space.Size = New System.Drawing.Size(34, 21) + Me.tb_space.TabIndex = 60 + ' + 'tb_fsize + ' + Me.tb_fsize.Location = New System.Drawing.Point(202, 43) + Me.tb_fsize.Name = "tb_fsize" + Me.tb_fsize.Size = New System.Drawing.Size(34, 21) + Me.tb_fsize.TabIndex = 59 + ' + 'tb_wordheight + ' + Me.tb_wordheight.Location = New System.Drawing.Point(124, 67) + Me.tb_wordheight.Name = "tb_wordheight" + Me.tb_wordheight.Size = New System.Drawing.Size(34, 21) + Me.tb_wordheight.TabIndex = 58 + ' + 'tb_wordwidth + ' + Me.tb_wordwidth.Location = New System.Drawing.Point(124, 44) + Me.tb_wordwidth.Name = "tb_wordwidth" + Me.tb_wordwidth.Size = New System.Drawing.Size(34, 21) + Me.tb_wordwidth.TabIndex = 57 + ' + 'tb_foncol + ' + Me.tb_foncol.BackColor = System.Drawing.Color.DimGray + Me.tb_foncol.Location = New System.Drawing.Point(212, 118) + Me.tb_foncol.Name = "tb_foncol" + Me.tb_foncol.Size = New System.Drawing.Size(23, 21) + Me.tb_foncol.TabIndex = 21 + Me.tb_foncol.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_foncol, "글자색을 나타냅니다. 더블클릭시 변경가능합니다.") + ' + 'TB_FONTNAME + ' + Me.TB_FONTNAME.BackColor = System.Drawing.Color.DimGray + Me.TB_FONTNAME.ForeColor = System.Drawing.Color.White + Me.TB_FONTNAME.Location = New System.Drawing.Point(90, 118) + Me.TB_FONTNAME.Name = "TB_FONTNAME" + Me.TB_FONTNAME.ReadOnly = True + Me.TB_FONTNAME.Size = New System.Drawing.Size(120, 21) + Me.TB_FONTNAME.TabIndex = 45 + Me.TB_FONTNAME.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.TB_FONTNAME, "글꼴이름을 나타냅니다") + ' + 'tb_top + ' + Me.tb_top.Location = New System.Drawing.Point(48, 68) + Me.tb_top.Name = "tb_top" + Me.tb_top.Size = New System.Drawing.Size(34, 21) + Me.tb_top.TabIndex = 56 + ' + 'tb_left + ' + Me.tb_left.Location = New System.Drawing.Point(48, 45) + Me.tb_left.Name = "tb_left" + Me.tb_left.Size = New System.Drawing.Size(34, 21) + Me.tb_left.TabIndex = 55 + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(164, 65) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(37, 23) + Me.Button3.TabIndex = 54 + Me.Button3.Text = "공백" + Me.Button3.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.Location = New System.Drawing.Point(164, 42) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(37, 23) + Me.Button12.TabIndex = 49 + Me.Button12.Text = "크기" + Me.Button12.UseVisualStyleBackColor = True + ' + 'Button9 + ' + Me.Button9.Location = New System.Drawing.Point(10, 67) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(37, 23) + Me.Button9.TabIndex = 46 + Me.Button9.Text = "Y" + Me.Button9.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Location = New System.Drawing.Point(10, 44) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(37, 23) + Me.Button5.TabIndex = 45 + Me.Button5.Text = "X" + Me.Button5.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(86, 66) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(37, 23) + Me.Button11.TabIndex = 48 + Me.Button11.Text = "높이" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Button10 + ' + Me.Button10.Location = New System.Drawing.Point(86, 43) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(37, 23) + Me.Button10.TabIndex = 47 + Me.Button10.Text = "너비" + Me.Button10.UseVisualStyleBackColor = True + ' + 'cb_bold + ' + Me.cb_bold.AutoSize = True + Me.cb_bold.Location = New System.Drawing.Point(90, 98) + Me.cb_bold.Name = "cb_bold" + Me.cb_bold.Size = New System.Drawing.Size(66, 16) + Me.cb_bold.TabIndex = 42 + Me.cb_bold.Text = "굵게(&B)" + Me.ToolTip1.SetToolTip(Me.cb_bold, "선택된 개체들의 글꼴을 [굵게] 로 설정합니다") + Me.cb_bold.UseVisualStyleBackColor = True + ' + 'cmb_style + ' + Me.cmb_style.ContextMenuStrip = Me.ContextMenuStrip1 + Me.cmb_style.DropDownHeight = 200 + Me.cmb_style.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple + Me.cmb_style.FormattingEnabled = True + Me.cmb_style.ImeMode = System.Windows.Forms.ImeMode.Hangul + Me.cmb_style.IntegralHeight = False + Me.cmb_style.Location = New System.Drawing.Point(6, 6) + Me.cmb_style.Name = "cmb_style" + Me.cmb_style.Size = New System.Drawing.Size(259, 153) + Me.cmb_style.TabIndex = 18 + Me.ToolTip1.SetToolTip(Me.cmb_style, "기본스타일을 선택하세요!") + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'ToolStrip2 + ' + Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None + Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_print}) + Me.ToolStrip2.Location = New System.Drawing.Point(3, 445) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(122, 39) + Me.ToolStrip2.TabIndex = 16 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'bt_print + ' + Me.bt_print.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_prnpreview}) + Me.bt_print.ForeColor = System.Drawing.Color.MediumBlue + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_32 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(110, 36) + Me.bt_print.Text = "인쇄(F7,&P)" + Me.bt_print.ToolTipText = "설정된 프린트 조건에 따라서 출력물을 프린터로 출력합니다" + ' + 'bt_prnpreview + ' + Me.bt_prnpreview.Name = "bt_prnpreview" + Me.bt_prnpreview.Size = New System.Drawing.Size(143, 22) + Me.bt_prnpreview.Text = "미리보기(F8)" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.cb_m) + Me.TabPage3.Controls.Add(Me.cb_b) + Me.TabPage3.Controls.Add(Me.cb_a) + Me.TabPage3.Controls.Add(Me.cb_lf) + Me.TabPage3.Controls.Add(Me.cb_lu) + Me.TabPage3.Controls.Add(Me.cb_gojang) + Me.TabPage3.Controls.Add(Me.cb_w) + Me.TabPage3.Controls.Add(Me.cb_v) + Me.TabPage3.Controls.Add(Me.cb_t) + Me.TabPage3.Controls.Add(Me.cb_r) + Me.TabPage3.Controls.Add(Me.chk_draw) + Me.TabPage3.Controls.Add(Me.cb_p) + Me.TabPage3.Controls.Add(Me.cb_k) + Me.TabPage3.Controls.Add(Me.cb_i) + Me.TabPage3.Controls.Add(Me.cb_f) + Me.TabPage3.Controls.Add(Me.cb_e) + Me.TabPage3.Controls.Add(Me.cb_d) + Me.TabPage3.Controls.Add(Me.TabControl2) + Me.TabPage3.Controls.Add(Me.cmb_bigo1) + Me.TabPage3.Controls.Add(Me.GroupBox1) + Me.TabPage3.Controls.Add(Me.cb_j) + Me.TabPage3.Controls.Add(Me.cb_h) + Me.TabPage3.Controls.Add(Me.cb_y) + Me.TabPage3.Controls.Add(Me.cb_n) + Me.TabPage3.Controls.Add(Me.cb_u) + Me.TabPage3.Controls.Add(Me.cb_g) + Me.TabPage3.Controls.Add(Me.cb_c) + Me.TabPage3.Controls.Add(Me.cb_x) + Me.TabPage3.Controls.Add(Me.cb_l) + Me.TabPage3.Controls.Add(Me.cb_s) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(271, 493) + Me.TabPage3.TabIndex = 1 + Me.TabPage3.Text = "세부조정" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'cb_m + ' + Me.cb_m.AutoSize = True + Me.cb_m.Location = New System.Drawing.Point(193, 152) + Me.cb_m.Name = "cb_m" + Me.cb_m.Size = New System.Drawing.Size(72, 16) + Me.cb_m.TabIndex = 75 + Me.cb_m.Tag = "M" + Me.cb_m.Text = "제조년월" + Me.cb_m.UseVisualStyleBackColor = True + ' + 'cb_b + ' + Me.cb_b.AutoSize = True + Me.cb_b.Location = New System.Drawing.Point(193, 136) + Me.cb_b.Name = "cb_b" + Me.cb_b.Size = New System.Drawing.Size(72, 16) + Me.cb_b.TabIndex = 74 + Me.cb_b.Tag = "B" + Me.cb_b.Text = "제조회사" + Me.cb_b.UseVisualStyleBackColor = True + ' + 'cb_a + ' + Me.cb_a.AutoSize = True + Me.cb_a.Location = New System.Drawing.Point(133, 232) + Me.cb_a.Name = "cb_a" + Me.cb_a.Size = New System.Drawing.Size(94, 16) + Me.cb_a.TabIndex = 73 + Me.cb_a.Tag = "A" + Me.cb_a.Text = "선로명(변압)" + Me.cb_a.UseVisualStyleBackColor = True + ' + 'cb_lf + ' + Me.cb_lf.AutoSize = True + Me.cb_lf.Location = New System.Drawing.Point(133, 216) + Me.cb_lf.Name = "cb_lf" + Me.cb_lf.Size = New System.Drawing.Size(112, 16) + Me.cb_lf.TabIndex = 72 + Me.cb_lf.Tag = "LF" + Me.cb_lf.Text = "선로+번호(변압)" + Me.cb_lf.UseVisualStyleBackColor = True + ' + 'cb_lu + ' + Me.cb_lu.AutoSize = True + Me.cb_lu.Location = New System.Drawing.Point(15, 209) + Me.cb_lu.Name = "cb_lu" + Me.cb_lu.Size = New System.Drawing.Size(112, 16) + Me.cb_lu.TabIndex = 71 + Me.cb_lu.Tag = "LU" + Me.cb_lu.Text = "선로+번호(기기)" + Me.cb_lu.UseVisualStyleBackColor = True + ' + 'cb_gojang + ' + Me.cb_gojang.AutoSize = True + Me.cb_gojang.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cb_gojang.Location = New System.Drawing.Point(195, 89) + Me.cb_gojang.Name = "cb_gojang" + Me.cb_gojang.Size = New System.Drawing.Size(76, 16) + Me.cb_gojang.TabIndex = 70 + Me.cb_gojang.Tag = "Z" + Me.cb_gojang.Text = "고장신고" + Me.cb_gojang.UseVisualStyleBackColor = True + ' + 'cb_w + ' + Me.cb_w.AutoSize = True + Me.cb_w.Location = New System.Drawing.Point(132, 200) + Me.cb_w.Name = "cb_w" + Me.cb_w.Size = New System.Drawing.Size(112, 16) + Me.cb_w.TabIndex = 69 + Me.cb_w.Tag = "W" + Me.cb_w.Text = "문자(시공년월II)" + Me.cb_w.UseVisualStyleBackColor = True + ' + 'cb_v + ' + Me.cb_v.AutoSize = True + Me.cb_v.Location = New System.Drawing.Point(132, 184) + Me.cb_v.Name = "cb_v" + Me.cb_v.Size = New System.Drawing.Size(106, 16) + Me.cb_v.TabIndex = 68 + Me.cb_v.Tag = "V" + Me.cb_v.Text = "문자(시공년월)" + Me.cb_v.UseVisualStyleBackColor = True + ' + 'cb_t + ' + Me.cb_t.AutoSize = True + Me.cb_t.Location = New System.Drawing.Point(15, 191) + Me.cb_t.Name = "cb_t" + Me.cb_t.Size = New System.Drawing.Size(112, 16) + Me.cb_t.TabIndex = 67 + Me.cb_t.Tag = "T" + Me.cb_t.Text = "문자(시공업체II)" + Me.cb_t.UseVisualStyleBackColor = True + ' + 'cb_r + ' + Me.cb_r.AutoSize = True + Me.cb_r.Location = New System.Drawing.Point(15, 173) + Me.cb_r.Name = "cb_r" + Me.cb_r.Size = New System.Drawing.Size(106, 16) + Me.cb_r.TabIndex = 66 + Me.cb_r.Tag = "R" + Me.cb_r.Text = "문자(시공업체)" + Me.cb_r.UseVisualStyleBackColor = True + ' + 'chk_draw + ' + Me.chk_draw.AutoSize = True + Me.chk_draw.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.chk_draw.Location = New System.Drawing.Point(195, 111) + Me.chk_draw.Name = "chk_draw" + Me.chk_draw.Size = New System.Drawing.Size(65, 19) + Me.chk_draw.TabIndex = 65 + Me.chk_draw.Tag = "ZZ" + Me.chk_draw.Text = "선,도형" + Me.chk_draw.UseVisualStyleBackColor = True + ' + 'cb_p + ' + Me.cb_p.AutoSize = True + Me.cb_p.ForeColor = System.Drawing.Color.Blue + Me.cb_p.Location = New System.Drawing.Point(131, 169) + Me.cb_p.Name = "cb_p" + Me.cb_p.Size = New System.Drawing.Size(118, 16) + Me.cb_p.TabIndex = 64 + Me.cb_p.Tag = "E" + Me.cb_p.Text = "관리전산번호(변)" + Me.cb_p.UseVisualStyleBackColor = True + ' + 'cb_k + ' + Me.cb_k.AutoSize = True + Me.cb_k.ForeColor = System.Drawing.Color.Blue + Me.cb_k.Location = New System.Drawing.Point(106, 153) + Me.cb_k.Name = "cb_k" + Me.cb_k.Size = New System.Drawing.Size(60, 16) + Me.cb_k.TabIndex = 61 + Me.cb_k.Tag = "K" + Me.cb_k.Text = "부하측" + Me.cb_k.UseVisualStyleBackColor = True + ' + 'cb_i + ' + Me.cb_i.AutoSize = True + Me.cb_i.ForeColor = System.Drawing.Color.Blue + Me.cb_i.Location = New System.Drawing.Point(106, 137) + Me.cb_i.Name = "cb_i" + Me.cb_i.Size = New System.Drawing.Size(60, 16) + Me.cb_i.TabIndex = 60 + Me.cb_i.Tag = "I" + Me.cb_i.Text = "전원측" + Me.cb_i.UseVisualStyleBackColor = True + ' + 'cb_f + ' + Me.cb_f.AutoSize = True + Me.cb_f.ForeColor = System.Drawing.Color.Blue + Me.cb_f.Location = New System.Drawing.Point(15, 155) + Me.cb_f.Name = "cb_f" + Me.cb_f.Size = New System.Drawing.Size(72, 16) + Me.cb_f.TabIndex = 59 + Me.cb_f.Tag = "F" + Me.cb_f.Text = "변압기명" + Me.cb_f.UseVisualStyleBackColor = True + ' + 'cb_e + ' + Me.cb_e.AutoSize = True + Me.cb_e.ForeColor = System.Drawing.Color.Blue + Me.cb_e.Location = New System.Drawing.Point(15, 137) + Me.cb_e.Name = "cb_e" + Me.cb_e.Size = New System.Drawing.Size(94, 16) + Me.cb_e.TabIndex = 58 + Me.cb_e.Tag = "E" + Me.cb_e.Text = "전산번호(변)" + Me.cb_e.UseVisualStyleBackColor = True + ' + 'cb_d + ' + Me.cb_d.AutoSize = True + Me.cb_d.ForeColor = System.Drawing.Color.Blue + Me.cb_d.Location = New System.Drawing.Point(15, 119) + Me.cb_d.Name = "cb_d" + Me.cb_d.Size = New System.Drawing.Size(82, 16) + Me.cb_d.TabIndex = 57 + Me.cb_d.Tag = "D" + Me.cb_d.Text = "관리구(변)" + Me.cb_d.UseVisualStyleBackColor = True + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Controls.Add(Me.TabPage4) + Me.TabControl2.Location = New System.Drawing.Point(12, 246) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(239, 219) + Me.TabControl2.TabIndex = 56 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.GroupBox6) + Me.TabPage2.Controls.Add(Me.GroupBox4) + Me.TabPage2.Controls.Add(Me.GroupBox5) + 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(231, 193) + Me.TabPage2.TabIndex = 0 + Me.TabPage2.Text = "기본설정" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox6 + ' + Me.GroupBox6.Controls.Add(Me.tb_pagerepeat) + Me.GroupBox6.Controls.Add(Me.Label2) + Me.GroupBox6.Controls.Add(Me.Label22) + Me.GroupBox6.Controls.Add(Me.cmb_dummy) + Me.GroupBox6.Controls.Add(Me.tb_secX) + Me.GroupBox6.Controls.Add(Me.tb_secY) + Me.GroupBox6.Location = New System.Drawing.Point(7, 94) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(218, 65) + Me.GroupBox6.TabIndex = 51 + Me.GroupBox6.TabStop = False + Me.GroupBox6.Text = "페이지당 출력횟수" + ' + 'tb_pagerepeat + ' + Me.tb_pagerepeat.Location = New System.Drawing.Point(12, 17) + Me.tb_pagerepeat.Name = "tb_pagerepeat" + Me.tb_pagerepeat.Size = New System.Drawing.Size(20, 21) + Me.tb_pagerepeat.TabIndex = 38 + Me.tb_pagerepeat.Text = "1" + Me.tb_pagerepeat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(14, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 12) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "가로거리" + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Location = New System.Drawing.Point(117, 42) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(53, 12) + Me.Label22.TabIndex = 35 + Me.Label22.Text = "세로거리" + ' + 'cmb_dummy + ' + Me.cmb_dummy.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_dummy.FormattingEnabled = True + Me.cmb_dummy.Items.AddRange(New Object() {"같은데이터를 출력", "다음데이터를 출력"}) + Me.cmb_dummy.Location = New System.Drawing.Point(37, 17) + Me.cmb_dummy.Name = "cmb_dummy" + Me.cmb_dummy.Size = New System.Drawing.Size(169, 20) + Me.cmb_dummy.TabIndex = 33 + ' + 'tb_secX + ' + Me.tb_secX.Location = New System.Drawing.Point(73, 39) + Me.tb_secX.Name = "tb_secX" + Me.tb_secX.Size = New System.Drawing.Size(27, 21) + Me.tb_secX.TabIndex = 31 + Me.tb_secX.Text = "0" + Me.tb_secX.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secX, "2번째장의 위치 X 의 변위값입니다") + ' + 'tb_secY + ' + Me.tb_secY.Location = New System.Drawing.Point(176, 39) + Me.tb_secY.Name = "tb_secY" + Me.tb_secY.Size = New System.Drawing.Size(25, 21) + Me.tb_secY.TabIndex = 32 + Me.tb_secY.Text = "50" + Me.tb_secY.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_secY, "종이의 윗쪽 여백입니다") + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.Label23) + Me.GroupBox4.Controls.Add(Me.Label24) + Me.GroupBox4.Controls.Add(Me.tb_scalex) + Me.GroupBox4.Controls.Add(Me.tb_scaley) + Me.GroupBox4.Location = New System.Drawing.Point(6, 47) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(219, 43) + Me.GroupBox4.TabIndex = 49 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "확대/축소비율" + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(80, 19) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(29, 12) + Me.Label23.TabIndex = 44 + Me.Label23.Text = "세로" + ' + 'Label24 + ' + Me.Label24.AutoSize = True + Me.Label24.Location = New System.Drawing.Point(10, 20) + Me.Label24.Name = "Label24" + Me.Label24.Size = New System.Drawing.Size(29, 12) + Me.Label24.TabIndex = 43 + Me.Label24.Text = "가로" + ' + 'tb_scalex + ' + Me.tb_scalex.Location = New System.Drawing.Point(45, 16) + Me.tb_scalex.Name = "tb_scalex" + Me.tb_scalex.Size = New System.Drawing.Size(27, 21) + Me.tb_scalex.TabIndex = 26 + Me.tb_scalex.Text = "1" + Me.tb_scalex.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scalex, "인쇄시 가로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'tb_scaley + ' + Me.tb_scaley.Location = New System.Drawing.Point(114, 16) + Me.tb_scaley.Name = "tb_scaley" + Me.tb_scaley.Size = New System.Drawing.Size(27, 21) + Me.tb_scaley.TabIndex = 28 + Me.tb_scaley.Text = "1" + Me.tb_scaley.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_scaley, "인쇄시 세로 확대/축소 배율입니다. 1은 기본을 의미합니다") + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.Label25) + Me.GroupBox5.Controls.Add(Me.Label26) + Me.GroupBox5.Controls.Add(Me.tb_marginx) + Me.GroupBox5.Controls.Add(Me.tb_marginy) + Me.GroupBox5.Location = New System.Drawing.Point(6, 6) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(219, 38) + Me.GroupBox5.TabIndex = 49 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "인쇄여백" + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Location = New System.Drawing.Point(81, 17) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(29, 12) + Me.Label25.TabIndex = 41 + Me.Label25.Text = "세로" + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(11, 18) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(29, 12) + Me.Label26.TabIndex = 40 + Me.Label26.Text = "가로" + ' + 'tb_marginx + ' + Me.tb_marginx.Location = New System.Drawing.Point(46, 15) + Me.tb_marginx.Name = "tb_marginx" + Me.tb_marginx.Size = New System.Drawing.Size(26, 21) + Me.tb_marginx.TabIndex = 14 + Me.tb_marginx.Text = "1" + Me.tb_marginx.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginx, "종이의 왼쪽 여백입니다") + ' + 'tb_marginy + ' + Me.tb_marginy.Location = New System.Drawing.Point(116, 14) + Me.tb_marginy.Name = "tb_marginy" + Me.tb_marginy.Size = New System.Drawing.Size(26, 21) + Me.tb_marginy.TabIndex = 16 + Me.tb_marginy.Text = "1" + Me.tb_marginy.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_marginy, "종이의 윗쪽 여백입니다") + ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.tb_bakh) + Me.TabPage4.Controls.Add(Me.Label1) + Me.TabPage4.Controls.Add(Me.tb_bakw) + Me.TabPage4.Controls.Add(Me.Label4) + Me.TabPage4.Controls.Add(Me.tb_baky) + Me.TabPage4.Controls.Add(Me.tb_bakx) + Me.TabPage4.Controls.Add(Me.bakimg) + Me.TabPage4.Controls.Add(Me.GroupBox8) + Me.TabPage4.Controls.Add(Me.GroupBox7) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(231, 193) + Me.TabPage4.TabIndex = 1 + Me.TabPage4.Text = "기타설정" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'tb_bakh + ' + Me.tb_bakh.Location = New System.Drawing.Point(194, 136) + Me.tb_bakh.Name = "tb_bakh" + Me.tb_bakh.Size = New System.Drawing.Size(32, 21) + Me.tb_bakh.TabIndex = 64 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(4, 139) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(39, 12) + Me.Label1.TabIndex = 59 + Me.Label1.Text = "(위치)" + ' + 'tb_bakw + ' + Me.tb_bakw.Location = New System.Drawing.Point(157, 136) + Me.tb_bakw.Name = "tb_bakw" + Me.tb_bakw.Size = New System.Drawing.Size(32, 21) + Me.tb_bakw.TabIndex = 63 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(113, 140) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(39, 12) + Me.Label4.TabIndex = 60 + Me.Label4.Text = "(크기)" + ' + 'tb_baky + ' + Me.tb_baky.Location = New System.Drawing.Point(85, 135) + Me.tb_baky.Name = "tb_baky" + Me.tb_baky.Size = New System.Drawing.Size(32, 21) + Me.tb_baky.TabIndex = 62 + ' + 'tb_bakx + ' + Me.tb_bakx.Location = New System.Drawing.Point(48, 135) + Me.tb_bakx.Name = "tb_bakx" + Me.tb_bakx.Size = New System.Drawing.Size(32, 21) + Me.tb_bakx.TabIndex = 61 + ' + 'bakimg + ' + Me.bakimg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.bakimg.Location = New System.Drawing.Point(8, 163) + Me.bakimg.Name = "bakimg" + Me.bakimg.Size = New System.Drawing.Size(218, 24) + Me.bakimg.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage + Me.bakimg.TabIndex = 53 + Me.bakimg.TabStop = False + ' + 'GroupBox8 + ' + Me.GroupBox8.Controls.Add(Me.Chk_BgImageprint) + Me.GroupBox8.Controls.Add(Me.chk_DisplayBG) + Me.GroupBox8.Controls.Add(Me.Label11) + Me.GroupBox8.Controls.Add(Me.tb_picfile) + Me.GroupBox8.Location = New System.Drawing.Point(7, 57) + Me.GroupBox8.Name = "GroupBox8" + Me.GroupBox8.Size = New System.Drawing.Size(219, 74) + Me.GroupBox8.TabIndex = 51 + Me.GroupBox8.TabStop = False + Me.GroupBox8.Text = "배경" + ' + 'Chk_BgImageprint + ' + Me.Chk_BgImageprint.AutoSize = True + Me.Chk_BgImageprint.Location = New System.Drawing.Point(58, 23) + Me.Chk_BgImageprint.Name = "Chk_BgImageprint" + Me.Chk_BgImageprint.Size = New System.Drawing.Size(72, 16) + Me.Chk_BgImageprint.TabIndex = 26 + Me.Chk_BgImageprint.Text = "배경출력" + Me.ToolTip1.SetToolTip(Me.Chk_BgImageprint, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.Chk_BgImageprint.UseVisualStyleBackColor = True + ' + 'chk_DisplayBG + ' + Me.chk_DisplayBG.AutoSize = True + Me.chk_DisplayBG.Location = New System.Drawing.Point(8, 24) + Me.chk_DisplayBG.Name = "chk_DisplayBG" + Me.chk_DisplayBG.Size = New System.Drawing.Size(48, 16) + Me.chk_DisplayBG.TabIndex = 9 + Me.chk_DisplayBG.Text = "표시" + Me.ToolTip1.SetToolTip(Me.chk_DisplayBG, "선택시에 지정된 그림파일명으로 배경이 설정됩니다") + Me.chk_DisplayBG.UseVisualStyleBackColor = True + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(146, 25) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(65, 12) + Me.Label11.TabIndex = 24 + Me.Label11.Text = "[배경찾기]" + Me.ToolTip1.SetToolTip(Me.Label11, "배경그림파일을 찾도록 도와줍니다") + ' + 'tb_picfile + ' + Me.tb_picfile.Location = New System.Drawing.Point(7, 46) + Me.tb_picfile.Name = "tb_picfile" + Me.tb_picfile.Size = New System.Drawing.Size(204, 21) + Me.tb_picfile.TabIndex = 23 + Me.tb_picfile.Text = "<기본그림>" + Me.ToolTip1.SetToolTip(Me.tb_picfile, "이곳에 배경그림파일명의 이름이 적힙니다!") + ' + 'GroupBox7 + ' + Me.GroupBox7.Controls.Add(Me.tb_myfontsize) + Me.GroupBox7.Location = New System.Drawing.Point(7, 6) + Me.GroupBox7.Name = "GroupBox7" + Me.GroupBox7.Size = New System.Drawing.Size(219, 49) + Me.GroupBox7.TabIndex = 51 + Me.GroupBox7.TabStop = False + Me.GroupBox7.Text = "글꼴크기변경" + ' + 'tb_myfontsize + ' + Me.tb_myfontsize.BackColor = System.Drawing.Color.LightGray + Me.tb_myfontsize.Location = New System.Drawing.Point(9, 18) + Me.tb_myfontsize.Name = "tb_myfontsize" + Me.tb_myfontsize.Size = New System.Drawing.Size(202, 21) + Me.tb_myfontsize.TabIndex = 24 + Me.tb_myfontsize.Text = "0" + Me.tb_myfontsize.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.ToolTip1.SetToolTip(Me.tb_myfontsize, "출력시 일괄적으로 적용될 글꼴크기의 변경값입니다 (0은 기본크기입니다)") + ' + 'cmb_bigo1 + ' + Me.cmb_bigo1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_bigo1.FormattingEnabled = True + Me.cmb_bigo1.Items.AddRange(New Object() {"원문", "지상변압기", "지상개폐기"}) + Me.cmb_bigo1.Location = New System.Drawing.Point(15, 43) + Me.cmb_bigo1.Name = "cmb_bigo1" + Me.cmb_bigo1.Size = New System.Drawing.Size(94, 20) + Me.cmb_bigo1.TabIndex = 48 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.cmb_landscape) + Me.GroupBox1.Location = New System.Drawing.Point(115, 8) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(147, 61) + Me.GroupBox1.TabIndex = 51 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "용지방향" + ' + 'cmb_landscape + ' + Me.cmb_landscape.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cmb_landscape.Font = New System.Drawing.Font("굴림", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.cmb_landscape.FormattingEnabled = True + Me.cmb_landscape.Items.AddRange(New Object() {"세로출력", "가로출력"}) + Me.cmb_landscape.Location = New System.Drawing.Point(17, 20) + Me.cmb_landscape.Name = "cmb_landscape" + Me.cmb_landscape.Size = New System.Drawing.Size(116, 29) + Me.cmb_landscape.TabIndex = 29 + Me.ToolTip1.SetToolTip(Me.cmb_landscape, "출력용지의 출력방향을 선택하세요!") + ' + 'cb_j + ' + Me.cb_j.AutoSize = True + Me.cb_j.Location = New System.Drawing.Point(106, 121) + Me.cb_j.Name = "cb_j" + Me.cb_j.Size = New System.Drawing.Size(102, 16) + Me.cb_j.TabIndex = 49 + Me.cb_j.Tag = "J" + Me.cb_j.Text = "기기형식/용량" + Me.cb_j.UseVisualStyleBackColor = True + ' + 'cb_h + ' + Me.cb_h.AutoSize = True + Me.cb_h.Location = New System.Drawing.Point(15, 65) + Me.cb_h.Name = "cb_h" + Me.cb_h.Size = New System.Drawing.Size(60, 16) + Me.cb_h.TabIndex = 0 + Me.cb_h.Tag = "H" + Me.cb_h.Text = "관리구" + Me.cb_h.UseVisualStyleBackColor = True + ' + 'cb_y + ' + Me.cb_y.AutoSize = True + Me.cb_y.Location = New System.Drawing.Point(106, 88) + Me.cb_y.Name = "cb_y" + Me.cb_y.Size = New System.Drawing.Size(72, 16) + Me.cb_y.TabIndex = 6 + Me.cb_y.Tag = "Y" + Me.cb_y.Text = "시공년월" + Me.cb_y.UseVisualStyleBackColor = True + ' + 'cb_n + ' + Me.cb_n.AutoSize = True + Me.cb_n.ForeColor = System.Drawing.Color.MediumBlue + Me.cb_n.Location = New System.Drawing.Point(15, 7) + Me.cb_n.Name = "cb_n" + Me.cb_n.Size = New System.Drawing.Size(72, 16) + Me.cb_n.TabIndex = 9 + Me.cb_n.Tag = "N" + Me.cb_n.Text = "일련번호" + Me.ToolTip1.SetToolTip(Me.cb_n, "선택시 화면에 [일련번호] 가 표시됩니다") + Me.cb_n.UseVisualStyleBackColor = True + ' + 'cb_u + ' + Me.cb_u.AutoSize = True + Me.cb_u.ForeColor = System.Drawing.Color.SeaGreen + Me.cb_u.Location = New System.Drawing.Point(195, 72) + Me.cb_u.Name = "cb_u" + Me.cb_u.Size = New System.Drawing.Size(60, 16) + Me.cb_u.TabIndex = 26 + Me.cb_u.Tag = "U" + Me.cb_u.Text = "기기명" + Me.ToolTip1.SetToolTip(Me.cb_u, "사용자 정의 문자열 입니다") + Me.cb_u.UseVisualStyleBackColor = True + ' + 'cb_g + ' + Me.cb_g.AutoSize = True + Me.cb_g.ForeColor = System.Drawing.Color.Black + Me.cb_g.Location = New System.Drawing.Point(15, 25) + Me.cb_g.Name = "cb_g" + Me.cb_g.Size = New System.Drawing.Size(72, 16) + Me.cb_g.TabIndex = 11 + Me.cb_g.Tag = "G" + Me.cb_g.Text = "관리전산" + Me.cb_g.UseVisualStyleBackColor = True + ' + 'cb_c + ' + Me.cb_c.AutoSize = True + Me.cb_c.Location = New System.Drawing.Point(106, 72) + Me.cb_c.Name = "cb_c" + Me.cb_c.Size = New System.Drawing.Size(72, 16) + Me.cb_c.TabIndex = 5 + Me.cb_c.Tag = "C" + Me.cb_c.Text = "시공업체" + Me.cb_c.UseVisualStyleBackColor = True + ' + 'cb_x + ' + Me.cb_x.AutoSize = True + Me.cb_x.Location = New System.Drawing.Point(15, 101) + Me.cb_x.Name = "cb_x" + Me.cb_x.Size = New System.Drawing.Size(72, 16) + Me.cb_x.TabIndex = 3 + Me.cb_x.Tag = "X" + Me.cb_x.Text = "전주번호" + Me.cb_x.UseVisualStyleBackColor = True + ' + 'cb_l + ' + Me.cb_l.AutoSize = True + Me.cb_l.Location = New System.Drawing.Point(15, 227) + Me.cb_l.Name = "cb_l" + Me.cb_l.Size = New System.Drawing.Size(94, 16) + Me.cb_l.TabIndex = 2 + Me.cb_l.Tag = "L" + Me.cb_l.Text = "선로명(기기)" + Me.cb_l.UseVisualStyleBackColor = True + ' + 'cb_s + ' + Me.cb_s.AutoSize = True + Me.cb_s.Location = New System.Drawing.Point(15, 83) + Me.cb_s.Name = "cb_s" + Me.cb_s.Size = New System.Drawing.Size(72, 16) + Me.cb_s.TabIndex = 1 + Me.cb_s.Tag = "S" + Me.cb_s.Text = "전산번호" + Me.cb_s.UseVisualStyleBackColor = True + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(Me.dataview) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Size = New System.Drawing.Size(271, 493) + Me.TabPage5.TabIndex = 2 + Me.TabPage5.Text = "데이터" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'dataview + ' + Me.dataview.AAutoAddrowInLast = Nothing + Me.dataview.AccessibleDescription = "dataview, Sheet1" + Me.dataview.AllowDragDrop = True + Me.dataview.AllowDragFill = True + Me.dataview.AllowUserFormulas = True + Me.dataview.BackColor = System.Drawing.SystemColors.Control + Me.dataview.CurrentDel = False + Me.dataview.DeleteKey = False + Me.dataview.Dock = System.Windows.Forms.DockStyle.Fill + Me.dataview.EditFromSpace = True + Me.dataview.EditModeReplace = True + Me.dataview.FIRST_FOCUSINDEX = 0 + Me.dataview.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.Location = New System.Drawing.Point(0, 0) + Me.dataview.Name = "dataview" + Me.dataview.NextRow_Index = -1 + Me.dataview.RetainSelectionBlock = False + Me.dataview.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.dataview.SameRowheight = True + Me.dataview.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.dataview_Sheet1}) + Me.dataview.Size = New System.Drawing.Size(271, 493) + Me.dataview.TabIndex = 0 + Me.dataview.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.dataview.선택줄번호 = CType(-1, Short) + Me.dataview.SetActiveViewport(0, -1, -1) + ' + 'dataview_Sheet1 + ' + Me.dataview_Sheet1.Reset() + Me.dataview_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + dataview_Sheet1.ColumnCount = 12 + dataview_Sheet1.ColumnHeader.RowCount = 2 + dataview_Sheet1.RowCount = 0 + Me.dataview_Sheet1.ActiveColumnIndex = -1 + Me.dataview_Sheet1.ActiveRowIndex = -1 + Me.dataview_Sheet1.AutoGenerateColumns = False + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 1).Value = "전산화번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 2).Value = "전산번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 3).Value = "선로명" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).ColumnSpan = 5 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 4).Value = "전주번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(0, 11).ColumnSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 0).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 1).Value = "관리구" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 2).Value = "번호" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 4).Value = "1" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 5).Value = "2" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 6).Value = "3" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 7).Value = "4" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 8).Value = "5" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 9).Value = "상별" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 10).Value = "형식및용량" + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).RowSpan = 2 + Me.dataview_Sheet1.ColumnHeader.Cells.Get(1, 11).Value = "기기명" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.ColumnHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.ColumnHeader.Rows.Get(0).Height = 31.0! + Me.dataview_Sheet1.ColumnHeader.Rows.Get(1).Height = 31.0! + NumberCellType1.DecimalPlaces = 0 + NumberCellType1.LeadingZero = FarPoint.Win.Spread.CellType.LeadingZero.Yes + Me.dataview_Sheet1.Columns.Get(0).CellType = NumberCellType1 + Me.dataview_Sheet1.Columns.Get(0).DataField = "번호" + Me.dataview_Sheet1.Columns.Get(0).Label = "번호" + Me.dataview_Sheet1.Columns.Get(0).Width = 50.0! + TextCellType1.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType1.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(1).CellType = TextCellType1 + Me.dataview_Sheet1.Columns.Get(1).DataField = "관리구" + Me.dataview_Sheet1.Columns.Get(1).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Label = "관리구" + Me.dataview_Sheet1.Columns.Get(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(1).Width = 67.0! + TextCellType2.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + TextCellType2.CharacterSet = FarPoint.Win.Spread.CellType.CharacterSet.AlphaNumeric + Me.dataview_Sheet1.Columns.Get(2).CellType = TextCellType2 + Me.dataview_Sheet1.Columns.Get(2).DataField = "전산화번호" + Me.dataview_Sheet1.Columns.Get(2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Label = "번호" + Me.dataview_Sheet1.Columns.Get(2).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(2).Width = 63.0! + Me.dataview_Sheet1.Columns.Get(3).CellType = TextCellType3 + Me.dataview_Sheet1.Columns.Get(3).DataField = "선로명" + Me.dataview_Sheet1.Columns.Get(3).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(3).Width = 41.0! + Me.dataview_Sheet1.Columns.Get(4).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType4.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(4).CellType = TextCellType4 + Me.dataview_Sheet1.Columns.Get(4).DataField = "번호1" + Me.dataview_Sheet1.Columns.Get(4).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(4).Label = "1" + Me.dataview_Sheet1.Columns.Get(4).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(4).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(5).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType5.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(5).CellType = TextCellType5 + Me.dataview_Sheet1.Columns.Get(5).DataField = "번호2" + Me.dataview_Sheet1.Columns.Get(5).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(5).Label = "2" + Me.dataview_Sheet1.Columns.Get(5).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(5).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(6).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType6.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(6).CellType = TextCellType6 + Me.dataview_Sheet1.Columns.Get(6).DataField = "번호3" + Me.dataview_Sheet1.Columns.Get(6).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(6).Label = "3" + Me.dataview_Sheet1.Columns.Get(6).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(6).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(7).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType7.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(7).CellType = TextCellType7 + Me.dataview_Sheet1.Columns.Get(7).DataField = "번호4" + Me.dataview_Sheet1.Columns.Get(7).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.General + Me.dataview_Sheet1.Columns.Get(7).Label = "4" + Me.dataview_Sheet1.Columns.Get(7).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(7).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(8).BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + TextCellType8.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(8).CellType = TextCellType8 + Me.dataview_Sheet1.Columns.Get(8).DataField = "번호5" + Me.dataview_Sheet1.Columns.Get(8).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Left + Me.dataview_Sheet1.Columns.Get(8).Label = "5" + Me.dataview_Sheet1.Columns.Get(8).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(8).Width = 29.0! + Me.dataview_Sheet1.Columns.Get(9).CellType = TextCellType9 + Me.dataview_Sheet1.Columns.Get(9).DataField = "변압기상" + Me.dataview_Sheet1.Columns.Get(9).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Label = "상별" + Me.dataview_Sheet1.Columns.Get(9).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(9).Width = 44.0! + TextCellType10.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.dataview_Sheet1.Columns.Get(10).CellType = TextCellType10 + Me.dataview_Sheet1.Columns.Get(10).DataField = "변압기용량" + Me.dataview_Sheet1.Columns.Get(10).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Label = "형식및용량" + Me.dataview_Sheet1.Columns.Get(10).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(10).Width = 75.0! + Me.dataview_Sheet1.Columns.Get(11).CellType = TextCellType11 + Me.dataview_Sheet1.Columns.Get(11).DataField = "비고1" + Me.dataview_Sheet1.Columns.Get(11).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Label = "기기명" + Me.dataview_Sheet1.Columns.Get(11).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.Columns.Get(11).Width = 44.0! + Me.dataview_Sheet1.DataAutoCellTypes = False + Me.dataview_Sheet1.DataAutoSizeColumns = False + Me.dataview_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.dataview_Sheet1.RowHeader.Columns.Default.Resizable = True + Me.dataview_Sheet1.RowHeader.Columns.Get(0).Width = 0.0! + Me.dataview_Sheet1.RowHeader.DefaultStyle.HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center + Me.dataview_Sheet1.RowHeader.DefaultStyle.Locked = False + Me.dataview_Sheet1.RowHeader.DefaultStyle.NoteIndicatorColor = System.Drawing.Color.Red + Me.dataview_Sheet1.RowHeader.DefaultStyle.Parent = "HeaderDefault" + Me.dataview_Sheet1.RowHeader.DefaultStyle.VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center + Me.dataview_Sheet1.RowHeader.Rows.Default.Resizable = True + Me.dataview_Sheet1.Rows.Default.Height = 25.0! + Me.dataview_Sheet1.Rows.Default.Resizable = True + Me.dataview_Sheet1.SelectionBackColor = System.Drawing.Color.Transparent + Me.dataview_Sheet1.SelectionForeColor = System.Drawing.Color.Black + Me.dataview_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.gojang) + Me.TabPage6.Controls.Add(Me.Button7) + Me.TabPage6.Controls.Add(Me.Button6) + Me.TabPage6.Controls.Add(Me.Label6) + Me.TabPage6.Controls.Add(Me.tb_dw) + Me.TabPage6.Controls.Add(Me.tb_dh) + Me.TabPage6.Controls.Add(Me.Label7) + Me.TabPage6.Controls.Add(Me.Button2) + Me.TabPage6.Controls.Add(Me.Label3) + Me.TabPage6.Controls.Add(Me.tb_dy) + Me.TabPage6.Controls.Add(Me.Label5) + Me.TabPage6.Controls.Add(Me.tb_pensize) + Me.TabPage6.Controls.Add(Me.tb_dx) + Me.TabPage6.Controls.Add(Me.bt_pencolor) + Me.TabPage6.Controls.Add(Me.Button15) + Me.TabPage6.Controls.Add(Me.Button13) + Me.TabPage6.Controls.Add(Me.ListBox1) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(271, 493) + Me.TabPage6.TabIndex = 3 + Me.TabPage6.Text = "선 및 도형" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'gojang + ' + Me.gojang.Location = New System.Drawing.Point(16, 236) + Me.gojang.Name = "gojang" + Me.gojang.Size = New System.Drawing.Size(238, 21) + Me.gojang.TabIndex = 111 + Me.gojang.Tag = "Z" + Me.gojang.Text = "고장신고도 스마트하게" + ' + 'Button7 + ' + Me.Button7.Location = New System.Drawing.Point(225, 7) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(40, 28) + Me.Button7.TabIndex = 18 + Me.Button7.Text = "QR" + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.Location = New System.Drawing.Point(144, 7) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(40, 28) + Me.Button6.TabIndex = 17 + Me.Button6.Text = "원" + Me.Button6.UseVisualStyleBackColor = True + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(150, 131) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(19, 12) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Y2" + ' + 'tb_dw + ' + Me.tb_dw.Location = New System.Drawing.Point(103, 147) + Me.tb_dw.Name = "tb_dw" + Me.tb_dw.Size = New System.Drawing.Size(35, 21) + Me.tb_dw.TabIndex = 9 + ' + 'tb_dh + ' + Me.tb_dh.Location = New System.Drawing.Point(144, 147) + Me.tb_dh.Name = "tb_dh" + Me.tb_dh.Size = New System.Drawing.Size(35, 21) + Me.tb_dh.TabIndex = 10 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(112, 131) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(19, 12) + Me.Label7.TabIndex = 14 + Me.Label7.Text = "X2" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(185, 7) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(40, 28) + Me.Button2.TabIndex = 16 + Me.Button2.Text = "삭제" + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(33, 131) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(13, 12) + Me.Label3.TabIndex = 11 + Me.Label3.Text = "X" + ' + 'tb_dy + ' + Me.tb_dy.Location = New System.Drawing.Point(62, 147) + Me.tb_dy.Name = "tb_dy" + Me.tb_dy.Size = New System.Drawing.Size(35, 21) + Me.tb_dy.TabIndex = 8 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(73, 131) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(13, 12) + Me.Label5.TabIndex = 12 + Me.Label5.Text = "Y" + ' + 'tb_pensize + ' + Me.tb_pensize.Location = New System.Drawing.Point(31, 10) + Me.tb_pensize.Name = "tb_pensize" + Me.tb_pensize.Size = New System.Drawing.Size(31, 21) + Me.tb_pensize.TabIndex = 6 + ' + 'tb_dx + ' + Me.tb_dx.Location = New System.Drawing.Point(21, 147) + Me.tb_dx.Name = "tb_dx" + Me.tb_dx.Size = New System.Drawing.Size(35, 21) + Me.tb_dx.TabIndex = 7 + ' + 'bt_pencolor + ' + Me.bt_pencolor.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.bt_pencolor.Location = New System.Drawing.Point(4, 7) + Me.bt_pencolor.Name = "bt_pencolor" + Me.bt_pencolor.Size = New System.Drawing.Size(25, 25) + Me.bt_pencolor.TabIndex = 5 + Me.bt_pencolor.UseVisualStyleBackColor = False + ' + 'Button15 + ' + Me.Button15.Location = New System.Drawing.Point(104, 7) + Me.Button15.Name = "Button15" + Me.Button15.Size = New System.Drawing.Size(40, 28) + Me.Button15.TabIndex = 4 + Me.Button15.Text = "박스" + Me.Button15.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.Location = New System.Drawing.Point(64, 7) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(40, 28) + Me.Button13.TabIndex = 2 + Me.Button13.Text = "선" + Me.Button13.UseVisualStyleBackColor = True + ' + 'ListBox1 + ' + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 12 + Me.ListBox1.Location = New System.Drawing.Point(6, 37) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(259, 88) + Me.ListBox1.TabIndex = 0 + ' + 'TabPage7 + ' + Me.TabPage7.Controls.Add(Me.lbQrFG) + Me.TabPage7.Controls.Add(Me.lbQrBg) + Me.TabPage7.Controls.Add(Me.LinkLabel2) + Me.TabPage7.Controls.Add(Me.LinkLabel1) + Me.TabPage7.Controls.Add(Me.Label28) + Me.TabPage7.Controls.Add(Me.Label27) + Me.TabPage7.Controls.Add(Me.Label8) + Me.TabPage7.Controls.Add(Me.Label9) + Me.TabPage7.Controls.Add(Me.Label29) + Me.TabPage7.Controls.Add(Me.home4) + Me.TabPage7.Controls.Add(Me.home3) + Me.TabPage7.Controls.Add(Me.home2) + Me.TabPage7.Controls.Add(Me.home1) + Me.TabPage7.Controls.Add(Me.cboCorrectionLevel) + Me.TabPage7.Controls.Add(Me.cboVersion) + Me.TabPage7.Controls.Add(Me.cboEncoding) + Me.TabPage7.Controls.Add(Me.Label30) + Me.TabPage7.Controls.Add(Me.Label31) + Me.TabPage7.Controls.Add(Me.Label32) + Me.TabPage7.Controls.Add(Me.Label33) + Me.TabPage7.Controls.Add(Me.Label34) + Me.TabPage7.Controls.Add(Me.Label35) + Me.TabPage7.Controls.Add(Me.Label36) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(271, 493) + Me.TabPage7.TabIndex = 4 + Me.TabPage7.Text = "QR코드속성" + Me.TabPage7.UseVisualStyleBackColor = True + ' + 'Label29 + ' + Me.Label29.AutoSize = True + Me.Label29.Location = New System.Drawing.Point(29, 332) + Me.Label29.Name = "Label29" + Me.Label29.Size = New System.Drawing.Size(101, 12) + Me.Label29.TabIndex = 47 + Me.Label29.Text = "홈페이지주소설정" + ' + 'home4 + ' + Me.home4.Location = New System.Drawing.Point(26, 436) + Me.home4.Name = "home4" + Me.home4.Size = New System.Drawing.Size(231, 21) + Me.home4.TabIndex = 46 + Me.home4.Text = "report.jsp?location" + ' + 'home3 + ' + Me.home3.Location = New System.Drawing.Point(26, 409) + Me.home3.Name = "home3" + Me.home3.Size = New System.Drawing.Size(231, 21) + Me.home3.TabIndex = 45 + Me.home3.Text = "mjeonbuk" + ' + 'home2 + ' + Me.home2.Location = New System.Drawing.Point(26, 382) + Me.home2.Name = "home2" + Me.home2.Size = New System.Drawing.Size(231, 21) + Me.home2.TabIndex = 44 + Me.home2.Text = "jeonbuk" + ' + 'home1 + ' + Me.home1.Location = New System.Drawing.Point(26, 355) + Me.home1.Name = "home1" + Me.home1.Size = New System.Drawing.Size(231, 21) + Me.home1.TabIndex = 43 + Me.home1.Text = "http://cyber.kepco.co.kr" + ' + 'cboCorrectionLevel + ' + Me.cboCorrectionLevel.Location = New System.Drawing.Point(127, 172) + Me.cboCorrectionLevel.Name = "cboCorrectionLevel" + Me.cboCorrectionLevel.Size = New System.Drawing.Size(59, 21) + Me.cboCorrectionLevel.TabIndex = 42 + Me.cboCorrectionLevel.Text = "1" + ' + 'cboVersion + ' + Me.cboVersion.Location = New System.Drawing.Point(86, 117) + Me.cboVersion.Name = "cboVersion" + Me.cboVersion.Size = New System.Drawing.Size(100, 21) + Me.cboVersion.TabIndex = 41 + Me.cboVersion.Text = "1" + ' + 'cboEncoding + ' + Me.cboEncoding.Location = New System.Drawing.Point(86, 35) + Me.cboEncoding.Name = "cboEncoding" + Me.cboEncoding.Size = New System.Drawing.Size(100, 21) + Me.cboEncoding.TabIndex = 40 + Me.cboEncoding.Text = "3" + ' + 'Label30 + ' + Me.Label30.AutoSize = True + Me.Label30.Location = New System.Drawing.Point(87, 149) + Me.Label30.Name = "Label30" + Me.Label30.Size = New System.Drawing.Size(60, 12) + Me.Label30.TabIndex = 35 + Me.Label30.Text = "1~40 선택" + ' + 'Label31 + ' + Me.Label31.AutoSize = True + Me.Label31.Location = New System.Drawing.Point(87, 96) + Me.Label31.Name = "Label31" + Me.Label31.Size = New System.Drawing.Size(78, 12) + Me.Label31.TabIndex = 34 + Me.Label31.Text = "3. Byte(모두)" + ' + 'Label32 + ' + Me.Label32.AutoSize = True + Me.Label32.Location = New System.Drawing.Point(87, 80) + Me.Label32.Name = "Label32" + Me.Label32.Size = New System.Drawing.Size(101, 12) + Me.Label32.TabIndex = 33 + Me.Label32.Text = "2. Numeric(숫자)" + ' + 'Label33 + ' + Me.Label33.AutoSize = True + Me.Label33.Location = New System.Drawing.Point(87, 64) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(157, 12) + Me.Label33.TabIndex = 32 + Me.Label33.Text = "1. AlphaNumeric(영문숫자)" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(24, 175) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(97, 12) + Me.Label34.TabIndex = 31 + Me.Label34.Text = "Correction Level" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(24, 120) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(48, 12) + Me.Label35.TabIndex = 30 + Me.Label35.Text = "Version" + ' + 'Label36 + ' + Me.Label36.AutoSize = True + Me.Label36.Location = New System.Drawing.Point(14, 40) + Me.Label36.Name = "Label36" + Me.Label36.Size = New System.Drawing.Size(58, 12) + Me.Label36.TabIndex = 29 + Me.Label36.Text = "Encoding" + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.None + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 486) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(297, 35) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 32) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 35) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 35) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 32) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 35) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(297, 522) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(277, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 486) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(277, 486) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(2, 3) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(269, 478) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripLabel4, Me.textbox1, Me.textbox2, Me.bt_chkpattern, Me.ToolStripSeparator4, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 554) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(586, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel4.Text = "▶패턴검사" + ' + 'textbox1 + ' + Me.textbox1.BackColor = System.Drawing.Color.LightBlue + Me.textbox1.Name = "textbox1" + Me.textbox1.Size = New System.Drawing.Size(30, 30) + Me.textbox1.Text = "0" + Me.textbox1.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'textbox2 + ' + Me.textbox2.BackColor = System.Drawing.Color.LightBlue + Me.textbox2.Name = "textbox2" + Me.textbox2.Size = New System.Drawing.Size(30, 30) + Me.textbox2.Text = "0" + Me.textbox2.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'bt_chkpattern + ' + Me.bt_chkpattern.Image = CType(resources.GetObject("bt_chkpattern.Image"), System.Drawing.Image) + Me.bt_chkpattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_chkpattern.Name = "bt_chkpattern" + Me.bt_chkpattern.Size = New System.Drawing.Size(67, 27) + Me.bt_chkpattern.Text = "시작(&G)" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(82, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.yoolStripMenuItem, Me.fyripMenuItem, Me.dfgdfoolStripMenuItem, Me.선로명변압ToolStripMenuItem, Me.bt_savenum, Me.pbt_c, Me.pbt_y, Me.제조회사ToolStripMenuItem, Me.제조년월ToolStripMenuItem, Me.관리구AToolStripMenuItem, Me.전산화번호AToolStripMenuItem, Me.ToolStripMenuItem1, Me.bt_kwnb, Me.bt_kawnbus, Me.bt_nuha, Me.bt_sw, Me.bt_byun, Me.선로명변압기명ToolStripMenuItem, Me.선로명기기번호ToolStripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(79, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'yoolStripMenuItem + ' + Me.yoolStripMenuItem.Name = "yoolStripMenuItem" + Me.yoolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.yoolStripMenuItem.Text = "기기명" + ' + 'fyripMenuItem + ' + Me.fyripMenuItem.Name = "fyripMenuItem" + Me.fyripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.fyripMenuItem.Text = "기기형식 및 용량" + ' + 'dfgdfoolStripMenuItem + ' + Me.dfgdfoolStripMenuItem.Name = "dfgdfoolStripMenuItem" + Me.dfgdfoolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.dfgdfoolStripMenuItem.Text = "선로명(기기)" + ' + '선로명변압ToolStripMenuItem + ' + Me.선로명변압ToolStripMenuItem.Name = "선로명변압ToolStripMenuItem" + Me.선로명변압ToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.선로명변압ToolStripMenuItem.Text = "선로명(변압)" + ' + 'bt_savenum + ' + Me.bt_savenum.Name = "bt_savenum" + Me.bt_savenum.Size = New System.Drawing.Size(200, 22) + Me.bt_savenum.Text = "전주번호" + ' + 'pbt_c + ' + Me.pbt_c.Name = "pbt_c" + Me.pbt_c.Size = New System.Drawing.Size(200, 22) + Me.pbt_c.Text = "시공업체" + ' + 'pbt_y + ' + Me.pbt_y.Name = "pbt_y" + Me.pbt_y.Size = New System.Drawing.Size(200, 22) + Me.pbt_y.Text = "시공년월" + ' + '제조회사ToolStripMenuItem + ' + Me.제조회사ToolStripMenuItem.Name = "제조회사ToolStripMenuItem" + Me.제조회사ToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.제조회사ToolStripMenuItem.Text = "제조회사" + ' + '제조년월ToolStripMenuItem + ' + Me.제조년월ToolStripMenuItem.Name = "제조년월ToolStripMenuItem" + Me.제조년월ToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.제조년월ToolStripMenuItem.Text = "제조년월" + ' + '관리구AToolStripMenuItem + ' + Me.관리구AToolStripMenuItem.Name = "관리구AToolStripMenuItem" + Me.관리구AToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.관리구AToolStripMenuItem.Text = "관리구A" + ' + '전산화번호AToolStripMenuItem + ' + Me.전산화번호AToolStripMenuItem.Name = "전산화번호AToolStripMenuItem" + Me.전산화번호AToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.전산화번호AToolStripMenuItem.Text = "전산화번호A" + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(197, 6) + ' + 'bt_kwnb + ' + Me.bt_kwnb.Name = "bt_kwnb" + Me.bt_kwnb.Size = New System.Drawing.Size(200, 22) + Me.bt_kwnb.Text = "관리구B(변압기)" + ' + 'bt_kawnbus + ' + Me.bt_kawnbus.Name = "bt_kawnbus" + Me.bt_kawnbus.Size = New System.Drawing.Size(200, 22) + Me.bt_kawnbus.Text = "전산화번호B(변압기)" + ' + 'bt_nuha + ' + Me.bt_nuha.Name = "bt_nuha" + Me.bt_nuha.Size = New System.Drawing.Size(200, 22) + Me.bt_nuha.Text = "부하측" + ' + 'bt_sw + ' + Me.bt_sw.Name = "bt_sw" + Me.bt_sw.Size = New System.Drawing.Size(200, 22) + Me.bt_sw.Text = "전원측" + ' + 'bt_byun + ' + Me.bt_byun.Name = "bt_byun" + Me.bt_byun.Size = New System.Drawing.Size(200, 22) + Me.bt_byun.Text = "변압기명" + ' + '선로명변압기명ToolStripMenuItem + ' + Me.선로명변압기명ToolStripMenuItem.Name = "선로명변압기명ToolStripMenuItem" + Me.선로명변압기명ToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.선로명변압기명ToolStripMenuItem.Text = "선로명+기기번호(변압)" + ' + '선로명기기번호ToolStripMenuItem + ' + Me.선로명기기번호ToolStripMenuItem.Name = "선로명기기번호ToolStripMenuItem" + Me.선로명기기번호ToolStripMenuItem.Size = New System.Drawing.Size(200, 22) + Me.선로명기기번호ToolStripMenuItem.Text = "선로명+기기번호(기기)" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.AutoSize = False + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.ToolStripLabel3, Me.combobox5}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(586, 30) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(55, 27) + Me.ToolStripLabel1.Text = "번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(80, 30) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(67, 27) + Me.ToolStripLabel3.Text = "프린터선택" + ' + 'combobox5 + ' + Me.combobox5.BackColor = System.Drawing.Color.PowderBlue + Me.combobox5.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.combobox5.Name = "combobox5" + Me.combobox5.Size = New System.Drawing.Size(330, 30) + ' + 'lbQrFG + ' + Me.lbQrFG.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrFG.Location = New System.Drawing.Point(159, 290) + Me.lbQrFG.Name = "lbQrFG" + Me.lbQrFG.Size = New System.Drawing.Size(48, 27) + Me.lbQrFG.TabIndex = 55 + ' + 'lbQrBg + ' + Me.lbQrBg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lbQrBg.Location = New System.Drawing.Point(158, 257) + Me.lbQrBg.Name = "lbQrBg" + Me.lbQrBg.Size = New System.Drawing.Size(48, 27) + Me.lbQrBg.TabIndex = 54 + ' + 'LinkLabel2 + ' + Me.LinkLabel2.AutoSize = True + Me.LinkLabel2.Location = New System.Drawing.Point(48, 297) + Me.LinkLabel2.Name = "LinkLabel2" + Me.LinkLabel2.Size = New System.Drawing.Size(103, 12) + Me.LinkLabel2.TabIndex = 53 + Me.LinkLabel2.TabStop = True + Me.LinkLabel2.Text = "Foreground Color" + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(48, 264) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(106, 12) + Me.LinkLabel1.TabIndex = 52 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Background Color" + ' + 'Label28 + ' + Me.Label28.AutoSize = True + Me.Label28.Location = New System.Drawing.Point(171, 227) + Me.Label28.Name = "Label28" + Me.Label28.Size = New System.Drawing.Size(23, 12) + Me.Label28.TabIndex = 51 + Me.Label28.Text = "4.H" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(109, 227) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(24, 12) + Me.Label27.TabIndex = 50 + Me.Label27.Text = "3.Q" + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(171, 206) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(26, 12) + Me.Label8.TabIndex = 49 + Me.Label8.Text = "2.M" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(109, 206) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(56, 12) + Me.Label9.TabIndex = 48 + Me.Label9.Text = "1.L(모두)" + ' + 'printformjjung + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(586, 606) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.TabControl1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "printformjjung" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.bakimg, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox8.ResumeLayout(False) + Me.GroupBox8.PerformLayout() + Me.GroupBox7.ResumeLayout(False) + Me.GroupBox7.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.TabPage5.ResumeLayout(False) + CType(Me.dataview, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dataview_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + Me.TabPage7.ResumeLayout(False) + Me.TabPage7.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents lb_sel As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tb_picfile As System.Windows.Forms.TextBox + Friend WithEvents chk_DisplayBG As System.Windows.Forms.CheckBox + Friend WithEvents tb_foncol As System.Windows.Forms.TextBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents cmb_style As System.Windows.Forms.ComboBox + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents cmb_controls As System.Windows.Forms.ComboBox + Friend WithEvents TB_FONTNAME As System.Windows.Forms.TextBox + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 tb_printrange As System.Windows.Forms.TextBox + Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton + Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton + Friend WithEvents lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents cb_g As System.Windows.Forms.CheckBox + Friend WithEvents cb_n As System.Windows.Forms.CheckBox + Friend WithEvents cb_y As System.Windows.Forms.CheckBox + Friend WithEvents cb_c As System.Windows.Forms.CheckBox + Friend WithEvents cb_x As System.Windows.Forms.CheckBox + Friend WithEvents cb_l As System.Windows.Forms.CheckBox + Friend WithEvents cb_s As System.Windows.Forms.CheckBox + Friend WithEvents cb_u As System.Windows.Forms.CheckBox + Friend WithEvents tb_secY As System.Windows.Forms.TextBox + Friend WithEvents tb_secX As System.Windows.Forms.TextBox + Friend WithEvents cmb_dummy As System.Windows.Forms.ComboBox + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents textbox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents textbox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents bt_chkpattern As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Button12 As System.Windows.Forms.Button + Friend WithEvents Button9 As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents Button11 As System.Windows.Forms.Button + Friend WithEvents Button10 As System.Windows.Forms.Button + Friend WithEvents cb_bold As System.Windows.Forms.CheckBox + Friend WithEvents tb_space As System.Windows.Forms.TextBox + Friend WithEvents tb_fsize As System.Windows.Forms.TextBox + Friend WithEvents tb_wordheight As System.Windows.Forms.TextBox + Friend WithEvents tb_wordwidth As System.Windows.Forms.TextBox + Friend WithEvents tb_top As System.Windows.Forms.TextBox + Friend WithEvents tb_left As System.Windows.Forms.TextBox + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents cmb_sep As System.Windows.Forms.ComboBox + Friend WithEvents Button8 As System.Windows.Forms.Button + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents combobox5 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_h As System.Windows.Forms.CheckBox + Friend WithEvents tb_myfontsize As System.Windows.Forms.TextBox + Friend WithEvents tb_marginy As System.Windows.Forms.TextBox + Friend WithEvents tb_marginx As System.Windows.Forms.TextBox + Friend WithEvents tb_scalex As System.Windows.Forms.TextBox + Friend WithEvents tb_scaley As System.Windows.Forms.TextBox + Friend WithEvents cmb_landscape As System.Windows.Forms.ComboBox + Friend WithEvents cmb_bigo1 As System.Windows.Forms.ComboBox + Friend WithEvents cb_j As System.Windows.Forms.CheckBox + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents yoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents fyripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents dfgdfoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_savenum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents bt_print As System.Windows.Forms.ToolStripSplitButton + Friend WithEvents bt_prnpreview As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label22 As System.Windows.Forms.Label + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label23 As System.Windows.Forms.Label + Friend WithEvents Label24 As System.Windows.Forms.Label + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents Label26 As System.Windows.Forms.Label + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents pbt_c As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents pbt_y As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents rad_repeat As System.Windows.Forms.RadioButton + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents dataview As MyControlOLEDBv2.MyFpoint + Friend WithEvents dataview_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Chk_BgImageprint As System.Windows.Forms.CheckBox + Friend WithEvents bakimg As System.Windows.Forms.PictureBox + Friend WithEvents tb_bakh As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents tb_bakw As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents tb_baky As System.Windows.Forms.TextBox + Friend WithEvents tb_bakx As System.Windows.Forms.TextBox + Friend WithEvents cb_k As System.Windows.Forms.CheckBox + Friend WithEvents cb_i As System.Windows.Forms.CheckBox + Friend WithEvents cb_f As System.Windows.Forms.CheckBox + Friend WithEvents cb_e As System.Windows.Forms.CheckBox + Friend WithEvents cb_d As System.Windows.Forms.CheckBox + Friend WithEvents bt_kwnb As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_kawnbus As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_nuha As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_sw As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_byun As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_p As System.Windows.Forms.CheckBox + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents Button13 As System.Windows.Forms.Button + Friend WithEvents Button15 As System.Windows.Forms.Button + Friend WithEvents bt_pencolor As System.Windows.Forms.Button + Friend WithEvents tb_pensize As System.Windows.Forms.TextBox + Friend WithEvents tb_dh As System.Windows.Forms.TextBox + Friend WithEvents tb_dw As System.Windows.Forms.TextBox + Friend WithEvents tb_dy As System.Windows.Forms.TextBox + Friend WithEvents tb_dx As System.Windows.Forms.TextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents chk_draw As System.Windows.Forms.CheckBox + Friend WithEvents Button14 As System.Windows.Forms.Button + Friend WithEvents cb_w As System.Windows.Forms.CheckBox + Friend WithEvents cb_v As System.Windows.Forms.CheckBox + Friend WithEvents cb_t As System.Windows.Forms.CheckBox + Friend WithEvents cb_r As System.Windows.Forms.CheckBox + Friend WithEvents tb_pagerepeat As System.Windows.Forms.TextBox + Friend WithEvents cb_visible As System.Windows.Forms.CheckBox + Friend WithEvents Button6 As System.Windows.Forms.Button + Friend WithEvents Button7 As System.Windows.Forms.Button + Friend WithEvents TabPage7 As System.Windows.Forms.TabPage + Friend WithEvents Label29 As System.Windows.Forms.Label + Friend WithEvents home4 As System.Windows.Forms.TextBox + Friend WithEvents home3 As System.Windows.Forms.TextBox + Friend WithEvents home2 As System.Windows.Forms.TextBox + Friend WithEvents home1 As System.Windows.Forms.TextBox + Friend WithEvents cboCorrectionLevel As System.Windows.Forms.TextBox + Friend WithEvents cboVersion As System.Windows.Forms.TextBox + Friend WithEvents cboEncoding As System.Windows.Forms.TextBox + Friend WithEvents Label30 As System.Windows.Forms.Label + Friend WithEvents Label31 As System.Windows.Forms.Label + Friend WithEvents Label32 As System.Windows.Forms.Label + Friend WithEvents Label33 As System.Windows.Forms.Label + Private WithEvents Label34 As System.Windows.Forms.Label + Private WithEvents Label35 As System.Windows.Forms.Label + Private WithEvents Label36 As System.Windows.Forms.Label + Friend WithEvents cb_gojang As System.Windows.Forms.CheckBox + Friend WithEvents gojang As System.Windows.Forms.TextBox + Friend WithEvents cb_lf As System.Windows.Forms.CheckBox + Friend WithEvents cb_lu As System.Windows.Forms.CheckBox + Friend WithEvents 선로명변압기명ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 선로명기기번호ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_a As System.Windows.Forms.CheckBox + Friend WithEvents 선로명변압ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 관리구AToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 전산화번호AToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents cb_m As System.Windows.Forms.CheckBox + Friend WithEvents cb_b As System.Windows.Forms.CheckBox + Friend WithEvents 제조회사ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents 제조년월ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents lbQrFG As System.Windows.Forms.Panel + Friend WithEvents lbQrBg As System.Windows.Forms.Panel + Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel + Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel + Friend WithEvents Label28 As System.Windows.Forms.Label + Friend WithEvents Label27 As System.Windows.Forms.Label + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label +End Class diff --git a/Epole/출력폼/PrintForm지중.resx b/Epole/출력폼/PrintForm지중.resx new file mode 100644 index 0000000..660ac35 --- /dev/null +++ b/Epole/출력폼/PrintForm지중.resx @@ -0,0 +1,230 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 229, 17 + + + 173, 43 + + + 401, 11 + + + 334, 43 + + + 526, 11 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAELSURBVDhPlZJdboMwEIQ5Ez+yA5ERRHEkkKhKBI0Jad98 + /xtsd826QRGm7UifZnY9yxPRq77m2X4+HrAFvXEtrK3DNVwLa77fYQ+uhTXdDBhzA0OOTJzJJ2N+/8A4 + DEB8DCM6gfNIuyVzLaxr38O1f4fe8czkBNfCeus68HSr7GeuPdW2rW2aBlqE3GeP373uHXgbaa3tRWsg + MP+456LPm3t9dr78F1VV2bqu4cRQDuE7J7xxx15KKVsqBehQliWy5DXufdlv/5HH48EWRQ5FXoDzghzh + OUcO2OH6toQQVkoBUkgQ6AJdCnSJM75xbV9pmtosy2AN7fj5b4rj2CZJAgRlXv9PdLh/HEXfMZ7+3qC5 + ewgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEGSURBVDhPlY7raoQwEIV9JneDomDAggXD2polXrLu9l/e + /w2mMybZBokVD3ycM5kLSf7Tz7IYwpXnRIuv5xOI00fC5dNHFq3N8nhAFOy5sbj0qI2eJ5jnGZlgzZPN + 82Tf9TjGjyilzKAGGJRCvFtGnwfrNOvWrKSU5i4lyF7C6sgds+x7zD2+IUHPYY98326m6zrwfG3Y9sIZ + 2k2EEEa0LXhaRyyLVrzrFdxdfxGqaRrwfEbcje2rrmv4CPA1OeHG9sWrCioegDVH5xXHzI8PlGUJZYGQ + lwVm5P1WHB/IshyyPIM8zxH0jPIfbmxfjDFg7IqQb/KVHR9I09RcLheIQT035pQkv1nZALJET/pWAAAA + AElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEASURBVDhPnZHrboMwDIXzTFyUDCIQVGMSqKxkCiuUbv/y + /m/gxbmUTKJo7Eifjo8dW6Ile/peFoW4eFxf9zsg/z6y3G7wYJ6PH5muV5g104RMMG8dkVKqcZQwSg16 + iBxN/zPI+N6tWn0IASECGVweBpPtzNY4ExexHnnvewjpHVvZ18jlfLZHuraF9gl+Zryz7jH9rlPkrWkA + aYy/OrfZE+bwvUaRU12Dp37C1puqquwnFEUBD8oCSuPl2tNgb8XM1h+R8xeVZznkuQbd1JnJmenp2s81 + nPPff+OeKKPAKAPGLJTSvy+j0jQFSwJJkhxbRsVxDEgURceXUbi4v0zID6qK/TA1nsGVAAAAAElFTkSu + QmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEeSURBVDhPlZL/aoNADMfvmXSiQ5kWLTjmgRavOrXbf3n/ + N8iSmOsONrYa+PD9kTtRWvPXfG4bMBqPDV/8uN2Q0erxCS8ffsC2LLCuK5Liti7IXlf/zzJN8D7PGDJ7 + PymSJ1E+r1eNcc6BG0e8uhHd6NCxCuR9T571et+7/e36vofLMOAw9Dj0BHtS7i5hJ72e0zPGvlmwnUVr + O7SdEvr7jlW9z7Q3bdsCga+K96F6wjMe+YS6ruHc1NjUDcFKcG4oe/U7yYTk5vsXejmdoKxKrIiyJKpK + fFXuyp143clZynp9n6IogMAizwnSglTy3uXccyee98XPv3mappA9ZyhkO7p6fNL0CZIkQY/WxyaKIojj + GBmtjg8/hNH4yxjzBUpJADxigHW5AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKFSURBVEhLxVRLaBNRFB0QN7WgC7twY7ZVcRXdFwQXRVTq + RrDgQnQhuHAnKERbK5ZWsKiY1G9bRIyhNbYSI34KjQ3Np6mR2pI0rYmJJpOAAZsPqcnx3Zc3IVk4ndQW + D1zuzLz7zrnv3vtGqkVj0+Yde0417D70tGH/yeC2lvMF8vRO32ldBNaPTVt3Htiy9/DIwQtmnL3vwzV7 + CnddRe7pnb7TOsWJLdrByfedmDr3yA/zTB6OUAbBRBaRVA6+8DJss7/w2JMHrVNcnSKNTZQZbX71JYfF + JDM5i5Ccw8dgGr22KK6OxdBlk9HnyJVFWLzmclFt6fjP/QUsJIg8x3wW4/NpdI7G0GGNomM0ip63P7mA + 0V3k5Sr3RAOogVTjD4EMLC4ZA444Ol9GcHnkK/NR9L5L446zwPthZPZgusR7QvsEhTpoSqiRZncKFy1L + uDQc5uSG4SXcnMhyYpMHFXviB2887RMU6qBRJJKe1zEYXnzDFWuEk1P2RnephrzfC4wFwEVpn6BQh3KC + brtcyZx830SmRqCf2eAnwPO9zhMoPbg1mcd1exLdb1K4zWpenTkZkU9FgekfqK8HyhRRtooR4cBMCc8+ + F3GPlYXIvSzzxDJgnUd9U1R9D6oznovnscBGdjK8gjn5Nyd/v4jKPThy7DgEweqovslU64c+wBUpYDZe + QCjFBBIrPHNOzuLGvQGc0evR1d6OFp1uUNCoQ+u/SCH3mExIOp3ck5CgWQ3qf1MqC5HfaGuDxWBYq4g6 + FIENE9FJ0pChtXVjRegU/11E83SpQU2EnrezEBG6dqiJHG1udouwf8PfRNZtdAk0XSRULXJarx8Sy+sD + qvkuSfKQUJlckv4ATUjbLlnc1B0AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + \ No newline at end of file diff --git a/Epole/출력폼/PrintForm지중.vb b/Epole/출력폼/PrintForm지중.vb new file mode 100644 index 0000000..345782a --- /dev/null +++ b/Epole/출력폼/PrintForm지중.vb @@ -0,0 +1,3865 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports System.IO +Imports System.ComponentModel + +Imports ThoughtWorks.QRCode.Codec '//QRڵ +Imports ThoughtWorks.QRCode.Codec.Util +Imports ThoughtWorks.QRCode.Codec.Data + +Public Class printformjjung + Dim DrStyle As PatternDS.TStyleRow = Nothing + Dim DtPattern As PatternDS.TPatternDataTable = Nothing + + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + + Dim S(10) As MyControlOLEDBv2.MyLabel + Dim Sȣ(10) As MyControlOLEDBv2.MyLabel + Dim Sθ_(20) As MyControlOLEDBv2.MyLabel + Dim Sθ_(20) As MyControlOLEDBv2.MyLabel '//160131 + + Dim Sֹȣ(20) As MyControlOLEDBv2.MyLabel + Dim Sð(10) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sֹȣ2(0) As MyControlOLEDBv2.MyLabel + Dim Sðü(0) As MyControlOLEDBv2.MyLabel + Dim SϷùȣ(0) As MyControlOLEDBv2.MyLabel + Dim Sб뷮(0) As MyControlOLEDBv2.MyLabel + + Dim S(10) As MyControlOLEDBv2.MyLabel + Dim Sȸ(0) As MyControlOLEDBv2.MyLabel + + Dim S2(10) As MyControlOLEDBv2.MyLabel + Dim Sбȣ(10) As MyControlOLEDBv2.MyLabel + Dim Sб(0) As MyControlOLEDBv2.MyLabel + Dim s(0) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + 'Dim SII(0) As MyControlOLEDBv2.MyLabel + 'Dim sIII(0) As MyControlOLEDBv2.MyLabel + + Dim S(0) As MyControlOLEDBv2.MyLabel 'U + 'Dim S0(0) As MyControlOLEDBv2.MyLabel '// + 'Dim S2(0) As MyControlOLEDBv2.MyLabel 'U ̻ó 160131 + 'Dim S3(0) As MyControlOLEDBv2.MyLabel 'U + + Dim Sθιȣ_(0) As MyControlOLEDBv2.MyLabel 'LU 160123 + Dim Sθιȣ_(0) As MyControlOLEDBv2.MyLabel 'LF '//θκ -> 21 + + Dim Stðü(0) As MyControlOLEDBv2.MyLabel 'R + Dim Stðü2(0) As MyControlOLEDBv2.MyLabel 'T + Dim Stð(0) As MyControlOLEDBv2.MyLabel 'V + Dim Stð2(0) As MyControlOLEDBv2.MyLabel 'W + + Dim StŰ(0) As MyControlOLEDBv2.MyLabel 'Z + + Dim θιȣ_ As String = vbNullString + Dim θιȣ_ As String = vbNullString + Dim As String = vbNullString + Dim ȣ As String = vbNullString + Dim θ_ As String = vbNullString + Dim θ_ As String = vbNullString + Dim ֹȣ As String = vbNullString + Dim ð As String = vbNullString + Dim ðü As String = vbNullString + Dim As String = String.Empty + Dim ȸ As String = String.Empty + Dim б뷮 As String = vbNullString + Dim б As String = vbNullString + Dim As String = vbNullString + 'Dim 0 As String = vbNullString + 'Dim 2 As String = vbNullString + 'Dim 3 As String = vbNullString + + Dim Ű As String = vbNullString + + + Dim tðü, tðü2 As String + Dim tð, tð2 As String + + Dim 2, бȣ As String + Dim б As String + Dim , As String + 'Dim II, III As String + + '//QRڵ + + Dim qrȨ1 As String = "" + Dim qrȨ2 As String = "" + Dim qrȨ3 As String = "" + Dim qrȨ4 As String = "" + + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + Dim ۵ As Boolean = True + Dim ȣ۵ As Boolean = True + Dim θ۵ As Boolean = True + Dim ֹȣ۵ As Boolean = True + Dim ð۵ As Boolean = True + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\styleEJ") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCEJ.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Dim SelCon As New ArrayList '//õ ̺ 迭̴. + Dim onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.jjungtableDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim PrintMode As Boolean = False + + Public Structure SProp + + _ + Public Property Ϸùȣ As Boolean + + _ + Public Property ȣ As Boolean + + _ + Public Property бȣ As Boolean + + + _ + Public Property As Boolean + + _ + Public Property As PointF + + _ + Public Property Ȯ As PointF + + + + End Structure + + Public Sub New() + InitializeComponent() + WLog2(Auto_Log, "New()", "\߼α.txt") + End Sub + + Public Sub New(ByRef Src As ireaDataSet.jjungtableDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + WLog2(Auto_Log, "New(srctable,srcRow)", "\߼α.txt") + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.dataview.Setting_Save(False, "printjjung", "\viewConfig\Jijung_") + WLog2(Auto_Log, "Form_Close", "\߼α.txt") + Save_Setting() + End Sub + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.dataview.Setting_Load(False, "printjjung", "\viewConfig\Jijung_") + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + WLog2(Auto_Log, "Form_Load()", "\߼α.txt") + GetPrintersName() '//͸ ɴϴ. + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + WLog2(Auto_Log, " ⺻ ȯ()", "\߼α.txt") + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + Me.cmb_bigo1.SelectedIndex = 0 + + WLog2(Auto_Log, "ڸ=" & Admin.ToString, "\߼α.txt") + If Admin Then + For Each A As Control In Me.TabPage3.Controls + If A.GetType.Name.ToUpper = "CHECKBOX" Then + A.Visible = True + End If + Next + End If + + Me.SETTOOLTIP() + GetStyleList() '//style.ini Ÿϸϸ ´. + + + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", "\߼α.txt") + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + 'Me.cmb_style.Text = "Ϲݿ" '//⼭ Ͱ ɷԵȴ. + Me.cmb_style.Text = "(Ϲݿ)" + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + + 'MsgBox(Srcrow("1").ToString) + Dim As String + + + Try + = Srcrow("б").ToString.Trim + Catch ex As Exception + ' MsgBox(ex.Message.ToString) + = "" + End Try + + If = "" Then + Me.cmb_style.Text = "(Ϲݿ)" + Else + Me.cmb_style.Text = "󺯾б(Ϲݿ)" + End If + End If + If Me.cmb_style.SelectedIndex < 0 AndAlso Me.cmb_style.Items.Count > 0 Then Me.cmb_style.SelectedIndex = 0 + + End Sub + + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -1) + Else + Me.CtrPos(True, -1) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 1) + Else + Me.CtrPos(True, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -1) + Else + Me.CtrPos(False, -1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 1) + Else + Me.CtrPos(False, 1) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + Me.bt_savenum.PerformClick() + End If + Case Keys.F7 + Me.bt_print.PerformButtonClick() + Case Keys.F8 + Me.bt_prnpreview.PerformClick() + End Select + + End Sub + + Public Sub AddControl(ByRef CtlCnt As Short, ByVal As String, ByVal tag As String, ByVal Labels() As MyControlOLEDBv2.MyLabel, ByRef Cb As CheckBox, Optional ByVal bPattern As String = "") + Cb.Tag = tag + Cb.Text = + For i As Integer = 0 To Labels.GetUpperBound(0) '//繮ڸ ҴѴ. + Labels(i) = New MyControlOLEDBv2.MyLabel + Labels(i). = & i + 1 + Labels(i).DIV = tag + Labels(i).Name = tag & i + 1 + Labels(i).TextValue = "" + Labels(i).Repeat = 0 + Labels(i).RepeatX = 0 + Labels(i).RepeatY = 0 + Labels(i).Pattern = bPattern + ReDim Preserve AllLabels(CtlCnt) + AllLabels(CtlCnt).ctl = Labels(i) + Me.cmb_controls.Items.Add(Labels(i).) + CtlCnt += 1 + Next + Labels(0).CheckBox = Cb + Labels(0).Pattern = bPattern + End Sub + + Private Sub SetControls() + WLog2(Auto_Log, "SetControls()", "\߼α.txt") + Dim CtlCnt As Short = 0 + + AddControl(CtlCnt, "Ϸùȣ", "N", Me.SϷùȣ, Me.cb_n) + AddControl(CtlCnt, ",ȣ", "G", Me.Sֹȣ, Me.cb_g) + + AddControl(CtlCnt, "", "H", Me.S, Me.cb_h, "CNUMPATTERN") + AddControl(CtlCnt, "ȣ", "S", Me.Sȣ, Me.cb_s, "JUNSANPATTERN") + + AddControl(CtlCnt, "θ()", "L", Me.Sθ_, Me.cb_l, "LINEPATTERN") + AddControl(CtlCnt, "θ()", "A", Me.Sθ_, Me.cb_a, "LINEPATTERNBYUN") + + AddControl(CtlCnt, "θȣ()", "LU", Me.Sθιȣ_, Me.cb_lu, "LUPATTERN") + AddControl(CtlCnt, "θȣ()", "LF", Me.Sθιȣ_, Me.cb_lf, "LFPATTERN") + + AddControl(CtlCnt, "ֹȣ", "X", Me.Sֹȣ, Me.cb_x, "JJNUMPATTERN") + + AddControl(CtlCnt, "()", "D", Me.S2, Me.cb_d, "BKWANPATTERN") + AddControl(CtlCnt, "ȣ()", "E", Me.Sбȣ, Me.cb_e, "BJUNSAN2PATTERN") + + AddControl(CtlCnt, "ðü", "C", Me.Sðü, Me.cb_c, "COMPPATTERN") + AddControl(CtlCnt, "ð", "Y", Me.Sð, Me.cb_y, "YYMMPATTERN") + + AddControl(CtlCnt, "ȸ", "B", Me.Sȸ, Me.cb_b, "BBMPPATTERN") + AddControl(CtlCnt, "", "M", Me.S, Me.cb_m, "MMMMPATTERN") + + AddControl(CtlCnt, "б,ȣ", "P", Me.Sֹȣ2, Me.cb_p) + + AddControl(CtlCnt, "б", "F", Me.Sб, Me.cb_f, "BYUNAPATTERN") + AddControl(CtlCnt, "б뷮", "J", Me.Sб뷮, Me.cb_j, "BAPPATTERN") + + AddControl(CtlCnt, "", "I", Me.s, Me.cb_i, "JOPNWONPATTERN") + AddControl(CtlCnt, "", "K", Me.S, Me.cb_k, "BUHAWONPATTERN") + + AddControl(CtlCnt, "", "U", Me.S, Me.cb_u, "BIGOPATTERN") + + + + AddControl(CtlCnt, "(ðü)", "R", Me.Stðü, Me.cb_r) + AddControl(CtlCnt, "(ðüII)", "T", Me.Stðü2, Me.cb_t) + + AddControl(CtlCnt, "(ð)", "V", Me.Stð, Me.cb_v) + AddControl(CtlCnt, "(ðII)", "W", Me.Stð2, Me.cb_w) + + AddControl(CtlCnt, "Ű", "Z", Me.StŰ, Me.cb_gojang) + + 'AddControl(CtlCnt, "1", "Q", Me.S0, Me.cb_q) + 'AddControl(CtlCnt, "2", "A", Me.S2, Me.cb_a) + 'AddControl(CtlCnt, "3", "B", Me.S3, Me.cb_b) + + 'AddControl(CtlCnt, "II", "M", Me.SII, Me.cb_m) + 'AddControl(CtlCnt, "III", "O", Me.sIII, Me.cb_o) + + End Sub + + Private Sub SETTOOLTIP() + WLog2(Auto_Log, "Settooltip()", "\߼α.txt") + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.cmb_controls, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine(" ӵ -(̳ʽ) մϴ") + TMSG.AppendLine(" ) 2 8 : 2-8") + TMSG.AppendLine() + TMSG.AppendLine(" ұĢ ,(޸) մϴ") + TMSG.AppendLine(" ) 1,3,4,10 : 1,3,4,7") + TMSG.AppendLine() + TMSG.AppendLine(" /() մϴ") + TMSG.AppendLine(" ) 2~8 11,15 : 2-8/11,15") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.RadioButton3, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("< ͸ ϼ>") + TMSG.AppendLine() + TMSG.AppendLine("ƹ͵ Էµ ʾ ⺻ͷ µ˴ϴ.") + TMSG.AppendLine(" ġǾִ ǥõ˴ϴ.") + TMSG.AppendLine() + Me.combobox5.ToolTipText = TMSG.ToString + 'Me.ToolTip1.SetToolTip(Me.ComboBox5, TMSG.ToString) + + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ X ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secX, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2° µ ġ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("2° µɶ 1° ʰŸ Դϴ. 0 Ұ Y ˴ϴ.") + TMSG.AppendLine(" Ʒʿ ǥø Ϸ X=0 εΰ Y= Ƿ Էϼ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.tb_secY, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<2 ½ ¹ ϼ.>") + TMSG.AppendLine() + TMSG.AppendLine("[] 絥Ϳ Ͱ ǥõ˴ϴ.") + TMSG.AppendLine("[] Ͱ ǥõ˴ϴ.") + TMSG.AppendLine() + TMSG.AppendLine(" ͸ ѹ Ϸ [] ϼ.") + TMSG.AppendLine("ͱ Ϸ [] ϼ") + Me.ToolTip1.SetToolTip(Me.cmb_dummy, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", "\߼α.txt") + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + WLog2(Auto_Log, " (Ÿ) մϴ.", "\߼α.txt") + Dim A As New MyINI2(SettingFile) + A.Write("PRINTFORM", "printername", Me.combobox5.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", "\߼α.txt") + WLog2(Auto_Log, "Load_Setting()", "\߼α.txt") + Dim a As New MyINI2(SettingFile) + Me.combobox5.Text = a.Read("PRINTFORM", "printername", "") + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + WLog2(Auto_Log, "GetviewData ()", "\߼α.txt") + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + WLog2(Auto_Log, "GetViewData : ε ų վ մϴ.()", "\߼α.txt") + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + ' STARTTIME = Now + '// ̺ ͸ ǥѴ. ̺ ̴̺ DV + '//絥͸ Ʈѿǥ ¹ (Ϲݿ/Ե) ´. + 'Dim θϰ˻ As Integer = 0 + 'Dim ôϰ˻ As Integer = 0 + = GetSpread(Me.Dv, index, "") + ȣ = GetSpread(Me.Dv, index, "ȭȣ") + θ_ = GetSpread(Me.Dv, index, "θ") + θ_ = GetSpread(Me.Dv, index, "б⼱") + + θιȣ_ = GetSpread(Me.Dv, index, "θ") & GetSpread(Me.Dv, index, "ȣ1") ' & GetSpread(Me.Dv, index, "ȣ2") + θιȣ_ = GetSpread(Me.Dv, index, "б⼱") & GetSpread(Me.Dv, index, "б") '//160131 θ 21 + + ֹȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + ð = GetSpread(Me.Dv, index, "ð") + ðü = GetSpread(Me.Dv, index, "ðü") + + ȸ = GetSpread(Me.Dv, index, "ȸ") + = GetSpread(Me.Dv, index, "") + + б뷮 = GetSpread(Me.Dv, index, "б뷮") + б = GetSpread(Me.Dv, index, "б") + + 2 = GetSpread(Me.Dv, index, "2") + Me.бȣ = GetSpread(Me.Dv, index, "ȣ2") + б = GetSpread(Me.Dv, index, "б") + = GetSpread(Me.Dv, index, "") + = GetSpread(Me.Dv, index, "") + 'II = GetSpread(Me.Dv, index, "21") + 'III = GetSpread(Me.Dv, index, "22") + + = GetSpread(Me.Dv, index, "1") '//̰ PADSW ׷͵̴. + + '0 = "ðü:" '//GetSpread(me.dv,index, "0") '//̰ 1 + '2 = "ð:" '//GetSpread(me.dv,index, "2") '//2 + '3 = GetSpread(Me.Dv, index, "3") '//3 + + tðü = "ðü" + tðü2 = "ðü:" + tð = "ð" + tð2 = "ð:" + + Ű = Me.gojang.Text.ToString() + + AddLog(Admin, "ڸ=" & Admin.ToString, "\Alllog.txt") + If Admin Then '//ڸ üũڽ Ҽ ְѴ. + showlog() + End If + + WLog2(Auto_Log, "ͺ ͸ Ϸ()", "\߼α.txt") + + Me.Text = "߹ȣ ۾(" & ֹȣ & ") " & + + WLog2(Auto_Log, "PASE մϴ.()", "\߼α.txt") + '============ ؼ °̴ ========================================================== + 'Me.PARSE(Me.0, Me.S0) + 'Me.PARSE(Me.2, Me.S2) + 'Me.PARSE(Me.3, Me.S3) + 'Me.PARSE(Me.II, Me.SII) + 'Me.PARSE(Me.III, Me.sIII) + + Me.PARSE(Me.tðü, Me.Stðü) + Me.PARSE(Me.tðü2, Me.Stðü2) + Me.PARSE(Me.tð, Me.Stð) + Me.PARSE(Me.tð2, Me.Stð2) + Me.PARSE(Me.Ű, Me.StŰ) + '==================================================================================================== + + WLog2(Auto_Log, "ִ PASE մϴ.()", "\߼α.txt") + If Me.PARSE(ð, Me.Sð) Then Me.PARSE_PATTERN(ð, Me.Sð) + If Me.PARSE(ðü, Me.Sðü) Then Me.PARSE_PATTERN(ðü, Me.Sðü) + + '//170320 + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + If Me.PARSE(ȸ, Me.Sȸ) Then Me.PARSE_PATTERN(ȸ, Me.Sȸ) + + + If Me.PARSE(θ_, Me.Sθ_) Then Me.PARSE_PATTERN(θ_, Me.Sθ_) + If Me.PARSE(θ_, Me.Sθ_) Then Me.PARSE_PATTERN(θ_, Me.Sθ_) + + '//Ʒ ,к θ + ιȣ ̴. + If Me.PARSE(θιȣ_, Me.Sθιȣ_) Then Me.PARSE_PATTERN(θιȣ_, Me.Sθιȣ_) + If Me.PARSE(θιȣ_, Me.Sθιȣ_) Then Me.PARSE_PATTERN(θιȣ_, Me.Sθιȣ_) + + + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE(, Me.S) Then Me.PARSE_() + If Me.PARSE(ȣ, Me.Sȣ) Then Me.PARSE_PATTERN(ȣ, Me.Sȣ) + + + 'Me.PARSE(θ, Me.Sθ) + + If Me.PARSE(2, Me.S2) Then Me.PARSE_2(2) + If Me.PARSE(бȣ, Me.Sбȣ) Then Me.PARSE_PATTERN(бȣ, Me.Sбȣ) + If Me.PARSE(б, Me.Sб) Then Me.PARSE_PATTERN(б, Me.Sб) + If Me.PARSE(, Me.s) Then Me.PARSE_PATTERN(, Me.s) + If Me.PARSE(, Me.S) Then Me.PARSE_PATTERN(, Me.S) + + If Me.PARSE_б뷮(б, б뷮) Then Me.PARSE_б뷮(б, б뷮) + + ' WLog2(Auto_Log, "New()", "\߼α.txt") + If PARSE_ȣ(ֹȣ) Then '//⼭ False ǹ̰ + ȣϰ˻ = Me.PARSE_ȣ(ֹȣ) '//θ ؼ Ϻм + If NUMCOLOR Then '//ȯ漳 󺸱Ⱑ õǾִٸ + If ȣϰ˻ = 3 Then '//Ѵپ. + '//Ѵپ κ̶ ⼭ Ʈ ش. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Red + Next + ElseIf ȣϰ˻ = 2 Then '//ڰ ̸ ִ. + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Green + Next + Else '//ڸ ְų Ѵִ. '//0̸ ̸ Ѵִ 1̸ ڵ ̵ ̰ + For i As Short = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).MyForeColor = Drawing.Color.Black + Next + End If + End If + End If + + WLog2(Auto_Log, ",Ϸùȣ,ǥÿθ pase մϴ.()", "\߼α.txt") + '========================= Ÿ ================================================= + '//̷ ǥؾѴ. + If Me.cb_n.Checked Then + Me.SϷùȣ(0).MyText = GetSpread(Me.Dv, index, "ȣ") 'index + 1 + Me.SϷùȣ(0).Visible = True + Else + Me.SϷùȣ(0).Visible = False + End If + + If <> "" AndAlso ȣ <> "" AndAlso Me.cb_g.Checked Then + Me.Sֹȣ(0).MyText = & "-" & ȣ + Me.Sֹȣ(0).Visible = True + Else + Me.Sֹȣ(0).Visible = False + End If + + If 2 <> "" AndAlso бȣ <> "" AndAlso Me.cb_p.Checked Then + Me.Sֹȣ2(0).MyText = 2 & "-" & бȣ + Me.Sֹȣ2(0).Visible = True + Else + Me.Sֹȣ2(0).Visible = False + End If + + If Ű <> "" AndAlso Me.cb_gojang.Checked Then + Me.StŰ(0).Visible = True + Else + Me.StŰ(0).Visible = False + End If + + WLog2(Auto_Log, "ڹ ǥÿθ մϴ.()", "\߼α.txt") + 'ڹ ǥÿ u a b d e + If Not Me.cb_u.Checked Then Me.S(0).Visible = False '// + 'If Not Me.cb_q.Checked Then Me.S0(0).Visible = False '//1 + 'If Not Me.cb_a.Checked Then Me.S2(0).Visible = False '//2 + 'If Not Me.cb_b.Checked Then Me.S3(0).Visible = False '//3 + If Not Me.cb_lu.Checked Then Me.Sθιȣ_(0).Visible = False '//+ 160123 + If Not Me.cb_lf.Checked Then Me.Sθιȣ_(0).Visible = False + + + ' ....................................................... + WLog2(Auto_Log, "Pewview 츦 մϴ.()", "\߼α.txt") + Me.preview_window() + ' If Me.chb_preview.Checked AndAlso previewWindow Then Me.preview_window() + End Sub + + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", "\߼α.txt") + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(Me.Dv, index, "ȣ1") & GetSpread(Me.Dv, index, "ȣ2") & GetSpread(Me.Dv, index, "ȣ3") & GetSpread(Me.Dv, index, "ȣ4") & GetSpread(Me.Dv, index, "ȣ5") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = dtpattern.Select("NAME = '" & pname & "DESC'") + WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + + Public Sub CLEAR_ITEM(ByVal labels() As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "Clear_item div=", "\(̺)α.txt") + For i As Short = 0 To labels.GetUpperBound(0) + labels(i).MyText = "" + labels(i).Visible = False + Next + End Sub + + Public Sub GetStyleList() + AddLog(Auto_Log, "GetStyleList()", "\(̺)α.txt") + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + If StyleDir.Exists = False Then StyleDir.Create() + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + + ' ReDim StyleList(StyleCnt) + ReDim Common.PDS(StyleCnt) '//ϵͼ Ѵ + + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + AddLog(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", "\(̺)α.txt") + + '//Ÿϸ ̺ ӽѴ(ϰ ҷ̴.) + Dim Dt As New System.Data.DataTable : Dt.Columns.Add("ϸ") + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Dt.Rows.Add(FI.FullName) + Next + + For Each Dr As DataRow In Dt.Select("", "ϸ asc") + Dim FileName As String = Dr("ϸ") + AddLog(Auto_Log, "ϸ=(" & FileName & ") Ÿ ɴϴ ޸𸮷", "\߼α.txt") + + '//XML̺ λ + Common.PDS(CurIdx) = New PatternDS + + GetAllsection(FileName, CurIdx) + + Me.cmb_style.Items.Add(Common.PDS(CurIdx).TStyle.Rows(0)("Desc").ToString()) + CurIdx += 1 + Next + End Sub + + Private Sub ̺() + WLog2(Auto_Log, "̺ ()", "\߼α.txt") + GetAllsection(DrStyle.FILE, Me.cmb_style.SelectedIndex) + + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + End Sub + + Private Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + AddLog(Admin, "Func(PrePare_Print) μȣ Ҵ غ", "\Alllog.txt") + + Dim Number As Integer = 0 + Dim FindNum As Boolean = False + Me.printindex = 0 '//迭 ù غѴ. + 'Me.PrintArray = Nothing '//¹ȣ 迭 ̴.\ + ReDim PrintArray(0) + PrintArray(0) = 1 + + 'log = False + 'AddLog("==============غ==============", True) + + Me.pDoc.DefaultPageSettings.Margins.Left = 0 'Me.tb_marginx.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = 0 'Me.tb_marginy.Text + Me.pDoc.DefaultPageSettings.Landscape = IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If Me.combobox5.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = Me.combobox5.Text + '//ε + If Me.RadioButton3.Checked AndAlso Me.tb_printrange.Text.Trim = "" Then Me.RadioButton2.Checked = True + + + If Me.rad_repeat.Checked Then + If IsNumeric(Me.tb_printrange.Text) = False Then + MsgBox(" ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return False + End If + ReDim PrintArray(Val(Me.tb_printrange.Text) - 1) + For i As Integer = 0 To Val(Me.tb_printrange.Text) - 1 + PrintArray(i) = Me.BindingNavigatorPositionItem.Text - 1 + Next + End If + + + If Me.RadioButton1.Checked Then '//ü̹Ƿ 迭 Ѵ : 絥 ڵ ε Ѵ. + AddLog(Admin, "üԴϴ.", "\Alllog.txt") + ReDim Me.PrintArray(Me.Dv.Count - 1) + For i As Integer = 0 To Dv.Count - 1 + AddLog(Admin, i & " Ҵմϴ.", "\Alllog.txt") + Me.PrintArray(i) = i + Next + AddLog(Admin, "ü " & Me.PrintArray.GetUpperBound(0) + 1 & " Դϴ", "\Alllog.txt") + End If + + If Me.RadioButton2.Checked Then '// : 纸ִٴ 信 ڵε Ѵ. + AddLog(Admin, ".", "\Alllog.txt") + ReDim Me.PrintArray(0) + Me.PrintArray(0) = Me.BindingNavigatorPositionItem.Text - 1 '/īƮ 1۴ 迭 0 ϱ⋚ + 'Me.printindex = -1 + End If + + '//2007-12-21 + If Me.RadioButton3.Checked Then '// : ȹ ȣ ش ε ãƼ 迭 ҴѴ. + AddLog(Admin, ".", "\Alllog.txt") + 'Dim buff() As String = Me.tb_printrange.Text.Split("/") + 'Dim curpos As Integer = 0 + 'MsgBox("rad3") + + + Dim buff As String = Me.tb_printrange.Text + ReDim Me.PrintArray(0) : Me.PrintArray(0) = -1 + + '// - ֳ Ǵؼ Ѵ. + If buff.IndexOf("-") >= 0 Then '//̴. + Dim SubBuff() As String = buff.Split("-") + Dim Sttnum As Integer = CInt(SubBuff(0)) '// + Dim endnum As Integer = CInt(SubBuff(1)) '//ᰪ + + For SI As Integer = 0 To endnum - Sttnum '//ŭ + FindNum = False + Number = CInt(Sttnum + SI) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + If PrintArray(0) = -1 Then '//ó̹Ƿ + Me.PrintArray(0) = ni + Else '//ó̾ƴϹǷ 迭 Ű Ѵ. + ReDim Preserve PrintArray(PrintArray.GetUpperBound(0) + 1) '//迭1 + Me.PrintArray(PrintArray.GetUpperBound(0)) = ni + End If + FindNum = True + Exit For + End If + Next + Next + + Else '//ȣ + If IsNumeric(buff) Then + Number = CInt(buff) '// ̹Ƿ + For ni As Integer = 0 To Dv.Count - 1 '// 絥͸ ˻Ѵ -> ˻ + If Number = Dv(ni).Row("ȣ") Then + PrintArray(0) = ni + Exit For + End If + Next + Else + MsgBox("(-) ϰ ڸ Էϼ", MsgBoxStyle.Critical, "Է¿") + End If + End If + End If + + If PrintArray(0) = -1 Then '//迭 ƹ͵ ٸ + Return False + Else + Return True + End If + End Function + + Private Sub Print_Preview() + WLog2(Auto_Log, "print_preview ̸ ư .()", "\߼α.txt") + Me.PrintMode = True + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox(EX.Message) + End Try + End Sub + + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + AddLog(Admin, "pDoc_PrintPage >> PDOC ü ¹ Ѵ PrintIndex=" & Me.printindex, "\Alllog.txt") + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + Dim NewLeft, NewTop As Integer + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then + AddLog(Admin, "pDoc_PrintPage >> Printindex -1 ƴϴ", "\Alllog.txt") + If Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + Else + MsgBox("Ʈ ε ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + e.Graphics.ScaleTransform(Me.tb_scalex.Text, Me.tb_scaley.Text) + + If Me.Chk_BgImageprint.Checked AndAlso Me.chk_DisplayBG.Checked AndAlso Not Me.bakimg.BackgroundImage Is Nothing Then + If Me.PrintMode = False Then '//̸϶ μ⸶ ʴ´. + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text), CInt(Me.tb_baky.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + Else + e.Graphics.DrawImage(Me.bakimg.BackgroundImage, CInt(Me.tb_bakx.Text) + CInt(Me.tb_marginx.Text), CInt(Me.tb_baky.Text) + CInt(Me.tb_marginy.Text), CInt(Me.tb_bakw.Text), CInt(Me.tb_bakh.Text)) '//׸ + End If + End If + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawLine(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.X2 + CInt(Me.tb_marginx.Text), Rect.Y2 + CInt(Me.tb_marginy.Text)) + Else + e.Graphics.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + End If + + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawRectangle(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + '// ׸. + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + If Me.PrintMode Then + e.Graphics.DrawEllipse(Pen, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + Next + End If + + If <> "" Then + Try + '//QRڵ带 ׸. + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + qrȨ1 = home1.Text + qrȨ2 = home2.Text + qrȨ3 = home3.Text + qrȨ4 = home4.Text + + + + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & θ_ & ":" & ֹȣ & ":" & ð + + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, e.Graphics.DpiX, e.Graphics.DpiY) + If Me.PrintMode Then + e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text), Rect.Width, Rect.Height) + Else + e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + + ' If Rect.Width = 0 OrElse Rect.Height = 0 Then + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + 'e.Graphics.DrawImage(image, Rect.X + CInt(Me.tb_marginx.Text), Rect.Y + CInt(Me.tb_marginy.Text)) + 'Else + ' Ga.DrawImage(Image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + 'e.Graphics.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + 'End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + + '// + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + AddLog(Admin, "pDoc_PrintPage >> ݺȽ(üݺȽƴ) : " & Me.tb_pagerepeat.Text, "\Alllog.txt") + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + AddLog(Admin, "pDoc_PrintPage >> " & pi & "° մϴ" & Me.tb_pagerepeat.Text, "\Alllog.txt") +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + For rcnt As Short = 0 To C.Repeat '//ݺ߰ + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + + NewLeft = C.Left + IIf(Me.PrintMode, Me.tb_marginx.Text, 0) + Me.tb_secX.Text * pi + rcnt * C.RepeatX + NewTop = C.Top + IIf(Me.PrintMode, Me.tb_marginy.Text, 0) + Me.tb_secY.Text * pi + rcnt * C.RepeatY + + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(NewLeft, NewTop)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(NewLeft, NewTop)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + Next + End If + Next + + '//ѵϰ ݺ信Ƚ ִȮѴ. + If Me.tb_pagerepeat.Text > 1 Then + ' If Me.cmb_dummy.SelectedIndex <> 0 Then '// ̸ ⼭ ͸ ش. + If Me.cmb_dummy.SelectedIndex <> 0 Then '//ִ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then + '// ߰üũѴ. 170308 + If pi < Me.tb_pagerepeat.Text - 1 Then + Me.printindex += 1 '/1ѱ + If Me.cmb_dummy.SelectedIndex <> 0 AndAlso Me.rad_repeat.Checked = False Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ٲٴµ..ȭ ʴ´. + End If + + + Else '// ε Ͱٸ ̻ ȵȴ. + Exit For + End If + End If + End If + Next '//pi ݺҰŸ ÿ + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + If Me.tb_pagerepeat.Text < 2 Then + Me.printindex += 1 '//ȣ + Else + Me.printindex += 1 '//ȣ + End If + e.HasMorePages = True + Else + e.HasMorePages = False + End If + e.Graphics.Dispose() + End Sub + + Private Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + Me.PrintMode = True + If Me.Prepare_Print() Then + pDoc.Print() + GeTviewData(BindingSource1.Position, True) ' preview_window() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Drawing.Color.Tomato, Me.lb_msg) + End If + End Sub + + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", "\߼α.txt") + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + + + + ''' ü ¸ ݴϴ. + ''' + Public Sub ViewProperty(ByVal sender As MyControlOLEDBv2.MyLabel) + WLog2(Auto_Log, "view properfty ü º()", "\߼α.txt") + If Not Me.GroupBox2.Enabled Then Me.GroupBox2.Enabled = True + + Me.TB_FONTNAME.Text = sender.MyFont.Name.ToString + Me.tb_left.Text = sender.Left + Me.tb_top.Text = sender.Top + + Me.tb_foncol.BackColor = sender.MyForeColor + Me.cb_visible.Checked = sender.Visible + Me.cb_bold.Checked = sender.MyFont.Bold + 'Me.cb_italic.Checked = sender.MyFont.Italic + ' Me.cb_uline.Checked = sender.MyFont.Underline + + Me.tb_fsize.Text = sender.MyFont.Size + Me.tb_wordwidth.Text = sender. + Me.tb_wordheight.Text = sender. + Me.tb_space.Text = sender. + + + + Me.GroupBox2.Text = "ġ/ũ/۲(" & sender.MyText & ") W=" & sender.Width & ",H=" & sender.Height + + + If Not sender.Tag Is Nothing Then '//⼭ ü 뿩θ ǥմϴ. + ' MsgBox(sender.Tag.ToString) + Me.lb_countpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("L") >= 0, Drawing.Color.Green, Drawing.Color.Black) + Me.lb_strpattern.ForeColor = IIf(sender.Tag.ToString.IndexOf("C") >= 0, Drawing.Color.Green, Drawing.Color.Black) + 'Me.CB_LPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("L") >= 0, True, False) + 'Me.CB_CHARPATTERN.Checked = IIf(sender.Tag.ToString.IndexOf("C") >= 0, True, False) + Else + Me.lb_countpattern.ForeColor = Drawing.Color.Black + Me.lb_strpattern.ForeColor = Drawing.Color.Black + End If + End Sub + + Private Sub ViewBackImage() + WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", "\׵α.txt") + Dim Picimg As String + If Me.tb_picfile.Text.IndexOf(":") > -1 Then '//̺ ״ξ ƴϸ ٿ. + Picimg = Me.tb_picfile.Text + Else + Picimg = My.Application.Info.DirectoryPath & "\image\" & Me.tb_picfile.Text + End If + If Not System.IO.File.Exists(Picimg) Then + Me.chk_DisplayBG.Checked = False + ElseIf Me.chk_DisplayBG.Checked Then + Me.PictureBox1.BackgroundImage = Image.FromFile(Picimg) + Me.bakimg.BackgroundImage = Image.FromFile(Picimg) + End If + End Sub + + + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_DisplayBG.CheckedChanged + WLog2(Auto_Log, "溸 üũڽ Ŭߴ.)", "\߼α.txt") + 'Me.PictureBox1.Visible = IIf(CType(sender, CheckBox).Checked, True, False) + If CType(sender, Windows.Forms.CheckBox).Checked Then + Me.ViewBackImage() + Else + Me.PictureBox1.BackgroundImage = Nothing + End If + End Sub + + + + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click + Dim A As New OpenFileDialog + WLog2(Auto_Log, "ã ư Ŭ", "\߼α.txt") + + If System.IO.File.Exists(Me.tb_picfile.Text) Then + A.FileName = Me.tb_picfile.Text + Else + A.FileName = My.Application.Info.DirectoryPath & "\image\normal.jpg" + End If + If A.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + Me.tb_picfile.Text = A.FileName + Me.PictureBox1.BackgroundImage = Image.FromFile(Me.tb_picfile.Text) + Me.chk_DisplayBG.Checked = True + End Sub + + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", "\߼α.txt") + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", "\߼α.txt") + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + + Private Sub ShowMsg(ByVal Message As String) + WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, "\߼α.txt") + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Public Sub SetFont() '//üũڽ ¿ Ʈ մϴ. + WLog2(Auto_Log, "set font üũڽ ¿ Ʈ մϴ.", "\߼α.txt") + Dim B As System.Drawing.FontStyle + If Me.cb_bold.Checked = True Then B = FontStyle.Bold + Dim Tobj As MyControlOLEDBv2.MyLabel + For Each A As Control In SelCon + Tobj = CType(A, MyControlOLEDBv2.MyLabel) + Tobj.MyFont = New Font(Tobj.MyFont, B) + Next + WLog2(Auto_Log, "setfont = preview ȣմϴ.", "\߼α.txt") + Me.preview_window() + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb_style.KeyUp + WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", "\߼α.txt") + e.Handled = True + End Sub + + Private Sub cmb_style_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_style.SelectedIndexChanged + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + WLog2(Auto_Log, "Ÿ ε Ǿ.", "\߼α.txt") + If Me.cmb_style.SelectedIndex < 0 Then Me.cmb_style.SelectedIndex = 0 + + '//⺻ 170219 + DrStyle = Common.PDS(Me.cmb_style.SelectedIndex).TStyle.Rows(0) + DtPattern = Common.PDS(Me.cmb_style.SelectedIndex).TPattern + + Dim DataFilter As String = drstyle.Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(Me.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, "\߼α.txt") + Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + NoView = True '//For Validate Index =0 + + '͸ ؼ 並 Ѵ ش 並 ͼҽ Ѵ. + Me.SaveReadLayOut(True) + Me.SaveDrawData(True) + + If FirstIdx = 0 Then '//Index is first + WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + Me.dataview.DataSource = Me.BindingSource1 + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + ''WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\߼α.txt") + 'Me.preview_window() + End Sub + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, "\߼α.txt") + Dim Arinini As New MyINI2(drstyle.File) + ' Dim pos(), font(), visible, mytext As String + Dim pos(), font(), mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + + Tobj.Visible = True + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + 'If DR.GetUpperBound(0) = 0 Then + ' visible = DR(0)(1).ToString + ' Tobj.Visible = CType(visible, Boolean) + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + If Div.ToUpper = "H" Then '//Hǰ ãƺ. + If Me.۵ = True Then '//ҷ´ + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + Tobj.Visible = True + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + 'If DR.GetUpperBound(0) = 0 Then + ' visible = DR(0)(1).ToString + ' Tobj.Visible = CType(visible, Boolean) + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + Else + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + + Tobj.Visible = True + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + 'If DR.GetUpperBound(0) = 0 Then + ' visible = DR(0)(1).ToString + ' Tobj.Visible = CType(visible, Boolean) + 'End If + + 'DR = dtpattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = DtPattern.Select("NAME = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + End If + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + + + WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", "\߼α.txt") + + ''''''''''''''''''''' Ÿ üũڽ ´. + For Each B As Control In Me.TabPage1.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + For Each B As Control In Me.TabPage3.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + Me.tb_marginx.Text = drstyle.MarginX 'Arinini.Read("STYLE", "MarginX", 10) + Me.tb_marginy.Text = drstyle.MarginY ' Arinini.Read("STYLE", "MarginY", 10) + Me.tb_scalex.Text = drstyle.ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + Me.tb_scaley.Text = drstyle.ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + '//̴ ʴ´.20090729 + 'Dim UseDummy As Boolean = drstyle.Dummy 'Arinini.Read("STYLE", "dummy", False) + 'Try + Me.tb_pagerepeat.Text = drstyle.DummyCnt + If Me.tb_pagerepeat.Text.Trim = "" OrElse Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "1" + 'Catch ex As Exception + ' If UseDummy Then + ' Me.tb_pagerepeat.Text = "2" + ' Else + ' Me.tb_pagerepeat.Text = "1" + ' End If + 'End Try + + + Me.cmb_dummy.SelectedIndex = drstyle.Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + Me.tb_secX.Text = drstyle.dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + Me.tb_secY.Text = drstyle.dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + If drstyle.Backimg.IndexOf("\") = -1 Then + Me.tb_picfile.Text = My.Application.Info.DirectoryPath & "\image\" & drstyle.Backimg + Else + Me.tb_picfile.Text = drstyle.Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + End If + Me.ViewBackImage() '//̹ ǥѴ. + + Me.pDoc.DefaultPageSettings.Landscape = drstyle.LandScape ' Arinini.Read("STYLE", "LandScape", False) + Me.cmb_landscape.SelectedIndex = IIf(Me.pDoc.DefaultPageSettings.Landscape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + Me.chk_DisplayBG.Checked = drstyle.Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + Me.Chk_BgImageprint.Checked = drstyle.Printbg + Me.tb_bakx.Text = drstyle.bakx + Me.tb_baky.Text = drstyle.baky + Me.tb_bakw.Text = drstyle.bakw + Me.tb_bakh.Text = drstyle.bakh + + + '//QRڵ + Try + Me.cboCorrectionLevel.Text = Arinini.Read("STYLE", "qrlevel", 1) + Me.cboEncoding.Text = Arinini.Read("STYLE", "qrencoding", 2) + Me.cboVersion.Text = Arinini.Read("STYLE", "qrvison", 1) + Dim qrbgstr As String = Arinini.Read("STYLE", "qrbg", "") + Dim qrfgstr As String = Arinini.Read("STYLE", "qrfg", "") + If qrbgstr = "" Then + lbQrBg.BackColor = Drawing.Color.White + Else + lbQrBg.BackColor = Drawing.Color.FromArgb(CInt(qrbgstr)) + End If + If qrfgstr = "" Then + lbQrFG.BackColor = Drawing.Color.Black + Else + lbQrFG.BackColor = Drawing.Color.FromArgb(CInt(qrfgstr)) + End If + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + + '//QRȨ + '//Try + Me.home1.Text = Arinini.Read("STYLE", "qrhome1", "http://cyber.kepco.co.kr") + Me.home2.Text = Arinini.Read("STYLE", "qrhome2", "jeonbuk") + Me.home3.Text = Arinini.Read("STYLE", "qrhome3", "mjeonbuk") + Me.home4.Text = Arinini.Read("STYLE", "qrhome4", "report.jsp?location") + '//Catch ex As Exception + '// MessageBox.Show(ex.ToString()) + '//End Try + Me.gojang.Text = Arinini.Read("STYLE", "gojang", "Ű Ʈϰ") + + + + Me.tb_myfontsize.Text = drstyle.PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + NOTICE(Me.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + + Public Sub SAVE_STYLE() + WLog2(Auto_Log, "iniϿ Ÿ մϴ. ", "\߼α.txt") + Dim Arinini As New MyINI2(drstyle.File) + Dim Arininic As New MyINI2(CStr(drstyle.File).ToLower.Replace("ini", "cfg")) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If Me.cmb_style.SelectedIndex < 0 Then + erp.SetError(Me.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(Me.cmb_style, vbNullString) + + + Dim f As New fProgress() + f.ProgressBar1.Minimum = 0 + f.ProgressBar1.Maximum = Me.AllLabels.Length + f.ProgressBar1.Value = 0 + f.ProgressBar1.Style = ProgressBarStyle.Blocks + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Control") + 'f.TopMost = True + f.Show() + Application.DoEvents() 'Dim Div As Char + + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + f.ProgressBar1.Value += 1 + f.Refresh() + + Tobj = Me.AllLabels(i).ctl + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", True) '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + Arinini.Write("STYLE", Tobj.Name & "repeat", Tobj.Repeat.ToString() + "," + Tobj.RepeatX.ToString() + "," + Tobj.RepeatY.ToString()) '//170222 + + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" + 'Arinini.Write("STYLE", Tobj.Name & "mytext", Arin.TextEnc(Tobj.MyText)) + 'End Select + + 'Div = Tobj.Name.Substring(0, 1) '1ڸ üũڽ ±׶ Ѵ. + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ش üũڽ ã üũڽ · Ѵ. + ' Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' Exit For + ' End If + ' End If + 'Next + Next + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "CheckBox") + f.Show() + Application.DoEvents() + f.ProgressBar1.Style = ProgressBarStyle.Marquee + + For Each TC As TabPage In Me.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + + 'Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width) '//ĵѴ. + 'Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "Ϲ") + f.Show() + Application.DoEvents() + + Arinini.Write("STYLE", "ViewImage", Me.chk_DisplayBG.Checked) + Arinini.Write("STYLE", "printbg", Me.Chk_BgImageprint.Checked) + Arininic.Write("printer", "printbg", Me.Chk_BgImageprint.Checked) + + If Not IsNumeric(tb_marginx.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginx.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginX", Me.tb_marginx.Text) + End If + + If Not IsNumeric(tb_marginy.Text) Then + MsgBox("μ⿩() ڷ Էϼ." + vbCrLf + "Է°:" + tb_marginy.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "MarginY", Me.tb_marginy.Text) + End If + + If Not IsNumeric(tb_scalex.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scalex.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleX", Me.tb_scalex.Text) + End If + + If Not IsNumeric(tb_scaley.Text) Then + MsgBox("Ȯ() ڷ Էϼ." + vbCrLf + "Է°:" + tb_scaley.Text, MsgBoxStyle.Information, "Ȯ") + Else + Arininic.Write("printer", "ScaleY", Me.tb_scaley.Text) + End If + + Arininic.Write("printer", "bakx", Me.tb_bakx.Text) + Arininic.Write("printer", "baky", Me.tb_baky.Text) + Arininic.Write("printer", "bakw", Me.tb_bakw.Text) + Arininic.Write("printer", "bakh", Me.tb_bakh.Text) + + Arinini.Write("STYLE", "bakx", Me.tb_bakx.Text) + Arinini.Write("STYLE", "baky", Me.tb_baky.Text) + Arinini.Write("STYLE", "bakw", Me.tb_bakw.Text) + Arinini.Write("STYLE", "bakh", Me.tb_bakh.Text) + + If Me.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (Me.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", Me.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arininic.Write("printer", "PrintFontOffset", Me.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + ' Arinini.Write("STYLE", "dummy", Me.cb_dummy.Checked) + Arinini.Write("STYLE", "dummycnt", Me.tb_pagerepeat.Text) + + Arinini.Write("STYLE", "dummytype", Me.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", Me.tb_secX.Text) + Arinini.Write("STYLE", "dummmyy", Me.tb_secY.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + '//QRڵ + Arinini.Write("STYLE", "qrencoding", Me.cboEncoding.Text) + Arinini.Write("STYLE", "qrlevel", Me.cboCorrectionLevel.Text) + Arinini.Write("STYLE", "qrvison", Me.cboVersion.Text) + Arinini.Write("STYLE", "qrfg", Me.lbQrFG.BackColor.ToArgb().ToString()) + Arinini.Write("STYLE", "qrbg", Me.lbQrBg.BackColor.ToArgb().ToString()) + + '//QRȨ + Arinini.Write("STYLE", "qrhome1", Me.home1.Text) + Arinini.Write("STYLE", "qrhome2", Me.home2.Text) + Arinini.Write("STYLE", "qrhome3", Me.home3.Text) + Arinini.Write("STYLE", "qrhome4", Me.home4.Text) + + Arinini.Write("STYLE", "gojang", Me.gojang.Text) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "̾ƿ") + f.Show() + Application.DoEvents() + + + Me.SaveReadLayOut(False) + + f.Label1.Text = String.Format("Ÿ մϴ" + vbCrLf + "׸ⰳü") + f.Show() + Application.DoEvents() + + + Me.SaveDrawData(False) + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + WLog2(Auto_Log, "save style Ϸ ̺ ȣ ", "\߼α.txt") + + f.Close() + f.Dispose() + Application.DoEvents() + + Me.̺() + Me.preview_window() + End Sub + + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + End If + + End Sub + + + Public Sub SAVE_PATTERNII(ByVal labels() As MyControlOLEDBv2.MyLabel, ByVal SRCSTR As String, Optional ByVal LOGFILENAME As String = "\.TXT", Optional ByVal BlineNum As String = "", Optional ByVal Prompt As Boolean = False) ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + + Dim Arinini As New MyINI2(drstyle.File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim MidName As String = labels(0).Pattern + If BlineNum <> "" Then MidName = "LNUM" & BlineNum & MidName + 'θ + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MidName & "II" & mb.ToString + + 'MsgBox(Pname & "/" & SRCSTR) + + + If Prompt = True AndAlso MsgBox(" Ͻðڽϱ?" & vbCrLf & "±:" & Pname & vbCrLf & "DIV:" & labels(0).DIV, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + + WLog2(Auto_Log, " save_pattern2 Ѵ.", "\(̺)α.txt") + For i As Integer = 0 To labels.GetUpperBound(0) + TOBJ = labels(i) + WLog2(Auto_Log, MidName & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MidName) + WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\(̺)α.txt") + Me.̺() + End Sub + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectedIndexChanged + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", "\߼α.txt") + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + End Sub + + Private Sub tb_foncol_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_foncol.DoubleClick + WLog2(Auto_Log, " ۾ Ŭ", "\߼α.txt") + Dim A As New ColorDialog + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + For Each Onlyone As MyControlOLEDBv2.MyLabel In SelCon + Onlyone.MyForeColor = A.Color + Next + Me.tb_foncol.BackColor = A.Color + End If + Me.preview_window() + End Sub + + Private Sub cb_bold_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_bold.CheckedChanged + WLog2(Auto_Log, "۾B õ setfont ȣ ", "\߼α.txt") + SetFont() + End Sub + + Private Sub UpdateFontSize(ByVal newsize As Integer, Optional ByVal Src As MyControlOLEDBv2.MyLabel = Nothing) ' + WLog2(Auto_Log, "updatefont : ", "\߼α.txt") + Dim A As Font + For Each Tobj As MyControlOLEDBv2.MyLabel In SelCon + A = New Font(Tobj.MyFont.FontFamily, newsize, FontStyle.Regular, GraphicsUnit.Point) + Tobj.MyFont = A + Next + Me.SetFont() + End Sub + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI2(FileC) + If Not IO.File.Exists(FileC) Then + MsgBox("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI2(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + + + + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(False, -5) + End Sub + + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(False, 5) + End Sub + + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(True, -5) + End Sub + + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(True, 5) + End Sub + + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(False, -5) + End Sub + + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(False, 5) + End Sub + + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(True, -5) + End Sub + + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(True, 5) + End Sub + + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + Private Sub NPartternCheck() + Dim ȣϰ˻ As Integer = 0 + + '//ϰ˻ + ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + For i As Integer = Me.textbox1.Text To Me.textbox2.Text + Me.showcnt(i, Me.textbox2.Text) + + Me.textbox1.Text = i + ȣϰ˻ = ChkNumPattern(i) + ' MsgBox(ȣϰ˻) + + If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + Me.BindingSource1.Position = i + Exit For + End If + Next + If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + End If + Me.bt_chkpattern.Text = "(&S)" + End Sub + + + Private Sub tb_printrange_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_printrange.TextChanged + If Me.rad_repeat.Checked = False Then Me.RadioButton3.Checked = True + End Sub + + Public Function PARSE(ByVal srcstr As String, ByVal Mylabels() As MyControlOLEDBv2.MyLabel) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + ' MsgBox("PARSET_") + Me.CLEAR_ITEM(Mylabels) + Dim Log As String = "\Parse_" & Mylabels(0).Name & ".txt" + If srcstr = "" OrElse Not Mylabels(0).CheckBox.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + WLog2(Auto_Log, "pase ", Log) + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + + If Mylabels.GetUpperBound(0) = 0 Then + Mylabels(0).MyText = srcstr + Mylabels(0).Visible = True + Else + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Select Case SRC(i) + Case ";" + Mylabels(i).MyText = "---" + Mylabels(i).Visible = True + Case ":" + Mylabels(i).MyText = "" + Mylabels(i).Visible = True + Case Else + Mylabels(i).MyText = SRC(i) + Mylabels(i).Visible = True + End Select + Catch ex As Exception + Exit For + End Try + Next + End If + Return True + End Function + + Public Sub PARSE_PATTERN(ByVal Srcstr As String, ByVal labels() As MyControlOLEDBv2.MyLabel, Optional ByVal BlineNum As String = "") + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim Log As String = "\PATTERN_" & labels(0).Name & ".txt" + '// ϴ Ȯغ. + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + AddLog(Admin, "Enter > Parse_Pattern", "\Alllog.txt") + Dim Pname As String = labels(0).Pattern & Wlen + If BlineNum <> "" Then '//ٱ׷ + ' Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, "LNUM" & BlineNum & Pname, Log, labels) + Else + ' Me.Ͽ(Srcstr, Pname, Log, labels(0).Tag, labels) + Pname = labels(0).Pattern & "II" & PATTERN_ENC(Srcstr) + Me.Ͽ(Srcstr, Pname, Log, labels) + End If + '//1 2 ã´. + '//2 style1LInepatternIIڼ + End Sub + '--------------------------------- + Public Function PARSE_ȣ(ByVal srcsTR As String) As Boolean + 'Me.CLEAR_ITEM("X") + Dim Log As String = "\Parse_ȣ.txt" + If srcsTR = "" OrElse Not Me.cb_x.Checked Then + Me.CLEAR_ITEM(Me.Sֹȣ) + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȣ(ByVal SRCSTR As String) As Integer + Dim Wlen As Short = SRCSTR.Length : If Wlen <= 0 Then Return 3 '// ۱Ͱ ع. + Dim SRC() As Char = SRCSTR.ToCharArray + Dim Log As String = "\Parse_ȣ.txt" + Dim SepPos As Short = SRCSTR.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI2(drstyle.File) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim PATTERN As String = PATTERN_ENC(SRCSTR) + Dim TOBJ As MyControlOLEDBv2.MyLabel + + Dim иε As Short = 0 + Dim ȣ As String = "999" + Dim Dr() As DataRow + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERN" & "II" & PATTERN + + Dr = dtpattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & SRCSTR & " =" & PATTERN, Log) + retval += 2 '// Ƿ ٷ ѱ. + End If + + + + + If retval = 2 Then '// 쿡 ȮѴ. + '// Ȯ + pname = "JJNUMPATTERN" & Wlen + + Dr = dtpattern.Select("NAME = '" & pname & "X1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & SRCSTR, Log) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "999") + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + TOBJ = Me.Sֹȣ(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = dtpattern.Select("NAME = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + WLog2(Auto_Log, " Ͽ=" & ex.Message.ToString, Log) + End Try + Next + Else + WLog2(Auto_Log, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & SRCSTR, Log) + retval += 1 '// + End If + End If + + Me.cmb_sep.SelectedIndex = иε + + If ȣ = "999" Then '//̾ٴ ̴ ȣ ش. + 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + If ֹȣ.Length <= 12 Then + If ֹȣ.Length <= 4 Then + ȣ = ֹȣ.Length & "00" + ElseIf ֹȣ.Length <= 8 Then + ȣ = "4" & CStr(ֹȣ.Length - 4) & "0" + Else + ȣ = "44" & CStr(ֹȣ.Length - 8) + End If + Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ȣ = CStr(Int(ֹȣ.Length / 3)) & CStr(Int(ֹȣ.Length / 3)) & CStr(ֹȣ.Length - Int(ֹȣ.Length / 3) * 2) + End If + 'MsgBox("ȣ=" & ȣ) + End If + + Me.tb_ntype.Text = ȣ + + ȣ(Me.tb_ntype.Text) '//ȣ ش. + Return retval '// 0 ϵɰ̴. ̶ ̴ + + + End Function + + + + + + + Private Function GetnextCtl(ByVal currCtl As MyControlOLEDBv2.MyLabel) As MyControlOLEDBv2.MyLabel + Dim a As MyControlOLEDBv2.MyLabel = Nothing + Select Case currCtl.Name.ToUpper + Case "X1" + a = Me.Sֹȣ(1) ' X2 + Case "X2" + a = Me.Sֹȣ(2) 'X3 + Case "X3" + a = Me.Sֹȣ(3) 'x4 + Case "X4" + a = Me.Sֹȣ(4) 'x5 + Case "X5" + a = Me.Sֹȣ(5) ' x6 + Case "X6" + a = Me.Sֹȣ(6) 'x7 + Case "X7" + a = Me.Sֹȣ(7) ' x8 + Case "X8" + a = Me.Sֹȣ(8) 'x9 + Case "X9" + a = Me.Sֹȣ(9) 'x10 + Case "X10" + a = Me.Sֹȣ(10) ' x11 + Case "X11" + a = Me.Sֹȣ(11) 'x12 + Case "X12" + a = Me.Sֹȣ(12) 'X13 + Case "X13" + a = Me.Sֹȣ(13) 'x14 + Case "X14" + a = Me.Sֹȣ(14) 'x15 + Case "X15" + a = Me.Sֹȣ(15) ' x16 + Case "X16" + a = Me.Sֹȣ(16) 'x17 + Case "X17" + a = Me.Sֹȣ(17) ' x18 + Case "X18" + a = Me.Sֹȣ(18) 'x19 + Case "X19" + a = Me.Sֹȣ(19) 'x20 + Case "X20" + a = Me.Sֹȣ(20) ' x21 + Case Else + a = Nothing + End Select + Return a + End Function + + + Private Sub ȣ(Optional ByVal msg As String = "999") + 'MsgBox("ȣ : " & ȣ, MsgBoxStyle.Information, msg) + '// ȣ ιȣ ǥѴ. + '//20070826 ȣ и/ ؼ Ѵ. + + Dim A() As Char = ֹȣ.ToCharArray + Dim P() As String + If msg.IndexOf(",") = -1 Then '// 140702 + Dim pp As New List(Of String) + For Each cc As Char In msg.ToCharArray + pp.Add(cc) + Next + P = pp.ToArray() + Else + P = msg.Split(",") + End If + Me.CLEAR_ITEM(Me.Sֹȣ) + + '//12̻ ̶ Ѵٸ شȣ ȥ ٲ۴. + If Me.cmb_sep.SelectedIndex = -1 OrElse (Me.cmb_sep.SelectedIndex = 1 AndAlso ֹȣ.Length > 30) Then Me.cmb_sep.SelectedIndex = 0 + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.Sֹȣ(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = 0 '//ü ° ߴٴ ǥ + + Dim Limit(P.GetUpperBound(0)) As Short '//迭 Ѱ + For i As Short = 0 To P.GetUpperBound(0) + If i = 0 Then + Limit(i) = CInt(P(i).ToString) + Else + Limit(i) = Limit(i - 1) + CInt(P(i).ToString) + End If + ' MsgBox("Ѱ԰ : " & i & " =" & Limit(i)) + Next + + Select Case Me.cmb_sep.SelectedIndex + Case 0 '//ȥ + '//ļ 4 Ѵ. + '// 3442 : 345 R23L1 R932 + ' MsgBox("ȣ=" & msg & "/" & ȣ & "/p0=" & P(0)) + Me.tb_ntype.Enabled = True '//и ̰ false ȴ. + Dim OK As Short = -1 '//Ϸ ȣ 迭 + Dim Ʈġ As Short = -1 + Dim RES As Boolean = False + + For i As Integer = 0 To A.GetUpperBound(0) + If CInt(P(OK + 1).ToString) <= 4 Then '//γִ´ + If i + 1 < Limit(OK + 1) Then + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For + Ʈġ += 1 + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Else '//4ũٸ ش ok Ѱ Ʈѿ ִ´. + If RES = False Then + Ʈġ += 1 + RES = True + End If + If i + 1 < Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i + 1 = Limit(OK + 1) Then + Me.Sֹȣ(Ʈġ).MyText &= IIf(A(i) <> ";", A(i), "") + OK += 1 : If OK > Limit.GetUpperBound(0) Then Exit For + RES = False + End If + End If + Next + Case 1 '//и + Me.tb_ntype.Enabled = False + For i As Int16 = 0 To A.GetUpperBound(0) '// 12 ͸ Ѵ.(30 ÷ Ұ̴) + Me.Sֹȣ(i).MyText = IIf(A(i) <> ";", A(i), "") + Next + Case 2 '// + Me.tb_ntype.Enabled = True + Dim OK As Short = -1 '//Ϸ ȣ 迭 + For i As Integer = 0 To A.GetUpperBound(0) + If i < Limit(OK + 1) Then + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i = Limit(OK + 1) Then + OK += 1 : If OK + 1 > Limit.GetUpperBound(0) Then Exit For + Me.Sֹȣ(OK + 1).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.Sֹȣ.GetUpperBound(0) + Me.Sֹȣ(i).Visible = IIf(Me.Sֹȣ(i).MyText = "", False, True) + Next + End Sub + + + Public Sub PARSE_б뷮(ByVal Srcstr As String, ByVal srcstr2 As String) + Dim Log As String = "\PATTERN_б뷮.txt" + Dim NewMsg As String = Srcstr & srcstr2 + Dim Wlen As Short = NewMsg.Length : If Wlen <= 0 Then Return + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = "BAPPATTERN" & NewMsg.Length + + ' Me.Ͽ(NewMsg, Pname, Log, "J", Sб뷮) + '//1 2 ã´. + '//2 style1LInepatternIIڼ + Pname = "BAPPATTERN" & "II" & PATTERN_ENC(NewMsg) + ' MsgBox(Pname) + + + Me.Ͽ(NewMsg, Pname, Log, Me.Sб뷮) + + End Sub + + Public Function PARSE_б뷮(ByVal srcstr As String, ByVal srcstr2 As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + '/θ ̴ ʴ´ Ʈ Ѵ. + 'MsgBox("p б뷮=" & б & "/" & б뷮) + Me.CLEAR_ITEM(Me.Sб뷮) + Dim Log As String = "\Parse_б뷮.txt" + If (srcstr = "" AndAlso srcstr2 = "") OrElse Not Me.cb_j.Checked Then + WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + ' srcstr = IIf(srcstr = "", srcstr2, srcstr & " " & srcstr2 & "KVA") + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + WLog2(Auto_Log, "Length=" & srcstr.Length & "," & srcstr2.Length, Log) + + 'If Me.cmb_style.Text = "бȣ(B)" Or Me.cmb_style.Text = "бȣ(ֵB)" Then + If Me.cmb_style.Text = "бȣ(ֵB)" Then + Me.Sб뷮(0).MyText = IIf(srcstr = "", srcstr2, srcstr & " " & srcstr2 & "K") + Me.Sб뷮(0).Visible = True + Return True + Else + Me.Sб뷮(0).MyText = IIf(srcstr = "", srcstr2, srcstr & " " & srcstr2 & "KVA") + Me.Sб뷮(0).Visible = True + Return True + End If + + + End Function + + + + Private Sub tb_ntype_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + + End Sub + + Private Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + Dim Secname As String = "pagetype" & Me.cmb_landscape.SelectedIndex + + If read = False Then + ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", Me.cmb_style.Left & "," & Me.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", Me.cmb_style.Width & "," & Me.cmb_style.Height) + ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + + If Me.cmb_landscape.SelectedIndex = 0 Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(0), ini.Read(Secname, "TabControl2loc", "16,246").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + TabControl2.Location = New Point(ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(0), ini.Read(Secname, "TabControl2loc", "265,1").Split(",")(1)) + GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + 'GroupBox9.Location = New Point(ini.Read(Secname, "GroupBox9loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox9loc", "262,6").Split(",")(1)) + 'GroupBox9.Size = New Size(ini.Read(Secname, "GroupBox9size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox9size", "245,192").Split(",")(1)) + End If + + End If + + End Sub + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_landscape.SelectedIndexChanged + Me.SaveReadLayOut(True) + End Sub + + Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + + End Sub + + Private Sub GetPrintersName() + WLog2(Auto_Log, "GetPrinterName()", "\߼α.txt") + Dim value As PrinterSettings.StringCollection = System.Drawing.Printing.PrinterSettings.InstalledPrinters + Me.combobox5.Items.Clear() + For i As Integer = 0 To value.Count - 1 + Me.combobox5.Items.Add(value(i)) + Next + End Sub + + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + + End If + End Sub + + + Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_chkpattern.Click + If Me.bt_chkpattern.Text = "(&S)" Then + ' If BackWork.IsAlive Then BackWork.Abort() + Me.bt_chkpattern.Text = "(&S)" + Else + Me.bt_chkpattern.Text = "(&S)" + 'BackWork = New Threading.Thread(AddressOf NPartternCheck) + 'BackWork.Start() + NPartternCheck() + End If + + End Sub + + + Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click + 'Me.SetFont() + If Not IsNumeric(Me.tb_space.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_space.Text) + 'Me.UpdateFontSize(Me.tb_space.Text, A) + Next + Me.preview_window() + tb_space.SelectAll() + tb_space.Focus() + End Sub + + Private Sub tb_picfile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb_picfile.TextChanged + If Not IO.File.Exists(Me.tb_picfile.Text) Then + Me.erp.SetError(Me.tb_picfile, "׸ ʽϴ") + Else + Me.erp.SetError(Me.tb_picfile, "") + End If + End Sub + + Private Sub bt_canvasL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasL.Click + Me.PictureBox1.Width -= 2 + End Sub + + Private Sub bt_canvasR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasR.Click + Me.PictureBox1.Width += 2 + End Sub + + Private Sub bt_canvasU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasU.Click + Me.PictureBox1.Height -= 2 + End Sub + + Private Sub bt_canvasD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_canvasD.Click + Me.PictureBox1.Height += 2 + End Sub + + Private Sub tb_space_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + + Private Sub preview_window() '//̸ȭ մϴ. + 'Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + '// ׸. + If Me.chk_draw.Checked Then + '// ׸. + For Each Rect As S_Line In Draw_Line + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawLine(Pen, Rect.X, Rect.Y, Rect.X2, Rect.Y2) + Next + '//ڽ ׸. + For Each Rect As S_Box In Draw_Box + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawRectangle(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + '// ׸ + For Each Rect As S_Circle In Draw_Circle + Dim Pen As New Drawing.Pen(Rect.PenColor, Rect.PenWidth) + Ga.DrawEllipse(Pen, Rect.X, Rect.Y, Rect.Width, Rect.Height) + Next + + If <> "" Then + Try + '// qrڵ带 ׸ + For Each Rect As S_QRCode In Draw_QRcode + 'Dim scale As Int16 + Dim version As Int16 + Dim image As Image + Dim data As String + Dim errorCorrect As String + Dim qrCodeEncoder1 As New QRCodeEncoder() + Dim encoding As String + encoding = cboEncoding.Text + If encoding = "3" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.BYTE + ElseIf encoding = "1" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.ALPHA_NUMERIC + ElseIf encoding = "2" Then + qrCodeEncoder1.QRCodeEncodeMode = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ENCODE_MODE.NUMERIC + ' Try + 'scale = Convert.ToInt16(txtSize.Text) + 'qrCodeEncoder.QRCodeScale = scale + 'Catch ex As Exception + ' MessageBox.Show("Invalid size!") + ' End Try + Try + version = Convert.ToInt16(cboVersion.Text) + qrCodeEncoder1.QRCodeVersion = version + Catch ex As Exception + MessageBox.Show("Invaild Version!") + End Try + End If + + errorCorrect = cboCorrectionLevel.Text + If errorCorrect = "1" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.L + ElseIf errorCorrect = "2" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.M + ElseIf errorCorrect = "3" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.Q + ElseIf errorCorrect = "4" Then + qrCodeEncoder1.QRCodeErrorCorrect = ThoughtWorks.QRCode.Codec.QRCodeEncoder.ERROR_CORRECTION.H + End If + + data = qrȨ1 & "/" & qrȨ2 & "/" & qrȨ3 & "/" & qrȨ4 & "=" & & "-" & ȣ & "&name=" & θ_ & ":" & ֹȣ & ":" & ð + If lbQrBg.BackColor <> Drawing.Color.White Then qrCodeEncoder1.QRCodeBackgroundColor = lbQrBg.BackColor + If lbQrFG.BackColor <> Drawing.Color.Black Then qrCodeEncoder1.QRCodeForegroundColor = lbQrFG.BackColor + image = qrCodeEncoder1.Encode(data, Ga.DpiX, Ga.DpiY) + If Rect.Width = 0 OrElse Rect.Height = 0 Then + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y) + Ga.DrawImage(image, Rect.X, Rect.Y) + Else + 'Ga.DrawImage(image, Rect.X + MyProperty_Paper.¿X, Rect.Y + MyProperty_Paper.¿Y, Rect.Width, Rect.Height) + Ga.DrawImage(image, Rect.X, Rect.Y, Rect.Width, Rect.Height) + End If + Next + Catch ex As Exception + MessageBox.Show(ex.ToString()) + End Try + End If + + + + End If + + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + If pi > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.DarkKhaki) '// 귯 . + Else + If rcnt > 0 Then '//¿ 򺯰 + Brush = New SolidBrush(Drawing.Color.LightGray) '// 귯 . + Else + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + End If + End If + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub cb_bold_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + SetFont() + End Sub + + + Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + If SelCon Is Nothing Then Return + + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + If B.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return + + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub TextBox3_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_left.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button5.PerformClick() + End Sub + + Private Sub TextBox4_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_top.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button9.PerformClick() + End Sub + + Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click + + For Each A As Control In SelCon + A.Top = IIf(IsNumeric(Me.tb_top.Text), Val(Me.tb_top.Text), A.Top) + Next + Me.preview_window() + tb_top.SelectAll() + tb_top.Focus() + End Sub + + Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click + + If Not IsNumeric(Me.tb_wordwidth.Text) Then Return + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordwidth.Text) + ViewProperty(A) + Next + Me.preview_window() + tb_wordwidth.SelectAll() + tb_wordwidth.Focus() + + End Sub + + Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click + If Not IsNumeric(Me.tb_wordheight.Text) Then Return + + For Each A As Control In SelCon + 'Me.UpdateFontWidth(CType(A, MyControlOLEDBv2.MyLabel). - Val(Me.tb_pixelsize.Text)) + CType(A, MyControlOLEDBv2.MyLabel). = CInt(Me.tb_wordheight.Text) + ViewProperty(A) + Next + Me.preview_window() + tb_wordheight.SelectAll() + tb_wordheight.Focus() + End Sub + + Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click + If Not IsNumeric(Me.tb_fsize.Text) Then + MsgBox("ڸ Էϼ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + For Each A As Control In SelCon + Me.UpdateFontSize(Me.tb_fsize.Text, A) + Next + Me.preview_window() + tb_fsize.SelectAll() + tb_fsize.Focus() + End Sub + + Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click + For Each A As Control In SelCon + A.Left = IIf(IsNumeric(Me.tb_left.Text), Val(Me.tb_left.Text), A.Left) + Next + Me.preview_window() + tb_left.SelectAll() + tb_left.Focus() + End Sub + + Private Sub TextBox5_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordwidth.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button10.PerformClick() + End Sub + + Private Sub TextBox6_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_wordheight.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button11.PerformClick() + End Sub + + Private Sub TextBox7_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_fsize.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button12.PerformClick() + End Sub + + Private Sub TextBox8_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_space.KeyUp + If e.KeyCode = Keys.Enter Then Me.Button3.PerformClick() + End Sub + + Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click + If SelCon Is Nothing Then Return + Dim B As New FontDialog + B.Font = CType(SelCon(0), MyControlOLEDBv2.MyLabel).MyFont + For Each a As MyControlOLEDBv2.MyLabel In SelCon + a.MyFont = B.Font + Next + Me.ViewProperty(CType(SelCon(0), MyControlOLEDBv2.MyLabel)) + Me.preview_window() + End Sub + + Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.preview_window() + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.GeTviewData(Me.BindingSource1.Position, True) + End Sub + + Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click + '// 5 + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("5 (" & Me.S(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S(4).) + msg.AppendLine(" = " & Me.S(4).) + msg.AppendLine("ǥ = " & Me.S(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + + 'MsgBox(drstyle.File) + + + Dim Arinini As New MyINI2(drstyle.File) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S(4) + Dim Pname As String = "CNUMPATTERNI" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Drawing.Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Drawing.Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + If Not Me.AllLabels(z).ctl.Visible Then Continue For + If String.IsNullOrEmpty(Me.AllLabels(z).ctl.MyText) Then Continue For + Me.AllLabels(z).ctl.MyForeColor = Drawing.Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else + Me.Button1.PerformClick() + End If + End If + 'onlyOne = sender + 'CType(sender, MyControlOLEDBv2.MyLabel). + Me.cmb_controls.Text = Tobj. + ViewProperty(Tobj) + + 'For Each A As MyControlOLEDBv2.MyLabel In SelCon + ' A.MyForeColor = Color.DodgerBlue + ' Next + + Me.tb_left.Focus() + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + End Sub + + Private Sub cmb_controls_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_controls.SelectionChangeCommitted + For Each A As MyControlOLEDBv2.MyLabel In Me.SelCon + A.MyForeColor = Drawing.Color.Black + Next + SelCon.Clear() + SelCon.Add(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + AllLabels(Me.cmb_controls.SelectedIndex).ctl.MyForeColor = Drawing.Color.DodgerBlue + ViewProperty(AllLabels(Me.cmb_controls.SelectedIndex).ctl) + Me.preview_window() + End Sub + + Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click + Me.Close() + End Sub + + + Public Sub PARSE_(ByVal srcstr As String) + Dim Log As String = "\Parse_.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + + 'Dim lpattern As Boolean = False + Dim Pname As String = "CNUMPATTERN" & Wlen + 'Dim Sname As String + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim Arinini As New MyINI2(drstyle.File) + 'Dim tobj As MyControlOLEDBv2.MyLabel + Dim Dr() As DataRow + 'Dim idx As Short = 0 + ' Me.Ͽ(srcstr, Pname, Log, "H", S) + + Pname = "CNUMPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, S) + + '//5 ĺ ̵Ǿִ ȮѴ. + Pname = "CNUMPATTERNI" & S(4).MyText ' Me.h5.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + Dr = dtpattern.Select("NAME = '" & Pname & "DESC'") + + If Dr.GetUpperBound(0) = 0 Then '//ִ. + AddLog(Admin, "5 ڸ ãҽϴ (" & Pname & "DESC" & ")", Log) + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + Me.S(4).Location = New Point(CTLPOS(0), CTLPOS(1)) + Me.S(4).Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + S(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + S(4). = CTLFONT(5) + S(4). = CTLFONT(6) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + S(4).Visible = CType(CTLVISIBLE, Boolean) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S(4).Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + S(4). = Dr(0)(1) + End If + Else + AddLog(Admin, "5 ڰ Ǿʽϴ. (" & S(4).MyText & ")", Log) + End If + End Sub + + Public Sub PARSE_2(ByVal srcstr As String) + Dim Log As String = "\Parse_.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + + 'Dim lpattern As Boolean = False + Dim Pname As String = "BKWANPATTERN" & Wlen + 'Dim Sname As String + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim Arinini As New MyINI2(drstyle.File) + 'Dim tobj As MyControlOLEDBv2.MyLabel + Dim Dr() As DataRow + 'Dim idx As Short = 0 + ' Me.Ͽ(srcstr, Pname, Log, "H", S) + + Pname = "BKWANPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, S2) + + '//5 ĺ ̵Ǿִ ȮѴ. + Pname = "BKWANPATTERNI" & S2(4).MyText ' Me.h5.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + Dr = dtpattern.Select("NAME = '" & Pname & "DESC'") + If Dr.GetUpperBound(0) = 0 Then '//ִ. + AddLog(Admin, "5 ڸ ãҽϴ (" & Pname & "DESC" & ")", Log) + Dr = dtpattern.Select("NAME = '" & Pname & S2(4).Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + Me.S2(4).Location = New Point(CTLPOS(0), CTLPOS(1)) + Me.S2(4).Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = dtpattern.Select("NAME = '" & Pname & S2(4).Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + S2(4).MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + S2(4). = CTLFONT(5) + S2(4). = CTLFONT(6) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S2(4).Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + S2(4).Visible = CType(CTLVISIBLE, Boolean) + End If + Dr = dtpattern.Select("NAME = '" & Pname & S2(4).Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + S2(4). = Dr(0)(1) + End If + Else + AddLog(Admin, "25 ڰ Ǿʽϴ. (" & S2(4).MyText & ")", Log) + End If + End Sub + + Private Sub Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + AddLog(Admin, "ENter > Ͽ(" & pname & ")", "\Alllog.txt") + + DR = dtpattern.Select("NAME = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + AddLog(Admin, " Ͽ ã", "\Alllog.txt") + WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = dtpattern.Select("NAME = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = dtpattern.Select("NAME = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + + '//ݺȮ Arinini.Write(Pname, TOBJ.Name & "repeat", TOBJ.Repeat & "," & TOBJ.RepeatX & "," & TOBJ.RepeatY) '//ݺ + AddLog(Auto_Log, "ݺڼƮ : " & pname & C.Name & "REPEAT" & " ˻մϴ") + DR = dtpattern.Select("NAME = '" & pname & C.Name & "REPEAT'") + If DR.GetUpperBound(0) = 0 Then + AddLog(Auto_Log, "شݺڸ ãҽϴ") + CTLFONT = DR(0)(1).ToString.Split(",") + AddLog(Auto_Log, "شݺڸ ޸ ɰ CTLFONT 迭 Ͽϴ.") + C.Repeat = CTLFONT(0) + AddLog(Auto_Log, "شݺ 0°ġ ") + C.RepeatX = CTLFONT(1) + AddLog(Auto_Log, "شݺ 1°ġ ") + C.RepeatY = CTLFONT(2) + AddLog(Auto_Log, "شݺ 2°ġ ") + 'C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + ' C. = CTLFONT(5) + ' C. = CTLFONT(6) + Else + AddLog(Auto_Log, "شݺڸ ã߽ϴ.") + End If + C.Tag = "C" + Catch ex As Exception + WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + AddLog(Admin, " Ͽ ã ϹݽŸ ҷɴϴ.", "\Alllog.txt") + WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr & "νŸ ҷմϴ(" & S(0).DIV & ")", log) + ''//νŸ ҷ´. + Me.LOAD_STYLE(S(0).DIV) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_style.SelectionChangeCommitted + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + Private Sub cmb_1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_bigo1.SelectionChangeCommitted + Select Case Me.cmb_bigo1.SelectedIndex + Case 1 + Me.S(0).MyText = "󺯾б" + Case 2 + Me.S(0).MyText = "" + End Select + Me.preview_window() + End Sub + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + Private Sub ToolStripTextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_ntype.KeyUp + If e.KeyCode = Keys.Enter Then + If Me.cmb_sep.SelectedIndex = 1 Then + NOTICE("и¿ ȣ Ұմϴ", Drawing.Color.Red, Me.lb_msg) + Else + ȣ(Me.tb_ntype.Text) + End If + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + + End Sub + Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove + 'Me.Text = e.X & "/" & e.Y + + If My.Computer.Keyboard.CtrlKeyDown = True AndAlso My.Computer.Keyboard.AltKeyDown = True Then + '//õ Ʈ 콺ġ ̵Ѵ. + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + For Each sender1 As MyControlOLEDBv2.MyLabel In SelCon + sender1.Left = e.X - (sender1.Width / 2) + sender1.Top = e.Y + (sender1.Height / 2) + Next + Me.preview_window() + End If + End Sub + + Private Sub ToolStripButton2_ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.ButtonClick + Me.Print() + End Sub + + Private Sub bt_prnpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_prnpreview.Click + Me.Print_Preview() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = Me.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub Refresh_Drawlist() + '//;ϰ ڽ о Ʈڽ + Me.ListBox1.Items.Clear() + Dim I As Short = 0 + For Each Rect As S_Line In Draw_Line + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.X2 & "," & Rect.Y2 & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Box In Draw_Box + Me.ListBox1.Items.Add("ڽ(" & Rect.X & "," & Rect.X & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + For Each Rect As S_Circle In Draw_Circle + Me.ListBox1.Items.Add("(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + Next + I = 0 + For Each Rect As S_QRCode In Draw_QRcode + Me.ListBox1.Items.Add("QR(" & Rect.X & "," & Rect.Y & "," & Rect.Width & "," & Rect.Height & "):" & I) + I += 1 + Next + I = 0 + + preview_window() + End Sub + Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click + '//߰ + Dim NewLine As New S_Line + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Line.Count * 10 + NewLine.Y = 10 + NewLine.X2 = 100 + Draw_Line.Count * 10 + NewLine.Y2 = NewLine.X2 + + Draw_Line.Add(NewLine) + Refresh_Drawlist() + + End Sub + + Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click + '//߰ + Dim NewLine As New S_Box + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = Draw_Box.Count * 10 + NewLine.Y = Draw_Box.Count * 10 + NewLine.Width = 100 + Draw_Box.Count * 10 + NewLine.Height = NewLine.Width + Draw_Box.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged + If Me.ListBox1.SelectedIndex < 0 Then Return + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As S_Line = Draw_Line(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.X2 + Me.tb_dh.Text = Line.Y2 + Case "" + Dim Line As S_Box = Draw_Box(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + Case "" + Dim Line As S_Circle = Draw_Circle(Me.ListBox1.Text.Split(":")(1)) + Me.bt_pencolor.BackColor = Line.PenColor + Me.tb_pensize.Text = Line.PenWidth + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Case "Q" + Dim Line As S_QRCode = Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) + Me.tb_dx.Text = Line.X + Me.tb_dy.Text = Line.Y + Me.tb_dw.Text = Line.Width + Me.tb_dh.Text = Line.Height + + End Select + End Sub + + Private Sub tb_pensize_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pensize.KeyDown, tb_dx.KeyDown, tb_dy.KeyDown, tb_dw.KeyDown, tb_dh.KeyDown + If Me.ListBox1.SelectedIndex < 0 Then Return + Dim SI As Short = Me.ListBox1.SelectedIndex + If e.KeyCode = Keys.Enter Then + '//θ Ѵ. + Set_NewDraw() + Me.Refresh_Drawlist() + Me.ListBox1.SelectedIndex = SI + End If + + End Sub + + Private Sub Set_NewDraw() + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Dim Line As New S_Line + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.X2 = Me.tb_dw.Text + Line.Y2 = Me.tb_dh.Text + Draw_Line(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "" + Dim Line As New S_Box + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_Box(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("ڽ籸") + Case "" + Dim Line As New S_Circle + Line.PenColor = Me.bt_pencolor.BackColor + Line.PenWidth = Me.tb_pensize.Text + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Draw_Circle(Me.ListBox1.Text.Split(":")(1)) = Line + 'MsgBox("籸") + Case "Q" + Dim Line As New S_QRCode + Line.X = Me.tb_dx.Text + Line.Y = Me.tb_dy.Text + Line.Width = Me.tb_dw.Text + Line.Height = Me.tb_dh.Text + Draw_QRcode(Me.ListBox1.Text.Split(":")(1)) = Line + End Select + End Sub + + Private Sub bt_pencolor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pencolor.Click + Dim CD As New ColorDialog + CD.Color = Me.bt_pencolor.BackColor + If CD.ShowDialog <> Windows.Forms.DialogResult.OK Then Return + Me.bt_pencolor.BackColor = CD.Color + Set_NewDraw() + End Sub + + Private Sub SaveDrawData(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI2(drstyle.File) + + Dim bname As String = "DrawBox" + Dim lname As String = "DrawLine" + Dim cname As String = "DrawCircle" + Dim qname As String = "DrawQRcode" + + Dim bcnt, lcnt, ccnt, qcnt As Short + + If read = False Then + ini.Write(bname, "Count", Draw_Box.Count) + For i As Short = 1 To Draw_Box.Count '//εƼ Ѵ. + Dim L As S_Box = Draw_Box(i - 1) + ini.Write(bname, "box" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(bname, "box" & i & "pensize", L.PenWidth) + ini.Write(bname, "box" & i & "x", L.X) + ini.Write(bname, "box" & i & "y", L.Y) + ini.Write(bname, "box" & i & "x2", L.Width) + ini.Write(bname, "box" & i & "y2", L.Height) + Next + ini.Write(lname, "Count", Draw_Line.Count) + For i As Short = 1 To Draw_Line.Count '//εƼ Ѵ. + Dim L As S_Line = Draw_Line(i - 1) + ini.Write(lname, "line" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(lname, "line" & i & "pensize", L.PenWidth) + ini.Write(lname, "line" & i & "x", L.X) + ini.Write(lname, "line" & i & "y", L.Y) + ini.Write(lname, "line" & i & "x2", L.X2) + ini.Write(lname, "line" & i & "y2", L.Y2) + Next + ini.Write(cname, "Count", Draw_Circle.Count) + For i As Short = 1 To Draw_Circle.Count '//εƼ Ѵ. + Dim L As S_Circle = Draw_Circle(i - 1) + ini.Write(cname, "circle" & i & "pencolor", L.PenColor.ToArgb) + ini.Write(cname, "circle" & i & "pensize", L.PenWidth) + ini.Write(cname, "circle" & i & "x", L.X) + ini.Write(cname, "circle" & i & "y", L.Y) + ini.Write(cname, "circle" & i & "x2", L.Width) + ini.Write(cname, "box" & i & "y2", L.Height) + Next + ini.Write(qname, "Count", Draw_QRcode.Count) + For i As Short = 1 To Draw_QRcode.Count '//εƼ Ѵ. + Dim L As S_QRCode = Draw_QRcode(i - 1) + 'ini.Write(pname, "Image" & i & "pencolor", L.PenColor.ToArgb) + 'ini.Write(pname, "Image" & i & "pensize", L.PenWidth) + ini.Write(qname, "qrcode" & i & "x", L.X) + ini.Write(qname, "qrcode" & i & "y", L.Y) + ini.Write(qname, "qrcode" & i & "x2", L.Width) + ini.Write(qname, "qrcode" & i & "y2", L.Height) + Next + Else '// д κ + Draw_Box.Clear() + Draw_Line.Clear() + Draw_Circle.Clear() + Draw_QRcode.Clear() + + bcnt = ini.Read(bname, "Count", 0) + For i As Short = 1 To bcnt '//εƼ Ѵ. + Dim L As New S_Box + L.PenColor = Drawing.Color.FromArgb(ini.Read(bname, "box" & i & "pencolor", 0)) + L.PenWidth = ini.Read(bname, "box" & i & "pensize", 3) + L.X = ini.Read(bname, "box" & i & "x", 0) + L.Y = ini.Read(bname, "box" & i & "y", 0) + L.Width = ini.Read(bname, "box" & i & "x2", 10) + L.Height = ini.Read(bname, "box" & i & "y2", 10) + Draw_Box.Add(L) + Next + + lcnt = ini.Read(lname, "Count", 0) + For i As Short = 1 To lcnt '//εƼ Ѵ. + Dim L As New S_Line + L.PenColor = Drawing.Color.FromArgb(ini.Read(lname, "line" & i & "pencolor", 0)) + L.PenWidth = ini.Read(lname, "line" & i & "pensize", 3) + L.X = ini.Read(lname, "line" & i & "x", 0) + L.Y = ini.Read(lname, "line" & i & "y", 0) + L.X2 = ini.Read(lname, "line" & i & "x2", 10) + L.Y2 = ini.Read(lname, "line" & i & "y2", 10) + Draw_Line.Add(L) + Next + + ccnt = ini.Read(cname, "Count", 0) '// + For i As Short = 1 To ccnt '//εƼ Ѵ. + Dim L As New S_Circle + L.PenColor = Drawing.Color.FromArgb(ini.Read(cname, "circle" & i & "pencolor", 0)) + L.PenWidth = ini.Read(cname, "circle" & i & "pensize", 3) + L.X = ini.Read(cname, "circle" & i & "x", 0) + L.Y = ini.Read(cname, "circle" & i & "y", 0) + L.Width = ini.Read(cname, "circle" & i & "x2", 10) + L.Height = ini.Read(cname, "circle" & i & "y2", 10) + Draw_Circle.Add(L) + Next + + qcnt = ini.Read(qname, "Count", 0) + For i As Short = 1 To qcnt '//εƼ Ѵ. + Dim L As New S_QRCode + 'L.PenColor = Color.FromArgb(ini.Read(pname, "Circle" & i & "pencolor", 0)) + 'L.PenWidth = ini.Read(sname, "Circle" & i & "pensize", 3) + L.X = ini.Read(qname, "qrcode" & i & "x", 0) + L.Y = ini.Read(qname, "qrcode" & i & "y", 0) + L.Width = ini.Read(qname, "qrcode" & i & "x2", 10) + L.Height = ini.Read(qname, "qrcode" & i & "y2", 10) + Draw_QRcode.Add(L) + Next + Me.Refresh_Drawlist() + End If + + End Sub + + Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click + Try + '// + Select Case Me.ListBox1.Text.Substring(0, 1) + Case "" + Draw_Line.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Box.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "" + Draw_Circle.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + Case "Q" + Draw_QRcode.RemoveAt(Me.ListBox1.Text.Split(":")(1)) + End Select + Me.Refresh_Drawlist() + Catch ex As Exception + MessageBox.Show(" մϴ.", "Ȯ", MessageBoxButtons.OK, MessageBoxIcon.Error) + ListBox1.Focus() + End Try + End Sub + + Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click + '// 5 + + Dim msg As New System.Text.StringBuilder + msg.AppendLine("б 5 (" & Me.S2(4).MyText & " )ڿ Ÿ մϴ") + msg.AppendLine() + msg.AppendLine(" б 5 ڰ ð쿡 ݿ˴ϴ") + msg.AppendLine("------------------") + msg.AppendLine("۲ = " & Me.S2(4).MyFont.ToString) + msg.AppendLine("ʺ = " & Me.S2(4).) + msg.AppendLine(" = " & Me.S2(4).) + msg.AppendLine("ǥ = " & Me.S2(4).Location.ToString) + msg.AppendLine("------------------") + msg.AppendLine(" Ͻðڽϱ?") + + If MsgBox(msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE("ҵǾϴ", Me.lb_msg) + Return + End If + + '̰ ϴ Լ. + 'MsgBox(drstyle.File) + + Dim Arinini As New MyINI2(drstyle.File) + Dim TOBJ As MyControlOLEDBv2.MyLabel = Me.S2(4) + Dim Pname As String = "BKWANPATTERN" & "I" & TOBJ.MyText '//5 W ϶ cnumpatternIw ãԵȴ. + + Arinini.Write(Pname, "DESC", " Ư(" & TOBJ.MyText & ")") + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + NOTICE("б 5 (" & TOBJ.MyText & ") ¸ Ͽϴ", Me.lb_msg) + ̺() + End Sub + + Private Sub θȣToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles θȣToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_, "U", Me..Length, "\.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sθιȣ_, Me.θιȣ_, "\α2.TXT") '//θ մϴ. + End Sub + + Private Sub θбToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles θбToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_, "U", Me..Length, "\.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sθιȣ_, Me.θιȣ_, "\κб2.TXT") '//θ մϴ. + End Sub + + Private Sub yoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles yoolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_, "U", Me..Length, "\.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\2.TXT") '//θ մϴ. + End Sub + + Private Sub fyripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fyripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_б뷮, "J", CStr(Me.б & Me.б뷮).Length, "\б뷮.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sб뷮, CStr(Me.б & Me.б뷮), "\б뷮2.TXT") '//θ մϴ. + + End Sub + + Private Sub dfgdfoolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dfgdfoolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_θ, "L", Me.θ.Length, "\θ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sθ_, Me.θ_, "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub fdaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_savenum.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_ֹȣ, "X", Me.ȣ.Length, "\ȣ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sֹȣ, Me.ֹȣ, "\ȣ2.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_c.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_ðü, "C", Me.ðü.Length, "\ðü.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sðü, Me.ðü, "\ðü2.TXT") '//θ մϴ. + End Sub + + Private Sub pbt_y_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbt_y.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.ϸ_ð, "Y", Me.ð.Length, "\ð.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sð, Me.ð, "\ð2.TXT") '//θ մϴ. + End Sub + + Private Sub bt_kwnbripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kwnb.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.ϸ_б, "D", Me.2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S2, Me.2, "\б.TXT") '//θ մϴ. + End Sub + + Private Sub bt_kawnbusipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_kawnbus.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_бȣ, "E", Me.ȣ2.Length, "\бȣ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sбȣ, Me.бȣ, "\ȣ.TXT", "", True) '//θ մϴ. + End Sub + + Private Sub bt_nuhaipMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_nuha.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_, "K", Me..Length, "\.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\.TXT") '//θ մϴ. + End Sub + + Private Sub bt_swenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_sw.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_, "I", Me..Length, "\.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.s, Me., "\.TXT") '//θ մϴ. + End Sub + + Private Sub bt_byunenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_byun.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.ϸ_б, "F", Me.б.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sб, Me.б, "\б.TXT") '//θ մϴ. + End Sub + Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening + If Me.cmb_style.Items.Count < 1 Then + Me.cm_styleedit.Enabled = False + End If + + End Sub + + Private Sub tb_pagerepeat_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pagerepeat.KeyDown, tb_secX.KeyDown, tb_secY.KeyDown + If e.KeyCode = Keys.Enter Then + Me.preview_window() + End If + End Sub + + Private Sub cb_visible_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_visible.CheckedChanged + WLog2(Auto_Log, "ǥ üũڽ ", "\εα.txt") + For Each a As Control In SelCon + a.Visible = Me.cb_visible.Checked + Next + WLog2(Auto_Log, "[ǥ] üũڽ ÿ pewview ȣ ", "\εα.txt") + Me.preview_window() + End Sub + + Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click + Dim NewLine As New S_Circle + NewLine.PenColor = Drawing.Color.Black + NewLine.PenWidth = 3 + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 200 + 'NewLine.Height = 200 + Draw_Circle.Add(NewLine) + Refresh_Drawlist() + End Sub + + Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click + Dim NewLine As New S_QRCode + NewLine.X = 100 + NewLine.Y = 100 + NewLine.Width = 0 + NewLine.Height = 0 + Draw_QRcode.Add(NewLine) + Refresh_Drawlist() + End Sub + + + Private Sub θToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles θToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_θ, "L", Me.θ.Length, "\θ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sθ_, Me.θ_, "\θ2.TXT") '//θ մϴ. + End Sub + + Private Sub AToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.ϸ_б, "D", Me.2.Length, "\б.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\A.TXT") '//θ մϴ. + End Sub + + Private Sub ȭȣAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ȭȣAToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_бȣ, "E", Me.ȣ2.Length, "\бȣ.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sȣ, Me.ȣ, "\ȣ.TXT") '//θ մϴ. + End Sub + + Private Sub ȸToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ȸToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + ' SAVE_PATTERN(Me.ϸ_ðü, "C", Me.ðü.Length, "\ðü.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.Sȸ, Me.ȸ, "\ȸ2.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem.Click + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + 'SAVE_PATTERN(Me.ϸ_ð, "Y", Me.ð.Length, "\ð.TXT") '//θ մϴ. + SAVE_PATTERNII(Me.S, Me., "\2.TXT") '//θ մϴ. + End Sub + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrBg.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrBg.BackColor = a.Color + End If + End Sub + + Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked + Dim a As New ColorDialog + a.Color = lbQrFG.BackColor + If a.ShowDialog() = Windows.Forms.DialogResult.OK Then + lbQrFG.BackColor = a.Color + End If + End Sub +End Class + + diff --git a/Epole/출력폼/Prn_Child_karo.Designer.vb b/Epole/출력폼/Prn_Child_karo.Designer.vb new file mode 100644 index 0000000..24fb3cf --- /dev/null +++ b/Epole/출력폼/Prn_Child_karo.Designer.vb @@ -0,0 +1,655 @@ + _ +Partial Class Prn_Child_karo + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Prn_Child_karo)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip + Me.lb_countpattern = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_strpattern = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_selcon = New System.Windows.Forms.ToolStripStatusLabel + Me.lb_msg = New System.Windows.Forms.ToolStripStatusLabel + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.cm_styleedit = New System.Windows.Forms.ToolStripMenuItem + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.erp = New System.Windows.Forms.ErrorProvider(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.VScrollBar1 = New System.Windows.Forms.VScrollBar + Me.Panel1 = New System.Windows.Forms.Panel + Me.PictureBox1 = New System.Windows.Forms.PictureBox + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_canvasD = New System.Windows.Forms.ToolStripButton + Me.bt_canvasU = New System.Windows.Forms.ToolStripButton + Me.bt_canvasR = New System.Windows.Forms.ToolStripButton + Me.bt_canvasL = New System.Windows.Forms.ToolStripButton + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripDropDownButton + Me.yoolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.helpolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.bt_mansave1 = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem + Me.fyripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem + Me.bt_mansave2 = New System.Windows.Forms.ToolStripMenuItem + Me.odflStripMenuItem = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton + Me.ToolStrip3 = New System.Windows.Forms.ToolStrip + Me.mainmenu = New System.Windows.Forms.ToolStripDropDownButton + Me.m_viewdata = New System.Windows.Forms.ToolStripMenuItem + Me.cb_seq = New System.Windows.Forms.ToolStripMenuItem + Me.cb_area = New System.Windows.Forms.ToolStripMenuItem + Me.cb_mnum = New System.Windows.Forms.ToolStripMenuItem + Me.cb_tel1 = New System.Windows.Forms.ToolStripMenuItem + Me.cb_tel2 = New System.Windows.Forms.ToolStripMenuItem + Me.chk_design = New System.Windows.Forms.ToolStripMenuItem + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel + Me.tb_ntype = New System.Windows.Forms.ToolStripTextBox + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator + Me.bt_print = New System.Windows.Forms.ToolStripButton + Me.bt_print_preview = New System.Windows.Forms.ToolStripButton + Me.StatusStrip1.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TableLayoutPanel1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip3.SuspendLayout() + Me.SuspendLayout() + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lb_countpattern, Me.lb_strpattern, Me.lb_selcon, Me.lb_msg}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 587) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(526, 22) + Me.StatusStrip1.TabIndex = 9 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lb_countpattern + ' + Me.lb_countpattern.Name = "lb_countpattern" + Me.lb_countpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_countpattern.Text = "▣" + ' + 'lb_strpattern + ' + Me.lb_strpattern.Name = "lb_strpattern" + Me.lb_strpattern.Size = New System.Drawing.Size(19, 17) + Me.lb_strpattern.Text = "▣" + ' + 'lb_selcon + ' + Me.lb_selcon.Name = "lb_selcon" + Me.lb_selcon.Size = New System.Drawing.Size(83, 17) + Me.lb_selcon.Text = "<선택된개체>" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(19, 17) + Me.lb_msg.Text = "▷" + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cm_styleedit}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(139, 26) + ' + 'cm_styleedit + ' + Me.cm_styleedit.Name = "cm_styleedit" + Me.cm_styleedit.Size = New System.Drawing.Size(138, 22) + Me.cm_styleedit.Text = "스타일 편집" + ' + 'BindingSource1 + ' + ' + 'ToolTip1 + ' + Me.ToolTip1.ShowAlways = True + Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.ToolTip1.ToolTipTitle = "간편도움말" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.AutoSize = False + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.TableLayoutPanel1.SetColumnSpan(Me.BindingNavigator1, 2) + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.Dock = System.Windows.Forms.DockStyle.Fill + Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 489) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(526, 36) + Me.BindingNavigator1.TabIndex = 17 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(37, 33) + Me.BindingNavigatorCountItem.Text = "/{0}" + Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = Global.EpoleNet.My.Resources.Resources.skipb_32 + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(36, 33) + Me.BindingNavigatorMoveFirstItem.Text = "처음으로 이동" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = Global.EpoleNet.My.Resources.Resources.back_32 + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(36, 33) + Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 36) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "위치" + Me.BindingNavigatorPositionItem.BackColor = System.Drawing.Color.White + Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(60, 36) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 36) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = Global.EpoleNet.My.Resources.Resources.forwd_32 + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(36, 33) + Me.BindingNavigatorMoveNextItem.Text = "다음으로 이동" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = Global.EpoleNet.My.Resources.Resources.skipf_32 + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(36, 33) + Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 36) + ' + 'erp + ' + Me.erp.ContainerControl = Me + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.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.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.BindingNavigator1, 0, 1) + Me.TableLayoutPanel1.Controls.Add(Me.VScrollBar1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Panel1, 0, 0) + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 31) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 2 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 36.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(526, 525) + Me.TableLayoutPanel1.TabIndex = 18 + ' + 'VScrollBar1 + ' + Me.VScrollBar1.Dock = System.Windows.Forms.DockStyle.Fill + Me.VScrollBar1.LargeChange = 1 + Me.VScrollBar1.Location = New System.Drawing.Point(506, 0) + Me.VScrollBar1.Name = "VScrollBar1" + Me.VScrollBar1.Size = New System.Drawing.Size(20, 489) + Me.VScrollBar1.TabIndex = 18 + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.Color.Gray + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.PictureBox1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Margin = New System.Windows.Forms.Padding(0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(506, 489) + Me.Panel1.TabIndex = 19 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.PictureBox1.Location = New System.Drawing.Point(33, 8) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(263, 473) + Me.PictureBox1.TabIndex = 21 + Me.PictureBox1.TabStop = False + ' + 'ToolStrip1 + ' + Me.ToolStrip1.AutoSize = False + Me.ToolStrip1.BackColor = System.Drawing.Color.White + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_canvasD, Me.bt_canvasU, Me.bt_canvasR, Me.bt_canvasL, Me.ToolStripSeparator1, Me.ToolStripButton6, Me.ToolStripLabel5, Me.ToolStripSeparator2, Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 557) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(526, 30) + Me.ToolStrip1.TabIndex = 19 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_canvasD + ' + Me.bt_canvasD.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasD.Image = CType(resources.GetObject("bt_canvasD.Image"), System.Drawing.Image) + Me.bt_canvasD.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasD.Name = "bt_canvasD" + Me.bt_canvasD.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasD.Text = "미리보기 화면의 높이를 2picxel 늘립니다" + ' + 'bt_canvasU + ' + Me.bt_canvasU.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasU.Image = CType(resources.GetObject("bt_canvasU.Image"), System.Drawing.Image) + Me.bt_canvasU.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasU.Name = "bt_canvasU" + Me.bt_canvasU.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasU.Text = "미리보기 화면의 높이를 2picxel 줄입니다" + ' + 'bt_canvasR + ' + Me.bt_canvasR.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasR.Image = CType(resources.GetObject("bt_canvasR.Image"), System.Drawing.Image) + Me.bt_canvasR.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasR.Name = "bt_canvasR" + Me.bt_canvasR.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasR.Text = "미리보기 화면의 너비를 2picxel 늘립니다" + ' + 'bt_canvasL + ' + Me.bt_canvasL.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_canvasL.Image = CType(resources.GetObject("bt_canvasL.Image"), System.Drawing.Image) + Me.bt_canvasL.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_canvasL.Name = "bt_canvasL" + Me.bt_canvasL.Size = New System.Drawing.Size(23, 27) + Me.bt_canvasL.Text = "미리보기 화면의 너비를 2picxel 줄입니다" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 30) + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.BackColor = System.Drawing.Color.LightGray + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.ToolStripButton6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.Size = New System.Drawing.Size(89, 27) + Me.ToolStripButton6.Text = "▶스타일저장" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.BackColor = System.Drawing.Color.LightGray + Me.ToolStripLabel5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.yoolStripMenuItem, Me.fyripMenuItem}) + Me.ToolStripLabel5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel5.ForeColor = System.Drawing.Color.DarkGreen + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(85, 27) + Me.ToolStripLabel5.Text = "▶패턴저장" + ' + 'yoolStripMenuItem + ' + Me.yoolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.helpolStripMenuItem, Me.bt_mansave1, Me.ToolStripMenuItem6}) + Me.yoolStripMenuItem.Name = "yoolStripMenuItem" + Me.yoolStripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.yoolStripMenuItem.Text = "관리번호1" + ' + 'helpolStripMenuItem + ' + Me.helpolStripMenuItem.Image = Global.EpoleNet.My.Resources.Resources.about_16 + Me.helpolStripMenuItem.Name = "helpolStripMenuItem" + Me.helpolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.helpolStripMenuItem.Text = "도움말" + ' + 'bt_mansave1 + ' + Me.bt_mansave1.Name = "bt_mansave1" + Me.bt_mansave1.Size = New System.Drawing.Size(126, 22) + Me.bt_mansave1.Text = "문자저장" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(126, 22) + Me.ToolStripMenuItem6.Text = "길이저장" + ' + 'fyripMenuItem + ' + Me.fyripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem7, Me.bt_mansave2, Me.odflStripMenuItem}) + Me.fyripMenuItem.Name = "fyripMenuItem" + Me.fyripMenuItem.Size = New System.Drawing.Size(134, 22) + Me.fyripMenuItem.Text = "관리번호2" + Me.fyripMenuItem.Visible = False + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.Image = Global.EpoleNet.My.Resources.Resources.about_16 + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(126, 22) + Me.ToolStripMenuItem7.Text = "도움말" + ' + 'bt_mansave2 + ' + Me.bt_mansave2.Name = "bt_mansave2" + Me.bt_mansave2.Size = New System.Drawing.Size(126, 22) + Me.bt_mansave2.Text = "문자저장" + ' + 'odflStripMenuItem + ' + Me.odflStripMenuItem.Name = "odflStripMenuItem" + Me.odflStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.odflStripMenuItem.Text = "길이저장" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 30) + ' + '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.EpoleNet.My.Resources.Resources.cancl_16 + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(72, 27) + Me.ToolStripButton1.Text = "닫기(&X)" + Me.ToolStripButton1.ToolTipText = "현재 창을 닫습니다" + ' + 'ToolStrip3 + ' + Me.ToolStrip3.BackColor = System.Drawing.Color.White + Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip3.ImageScalingSize = New System.Drawing.Size(25, 25) + Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mainmenu, Me.ToolStripLabel1, Me.tb_ntype, Me.ToolStripSeparator3, Me.bt_print, Me.bt_print_preview}) + Me.ToolStrip3.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip3.Name = "ToolStrip3" + Me.ToolStrip3.Size = New System.Drawing.Size(526, 32) + Me.ToolStrip3.TabIndex = 20 + Me.ToolStrip3.Text = "ToolStrip3" + ' + 'mainmenu + ' + Me.mainmenu.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.mainmenu.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.m_viewdata, Me.chk_design}) + Me.mainmenu.Image = Global.EpoleNet.My.Resources.Resources.opts_32 + Me.mainmenu.ImageTransparentColor = System.Drawing.Color.Magenta + Me.mainmenu.Name = "mainmenu" + Me.mainmenu.Size = New System.Drawing.Size(38, 29) + Me.mainmenu.Text = "ToolStripButton3" + ' + 'm_viewdata + ' + Me.m_viewdata.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cb_seq, Me.cb_area, Me.cb_mnum, Me.cb_tel1, Me.cb_tel2}) + Me.m_viewdata.Name = "m_viewdata" + Me.m_viewdata.Size = New System.Drawing.Size(138, 22) + Me.m_viewdata.Text = "데이터 표시" + ' + 'cb_seq + ' + Me.cb_seq.Checked = True + Me.cb_seq.CheckOnClick = True + Me.cb_seq.CheckState = System.Windows.Forms.CheckState.Checked + Me.cb_seq.Name = "cb_seq" + Me.cb_seq.Size = New System.Drawing.Size(142, 22) + Me.cb_seq.Text = "일련번호" + ' + 'cb_area + ' + Me.cb_area.Checked = True + Me.cb_area.CheckOnClick = True + Me.cb_area.CheckState = System.Windows.Forms.CheckState.Checked + Me.cb_area.Name = "cb_area" + Me.cb_area.Size = New System.Drawing.Size(142, 22) + Me.cb_area.Text = "지역명" + ' + 'cb_mnum + ' + Me.cb_mnum.Checked = True + Me.cb_mnum.CheckOnClick = True + Me.cb_mnum.CheckState = System.Windows.Forms.CheckState.Checked + Me.cb_mnum.Name = "cb_mnum" + Me.cb_mnum.Size = New System.Drawing.Size(142, 22) + Me.cb_mnum.Text = "관리번호" + ' + 'cb_tel1 + ' + Me.cb_tel1.Checked = True + Me.cb_tel1.CheckOnClick = True + Me.cb_tel1.CheckState = System.Windows.Forms.CheckState.Checked + Me.cb_tel1.Name = "cb_tel1" + Me.cb_tel1.Size = New System.Drawing.Size(142, 22) + Me.cb_tel1.Text = "전화번호(리)" + ' + 'cb_tel2 + ' + Me.cb_tel2.Checked = True + Me.cb_tel2.CheckOnClick = True + Me.cb_tel2.CheckState = System.Windows.Forms.CheckState.Checked + Me.cb_tel2.Name = "cb_tel2" + Me.cb_tel2.Size = New System.Drawing.Size(142, 22) + Me.cb_tel2.Text = "전화번호(읍)" + ' + 'chk_design + ' + Me.chk_design.CheckOnClick = True + Me.chk_design.Name = "chk_design" + Me.chk_design.Size = New System.Drawing.Size(138, 22) + Me.chk_design.Text = "디자인모드" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(79, 29) + Me.ToolStripLabel1.Text = "관리번호형식" + ' + 'tb_ntype + ' + Me.tb_ntype.BackColor = System.Drawing.Color.LightCoral + Me.tb_ntype.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_ntype.Name = "tb_ntype" + Me.tb_ntype.Size = New System.Drawing.Size(50, 32) + Me.tb_ntype.Text = "440" + Me.tb_ntype.TextBoxTextAlign = System.Windows.Forms.HorizontalAlignment.Center + Me.tb_ntype.ToolTipText = "출력되는 번호형식이 맞지 않다면 이곳에 수동으로 입력하세요" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 32) + ' + 'bt_print + ' + Me.bt_print.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_print.Image = Global.EpoleNet.My.Resources.Resources.print_321 + Me.bt_print.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print.Name = "bt_print" + Me.bt_print.Size = New System.Drawing.Size(29, 29) + Me.bt_print.Text = "ToolStripButton2" + Me.bt_print.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.bt_print.ToolTipText = "프린터로 출력" + ' + 'bt_print_preview + ' + Me.bt_print_preview.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.bt_print_preview.Image = Global.EpoleNet.My.Resources.Resources.prtpv_32 + Me.bt_print_preview.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_print_preview.Name = "bt_print_preview" + Me.bt_print_preview.Size = New System.Drawing.Size(29, 29) + Me.bt_print_preview.Text = "ToolStripButton3" + Me.bt_print_preview.ToolTipText = "화면으로 미리보기" + ' + 'Printform_Karo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.Control + Me.ClientSize = New System.Drawing.Size(526, 609) + Me.Controls.Add(Me.ToolStrip3) + Me.Controls.Add(Me.ToolStrip1) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.StatusStrip1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.KeyPreview = True + Me.MaximizeBox = False + Me.Name = "Printform_Karo" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "출력작업" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ContextMenuStrip1.ResumeLayout(False) + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.erp, System.ComponentModel.ISupportInitialize).EndInit() + Me.TableLayoutPanel1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip3.ResumeLayout(False) + Me.ToolStrip3.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lb_selcon As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents erp As System.Windows.Forms.ErrorProvider + Friend WithEvents lb_strpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + 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 lb_countpattern As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents bt_canvasL As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasR As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasU As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_canvasD As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip + Friend WithEvents VScrollBar1 As System.Windows.Forms.VScrollBar + Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tb_ntype As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents yoolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents fyripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_mansave1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_mansave2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents odflStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents helpolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripMenuItem7 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents cm_styleedit As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents mainmenu As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents m_viewdata As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_seq As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_area As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_mnum As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_tel1 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cb_tel2 As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents chk_design As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents bt_print As System.Windows.Forms.ToolStripButton + Friend WithEvents bt_print_preview As System.Windows.Forms.ToolStripButton +End Class diff --git a/Epole/출력폼/Prn_Child_karo.resx b/Epole/출력폼/Prn_Child_karo.resx new file mode 100644 index 0000000..db59b23 --- /dev/null +++ b/Epole/출력폼/Prn_Child_karo.resx @@ -0,0 +1,208 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 108, 17 + + + 173, 43 + + + 526, 11 + + + 229, 17 + + + 17, 43 + + + 330, 17 + + + 65 + + + 757, 6 + + + 663, 6 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAARxJREFUOE+Vketq + g0AQheMrRWU3GhQN2YKCpQZt1pj23/aZ2n+FvOfpjJfU2NRthY9z5swFRWc1e17b1sBx3uc51w7w9nm5 + fNzrXbOX8xlLLC5zsz2dsIT1QHPU0PoIzUo0g2dttIb1QF1VYJ6rmpShuuas99YDh7LEoXxC2fHtOWOs + Bx6LAiPFxHPG9Y8DeZ6bLMuQE6yj53qazfOuT7srpZR5UAoM+auy7+v93Vztu77p3ihJEpOmKXYD7H9j + nNnRzs3nRFFk4igCKeI4Jno/pev3+e3yeGm73ZgwDBAGIToNWYmhDijb0MzinxBCGCkFpJAQpIJUClJJ + NfWsv5EHPM8zvu9jCmd/Wh6H1uu1cV0XDPt/LU+P2Ja/AHu891uMRwcEAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAQ9JREFUOE+Vkv1q + hDAQxH0m74KioGDBguFszRE/cl77X97/Dbaz2lxTaw0n/JjZTHZZxSg6eD7n2TJHd/7NuPHjfifm6SF+ + 89NDZmPsfLvRLsgOX8cMxppppGmawEiLH1c/jeu5GYb9IVpr2+ueeq2BU/aahuUM9Kvy3V+bKKXsVSlS + naJFwRVedR18hzPgZZxzzzLk/XKxbduS4w3eZ5tx7XLujaSUVjYNORp4huutl418ZMt99P75qHVdk+P1 + 2/sa/KmqqqIXD1ezMsEBZVFQUXqgLlGXRUkFCA7I85zyDLDmGTx4nGXhAUmSUpImlKYpgCbsfwhuIIQg + Ic6AdePPIrxBHMf2dDrRHpxtN/gCWdkAslMNVx4AAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAQ1JREFUOE+dkutu + gzAMhXkmLkoGEQimUQlUVjKFFUrXf3n/N/DspGmYxFgZ0if7HF+EEUGw8dzmWRNbPZu1r+sViH8vmS8X + eDBN+99kPJ9hQsaRGGFaW6KU0sOgYFAIxSVqMP6n81BT/4+7P6SEJRK17O9e3wNpW7c51eRJ+iXvXQdL + OtSE85ba5RRPx6Nd0jYNNL/gaia2DVB00Ezbtjo41DUQtYlv92i1w9Vtj+9HrYPXqgJHhfkaaz1lWdoT + 8jyHB0UOBemi8B5q8jym5j+iEC86SzPIMoSiyVOjU+Nh7uqohRDP/1CMM+CMA+cWxtjzw3RekiRgiSGO + 433DtCCKIiDCMNw/TAto8K/hb6qK/TBPLZqlAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAASRJREFUOE+dkmFq + hEAMhT2TrozFobpowaUO6OKsVt32X+5/gzSJM9a2VNYKH+8leRNGNAh2no95BmYv8+eMD77f78gcXrA9 + fHjBPI4wTROS4jyNyP7hG4x9D2/DgFsGX/fUZ6TuRTm/LrfWgu06vNkObWfRsgrkfZ88z2/r3C63a5oG + rm2Lbdtg2xDsSbl33fak73IuE5hXA6Y2aEyNpnZs/TrjjMvJnDzlg6qqgMCLw/utsv+Z8T15haIo4KUs + sCxKgpXguqTaq59J7bPl1xd6Pp8hyzPMiSwj8lx8ni3KPfFuJlmqv31irTUQqNOUINWkUi+9lPvcE89z + /fs3V0pB8pSgkCw8/CP5oFIniOMYPYcX8IEwDCGKImT+tcAv4UV7Cz4BSkkAPKd+nx8AAAAASUVORK5C + YII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAgxJREFUOE+lkvtL + U2EYx+0PEbtpFwnBKPGKiJImGP0gYhIYs1E5GF5gIxkpA00JRSmMEF0ohMh+GaRWYlqabMVcNdS2QpaI + VqiDIYhk397vA6fXhCjyhYdzeM/5fp7vczkAdeL2cwho7v/wWzT1zcN+Pwhr51uY2/y41PQaF+wzKKiZ + QvaN58g0jyLd5KEUcQbg+84P/Cm2tncQjW3j68YWIqubCC3FcOJc478BAuGoZM6zvoRnakXEruEIjhc4 + /g5gZop9c+voGAyLbQIfeBZxLL9BA1jzXvuGbWamuKh+GmmVbswE19A59FEBbmoAG7YbsLtm2mZmiml9 + cvabNDwpz6YB7LYBoMXCumkJr7LOmnnHzBQ/9X2Bo2cOibm1GsBREbAQiYmw/8lnuCeWkVzcgnZlnw1j + 3HV/wuNXK6i/9x5Hc6wawDlTXHbLJ+LZUBQPRyKwdQdxutwl1h+NLXHh5Ht1ewBHsiwawCW57HyDAfWR + dvl0uhZQ1eqX8aVc7EKLqrum651ATLf9OJx5XQM4KmY0xPzZ0hFAiQJnXB0WwME0E3IsL5B17ZlADqWb + NYDrOepdlcysmTWWOrxqbceRWtaLk0VO1XW72D5Vckd2gMBfq8zdpmUG62NJvKM4+XyziDk24xmfWoGE + s1c0gHPmbrPTpHNJKOCo2G1mZs20zcwUJ5yp1AB5+8/zEwgF5GMVDxh4AAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/Epole/출력폼/Prn_Child_karo.vb b/Epole/출력폼/Prn_Child_karo.vb new file mode 100644 index 0000000..260b619 --- /dev/null +++ b/Epole/출력폼/Prn_Child_karo.vb @@ -0,0 +1,2484 @@ +Imports System.Drawing +Imports System.Drawing.Printing +Imports System.Math +Imports CommonClassv2.ARINCLASS +Imports System.IO + +Public Class Prn_Child_karo + Dim AllLabels() As Str_Alllabels '//ü ߰Ҵ Ѵ. + Dim Sȣ1(10) As MyControlOLEDBv2.MyLabel + 'Dim Sȣ2(4) As MyControlOLEDBv2.MyLabel + Dim Sȭȣ1(0) As MyControlOLEDBv2.MyLabel + Dim Sȭȣ2(0) As MyControlOLEDBv2.MyLabel + Dim S(0) As MyControlOLEDBv2.MyLabel + Dim SϷùȣ(0) As MyControlOLEDBv2.MyLabel + 'Dim S(0) As MyControlOLEDBv2.MyLabel + + Dim As String = vbNullString + Dim ȣ1 As String = vbNullString + 'Dim ȣ2 As String = vbNullString + Dim ȭȣ1 As String = vbNullString + Dim ȭȣ2 As String = vbNullString + 'Dim As String + + Dim ϸ_ As String = "AREAPATTERN" + Dim ϸ_ȣ1 As String = "MAN1PATTERN" + 'Dim ϸ_ȣ2 As String = "MAN2PATTERN" + Dim ϸ_ȭȣ1 As String = "TEL1ATTERN" + Dim ϸ_ȭȣ2 As String = "TEL2PATTERN" + + Dim NoView As Boolean = False '//LOAD_STYLE ʱ(ߺ) д.(..̺Ʈ.. -_-;;ʹ ߺ ߻) + + Dim SrcIdx As Integer = -1 '// 信 Ŭ ε + Dim Srcnum As Integer = -1 '// 忡 Ŭ ȣ + Dim Srcrow As DataRowView + Dim FirstIdx As Integer = -1 '// 信 ε + + 'Public File As String = My.Application.Info.DirectoryPath & "\style.ini" '//Ÿ + Dim StyleDir As New System.IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\stylekr") + Public FileC As String = My.Application.Info.DirectoryPath & "\styleCkr.ini" '// Ÿ + + Private WithEvents pDoc As New PrintDocument() + Public SelCon As New ArrayList '//õ ̺ 迭̴. + Public onlyOne As MyControlOLEDBv2.MyLabel '//Ŀ ̴̺. + + Dim srcTable As ireaDataSet.Detail_karoDataTable '//Ͱ ̺ + Dim Dv As DataView '//ͺ( ͸ Ѵ.) + + Dim printindex As Integer = 0 '//ƮǴ ȣ ̰ -1 ̸ ̹Ƿ ʰ Ѵ. + Dim PrintArray() As Integer '//Ʈ 迭ȣ + + Dim SettingFile As String = My.Application.Info.DirectoryPath & "\epole.ini" '//ȯ漳 + Dim LogFile As String = "\εα.txt" + + Dim SetForm As Frm_Prnset + + Public Function Get_Control(ByVal index As Integer) As MyControlOLEDBv2.MyLabel + Return Me.AllLabels(index).ctl + End Function + + Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) '//۸ + Arin.WLog2(Auto_Log, "Form_Load()", LogFile) + + Me.Left = 10 + '//μ Ҵ + SetForm = New Frm_Prnset(Me) + SetForm.PType = Frm_Prnset.E_Ftyle.ε + SetForm.Show() + SetForm.Top = Me.Top + + Load_Setting() + SetControls() '//Ʈ ʱȭϰ Ѵ. + + If srcTable Is Nothing Then + 'MsgBox("ҽ ⺻ ȯ") + Arin.WLog2(Auto_Log, " ⺻ ȯ()", LogFile) + Common.Auto_Log = True + Me.NoView = True + 'Me.detTableAdapter1.Connection.ConnectionString = ConString + 'Me.detTableAdapter1.Fill(Me.IreaDataSet1.jjungtable, 1) + 'Me.srcTable = Me.IreaDataSet1.jjungtable + Admin = True + End If + + Arin.WLog2(Auto_Log, "ڸ=" & Admin.ToString, LogFile) + + '********************************************************** + If Admin Then + For Each A As ToolStripDropDownItem In Me.mainmenu.DropDownItems '//⼭ üũڽΰ͵鸸 + If A.GetType.Name.ToUpper = "TOOLSTRIPMENUITEM" Then + If CType(A, ToolStripMenuItem).CheckOnClick Then + A.Visible = True + End If + End If + Next + End If + Me.SETTOOLTIP() + + GetStyleList() '//style.ini Ÿϸϸ ´. + If Srcrow Is Nothing Then '// పε Ƿ 1° Ÿ Ѵ. + Arin.WLog2(Auto_Log, " ప ϴ. firstidx=0 / Ϲݿ մϴ()", LogFile) + FirstIdx = 0 '// ó ͸ ǥϰԵȴ. + SetForm.cmb_style.Text = "ε" '//⼭ Ͱ ɷԵȴ. + Else + Srcnum = Srcrow("ȣ") 'srcTable.Rows(SrcIdx).Item("ȣ") + SetForm.cmb_style.Text = "ε" '//⼭ Ͱ ɷԵȴ. + End If + '********************************************************** + End Sub + + '*********************************** + Private Sub SetControls() + Arin.WLog2(Auto_Log, "SetControls()", LogFile) + Dim CtlCnt As Short = 0 + + For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + S(i) = New MyControlOLEDBv2.MyLabel + S(i). = "" & i + 1 + S(i).Name = "A" & i + 1 + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S(i) + + SetForm.cmb_controls.Items.Add(S(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To Sȣ1.GetUpperBound(0) '//繮ڸ ҴѴ. + Sȣ1(i) = New MyControlOLEDBv2.MyLabel + Sȣ1(i). = "ȣI" & i + 1 + Sȣ1(i).Name = "M" & i + 1 + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȣ1(i) + SetForm.cmb_controls.Items.Add(Sȣ1(i).) + CtlCnt += 1 + Next + + + 'For i As Integer = 0 To Sȣ2.GetUpperBound(0) '//繮ڸ ҴѴ. + ' Sȣ2(i) = New MyControlOLEDBv2.MyLabel + ' Sȣ2(i). = "ȣII" & i + 1 + ' Sȣ2(i).Name = "I" & i + 1 + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = Sȣ2(i) + ' setform.cmb_controls.Items.Add(Sȣ2(i).) + ' CtlCnt += 1 + 'Next + + For i As Integer = 0 To Sȭȣ1.GetUpperBound(0) '//繮ڸ ҴѴ. + Sȭȣ1(i) = New MyControlOLEDBv2.MyLabel + Sȭȣ1(i). = "ȭȣ()" & i + 1 + Sȭȣ1(i).Name = "T" & i + 1 + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȭȣ1(i) + SetForm.cmb_controls.Items.Add(Sȭȣ1(i).) + CtlCnt += 1 + Next + + 'For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + ' S(i) = New MyControlOLEDBv2.MyLabel + ' S(i). = "" & i + 1 + ' S(i).Name = "D" & i + 1 + ' ReDim Preserve AllLabels(CtlCnt) + ' Me.AllLabels(CtlCnt).ctl = S(i) + ' setform.cmb_controls.Items.Add(S(i).) + ' CtlCnt += 1 + 'Next + + For i As Integer = 0 To Sȭȣ2.GetUpperBound(0) '//繮ڸ ҴѴ. + Sȭȣ2(i) = New MyControlOLEDBv2.MyLabel + Sȭȣ2(i). = "ȭȣ()" & i + 1 + Sȭȣ2(i).Name = "P" & i + 1 + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȭȣ2(i) + SetForm.cmb_controls.Items.Add(Sȭȣ2(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To SϷùȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + SϷùȣ(i) = New MyControlOLEDBv2.MyLabel + SϷùȣ(i). = "Ϸùȣ" & i + 1 + SϷùȣ(i).Name = "N" & i + 1 + SϷùȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SϷùȣ(i) + SetForm.cmb_controls.Items.Add(SϷùȣ(i).) + CtlCnt += 1 + Next + + End Sub + + Public Sub GeTviewData(ByVal index As Integer, ByVal previewWindow As Boolean, Optional ByRef ȣϰ˻ As Integer = -1) + ' Dim STARTTIME, ENDTIME As Date + Arin.WLog2(Auto_Log, "GetviewData ()", LogFile) + If Dv.Count <= 0 OrElse index < 0 OrElse index > Dv.Count Then + Arin.WLog2(Auto_Log, "GetViewData : ε ų վ մϴ.()", LogFile) + ' MsgBox("GETVIEWDATA : Ͱ ų ߸ ε Դϴ", MsgBoxStyle.Information, "Ȯ") ' & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return '//߸ ε + End If + + ȣ1 = GetSpread(index, "ȣ1") & "-" & GetSpread(index, "ȣ2") + 'ȣ2 = GetSpread(index, "ȣ2") + ' = "-" + = GetSpread(index, "") + ȭȣ1 = GetSpread(index, "ȭȣ1") + ȭȣ2 = GetSpread(index, "ȭȣ2") + + Arin.WLog2(Auto_Log, "ͺ ͸ Ϸ()", LogFile) + + Me.Text = "۾(" & & " : " & ȣ1 & ")" + + Arin.WLog2(Auto_Log, "PASE մϴ.()", LogFile) + '============ ؼ °̴ ========================================================== + Me.PARSE_() + Me.PARSE_ȭȣ1(ȭȣ1) + Me.PARSE_ȭȣ2(ȭȣ2) + '==================================================================================================== + If Me.cb_seq.Checked Then + Me.SϷùȣ(0).MyText = GetSpread(index, "ȣ") 'index + 1 + Me.SϷùȣ(0).Visible = True + Else + Me.SϷùȣ(0).Visible = False + End If + 'If Me.cb_seperate.Checked Then + ' Me.S(0).MyText = 'index + 1 + ' Me.S(0).Visible = True + 'Else + ' Me.S(0).Visible = False + 'End If + + + Arin.WLog2(Auto_Log, "ִ PASE մϴ.()", LogFile) + 'Me.PARSE_ȣ1(ȣ1) + 'Me.PARSE_ȣ2(ȣ2) + 'If Me.PARSE_ȣ(ȣ) Then Me.PARSE_ȣ(ȣ) + If Me.PARSE_ȣ1(ȣ1) Then Me.PARSE_ȣ1(ȣ1) + 'If Me.PARSE_ȣ2(ȣ2) Then Me.PARSE_ȣ2(ȣ2) + 'If Me.PARSE_ȣ3(ȣ3) Then Me.PARSE_ȣ3(ȣ3) + 'If Me.PARSE_() Then Me.PARSE_() + + '======================== Ÿ ================================================= + ' ....................................................... + Arin.WLog2(Auto_Log, "Pewview 츦 մϴ.()", LogFile) + Me.preview_window() + End Sub + + Public Sub CLEAR_ITEM(ByVal DIV As String) + Arin.WLog2(Auto_Log, "Clear_item div=" & DIV, LogFile) + + Select Case DIV.ToUpper + Case "A" + For i As Short = 0 To S.GetUpperBound(0) + S(i).MyText = "" + S(i).Visible = False + Next + 'Case "D" + ' For i As Short = 0 To S.GetUpperBound(0) + ' S(i).MyText = "" + ' S(i).Visible = False + ' Next + Case "M" + For i As Short = 0 To Sȣ1.GetUpperBound(0) + Sȣ1(i).MyText = "" + Sȣ1(i).Visible = False + Next + 'Case "I" + ' For i As Short = 0 To Sȣ2.GetUpperBound(0) + ' Sȣ2(i).MyText = "" + ' Sȣ2(i).Visible = False + ' Next + Case "T" + For i As Short = 0 To Sȭȣ1.GetUpperBound(0) + Sȭȣ1(i).MyText = "" + Sȭȣ1(i).Visible = False + Next + Case "P" + For i As Short = 0 To Sȭȣ2.GetUpperBound(0) + Sȭȣ2(i).MyText = "" + Sȭȣ2(i).Visible = False + Next + + Case Else + MsgBox("Clear_Item ˼ ( " & DIV & ") Դϴ") + End Select + + End Sub + + Public Sub SAVE_PATTERN(ByVal MIDNAME As String, ByVal DIV As Char, ByVal LEN As Short, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + '̰ ϴ Լ. + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MIDNAME & "I" & LEN + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + Arin.WLog2(Auto_Log, "save_pattern Ѵ. midname= " & MIDNAME, "\εα.txt") + Select Case DIV.ToString.ToUpper + Case "A" '// + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + + Next + Case "M" '//ȣ1 + For i As Integer = 0 To Me.Sȣ1.GetUpperBound(0) + TOBJ = Me.Sȣ1(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", SetForm.cmb_sep.SelectedIndex) + 'Case "I" '//ȣ2 + ' For i As Integer = 0 To Me.Sȣ2.GetUpperBound(0) + ' TOBJ = Me.Sȣ2(i) + ' Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + + ' Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + ' Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + ' Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + Case "T" '//ȣ2 + For i As Integer = 0 To Me.Sȭȣ1.GetUpperBound(0) + TOBJ = Me.Sȭȣ1(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "P" '//ȣ3 + For i As Integer = 0 To Me.Sȭȣ2.GetUpperBound(0) + TOBJ = Me.Sȭȣ2(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case Else + MsgBox("Save_Pattern ǵ (" & DIV & ") ߻Ͽϴ", MsgBoxStyle.Critical, "Ȯ") + End Select + + Arin.WLog2(Auto_Log, " save_pattern ̺ ȣԳ.", "\εα.txt") + Me.̺() + End Sub + Public Sub SAVE_PATTERNII(ByVal SRCSTR As String, ByVal MIDNAME As String, ByVal DIV As Char, Optional ByVal LOGFILENAME As String = "\.TXT") ' մϴ. Ͽ ġ/ũ/ ˴ϴ. + '//̰ Ѵ. + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim BUF() As Char = SRCSTR.ToCharArray + Dim mb As String = PATTERN_ENC(SRCSTR) + Dim TOBJ As MyControlOLEDBv2.MyLabel + Dim Pname As String = MIDNAME & "II" & mb.ToString + + If MsgBox(" Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") <> MsgBoxResult.Ok Then + NOTICE(" ҵǾϴ", Me.lb_msg) + Return + End If + Arin.WLog2(Auto_Log, "save_pattern2 Ѵ.", LogFile) + + Select Case DIV.ToString.ToUpper + Case "A" '//θ + For i As Integer = 0 To Me.S.GetUpperBound(0) + TOBJ = Me.S(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Case "M" '//ֹȣ + For i As Integer = 0 To Me.Sȣ1.GetUpperBound(0) + TOBJ = Me.Sȣ1(i) + Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, "DESC", " " & MIDNAME) + Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + Next + Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + Arinini.Write(Pname, "nseparate", SetForm.cmb_sep.SelectedIndex) + 'Case "I" '//ȣ2 + ' For i As Integer = 0 To Me.Sȣ2.GetUpperBound(0) + ' TOBJ = Me.Sȣ2(i) + ' Arin.WLog2(Auto_Log, MIDNAME & " =" & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, "DESC", " " & MIDNAME) + ' Arin.WLog2(Auto_Log, "ÿϷ=" & Pname & " " & TOBJ.Name & "/" & TOBJ.Name.Substring(0, 1).ToUpper, LOGFILENAME) + ' Arinini.Write(Pname, TOBJ.Name & "pos", TOBJ.Left & "," & TOBJ.Top & "," & TOBJ.Width & "," & TOBJ.Height) + ' Arinini.Write(Pname, TOBJ.Name & "font", TOBJ.MyFont.Name & "," & TOBJ.MyFont.Size & "," & TOBJ.MyFont.Underline & "," & TOBJ.MyFont.Bold & "," & TOBJ.MyFont.Italic & "," & TOBJ. & "," & TOBJ.) + ' Arinini.Write(Pname, TOBJ.Name & "visible", TOBJ.Visible) + ' Arinini.Write(Pname, TOBJ.Name & "space", TOBJ.) + ' Next + ' Arinini.Write(Pname, "LineType", Me.tb_ntype.Text) + ' Arinini.Write(Pname, "nseparate", Me.cmb_sep.SelectedIndex) + Case Else + MsgBox("Save_PatternII ǵ (" & DIV & ") ߻Ͽϴ", MsgBoxStyle.Critical, "Ȯ") + End Select + + Arin.WLog2(Auto_Log, "save_patter2 ļ ̺ ȣѴ٤Ӥ ", "\εα.txt") + Me.̺() + End Sub + '--------------------------------- + Public Function PARSE_(ByVal srcsTR As String) As Boolean + Me.CLEAR_ITEM("A") + Dim Log As String = "\Parse_.txt" + If srcsTR = "" OrElse Not Me.cb_area.Checked Then + Arin.WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + Me.S(0).Visible = True + Me.S(0).MyText = srcsTR + + Arin.WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȣ1(ByVal srcsTR As String) As Boolean + 'Me.CLEAR_ITEM("M") + If srcsTR = "" OrElse Not Me.cb_mnum.Checked Then + Arin.WLog2(Auto_Log, "Zero Length or Not Check", LogFile) + Return False + End If + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + 'For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + ' Sȣ1(i).MyText = IIf(SRC(i) <> ";", SRC(i), "---") + ' Sȣ1(i).Visible = True + 'Next + + Arin.WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, LogFile) + Return True + End Function + Public Sub PARSE_ȣ1(ByVal srcstr As String) + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + + Dim pname As String + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim CTLPOS() As String '//ġ + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + Dim PATTERN As String = PATTERN_ENC(srcstr) + Dim TOBJ As MyControlOLEDBv2.MyLabel + + Dim иε As Short = 0 + Dim ȣ As String = "900" + Dim Dr() As DataRow + + '//ڸȮѴ. + pname = Me.ϸ_ȣ1 & "II" & PATTERN + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "M1POS'") + + 'MsgBox(pname & " " & " = '" & pname & "M1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + Arin.WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & srcstr & " =" & PATTERN, LogFile) + '//ʹ ȣĿ . + ' MsgBox("pname ãƼ ־") + + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "900") + + For i As Integer = 0 To Me.Sȣ1.GetUpperBound(0) + TOBJ = Me.Sȣ1(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag = "C" + Catch ex As Exception + Arin.WLog2(Auto_Log, "Ͽ=" & ex.Message.ToString, LogFile) + End Try + Next + Else + Arin.WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr & " =" & PATTERN, LogFile) + retval += 2 '// Ƿ ٷ ѱ. + End If + + If retval = 2 Then '// 쿡 ȮѴ. + pname = Me.ϸ_ȣ1 & "I" & Wlen '// Ȯ + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "M1POS'") + If Dr.GetUpperBound(0) = 0 Then '//Ͱ ϹǷ Ѵ. + 'MsgBox("pname ãƼ ־222222") + + Arin.WLog2(Auto_Log, "ȣϰ() : =" & Wlen & " ڿ=" & srcstr, LogFile) + '//ʹ ȣĿ . + иε = Arinini.Read(pname, "nseparate", 0) + ȣ = Arinini.Read(pname, "LineType", "900") + + For i As Integer = 0 To Me.Sȣ1.GetUpperBound(0) + TOBJ = Me.Sȣ1(i) + TOBJ.Tag = "" '//±׸ Ѵ. + Try + '//¸ о ٷ Ѵ. + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "POS'") + If Dr.GetUpperBound(0) = 0 Then + CTLPOS = Dr(0)(1).ToString.Split(",") + TOBJ.Location = New Point(CTLPOS(0), CTLPOS(1)) + TOBJ.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "FONT'") + If Dr.GetUpperBound(0) = 0 Then + CTLFONT = Dr(0)(1).ToString.Split(",") + TOBJ.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + TOBJ. = CTLFONT(5) + TOBJ. = CTLFONT(6) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "VISIBLE'") + If Dr.GetUpperBound(0) = 0 Then + CTLVISIBLE = Dr(0)(1).ToString + TOBJ.Visible = CType(CTLVISIBLE, Boolean) + End If + + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & TOBJ.Name & "SPACE'") + If Dr.GetUpperBound(0) = 0 Then + TOBJ. = Dr(0)(1).ToString + End If + TOBJ.Tag &= "L" + Catch ex As Exception + Arin.WLog2(Auto_Log, " Ͽ=" & ex.Message.ToString, LogFile) + End Try + Next + Else + Arin.WLog2(Auto_Log, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & srcstr, LogFile) + retval += 1 '// + End If + End If + + SetForm.cmb_sep.SelectedIndex = иε + + 'If ȣ = "999" Then '//̾ٴ ̴ ȣ ش. + ' 'MsgBox("ȣ  մϴ(" & ȣ & "/" & ȣ.Length) + ' If ȣ.Length <= 12 Then + ' If ȣ.Length <= 4 Then + ' ȣ = ȣ.Length & "00" + ' ElseIf ȣ.Length <= 8 Then + ' ȣ = "4" & CStr(ȣ.Length - 4) & "0" + ' Else + ' ȣ = "44" & CStr(ȣ.Length - 8) + ' End If + ' Else '//12ڸ̻̹Ƿ F ɰ 3γ ..int + ' ȣ = CStr(Int(ȣ.Length / 3)) & CStr(Int(ȣ.Length / 3)) & CStr(ȣ.Length - Int(ȣ.Length / 3) * 2) + ' End If + ' 'MsgBox("ȣ=" & ȣ) + 'End If + + Me.tb_ntype.Text = ȣ + иε("M", Me.ȣ1, ȣ) '//ȣ ش. + + End Sub + Private Sub иε(ByVal ClearChar As Char, ByVal SrcStr As String, Optional ByVal msg As String = "999") + Me.CLEAR_ITEM(ClearChar) + Dim A() As Char = SrcStr.ToCharArray + Dim P() As Char = msg.ToCharArray '--ȣε ⼱ Ⱦ. + + '//ǥð þȵ ȥ + If SetForm.cmb_sep.SelectedIndex = -1 Then SetForm.cmb_sep.SelectedIndex = 0 + + Dim NextCtl As MyControlOLEDBv2.MyLabel = Me.Sȣ1(0) + Dim CurPos As Short = 0 '//° Ʈѱ ٴ ǥ + Dim CPos As Short = 0 '//ü ° ߴٴ ǥ + Select Case SetForm.cmb_sep.SelectedIndex + Case 0 '//ȥ + '//ļ 4 Ѵ. + '// 342 : 345 R23L1 R9 + ' MsgBox("ȣ=" & msg & "/" & ȣ & "/p0=" & P(0)) + + Me.tb_ntype.Enabled = True '//и ̰ false ȴ. + If CInt(P(0).ToString) <> 0 AndAlso CInt(P(0).ToString) < 5 Then '//ùٿش ڸ ִ´. + ' MsgBox("1=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = 0 To (CInt(P(0).ToString) - 1) '// + If i <= A.GetUpperBound(0) Then '// ϰ + Me.Sȣ1(i).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + CPos = i ' + 1 + CurPos = i + End If + Next + ElseIf CInt(P(0).ToString) > 4 Then '//ù ڸ Ѵ. + For i As Int16 = 0 To (CInt(P(0).ToString) - 1) + If i <= A.GetUpperBound(0) Then '// + Me.Sȣ1(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(i).Visible = True + CurPos = i + 'CurPos += 1 + 'NextCtl.MyText &= A(i) + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + 'CurPos += 1 '//⼭ 1̵ȴ. + End If + + + 'curpos ° ȣ ߴٴ°̴( ȣ Ų) + 'cpos ° Ʈѱ ٴ ̴. + ' MsgBox("1° ġ=" & CurPos) + + '//2° ׽ƮѴ. + + If CPos = 0 AndAlso Me.Sȣ1(0).MyText = "" Then '//Ʈѹȣ 0ϰ. ̾ 1°ٿ ƹ͵¶̴. + CPos = -1 + End If + + If CInt(P(1).ToString) > 0 AndAlso CInt(P(1).ToString) < 5 Then + ' MsgBox("2=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.Sȣ1(CPos + 1).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + CPos += 1 + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + + CurPos = i + End If + Next + ElseIf CInt(P(1).ToString) > 0 Then '// + CPos += 1 + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.Sȣ1(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(CPos).Visible = True + 'NextCtl.MyText &= A(i) + CurPos = i + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + End If + + + ' MsgBox("2° ġ=" & CurPos) + + If CInt(P(2).ToString) > 0 AndAlso CInt(P(2).ToString) < 5 Then + ' MsgBox("3ٰ=" & msg & "/" & ȣ & "/p0=" & P(0)) + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1 + If i <= A.GetUpperBound(0) Then + ' MsgBox(i & "/" & A(i)) + Me.Sȣ1(CPos + 1).MyText = IIf(A(i) <> ";", A(i), "") '//0° (0,0) + CPos += 1 + 'Me.Sֹȣ(i).Visible = True + 'NextCtl = SetXdata(i, A) + CurPos = i + End If + + Next + ElseIf CInt(P(2).ToString) > 0 Then '// + 'MsgBox("3=" & msg & "/" & ȣ & "/p0=" & P(0)) + CPos += 1 + For i As Int16 = CurPos + 1 To CInt(P(0).ToString) + CInt(P(1).ToString) + CInt(P(2).ToString) - 1 + If i <= A.GetUpperBound(0) Then + Me.Sȣ1(CPos).MyText &= IIf(A(i) <> ";", A(i), "") '//0° (0,0) + 'Me.Sֹȣ(CPos).Visible = True + 'NextCtl.MyText &= A(i) + CurPos = i + End If + Next + 'NextCtl = GetnextCtl(NextCtl) + End If + ' MsgBox("3° ġ=" & CurPos) + + + Case 1 '//и + Me.tb_ntype.Enabled = False + For i As Int16 = 0 To A.GetUpperBound(0) '// 12 ͸ Ѵ. + Me.Sȣ1(i).MyText = IIf(A(i) <> ";", A(i), "") + Next + Case 2 '// + Me.tb_ntype.Enabled = True + For i As Integer = 0 To A.GetUpperBound(0) '// ڿ ִ´ ̰ ڶ ߰ . + If i <= CInt(P(0).ToString) - 1 Then + Me.Sȣ1(0).MyText &= IIf(A(i) <> ";", A(i), "") + ElseIf i <= (CInt(P(0).ToString) + CInt(P(1).ToString) - 1) Then + Me.Sȣ1(1).MyText &= IIf(A(i) <> ";", A(i), "") + Else + Me.Sȣ1(2).MyText &= IIf(A(i) <> ";", A(i), "") + End If + Next + End Select + + For i As Integer = 0 To Me.Sȣ1.GetUpperBound(0) + Me.Sȣ1(i).Visible = IIf(Me.Sȣ1(i).MyText = "", False, True) + Next + End Sub + 'Public Function PARSE_ȣ2(ByVal srcsTR As String) As Boolean + ' Me.CLEAR_ITEM("I") + ' If srcsTR = "" OrElse Not Me.cb_mnum.Checked Then + ' Arin.WLog2(Auto_Log, "Zero Length - Return", LogFile) + ' Return False + ' End If + ' Dim Wlen As Short = srcsTR.Length + ' Dim SepPos As Short = srcsTR.IndexOf(";") + ' Dim SRC() As Char = srcsTR.ToCharArray + ' For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + ' Sȣ2(i).MyText = IIf(SRC(i) <> ";", SRC(i), "---") + ' Sȣ2(i).Visible = True + ' Next + ' Arin.WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, LogFile) + ' Return True + 'End Function + 'Public Sub PARSE_ȣ2(ByVal srcstr As String) + ' Dim Wlen As Short = srcstr.Length + ' Dim SepPos As Short = srcstr.IndexOf(";") + ' Dim SrC() As Char = srcstr.ToCharArray + + ' Dim Pname As String = Me.ϸ_ȣ2 & "I" & Wlen + ' Me.Ͽ(srcstr, Pname, LogFile, "I", Me.Sȣ2) + + ' Pname = Me.ϸ_ȣ2 & "II" & PATTERN_ENC(srcstr) + ' Me.Ͽ(srcstr, Pname, LogFile, Me.Sȣ2) + + + 'End Sub + Public Function PARSE_ȭȣ1(ByVal srcsTR As String) As Boolean + Me.CLEAR_ITEM("T") + Dim Log As String = "\Parse_ȭȣ1.txt" + If srcsTR = "" OrElse Not Me.cb_tel1.Checked Then + Arin.WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + Me.Sȭȣ1(0).Visible = True + Me.Sȭȣ1(0).MyText = srcsTR + + Arin.WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Public Function PARSE_ȭȣ2(ByVal srcsTR As String) As Boolean + Me.CLEAR_ITEM("P") + Dim Log As String = "\Parse_ȭȣ2.txt" + If srcsTR = "" OrElse Not Me.cb_tel2.Checked Then + Arin.WLog2(Auto_Log, "Zero Length - Return", Log) + Return False + End If + Dim Wlen As Short = srcsTR.Length + Dim SepPos As Short = srcsTR.IndexOf(";") + Dim SRC() As Char = srcsTR.ToCharArray + + Me.Sȭȣ2(0).Visible = True + Me.Sȭȣ2(0).MyText = srcsTR + + Arin.WLog2(Auto_Log, "Length=" & Wlen & " Sep=" & SepPos, Log) + Return True + End Function + Private Sub (ByVal As String) + Dim PC, PL As Boolean + Dim PLen As Short + Dim PChr As String + Dim PStr As String + Dim CP As String = "" + Select Case + Case "" + PC = IIf(Me.S(0).Tag.ToString.IndexOf("C") > -1, True, False) + PL = IIf(Me.S(0).Tag.ToString.IndexOf("L") > -1, True, False) + PLen = Me..Length + PChr = PATTERN_ENC() + PStr = Me. + Case "ȣ1" + PC = IIf(Me.Sȣ1(0).Tag.ToString.IndexOf("C") > -1, True, False) + PL = IIf(Me.Sȣ1(0).Tag.ToString.IndexOf("L") > -1, True, False) + PLen = Me.ȣ1.Length + PChr = PATTERN_ENC(ȣ1) + PStr = Me.ȣ1 + 'Case "ȣ2" + ' PC = IIf(Me.Sȣ2(0).Tag.ToString.IndexOf("C") > -1, True, False) + ' PL = IIf(Me.Sȣ2(0).Tag.ToString.IndexOf("L") > -1, True, False) + ' PLen = Me.ȣ2.Length + ' PChr = PATTERN_ENC(ȣ2) + ' PStr = Me.ȣ2 + Case "ȭȣ1" + PC = IIf(Me.Sȭȣ1(0).Tag.ToString.IndexOf("C") > -1, True, False) + PL = IIf(Me.Sȭȣ1(0).Tag.ToString.IndexOf("L") > -1, True, False) + PLen = Me.ȭȣ1.Length + PChr = PATTERN_ENC(ȭȣ1) + PStr = Me.ȭȣ1 + Case "ȭȣ2" + PC = IIf(Me.Sȭȣ2(0).Tag.ToString.IndexOf("C") > -1, True, False) + PL = IIf(Me.Sȭȣ2(0).Tag.ToString.IndexOf("L") > -1, True, False) + PStr = Me.ȭȣ2 + PLen = PStr.Length + PChr = PATTERN_ENC(PStr) + Case Else + MsgBox("˼ (" & & ") Դϴ" & vbCrLf & "ڿ ϼ", MsgBoxStyle.Critical, "Ȯ") + Exit Sub + End Select + + Dim Msg As System.Text.StringBuilder = Prn_Common.Get_SavePatternString(, PC, CP, PL, PStr, PLen, PChr) + Dim A As MsgBoxResult = MsgBox(Msg.ToString, MsgBoxStyle.Information + MsgBoxStyle.YesNoCancel, ") , ƴϿ) , ) ") + If A = MsgBoxResult.Yes Then '// + Select Case + Case "" + SAVE_PATTERN(Me.ϸ_, "A", Me..Length, "\.TXT") '//θ մϴ. + Case "ȣ1" + SAVE_PATTERN(Me.ϸ_ȣ1, "M", Me.ȣ1.Length, "\ȣ1.TXT") '//θ մϴ. + 'Case "ȣ2" + ' SAVE_PATTERN(Me.ϸ_ȣ2, "I", Me.ȣ2.Length, "\ȣ2.TXT") '//θ մϴ. + Case "ȭȣ1" + SAVE_PATTERN(Me.ϸ_ȭȣ1, "T", Me.ȭȣ1.Length, "\ȭȣ1.TXT") '//θ մϴ. + Case "ȭȣ2" + SAVE_PATTERN(Me.ϸ_ȭȣ2, "P", Me.ȭȣ2.Length, "\ȭȣ2.TXT") '//θ մϴ. + Case Else + MsgBox("˼ (" & & ") Դϴ" & vbCrLf & "ڿ ϼ", MsgBoxStyle.Critical, "Ȯ") + Exit Sub + End Select + ElseIf A = MsgBoxResult.No Then '// + Select Case + Case "" + SAVE_PATTERNII(Me., Me.ϸ_, "A", "\2.TXT") '//θ մϴ. + Case "ȣ1" + SAVE_PATTERNII(Me.ȣ1, Me.ϸ_ȣ1, "M", "\ȣ1.TXT") '//θ մϴ. + 'Case "ȣ2" + ' SAVE_PATTERNII(Me.ȣ2, Me.ϸ_ȣ2, "I", "\ȣ2.TXT") '//θ մϴ. + Case "ȭȣ1" + SAVE_PATTERNII(Me.ȭȣ1, Me.ϸ_ȭȣ1, "T", "\ȭȣ12.TXT") '//θ մϴ. + Case "ȭȣ2" + SAVE_PATTERNII(Me.ȭȣ2, Me.ϸ_ȭȣ2, "P", "\ȭȣ22.TXT") '//θ մϴ. + + Case Else + MsgBox("˼ (" & & ") Դϴ" & vbCrLf & "ڿ ϼ", MsgBoxStyle.Critical, "Ȯ") + Exit Sub + End Select + Else + NOTICE(" ҵǾϴ", Color.Red, Me.lb_msg) + End If + End Sub + + 'Private Sub odflStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles odflStripMenuItem.Click + ' SAVE_PATTERN(Me.ϸ_ȣ2, "I", Me.ȣ2.Length, "\ȣ2.TXT") '//θ մϴ. + 'End Sub + + Private Sub ToolStripMenuItem6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click + SAVE_PATTERN(Me.ϸ_ȣ1, "M", Me.ȣ1.Length, "\ȣ1.TXT") '//θ մϴ. + End Sub + + 'Private Sub olStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mansave2.Click + ' SAVE_PATTERNII(Me.ȣ2, Me.ϸ_ȣ2, "I", "\ȣ22.TXT") '//θ մϴ. + 'End Sub + + Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_mansave1.Click + SAVE_PATTERNII(Me.ȣ1, Me.ϸ_ȣ1, "M", "\ȣ12.TXT") '//θ մϴ. + End Sub + + Private Sub ToolStripMenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem7.Click + Me.("ȣ2") + End Sub + + Private Sub helpolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles helpolStripMenuItem.Click + Me.("ȣ1") + End Sub + +#Region " ٲϾ κ" + Public Function ChkNumPattern(ByVal index As Integer) As Int16 + Arin.WLog2(Auto_Log, "ȣ üũմϴ. int16 ȯմϴ.()", LogFile) + If Dv.Count <= 0 Or index < 0 OrElse index > Dv.Count Then + 'MsgBox("Ͱ ų ߸ ε Դϴ(" & index & "/" & Me.CustFP1.ActiveSheet.RowCount & ")", MsgBoxStyle.Critical, "Ȯ") + Return -1 '//߸ ε + End If + + Dim ˻ȣϰ˻ As Integer = 0 + Dim ˻ȣ As String + + ˻ȣ = GetSpread(index, "ȣ1") & GetSpread(index, "ȣ2") + If ˻ȣ.Trim = "" Then Return -1 '//˻ȣü + + Dim Wlen As Short = ˻ȣ.Length : If Wlen <= 0 Then Return -1 '// ۱Ͱ ع. + Dim SRC() As Char = ˻ȣ.ToCharArray + Dim Log As String = "\Parse_˻ȣ.txt" + Dim SepPos As Short = ˻ȣ.IndexOf(";") + Dim retval As Integer = 0 ''0 1 Ͼ 2 3 +ھ + + '//˻ȣ ʰ ϸ Ѵ. + Dim pname As String + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim PATTERN As String = PATTERN_ENC(˻ȣ) + + '//ڰִ ȮѴ. + pname = "JJNUMPATTERNII" & PATTERN + + Dim Dr() As DataRow + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "DESC'") + Arin.WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ":" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 2 + 'Arin.WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + + 'If Arinini.Read(pname, "DESC") = vbNullString Then retval += 2 '// Ƿ ٷ ѱ. + + pname = "JJNUMPATTERN" & Wlen + Dr = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "DESC'") + Arin.WLog2(Auto_Log, " 翩 = " & Dr.GetUpperBound(0) & ";" & pname, "\߼α.txt") + If Dr.GetUpperBound(0) <> -1 Then '//ִ. + retval += 1 + 'Arin.WLog2(Auto_Log, "5 ڸ ãҽϴ (" & pname & "DESC" & ")", Log) + End If + Return retval '// 0 ϵɰ̴. ̶ ̴ + End Function + Public Sub New() + InitializeComponent() + Arin.WLog2(Auto_Log, "New()", LogFile) + End Sub + Public Sub New(ByRef Src As ireaDataSet.Detail_karoDataTable, Optional ByVal IRow As DataRowView = Nothing) + InitializeComponent() + Arin.WLog2(Auto_Log, "New(srctable,srcRow)", LogFile) + srcTable = Src '// ̺ ӽ̺ صΰ Ѵ. + Srcrow = IRow '//̰ Ŭ ȣ̴. ȣ Ÿ ǺѴ + End Sub + Private Sub printform_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + 'If Not BackWork Is Nothing Then BackWork = Nothing + 'Me.CustFP1.ColSize_Save() + Me.SetForm.Close() + Arin.WLog2(Auto_Log, "Form_Close", LogFile) + Save_Setting() + End Sub + Private Sub printform_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + 'If SelCon Is Nothing Then Return + 'Dim Tobj As MyControlOLEDBv2.MyLabel + Select Case e.KeyCode + Case Keys.Up + If e.Shift Then '//۾ + Me.CtrSize(True, -5) + Else + Me.CtrPos(True, -5) + End If + 'Me.ViewProperty(SelCon(0)) + e.Handled = True + Case Keys.Down + If e.Shift Then + Me.CtrSize(True, 5) + Else + Me.CtrPos(True, 5) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Left + If e.Shift Then + Me.CtrSize(False, -5) + Else + Me.CtrPos(False, -5) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.Right + If e.Shift Then + Me.CtrSize(False, 5) + Else + Me.CtrPos(False, 5) + End If + 'ViewProperty(Tobj) + e.Handled = True + Case Keys.S + If e.Control Then + Me.bt_mansave1.PerformClick() + Me.bt_mansave2.PerformClick() + End If + Case Keys.F8 '//Ʈ ̸ + Me.bt_print_preview.PerformClick() + Case Keys.F9 '//Ʈϱ + Me.bt_print.PerformClick() + + End Select + + End Sub + + Private Sub SETTOOLTIP() + Arin.WLog2(Auto_Log, "Settooltip()", LogFile) + Dim TMSG As New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("ð ü սϴ") + TMSG.AppendLine() + TMSG.AppendLine("ȭ鿡 ʴ ü մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(SetForm.cmb_controls, TMSG.ToString) + + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine() + TMSG.AppendLine("<ü ¸ Ȯ ֽϴ>") + TMSG.AppendLine() + TMSG.AppendLine("Ŭ ӽ ش ڸ ֽϴ.") + TMSG.AppendLine("Ŭ ش簳ü õ˴ϴ.") + TMSG.AppendLine("Ctrl + Ŭ ش簳ü ׷ õ˴ϴ.") + TMSG.AppendLine("Ŭ õ ü ߰˴ϴ(߼ñ)") + TMSG.AppendLine() + TMSG.AppendLine("[ȣ½ 󱸺]") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : ") + TMSG.AppendLine(" : , ") + TMSG.AppendLine() + TMSG.AppendLine(">>ȯ漳 󱸺 ϵ Ǿ մϴ") + TMSG.AppendLine() + Me.ToolTip1.SetToolTip(Me.PictureBox1, TMSG.ToString) + + TMSG = New System.Text.StringBuilder() + TMSG.AppendLine(" ϸ ̸") + TMSG.AppendLine(" , ʴ Դϴ") + TMSG.AppendLine(" ̳ , ϴ Դϴ.") + TMSG.AppendLine() + 'Me.ToolTip1.SetToolTip(Me.X1, X1. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X2, X2. & vbCrLf & TMSG.ToString) + 'Me.ToolTip1.SetToolTip(Me.X3, X3. & vbCrLf & TMSG.ToString) + + End Sub + Private Sub con_dclick(ByVal sender As Object, ByVal e As System.EventArgs) + Arin.WLog2(Auto_Log, "ü Ŭ߽ϴ.(̰ )", LogFile) + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + Dim A As MyControlOLEDBv2.MyLabel = sender + Dim Val As String = InputBox(Msg.ToString, "", A.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + A.MyText = Val + '//preview Ƹ Ĺڽ Ŭ ѵ ϴ. + End Sub + Private Sub Save_Setting() + Arin.WLog2(Auto_Log, " (Ÿ) մϴ.", LogFile) + Dim A As New MyINI(SettingFile) + A.Write("PRINTFORM", "printername", Frm_Prnset.cmb_prnlist.Text) '//ϰ˻ ޺ڽ + End Sub + Private Sub Load_Setting() + Arin.WLog2(Auto_Log, "缳(Ÿ) ɴϴ.()", LogFile) + Arin.WLog2(Auto_Log, "Load_Setting()", LogFile) + Dim a As New MyINI(SettingFile) + Frm_Prnset.cmb_prnlist.Text = a.Read("PRINTFORM", "printername", "") + End Sub + Private Function GetSpread(ByVal row As Integer, ByVal col As Integer) As String + Try + Return Dv(row)(col) + 'Return Me.CustFP1_Sheet1.Cells(row, col).Value.ToString + Catch ex As Exception + Return "" + End Try + End Function + Private Function GetSpread(ByVal row As Integer, ByVal colname As String) As String + Try + Return Dv(row)(colname) + 'Return Me.CustFP1_Sheet1.Cells(row, col).Value.ToString + Catch ex As Exception + Return "" + End Try + End Function + + Public Sub GetStyleList() + Arin.WLog2(Auto_Log, "GetStyleList()", LogFile) + '//Ÿϸ ͼ ޺ڽ ǥմϴ. + '//style Ʒ ini ü Ÿ ̶Ѵ. + '// о ޸𸮿 Ѵ. + ' Dim Arinini As MyINI + Dim CurIdx As Integer = 0 + Dim StyleCnt As Short = StyleDir.GetFiles("*.ini").GetUpperBound(0) + ReDim StyleList(StyleCnt) + Dim Section, Value As New ArrayList + Dim SectionIdx As Integer = 0 + + Arin.WLog2(Auto_Log, "GetStyleList(Ͽ Ÿϸ ´)", LogFile) + + For Each FI As IO.FileInfo In StyleDir.GetFiles("*.ini") + Arin.WLog2(Auto_Log, "ϸ=(" & FI.FullName & ") Ÿ ɴϴ ޸𸮷", LogFile) + GetAllsection(FI.FullName, CurIdx) + SetForm.cmb_style.Items.Clear() + SetForm.cmb_style.Items.Add(StyleList(CurIdx).Desc) + CurIdx += 1 + Next + + End Sub + Private Sub ̺() + Arin.WLog2(Auto_Log, "̺ ()", LogFile) + GetAllsection(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File, SetForm.cmb_style.SelectedIndex) + End Sub + Public Sub GetAllsection(ByVal FILENAME As String, ByVal CurIdx As Short) + Dim FS As New System.IO.FileStream(FILENAME, FileMode.Open) + Dim SR As New StreamReader(FS, System.Text.Encoding.Default) + Dim Findkey As String = "" + Dim Line As String + Dim KeyPos As Integer = -1 + Dim Seppos As Integer = -1 + Dim dr As DataRow + + + Arin.WLog2(Auto_Log, "getallSection : 系 ̺ ȱ.()", LogFile) + + StyleList(CurIdx).PATTERNTABLE = New DataTable + StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + StyleList(CurIdx).PATTERNTABLE.Columns.Add("") + + '//ʱⰪ + StyleList(CurIdx).Backimg = "" + StyleList(CurIdx).CanvasX = 292 + StyleList(CurIdx).CanvasY = 520 + StyleList(CurIdx).Desc = "⺻ɸ" + StyleList(CurIdx).dummmyx = 0 + StyleList(CurIdx).dummmyy = 50 + StyleList(CurIdx).Dummy = False + StyleList(CurIdx).Dummytype = 1 + StyleList(CurIdx).File = "" + StyleList(CurIdx).Filter = "" + StyleList(CurIdx).LandScape = False + StyleList(CurIdx).MarginX = 50 + StyleList(CurIdx).MarginY = 50 + StyleList(CurIdx).picstyle = 1 + StyleList(CurIdx).PrintFontOffset = 0 + StyleList(CurIdx).ScaleX = 1.5 + StyleList(CurIdx).ScaleY = 1.5 + StyleList(CurIdx).Viewimage = False + + '// о &Ű = Ѵ. + While SR.Peek > -1 + Line = SR.ReadLine.ToUpper + + If Line <> "" Then + + + + If Findkey = "" Then '// õ Ű ٸ + If Line.ToUpper.IndexOf("[") > -1 Then Findkey = Line.Trim("[").ToString.Trim("]").ToString + Else '//õ Ű ִٸ ̺ ߰ش. + If Line.IndexOf("[") = -1 Then '//״ Ű ߰Ѵ. + Seppos = Line.IndexOf("=") + + ' MsgBox(Line.Substring(0, Seppos).ToUpper) + + Select Case Line.Substring(0, Seppos).ToUpper + Case "DESC" + If Findkey.ToUpper = "STYLE" Then + StyleList(CurIdx).Desc = Line.Substring(Seppos + 1).ToUpper + Else + dr = StyleList(CurIdx).PATTERNTABLE.NewRow + dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + dr(1) = Line.Substring(Seppos + 1).ToUpper + StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + End If + Case "FILE" : StyleList(CurIdx).File = Line.Substring(Seppos + 1).ToUpper + Case "BACKIMG" : StyleList(CurIdx).Backimg = Line.Substring(Seppos + 1).ToUpper + Case "CANVASX" : StyleList(CurIdx).CanvasX = Line.Substring(Seppos + 1).ToUpper + Case "CANVASY" : StyleList(CurIdx).CanvasY = Line.Substring(Seppos + 1).ToUpper + Case "DUMMMYX" : StyleList(CurIdx).dummmyx = Line.Substring(Seppos + 1).ToUpper + Case "DUMMMYY" : StyleList(CurIdx).dummmyy = Line.Substring(Seppos + 1).ToUpper + Case "LANDSCAPE" : StyleList(CurIdx).LandScape = Line.Substring(Seppos + 1).ToUpper + Case "MARGINX" : StyleList(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper + Case "MARGINY" : StyleList(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper + Case "PICSTYLE" : StyleList(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper + Case "PRINTFONTOFFSET" : StyleList(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper + Case "SCALEX" : StyleList(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper + Case "SCALEY" : StyleList(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper + Case "VIEWIMAGE" : StyleList(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper + Case "FILTER" : StyleList(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper + Case Else + dr = StyleList(CurIdx).PATTERNTABLE.NewRow + dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + dr(1) = Line.Substring(Seppos + 1).ToUpper + StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + End Select + + + + Else + Findkey = Line.Trim("[").ToString.Trim("]").ToString + End If + End If + End If + End While + ' MsgBox(StyleList(CurIdx).Filter) + SR.Close() + FS.Close() + + End Sub + + Public Function Prepare_Print() As Boolean '// ȣ ġϴ ȣ ãƼ 迭 ҴѴ. + + + Me.printindex = 0 '//迭 ù غѴ. + + Me.pDoc.DefaultPageSettings.Margins.Left = SetForm.tb_marginX.Text '//, + Me.pDoc.DefaultPageSettings.Margins.Top = SetForm.tb_marginY.Text + Me.pDoc.DefaultPageSettings.Landscape = SetForm.rad_land.Checked ' IIf(Me.cmb_landscape.SelectedIndex = 0, False, True) '//, ° + '//͸ Ǿִٸ ش ͷμ, ⺻ + If SetForm.cmb_prnlist.Text <> "" Then Me.pDoc.PrinterSettings.PrinterName = SetForm.cmb_prnlist.Text + + Dim Prn_Type As C_Epole.E_PrintRange + If Me.SetForm.rad_rangeall.Checked Then Prn_Type = C_Epole.E_PrintRange.All + If Me.SetForm.rad_Rangecurr.Checked Then Prn_Type = C_Epole.E_PrintRange.Current + If Me.SetForm.rad_rangecustom.Checked Then Prn_Type = C_Epole.E_PrintRange.Custom + + Return C_Epole.Set_PrnRange(Me.Dv, Me.BindingNavigatorPositionItem.Text, Me.PrintArray, Prn_Type, Me.SetForm.tb_printrange.Text.Trim) + End Function + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Print_Preview() + End Sub + Public Sub Print_Preview() + Arin.WLog2(Auto_Log, "print_preview ̸ ư .()", LogFile) + If Not Prepare_Print() Then + MsgBox("μ ϴ", MsgBoxStyle.Critical, "Ȯ") + Return + End If + Dim Preview As New PrintPreviewDialog() + Try + Preview.Document = pDoc + Preview.ShowDialog() + + Catch EX As Exception + MsgBox("Prrint_Preview Error : " & EX.Message) + End Try + End Sub + Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage + + Arin.WLog2(Auto_Log, "proc_printpage Ʈ ۼѴ ߿ϴ.()", LogFile) + + Dim fmt As New StringFormat(StringFormatFlags.LineLimit) + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim C As MyControlOLEDBv2.MyLabel + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + If Me.printindex <> -1 Then Me.GeTviewData(Me.PrintArray(Me.printindex), False) '// ϰ Ѵ. + e.Graphics.ScaleTransform(SetForm.tb_scalex.Text, SetForm.tb_scaley.Text) + + ' If Not Me.PictureBox1.BackgroundImage Is Nothing Then e.Graphics.DrawImage(Me.PictureBox1.BackgroundImage, 0, 0) + +Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + C = Me.AllLabels(i).ctl + If C.Visible = True AndAlso C.MyText <> "" Then + '//myfont ۲ ϰũ⺯ ɼؼ + NewFontSize = C.MyFont.Size + SetForm.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + + MyFont = New Font(C.MyFont.FontFamily, NewFontSize, C.MyFont.Style) + If C. = 100 AndAlso C. = 100 Then '//̻ ڿ ó + e.Graphics.DrawString(C., MyFont, Brushes.Black, New Point(C.Left + e.PageSettings.Margins.Left + IIf(dummy, SetForm.tb_secx.Text, 0), C.Top + e.PageSettings.Margins.Top + IIf(dummy, SetForm.tb_secy.Text, 0))) + 'e.Graphics.RotateTransform(Me.TextBox3.Text) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = C.CreateGraphics.DpiX + SrcDPiY = C.CreateGraphics.DpiY + + NewX = C.GetSize(MyFont).Width * (C. / 100) * (e.Graphics.DpiX / SrcDpix) + Newy = C.GetSize(MyFont).Height * (C. / 100) * (e.Graphics.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, e.Graphics) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ScaleTransform((C. / 100), (C. / 100)) + G.DrawString(C., MyFont, Brushes.Black, 0, 0) + G.Dispose() + e.Graphics.DrawImage(BMP, New Point(C.Left + e.PageSettings.Margins.Left + IIf(dummy, SetForm.tb_secx.Text, 0), C.Top + e.PageSettings.Margins.Top + IIf(dummy, SetForm.tb_secy.Text, 0))) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + 'e.Graphics.RotateTransform(Me.TextBox3.Text) + End If + End If + Next + + '// ִ 2庹縦 ȮѴ. + '// Ȯϰ ׷ 쿡 庹縸 ȮѴ. + If dummy = False AndAlso SetForm.cb_dummy.Checked Then '//2庹ϰ쿡 纹 üũ + + dummy = True + If SetForm.cmb_dummy.SelectedIndex = 0 Then '//纹  ϴ. + 'dummy = True + ' MsgBox("մ 纹") + GoTo Dummyflag + Else '//̹Ƿ մ ȮϰؾѴ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + Me.printindex += 1 '/1ѱ + Me.GeTviewData(Me.PrintArray(Me.printindex), False) '//ǥϰ + GoTo Dummyflag '//ٷ ´ٽѴ. + End If + '̾Ƿ ׳ Ѿ. + e.HasMorePages = False + End If + Else '//γѱϴ. + If Me.printindex >= 0 AndAlso Me.printindex < Me.PrintArray.GetUpperBound(0) Then '//ִ. + dummy = False '// Ѿ ̸ Ѵ. + Me.printindex += 1 + e.HasMorePages = True + Else + e.HasMorePages = False + End If + End If + ' e.Graphics.RotateTransform(Me.TextBox3.Text) + e.Graphics.Dispose() + End Sub + Public Sub Print() + If MsgBox("μ⸦ Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Ȯ") = MsgBoxResult.Ok Then + Arin.WLog2(Auto_Log, "print ٷ ϶ ̴()", "\Alllog.txt") + If Me.Prepare_Print() Then + pDoc.Print() + Else + MsgBox("μⰡ ϴ", MsgBoxStyle.Critical, "Ȯ") + End If + Else + NOTICE("μⰡ ҵǾϴ", Color.Tomato, Me.lb_msg) + End If + End Sub + Private Sub con_Mmove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + Arin.WLog2(Auto_Log, "con _move ü̵ νε Ⱦ.()", LogFile) + If My.Computer.Keyboard.CtrlKeyDown AndAlso e.Button = Windows.Forms.MouseButtons.Left Then + ' Me.Text = CType(sender, Label).Left & "/" & e.X + CType(sender, MyControlOLEDBv2.MyLabel).Left += e.X + CType(sender, MyControlOLEDBv2.MyLabel).Top += e.Y + End If + End Sub + + Private Sub ViewBackImage() + Arin.WLog2(Auto_Log, "viewBackImage ̹ ǥմϴ.()", LogFile) + If Not System.IO.File.Exists(SetForm.tb_picfile.Text) Then + SetForm.CheckBox4.Checked = False + Else + Me.PictureBox1.BackgroundImage = Image.FromFile(SetForm.tb_picfile.Text) + End If + End Sub + Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + + End Sub + Public Sub CtrPos(ByVal vertical As Boolean, ByVal offset As Short) + Arin.WLog2(Auto_Log, "ctrpos (õ ü ġ մϴ)", LogFile) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As Control In SelCon + If vertical Then '//¿ + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender.Top -= 1 + Else + sender.Top += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Top -= 10 + Else + sender.Top += 10 + End If + Else + sender.Top += offset + End If + Else '// + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender.Left -= 1 + Else + sender.Left += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender.Left -= 10 + Else + sender.Left += 10 + End If + Else + sender.Left += offset + End If + End If + + Next + + Arin.WLog2(Auto_Log, "ctrpos =[ preview ȣմϴ]", LogFile) + Me.preview_window() + 'Me.ViewProperty(sender) + End Sub + Private Sub ShowMsg(ByVal Message As String) + Arin.WLog2(Auto_Log, "showmsg ޼ ݴϴ =" & Message, LogFile) + Me.lb_msg.Text = " " & Message & Space(1) & TimeOfDay.ToString + End Sub + + Private Sub cmb_style_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + Arin.WLog2(Auto_Log, "Ÿ޺ڽ keyip Ǿ ڵ true ع.", LogFile) + e.Handled = True + End Sub + Public Sub Selected_Style(ByVal SelIndex As Short) + '//⼭ ͸ ߷(͸ ´.) + '//ش Ÿ ҷ´ + Arin.WLog2(Auto_Log, "Ÿ ε Ǿ.", LogFile) + If SetForm.cmb_style.SelectedIndex < 0 Then SetForm.cmb_style.SelectedIndex = 0 + + Dim DataFilter As String = StyleList(SetForm.cmb_style.SelectedIndex).Filter + If DataFilter.Trim = "" Then + DataFilter = " = true" '//μʵ п Ѵ. + Else + DataFilter &= " AND = true" '//ִ μⰡ True ̱⶧ ش Ѵ + End If + + Me.BindingSource1.Sort = "" + Me.BindingSource1.DataSource = Nothing + + Try + Dv = New DataView(srcTable, DataFilter, "Ĺȣ,ȣ", DataViewRowState.CurrentRows) + + 'Dv = New DataView(srcTable, "len(DL) > 0", "", DataViewRowState.CurrentRows) + + If Dv.Count <= 0 Then '//Ͱٸ + MsgBox(SetForm.cmb_style.Text & " شϴ Ͱ ʽϴ" & vbCrLf & vbCrLf & "ٸ Ÿ ϼ", MsgBoxStyle.Information, "Ȯ") + Me.PictureBox1.Refresh() + Else + Arin.WLog2(Auto_Log, "õ ŸϿ Ͱִ=" & Dv.Count, LogFile) + 'Me.textbox2.Text = Dv.Count - 1 '//ϰ˻ ī̴... + Me.VScrollBar1.Minimum = 0 + Me.VScrollBar1.Maximum = Dv.Count - 1 + + 'MsgBox("ũ =" & Me.VScrollBar1.Maximum) + Me.LOAD_STYLE() '//ŸϺҷ(⼭ Ʈ ⺻ ġ ۲ ȴ) + If Me.FirstIdx = -1 Then + For i As Integer = 0 To Dv.Count - 1 '//÷ٳ ã´. DV ε ٸ⶧ ãƾѴ. + If Dv(i)("ȣ") = Srcnum Then + FirstIdx = i + Exit For + End If + Next + End If + + If FirstIdx = -1 OrElse FirstIdx > Dv.Count - 1 Then FirstIdx = 0 '//ãϰ 쿡 1 ڵ带 ֵ Ѵ. + + + NoView = True '//For Validate Index =0 + + + If FirstIdx = 0 Then '//Index is first + Arin.WLog2(Auto_Log, "View : First Record // Set = 0", "\Alllog.txt") + Else '//index is not first + Arin.WLog2(Auto_Log, "View : Index Count = " & FirstIdx, "\Alllog.txt") + End If + + Me.BindingSource1.DataSource = Dv 'Dv '//⼭õǸ鼭 ٷ tview ۵ȴ. + Me.BindingSource1.Sort = "Ĺȣ,ȣ" ',ȣ" + Me.VScrollBar1.Value = FirstIdx + Me.BindingSource1.Position = FirstIdx + + 'MsgBox("ASDF" & Me.BindingNavigatorPositionItem.Text) + If FirstIdx = 0 Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + Catch ex As Exception + '//ٸ ;; ٷ ϴ° + MsgBox(" ΰϴ") + + End Try + + ''Arin.WLog2(Auto_Log, "cmb_style selectindexchanged preview ȣ", "\߼α.txt") + 'Me.preview_window() + End Sub + + + + Public Sub LOAD_STYLE(Optional ByVal Div As String = "Z") '// Ÿ ҷɴϴ. + ' MsgBox("LOADSTYLE" & "/" & Div) + ' MsgBox("LOADSTYLE" & "/" & Div) + Arin.WLog2(Auto_Log, "load_style : Ÿ ҷɴϴ. div= " & Div, LogFile) + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim pos(), font(), visible, mytext As String + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim DR() As DataRow + Dim idx As Integer = 0 + + '// + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// . + Tobj = Me.AllLabels(i).ctl + If Div.ToUpper = "Z" Then '// + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "X" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = Arin.TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + Else '//Ư۱϶ + + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + If Div.ToUpper = "H" Then '//Hǰ ãƺ. + + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + If DR.GetUpperBound(0) = 0 Then + mytext = DR(0)(1).ToString + Select Case Tobj.Name.ToUpper.Substring(0, 1) + Case "X" '//ڹϰ쿡 ڿ ؾѴ. + If mytext <> "" Then Tobj.MyText = Arin.TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + End Select + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + + Else + '//޸𸮿 ã´. + Tobj.Tag = "" + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "POS'") + If DR.GetUpperBound(0) = 0 Then + pos = DR(0)(1).ToString.Split(",") + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "FONT'") + If DR.GetUpperBound(0) = 0 Then + font = DR(0)(1).ToString.Split(",") + Tobj. = font(5) + Tobj. = font(6) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + visible = DR(0)(1).ToString + Tobj.Visible = CType(visible, Boolean) + End If + + 'DR = StyleList(setform.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "MYTEXT'") + 'If DR.GetUpperBound(0) = 0 Then + 'mytext = DR(0)(1).ToString + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" '//ڹϰ쿡 ڿ ؾѴ. + 'If mytext <> "" Then Tobj.MyText = Arin.TextDec(mytext) '//ini ٷϸȵDZ⶧ ȯؼ Ѵ. + 'End Select + 'End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = 'STYLE" & Tobj.Name.ToUpper & "SPACE'") + If DR.GetUpperBound(0) = 0 Then Tobj. = DR(0)(1).ToString + End If + End If + End If + + Next + + If Div.ToUpper <> "Z" Then Return '//̾ƴϴ + Arin.WLog2(Auto_Log, "load_style ⺻ üũڽ ҷ´. ̰ ÷ ҷ ȴ. ", LogFile) + ''''''''''''''''''' ü'' Ÿ üũڽ ´. + For Each B As Control In SetForm.TabPage2.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + End If + Next + + If Admin Then + For Each A As ToolStripDropDownItem In Me.mainmenu.DropDownItems '//⼭ üũڽΰ͵鸸 + If A.GetType.Name.ToUpper = "TOOLSTRIPMENUITEM" Then + If CType(A, ToolStripMenuItem).CheckOnClick Then + CType(A, ToolStripMenuItem).Checked = Arinini.Read("STYLE", A.Name, False) + End If + End If + Next + End If + + + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' CType(B, Windows.Forms.CheckBox).Checked = Arinini.Read("STYLE", B.Name, False) '//⺻ false + ' End If + 'Next + ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + SetForm.tb_marginX.Text = StyleList(SetForm.cmb_style.SelectedIndex).MarginX 'Arinini.Read("STYLE", "MarginX", 10) + SetForm.tb_marginY.Text = StyleList(SetForm.cmb_style.SelectedIndex).MarginY ' Arinini.Read("STYLE", "MarginY", 10) + SetForm.tb_scalex.Text = StyleList(SetForm.cmb_style.SelectedIndex).ScaleX ' Arinini.Read("STYLE", "ScaleX", "1.5") + SetForm.tb_scaley.Text = StyleList(SetForm.cmb_style.SelectedIndex).ScaleY ' Arinini.Read("STYLE", "ScaleY", "1.3") + ''''''''''''2 + SetForm.cb_dummy.Checked = StyleList(SetForm.cmb_style.SelectedIndex).Dummy 'Arinini.Read("STYLE", "dummy", False) + SetForm.cmb_dummy.SelectedIndex = StyleList(SetForm.cmb_style.SelectedIndex).Dummytype ' Arinini.Read("STYLE", "dummytype", 0) + SetForm.tb_secx.Text = StyleList(SetForm.cmb_style.SelectedIndex).dummmyx ' Arinini.Read("STYLE", "dummmyx", "0") + SetForm.tb_secy.Text = StyleList(SetForm.cmb_style.SelectedIndex).dummmyy ' Arinini.Read("STYLE", "dummmyy", "300") + + SetForm.tb_picfile.Text = StyleList(SetForm.cmb_style.SelectedIndex).Backimg ' Arinini.Read("STYLE", "backimg", My.Application.Info.DirectoryPath & "\image\wall.bmp").ToString.Trim(Chr(0)) + Me.pDoc.DefaultPageSettings.Landscape = StyleList(SetForm.cmb_style.SelectedIndex).LandScape ' Arinini.Read("STYLE", "LandScape", False) + If StyleList(SetForm.cmb_style.SelectedIndex).LandScape Then + SetForm.rad_land.Checked = True + Else + SetForm.rad_port.Checked = True + End If + 'SetForm.rad_land.Checked = IIf(StyleList(SetForm.cmb_style.SelectedIndex).LandScape, 1, 0) + 'Me.SetLayOut(IIf(Me.cmb_landscape.SelectedIndex = 0, False, True)) + + SetForm.CheckBox4.Checked = StyleList(SetForm.cmb_style.SelectedIndex).Viewimage ' Arinini.Read("STYLE", "ViewImage", True) + SetForm.tb_myfontsize.Text = StyleList(SetForm.cmb_style.SelectedIndex).PrintFontOffset ' Arinini.Read("STYLE", "PrintFontOffset", 0) + + 'Me.PictureBox1.Width = StyleList(setform.cmb_style.SelectedIndex).CanvasX 'Arinini.Read("STYLE", "CanvasX", 297) '520 + 'Me.PictureBox1.Height = StyleList(setform.cmb_style.SelectedIndex).CanvasY ' Arinini.Read("STYLE", "CanvasY", 520) '520 + + NOTICE(SetForm.cmb_style.Text & "Ÿ ҷԽϴ.", Me.lb_msg) + + End Sub + Public Sub SAVE_STYLE() + Arin.WLog2(Auto_Log, "iniϿ Ÿ մϴ. ", LogFile) + Dim Arinini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim Tobj As MyControlOLEDBv2.MyLabel + '// õ Ÿ մϴ. + If SetForm.cmb_style.SelectedIndex < 0 Then + erp.SetError(SetForm.cmb_style, " Ÿ õǾ ʽϴ") + NOTICE("Ÿ ϼ", Me.lb_msg) + Return + End If + erp.SetError(SetForm.cmb_style, vbNullString) + + 'Dim Div As Char + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write("STYLE", Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write("STYLE", Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write("STYLE", Tobj.Name & "visible", "true") '⺻ ǥ÷ س üũڽ üũѴ. + Arinini.Write("STYLE", Tobj.Name & "space", Tobj.) + 'Select Case Tobj.Name.ToUpper.Substring(0, 1) + ' Case "U", "A", "B", "D", "E" + 'Arinini.Write("STYLE", Tobj.Name & "mytext", Arin.TextEnc(Tobj.MyText)) + 'End Select + + 'Div = Tobj.Name.Substring(0, 1) '1ڸ üũڽ ±׶ Ѵ. + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' If B.Tag <> Nothing AndAlso B.Tag.ToString.ToUpper = Div.ToString.ToUpper Then '//ش üũڽ ã üũڽ · Ѵ. + ' Arinini.Write("STYLE", Tobj.Name & "visible", CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' Exit For + ' End If + ' End If + 'Next + Next + + + + For Each TC As TabPage In SetForm.TabControl1.TabPages '//Ʈ1 üũڽ ¸ Ѵ. + For Each B As Control In TC.Controls + If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + End If + Next + Next + + 'For Each B As Control In Me.TabPage1.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + 'For Each B As Control In Me.TabPage3.Controls + ' If B.GetType.Name.ToUpper = "CHECKBOX" Then '//üũڽ ±׸ Ѵ. + ' Arinini.Write("STYLE", B.Name, CType(B, Windows.Forms.CheckBox).Checked) 'A.Visible) + ' End If + 'Next + + 'Arinini.Write("STYLE", "CanvasX", Me.PictureBox1.Width) '//ĵѴ. + 'Arinini.Write("STYLE", "CanvasY", Me.PictureBox1.Height) + + Arinini.Write("STYLE", "ViewImage", SetForm.CheckBox4.Checked) + Arinini.Write("STYLE", "MarginX", SetForm.tb_marginX.Text) + Arinini.Write("STYLE", "MarginY", SetForm.tb_marginY.Text) + Arinini.Write("STYLE", "ScaleX", SetForm.tb_scalex.Text) + Arinini.Write("STYLE", "ScaleY", SetForm.tb_scaley.Text) + + If SetForm.tb_picfile.Text.Trim = "" Then + Arinini.Write("STYLE", "backimg", "") + Else + Dim newpath As String = CStr(My.Application.Info.DirectoryPath & "\image\").ToUpper + Dim NEwpathp As Short = (SetForm.tb_picfile.Text.ToUpper.IndexOf(newpath)) + If NEwpathp = -1 Then + Arinini.Write("STYLE", "backimg", SetForm.tb_picfile.Text) + Else + Arinini.Write("STYLE", "backimg", SetForm.tb_picfile.Text.Substring(NEwpathp + newpath.Length)) + End If + End If + + Arinini.Write("STYLE", "PrintFontOffset", SetForm.tb_myfontsize.Text) + Arinini.Write("STYLE", "LandScape", Me.pDoc.DefaultPageSettings.Landscape) + + '// üũڽ ޺ڽ ε x,y + Arinini.Write("STYLE", "dummy", SetForm.cb_dummy.Checked) + Arinini.Write("STYLE", "dummytype", SetForm.cmb_dummy.SelectedIndex) + Arinini.Write("STYLE", "dummmyx", SetForm.tb_secx.Text) + Arinini.Write("STYLE", "dummmyy", SetForm.tb_secy.Text) + ' Arinini.Write("STYLE", "picstyle", Me.ComboBox1.SelectedIndex) + + '//Ÿÿ ̾ƿ¶ ϰѴ. ̺κ ŸϺҷö ʰ + '/// Ҷ ҷѴ(Ͽ ҷѴ ѹ̹Ƿ ޸𸮿 øʿ + SaveReadLayOut(False) '//̾ƿѴ. + + NOTICE("⺻Ÿ ߽ϴ", Me.lb_msg) + Arin.WLog2(Auto_Log, "save style Ϸ ̺ ȣ ", LogFile) + Me.̺() + + End Sub + Public Sub SaveReadLayOut(ByVal read As Boolean) '// ȭ鱸 / մϴ. + '//iniϿѴ. Ǹ pagetype0 ,pagetyp1 0 1 δ + Dim ini As New MyINI(StyleDir.FullName & "\" & StyleList(SetForm.cmb_style.SelectedIndex).File) + Dim Secname As String = "pagetype" & IIf(SetForm.rad_land.Checked, 1, 0) 'Me.cmb_landscape.SelectedIndex + + If read = False Then + 'ini.Write(Secname, "tablelayoutpanel1loc", Me.TableLayoutPanel1.Left & "," & Me.TableLayoutPanel1.Top) + 'ini.Write(Secname, "tablelayoutpanel1size", Me.TableLayoutPanel1.Width & "," & Me.TableLayoutPanel1.Height) + ini.Write(Secname, "PictureBox1loc", Me.PictureBox1.Left & "," & Me.PictureBox1.Top) + ini.Write(Secname, "PictureBox1size", Me.PictureBox1.Width & "," & Me.PictureBox1.Height) + 'ini.Write(Secname, "TabControl1loc", Me.TabControl1.Left & "," & Me.TabControl1.Top) + 'ini.Write(Secname, "TabControl1size", Me.TabControl1.Width & "," & Me.TabControl1.Height) + 'ini.Write(Secname, "GroupBox3loc", Me.GroupBox3.Left & "," & Me.GroupBox3.Top) + 'ini.Write(Secname, "GroupBox3size", Me.GroupBox3.Width & "," & Me.GroupBox3.Height) + 'ini.Write(Secname, "GroupBox2loc", Me.GroupBox2.Left & "," & Me.GroupBox2.Top) + 'ini.Write(Secname, "GroupBox2size", Me.GroupBox2.Width & "," & Me.GroupBox2.Height) + ini.Write(Secname, "cmb_styleloc", SetForm.cmb_style.Left & "," & SetForm.cmb_style.Top) + ini.Write(Secname, "cmb_stylesize", SetForm.cmb_style.Width & "," & SetForm.cmb_style.Height) + ' ini.Write(Secname, "ToolStrip2loc", Me.ToolStrip2.Left & "," & Me.ToolStrip2.Top) + ini.Write(Secname, "mesize", Me.Width & "," & Me.Height) + Else '// д κ + If SetForm.rad_land.Checked = False Then '// + Me.pDoc.DefaultPageSettings.Landscape = False + 'TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + 'TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "297,522").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "3,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(0), ini.Read(Secname, "PictureBox1size", "270,479").Split(",")(1)) + 'TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(0), ini.Read(Secname, "TabControl1loc", "303,34").Split(",")(1)) + 'TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "279,519").Split(",")(0), ini.Read(Secname, "TabControl1size", "279,519").Split(",")(1)) + ''GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "11,368").Split(",")(1)) + 'GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "246,78").Split(",")(1)) + 'GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "11,170").Split(",")(1)) + 'GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + 'cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + 'cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,146").Split(",")(1)) + ' ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,451").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "588,632").Split(",")(0), ini.Read(Secname, "mesize", "588,632").Split(",")(1)) + Else + Me.pDoc.DefaultPageSettings.Landscape = True + 'TableLayoutPanel1.Location = New Point(ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1loc", "0,31").Split(",")(1)) + 'TableLayoutPanel1.Size = New Size(ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(0), ini.Read(Secname, "tablelayoutpanel1size", "710,292").Split(",")(1)) + PictureBox1.Location = New Point(ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(0), ini.Read(Secname, "PictureBox1loc", "325,3").Split(",")(1)) + PictureBox1.Size = New Size(ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(0), ini.Read(Secname, "PictureBox1size", "355,200").Split(",")(1)) + 'TabControl1.Location = New Point(ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(0), ini.Read(Secname, "TabControl1loc", "3,326").Split(",")(1)) + 'TabControl1.Size = New Size(ini.Read(Secname, "TabControl1size", "711,228").Split(",")(0), ini.Read(Secname, "TabControl1size", "711,228").Split(",")(1)) + ''GroupBox3.Location = New Point(ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(0), ini.Read(Secname, "GroupBox3loc", "513,6").Split(",")(1)) + 'GroupBox3.Size = New Size(ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(0), ini.Read(Secname, "GroupBox3size", "184,78").Split(",")(1)) + 'GroupBox2.Location = New Point(ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(0), ini.Read(Secname, "GroupBox2loc", "262,6").Split(",")(1)) + 'GroupBox2.Size = New Size(ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(0), ini.Read(Secname, "GroupBox2size", "245,192").Split(",")(1)) + 'cmb_style.Location = New Point(ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(0), ini.Read(Secname, "cmb_styleloc", "11,18").Split(",")(1)) + 'cmb_style.Size = New Size(ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(0), ini.Read(Secname, "cmb_stylesize", "245,139").Split(",")(1)) + ' ToolStrip2.Location = New Point(ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(0), ini.Read(Secname, "ToolStrip2loc", "3,159").Split(",")(1)) + Me.Size = New Size(ini.Read(Secname, "mesize", "730,643").Split(",")(0), ini.Read(Secname, "mesize", "730,643").Split(",")(1)) + End If + End If + + End Sub + + + + Private Sub cmb_controls_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + '//ü õǸ ش ü ش. + 'Me.Timer1.Enabled = False + Arin.WLog2(Auto_Log, "ü ޺ڽ Ư ü õǾ view property ȣ", LogFile) + + End Sub + + + Public Sub CtrSize(ByVal vertical As Boolean, ByVal offset As Short) + If SelCon Is Nothing OrElse SelCon.Count < 1 Then Exit Sub + + For Each sender As MyControlOLEDBv2.MyLabel In SelCon + If vertical Then '// + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender. -= 1 + Else + sender. += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + Else '//¿ + If My.Computer.Keyboard.AltKeyDown Then + If offset < 0 Then + sender. -= 1 + Else + sender. += 1 + End If + ElseIf My.Computer.Keyboard.CtrlKeyDown Then + If offset < 0 Then + sender. -= 10 + Else + sender. += 10 + End If + Else + sender. += offset + End If + End If + Next + + Me.preview_window() + End Sub + Public Sub LOAD_STYLEC(ByVal StyleName As String, ByVal Div As String) + '//ŸŸ 󵵰 Ͽ ҷѴ.;;޸𸮴 Ÿ. + Dim Arinini As New MyINI(FileC) + If Not IO.File.Exists(FileC) Then + MSG("ŸŸϼ ʽϴ\n\nڿ ϼ", MsgBoxStyle.Critical, "") + Return + End If + Dim pos(), font(), visible As String '//ȣ غ. + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Try + If Div.ToUpper = "Z" Then '// + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + Else '̰ Oð̴. + If Tobj.Name.ToUpper.Substring(0, 1) = Div Then + pos = Arinini.Read(StyleName, Tobj.Name & "pos").Split(",") + font = Arinini.Read(StyleName, Tobj.Name & "font").Trim(Chr(0)).Split(",") + visible = Arinini.Read(StyleName, Tobj.Name & "visible") + '//¸ о ٷ Ѵ. + Tobj.Location = New Point(pos(0), pos(1)) + Tobj.Size = New Size(pos(2), pos(3)) + Tobj.MyFont = New Font(font(0), font(1), IIf(font(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + Tobj. = font(5) + Tobj. = font(6) + Tobj. = Arinini.Read(StyleName, Tobj.Name & "space", 0) + Tobj.Visible = CType(visible, Boolean) + End If + End If + Catch ex As Exception + Arin.WLog2(Auto_Log, "LOAD_STYLE_CUSTOM :" & ex.Message.ToString, "LOAD_STYLEC") + End Try + Next + NOTICE(StyleName & "ŸŸ ҷԽϴ.", Me.lb_msg) + Me.preview_window() + End Sub + Public Sub SAVE_STYLEC(ByVal stylename As String, ByVal div As String) '//ŸŸ Ѵ. + Dim Arinini As New MyINI(FileC) + '// õ Ÿ մϴ. + Arinini.Write(stylename, "DESC", stylename) + Dim Tobj As MyControlOLEDBv2.MyLabel + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + Tobj = Me.AllLabels(i).ctl + Arinini.Write(stylename, Tobj.Name & "pos", Tobj.Left & "," & Tobj.Top & "," & Tobj.Width & "," & Tobj.Height) + Arinini.Write(stylename, Tobj.Name & "font", Tobj.MyFont.Name & "," & Tobj.MyFont.Size & "," & Tobj.MyFont.Underline & "," & Tobj.MyFont.Bold & "," & Tobj.MyFont.Italic & "," & Tobj. & "," & Tobj.) + Arinini.Write(stylename, Tobj.Name & "visible", Tobj.Visible) + Arinini.Write(stylename, Tobj.Name & "space", Tobj.) + Next + NOTICE("ŸŸ ߽ϴ", Me.lb_msg) + End Sub + Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(False, -5) + End Sub + Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(False, 5) + End Sub + Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(True, -5) + End Sub + Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrSize(True, 5) + End Sub + Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(False, -5) + End Sub + Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(False, 5) + End Sub + Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(True, -5) + End Sub + Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.CtrPos(True, 5) + End Sub + Private Sub BindingNavigatorPositionItem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles BindingNavigatorPositionItem.KeyUp + '//ġ ͺ̽ ġ Ѵ.(position) + If e.KeyCode = Keys.Enter Then + If IsNumeric(Me.BindingNavigatorPositionItem.Text) Then Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + End Sub + 'Private Sub NPartternCheck() + ' Dim ȣϰ˻ As Integer = 0 + + ' '//ϰ˻ + ' ' Me.PictureBox1.Image = Image.FromFile(My.Application.Info.DirectoryPath & "\image\start.png") + + + ' Dim endcnt As Integer = Me.textbox2.Text + + ' For i As Integer = Me.textbox1.Text To Me.textbox2.Text + ' ' If chkFlag Then Exit For + ' showcnt(i, endcnt, "ϰ˻") + ' Me.textbox1.Text = i + ' ȣϰ˻ = ChkNumPattern(i) + ' ' MsgBox(ȣϰ˻) + + ' If ȣϰ˻ = 0 Then '1 3̳ 2 ̴ + ' NOTICE("Ϸùȣ=" & i + 1 & " , ʽϴ", Me.lb_msg) + ' My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\ding.wav", AudioPlayMode.Background) + ' 'If MsgBox("Sdf", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then + ' Me.BindingSource1.Position = i + ' Exit For + ' End If + ' Next + ' If Me.textbox1.Text = Me.textbox2.Text Then '//ϷǾٸ + ' My.Computer.Audio.Play(My.Application.Info.DirectoryPath & "\sound\notify.wav", AudioPlayMode.Background) + ' NOTICE("ϰ˻簡 ϷǾϴ", Me.lb_msg) + ' End If + ' Me.bt_chkpattern.Text = "(&S)" + 'End Sub + Private Sub showcnt(ByVal cnt1 As Integer, ByVal cnt2 As Integer, Optional ByVal tag As String = "") + Me.lb_msg.Text = cnt1 & "/" & cnt2 & Space(1) & tag + My.Application.DoEvents() + End Sub + + + Private Sub cmb_landscape_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) + Me.SaveReadLayOut(True) + End Sub + + Private Sub printform_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel + If e.Delta < 0 Then + 'If Me.BindingNavigatorPositionItem.Text < Me.BindingNavigatorCountItem.Text Then + Me.BindingNavigatorMoveNextItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + 'End If + Else + If Me.BindingNavigatorPositionItem.Text > 0 Then + Me.BindingNavigatorMovePreviousItem.PerformClick() + Me.BindingNavigatorPositionItem.Focus() + End If + End If + End Sub + + + + Public Sub preview_window() '//̸ȭ մϴ. + + Dim MyFont As Font + Dim NewFontSize As Int16 = 10 + Dim dummy As Boolean = False '//̰ true ̸ ½ ؼ Ѵ. + Dim BackScr As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, Me.PictureBox1.CreateGraphics) + Dim Ga As Graphics = Graphics.FromImage(BackScr) + Dim Brush As SolidBrush + Dim obj As MyControlOLEDBv2.MyLabel + + + ' ϰ  Ѵ. + 'Debug.Print("ε=" & Me.printindex) + 'Debug.Print("͹迭=" & Me.PrintArray.GetUpperBound(0)) + + ' If Me.printindex <> -1 Then Me.GeTviewData(Me.PrintArray(Me.printindex)) '// ϰ Ѵ. + 'Dummyflag: '//--2ϰ ̺κп ٽ Ѵ. + + 'If Not Me.PictureBox1.BackgroundImage Is Nothing Then + ' Ga.DrawImage(Me.PictureBox1.BackgroundImage, 0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height) + ' End If + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + SetForm.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + 'Ga.RotateTransform(45) + Ga.DrawString(obj., MyFont, Brush, obj.Location) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left, obj.Top)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + 'Ga.RotateTransform(20 + + + + End If + End If + Next + + If SetForm.cb_dummy.Checked Then '//簡 õǾ ѹ Ѵ. + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + NewFontSize = obj.MyFont.Size + SetForm.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + Ga.DrawString(obj., MyFont, Brushes.Gray, (obj.Left + SetForm.tb_secx.Text), (obj.Top + SetForm.tb_secy.Text)) + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + G.DrawString(obj., MyFont, Brushes.Gray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, CSng(obj.Left + SetForm.tb_secx.Text), CSng(obj.Top + SetForm.tb_secy.Text)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Ga.Dispose() + Me.PictureBox1.Image = BackScr + End Sub + + Private Sub BindingSource1_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingSource1.PositionChanged + 'MsgBox("BindingSource1_PositionChanged=" & Now.ToString & "current=" & Me.BindingNavigatorPositionItem.Text & "mnoview=" & NoView) + Debug.Print("BindingSource1_PositionChanged : " & Me.BindingSource1.Position) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If Me.BindingSource1.Position >= 0 Then Me.VScrollBar1.Value = Me.BindingSource1.Position + If Me.NoView Then + Me.NoView = False + Else + Me.GeTviewData(Me.BindingNavigatorPositionItem.Text - 1, True) + End If + + End Sub + + Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll + Debug.Print("Scroll Old:" & e.OldValue & "/ New :" & e.NewValue & "/ Current : " & Me.VScrollBar1.Value) + Debug.Print("ũѹٰ " & Me.VScrollBar1.Minimum & "/" & Me.VScrollBar1.Maximum) + If e.NewValue > 0 Then + Me.BindingSource1.Position = e.NewValue + Else + Debug.Print("ũѹvalue 0 ۽ϴ. ҽ ġ 0 մϴ") + Me.BindingSource1.Position = 0 + End If + End Sub + + Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Dim selitem As New ArrayList + + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + selitem.Add(Me.AllLabels(i).ctl) + 'Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + 'If Me.chk_multisel.Checked Then '//߸Ͽ ýð üũǾ ǥش. + If selitem.Count > 1 Then + Dim A As New selitem + For si As Short = 1 To selitem.Count + A.ListBox1.Items.Add(CType(selitem.Item(si - 1), MyControlOLEDBv2.MyLabel).) + Next + If A.ShowDialog() = Windows.Forms.DialogResult.OK Then + Tobj = selitem.Item(A.ListBox1.SelectedIndex) + Else '//ĵÿ ù° Ѵ. + Tobj = selitem.Item(0) + End If + End If + 'End If + + Dim Exist As Boolean = False '//ðü 翩 + If SelCon Is Nothing Then + SelCon.Add(Tobj) + Else + If e.Button = Windows.Forms.MouseButtons.Right Then + For Each obj As MyControlOLEDBv2.MyLabel In SelCon + If obj.Name = Tobj.Name Then '//ȴ. + obj.MyForeColor = Color.Black + SelCon.Remove(obj) + Exist = True + Exit For + End If + Next + If Exist = False Then + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.Tomato + End If + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then 'Ŭ̸ ٽ + For Each SC As MyControlOLEDBv2.MyLabel In SelCon + SC.MyForeColor = Color.Black + Next + SelCon.Clear() + SelCon.Add(Tobj) + Tobj.MyForeColor = Color.DodgerBlue + + If My.Computer.Keyboard.CtrlKeyDown Then '//Ʈ ش ׷ ã´. + 'MsgBox(Tobj.Name) + SelCon.Clear() + For z As Short = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(z).ctl.Name.Substring(0, 1) = Tobj.Name.Substring(0, 1) Then + Me.AllLabels(z).ctl.MyForeColor = Color.Blue + SelCon.Add(Me.AllLabels(z).ctl) + End If + Next + End If + + Else '//ư̴.  ƮѴ. + SetForm.bt_fontchange.PerformClick() + End If + End If + + SetForm.cmb_controls.Text = Tobj. + SetForm.ViewProperty(Tobj) + + Me.preview_window() + End Sub + + Private Sub PictureBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDoubleClick + Dim Tobj As MyControlOLEDBv2.MyLabel + Tobj = Nothing + + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) + If Me.AllLabels(i).ctl.Visible AndAlso Me.AllLabels(i).ctl.MyText <> "" AndAlso _ + ((e.X >= Me.AllLabels(i).ctl.Left) And e.X <= (Me.AllLabels(i).ctl.Left + Me.AllLabels(i).ctl.GetSize.Width)) _ + AndAlso ((e.Y >= Me.AllLabels(i).ctl.Top) AndAlso (e.Y <= (Me.AllLabels(i).ctl.Top + Me.AllLabels(i).ctl.GetSize.Height))) Then + Tobj = Me.AllLabels(i).ctl + Exit For + End If + Next + + If Tobj Is Nothing Then Return '//õȰ + + Dim Msg As New System.Text.StringBuilder(" Էϼ") + Msg.AppendLine("ٹٲϷ \n Էϼ") + Msg.AppendLine(") η 12 Ϸ 1\n2 Էϼ") + Msg.AppendLine() + Msg.AppendLine(" ˴ϴ") + + + Dim Val As String = InputBox(Msg.ToString, "", Tobj.MyText) + If Val = "" Then Return + Val = Val.Replace("\n", vbCrLf) + Tobj.MyText = Val + + Me.preview_window() + 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 Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal loadStyle As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + Arin.WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + C.Tag = "L" + Catch ex As Exception + Arin.WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + Arin.WLog2(Auto_Log, "Ϻġ ⺻Ÿ =" & Wlen & " ڿ=" & srcstr, log) + Me.LOAD_STYLE(loadStyle) '// SŸ ʱȭմϴ( Ÿ ʱȭϴ°̴) + End If + End Sub + Private Sub Ͽ(ByVal srcstr As String, ByVal pname As String, ByVal log As String, ByVal S() As MyControlOLEDBv2.MyLabel) + Dim Wlen As Short = srcstr.Length : If Wlen <= 0 Then Return '// ۱Ͱ ع. + Dim SepPos As Short = srcstr.IndexOf(";") + Dim DR() As DataRow + Dim CTLPOS() As String + Dim CTLFONT() As String + Dim CTLVISIBLE As Boolean + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & "DESC'") + If DR.GetUpperBound(0) = 0 Then '// + Arin.WLog2(Auto_Log, " ˻ =" & Wlen & " ġ=" & SepPos & " ̵=" & pname, log) + For Each C As MyControlOLEDBv2.MyLabel In S + Try + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "POS'") + If DR.GetUpperBound(0) = 0 Then + CTLPOS = DR(0)(1).ToString.Split(",") + C.Location = New Point(CTLPOS(0), CTLPOS(1)) + C.Size = New Size(CTLPOS(2), CTLPOS(3)) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "FONT'") + If DR.GetUpperBound(0) = 0 Then + CTLFONT = DR(0)(1).ToString.Split(",") + C.MyFont = New Font(CTLFONT(0), CTLFONT(1), IIf(CTLFONT(3).ToUpper = "TRUE", FontStyle.Bold, FontStyle.Regular), GraphicsUnit.Point) + C. = CTLFONT(5) + C. = CTLFONT(6) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "VISIBLE'") + If DR.GetUpperBound(0) = 0 Then + CTLVISIBLE = DR(0)(1).ToString + C.Visible = CType(CTLVISIBLE, Boolean) + End If + + DR = StyleList(SetForm.cmb_style.SelectedIndex).PATTERNTABLE.Select(" = '" & pname & C.Name & "SPACE'") + If DR.GetUpperBound(0) = 0 Then + C. = DR(0)(1).ToString + End If + C.Tag = "L" + Catch ex As Exception + Arin.WLog2(Auto_Log, "Ͽ =" & Wlen & " Message=" & ex.Message.ToString, log) + End Try + Next + Else + Arin.WLog2(Auto_Log, "Ϻġ =" & Wlen & " ڿ=" & srcstr, log) + End If + End Sub + + Private Sub cmb_style_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) + '//Ÿ ⺻idx 0 Ѵ. + ' MsgBox("Ÿ") + FirstIdx = 0 + End Sub + + Private Sub tb_ntype_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_ntype.MouseEnter + Me.tb_ntype.Focus() + Me.tb_ntype.SelectAll() + End Sub + + + Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click + If MsgBox(" Ÿ(⺻) Ͻðڽϱ?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Ÿ") = MsgBoxResult.Yes Then + SAVE_STYLE() + Else + NOTICE("Ÿ() ҵǾϴ", Me.lb_msg) + End If + End Sub + + Private Sub BindingNavigatorPositionItem_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BindingNavigatorPositionItem.MouseEnter + Me.BindingNavigatorPositionItem.Focus() + Me.BindingNavigatorPositionItem.SelectAll() + End Sub + + Private Sub cm_styleedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cm_styleedit.Click + StyleEdit.ListIndex = SetForm.cmb_style.SelectedIndex + StyleEdit.Path = Me.StyleDir + StyleEdit.Show() + End Sub + + Private Sub bt_canvasD_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_canvasD.MouseDown, bt_canvasL.MouseDown, bt_canvasR.MouseDown, bt_canvasU.MouseDown + If e.Button = Windows.Forms.MouseButtons.Right Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASD" + Me.PictureBox1.Top += 5 + Case "BT_CANVASU" + Me.PictureBox1.Top -= 5 + Case "BT_CANVASR" + Me.PictureBox1.Left += 5 + Case "BT_CANVASL" + Me.PictureBox1.Left -= 5 + End Select + ElseIf e.Button = Windows.Forms.MouseButtons.Left Then + + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASL" + Me.PictureBox1.Width -= 2 + Case "BT_CANVASR" + Me.PictureBox1.Width += 2 + Case "BT_CANVASU" + Me.PictureBox1.Height -= 2 + Case "BT_CANVASD" + Me.PictureBox1.Height += 2 + End Select + + ElseIf e.Button = Windows.Forms.MouseButtons.Middle Then + Select Case sender.name.ToString.ToUpper + Case "BT_CANVASL" + Me.Width -= 2 + Case "BT_CANVASR" + Me.Width += 2 + Case "BT_CANVASU" + Me.Height -= 2 + Case "BT_CANVASD" + Me.Height += 2 + End Select + + + End If + + End Sub + +#End Region +#Region "̰ ʴ κ" + + +#End Region + + Private Sub Printform_Karo_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move + If Not SetForm Is Nothing Then + SetForm.Top = Me.Top + SetForm.Left = Me.Left + Me.Width + 10 + End If + End Sub + + + Private Sub Printform_Karo_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize + If Not SetForm Is Nothing Then + SetForm.Top = Me.Top + SetForm.Left = Me.Left + Me.Width + 10 + End If + End Sub + + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print.Click + Me.Print() + End Sub + + Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_print_preview.Click + Me.Print_Preview() + End Sub +End Class + + diff --git a/Epole/출력폼/Prn_Common.vb b/Epole/출력폼/Prn_Common.vb new file mode 100644 index 0000000..3deecc6 --- /dev/null +++ b/Epole/출력폼/Prn_Common.vb @@ -0,0 +1,58 @@ +Module Prn_Common + 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 + + + +End Module diff --git a/Epole/출력폼/PropertyGrid.vb b/Epole/출력폼/PropertyGrid.vb new file mode 100644 index 0000000..6c1e2f6 --- /dev/null +++ b/Epole/출력폼/PropertyGrid.vb @@ -0,0 +1,179 @@ +Public Class PropertyGrid_Paper + '//이것은 페이지의 속성을 가진다. + Structure S_Size + Dim 가로 As Short + Dim 세로 As Short + Public Sub New(ByVal w As Short, ByVal h As Short) + 가로 = w + 세로 = h + End Sub + End Structure + + Dim v가로확대 As Single + Dim v세로확대 As Single + Dim v연속출력횟수 As Short + Dim v연속여백x, v연속여백y As Single + Dim v배경 As System.Drawing.Image + Dim v그림파일 As System.IO.File + Dim v파일선택 As New Windows.Forms.Button + Dim v출력여백x, v출력여백y As Single + + + Dim SF As printform + + ' Public Sub New(ByRef pSetfrm As printform) + ' SF = pSetfrm + ' End Sub + + + + Public Property 출력여백X() As Single + Get + Return v출력여백x + End Get + Set(ByVal value As Single) + v출력여백x = value + End Set + End Property + + Public Property 출력여백Y() As Single + Get + Return v출력여백y + End Get + Set(ByVal value As Single) + v출력여백y = value + End Set + End Property + + + Public Property 가로확대비율() As Single + Get + Return Me.v가로확대 + End Get + Set(ByVal value As Single) + v가로확대 = value + End Set + End Property + + + Public Property 세로확대비율() As Single + Get + Return Me.v세로확대 + End Get + Set(ByVal value As Single) + v세로확대 = value + End Set + End Property + + + Public Property 출력장수() As Short + Get + Return v연속출력횟수 + End Get + Set(ByVal value As Short) + v연속출력횟수 = value + SF.preview_window() + End Set + End Property + + + Public Property 연속여백x() As Single + Get + Return v연속여백x + End Get + Set(ByVal value As Single) + v연속여백x = value + SF.preview_window() + End Set + End Property + + Public Property 연속여백y() As Single + Get + Return v연속여백y + End Get + Set(ByVal value As Single) + v연속여백y = value + SF.preview_window() + End Set + End Property + + + + +End Class + +Public Class PropertyGrid_Image + + Dim Obj As S_Image + Dim SF As printform + Dim Offset As Short + + Public Sub New(ByVal voffset As Short, ByRef pSetfrm As printform) + SF = pSetfrm + Obj = Draw_Image.Item(voffset) + Me.Offset = voffset + End Sub + + + Public Property 시작좌표X() As Single + Get + Return Obj.X + End Get + Set(ByVal value As Single) + Obj.X = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + Public Property 시작좌표Y() As Single + Get + Return Obj.Y + End Get + Set(ByVal value As Single) + Obj.Y = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + + + Public Property 가로길이() As Single + Get + Return Obj.Width + End Get + Set(ByVal value As Single) + Obj.Width = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + Public Property 세로길이() As Single + Get + Return Obj.Height + End Get + Set(ByVal value As Single) + Obj.Height = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + Public Property 파일명() As String + Get + Return Obj.FileName + End Get + Set(ByVal value As String) + Obj.FileName = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + +End Class \ No newline at end of file diff --git a/Epole/출력폼/PropertyGrid_Paper.vb b/Epole/출력폼/PropertyGrid_Paper.vb new file mode 100644 index 0000000..6c1e2f6 --- /dev/null +++ b/Epole/출력폼/PropertyGrid_Paper.vb @@ -0,0 +1,179 @@ +Public Class PropertyGrid_Paper + '//이것은 페이지의 속성을 가진다. + Structure S_Size + Dim 가로 As Short + Dim 세로 As Short + Public Sub New(ByVal w As Short, ByVal h As Short) + 가로 = w + 세로 = h + End Sub + End Structure + + Dim v가로확대 As Single + Dim v세로확대 As Single + Dim v연속출력횟수 As Short + Dim v연속여백x, v연속여백y As Single + Dim v배경 As System.Drawing.Image + Dim v그림파일 As System.IO.File + Dim v파일선택 As New Windows.Forms.Button + Dim v출력여백x, v출력여백y As Single + + + Dim SF As printform + + ' Public Sub New(ByRef pSetfrm As printform) + ' SF = pSetfrm + ' End Sub + + + + Public Property 출력여백X() As Single + Get + Return v출력여백x + End Get + Set(ByVal value As Single) + v출력여백x = value + End Set + End Property + + Public Property 출력여백Y() As Single + Get + Return v출력여백y + End Get + Set(ByVal value As Single) + v출력여백y = value + End Set + End Property + + + Public Property 가로확대비율() As Single + Get + Return Me.v가로확대 + End Get + Set(ByVal value As Single) + v가로확대 = value + End Set + End Property + + + Public Property 세로확대비율() As Single + Get + Return Me.v세로확대 + End Get + Set(ByVal value As Single) + v세로확대 = value + End Set + End Property + + + Public Property 출력장수() As Short + Get + Return v연속출력횟수 + End Get + Set(ByVal value As Short) + v연속출력횟수 = value + SF.preview_window() + End Set + End Property + + + Public Property 연속여백x() As Single + Get + Return v연속여백x + End Get + Set(ByVal value As Single) + v연속여백x = value + SF.preview_window() + End Set + End Property + + Public Property 연속여백y() As Single + Get + Return v연속여백y + End Get + Set(ByVal value As Single) + v연속여백y = value + SF.preview_window() + End Set + End Property + + + + +End Class + +Public Class PropertyGrid_Image + + Dim Obj As S_Image + Dim SF As printform + Dim Offset As Short + + Public Sub New(ByVal voffset As Short, ByRef pSetfrm As printform) + SF = pSetfrm + Obj = Draw_Image.Item(voffset) + Me.Offset = voffset + End Sub + + + Public Property 시작좌표X() As Single + Get + Return Obj.X + End Get + Set(ByVal value As Single) + Obj.X = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + Public Property 시작좌표Y() As Single + Get + Return Obj.Y + End Get + Set(ByVal value As Single) + Obj.Y = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + + + Public Property 가로길이() As Single + Get + Return Obj.Width + End Get + Set(ByVal value As Single) + Obj.Width = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + Public Property 세로길이() As Single + Get + Return Obj.Height + End Get + Set(ByVal value As Single) + Obj.Height = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + + Public Property 파일명() As String + Get + Return Obj.FileName + End Get + Set(ByVal value As String) + Obj.FileName = value + Draw_Image.Item(Offset) = Obj + 'preview_window() + SF.Refresh_Drawlist() + End Set + End Property + +End Class \ No newline at end of file diff --git a/Epole/패치문서/090729 연속출력추가.txt b/Epole/패치문서/090729 연속출력추가.txt new file mode 100644 index 0000000..8954e3b --- /dev/null +++ b/Epole/패치문서/090729 연속출력추가.txt @@ -0,0 +1,206 @@ + If Me.tb_pagerepeat.Text = "" Or Me.tb_pagerepeat.Text < 1 Then Me.tb_pagerepeat.Text = "0" + + For pi As Short = 0 To Me.tb_pagerepeat.Text - 1 '// Ƚ + For i As Integer = 0 To Me.AllLabels.GetUpperBound(0) '// ü鿡 ؼ μ⸦ Ѵ. + obj = Me.AllLabels(i).ctl + If obj.Visible AndAlso obj.MyText <> "" Then '//ȭ鿡 ̴°͸ Ѵ. + + For rcnt As Short = 0 To obj.Repeat '//ݺ߰Ѵ + NewFontSize = obj.MyFont.Size + Me.tb_myfontsize.Text + If NewFontSize < 0 Then NewFontSize = 0 + Brush = New SolidBrush(obj.MyForeColor) '// 귯 . + + MyFont = New Font(obj.MyFont.FontFamily, NewFontSize, obj.MyFont.Style) + If obj. = 100 AndAlso obj. = 100 Then '//̻ ڿ ó + If rcnt > 0 Then + Ga.DrawString(obj., MyFont, Brushes.LightGray, (obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt), (obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) + Else + Ga.DrawString(obj., MyFont, Brush, (obj.Left + Me.tb_secX.Text * pi), (obj.Top + Me.tb_secY.Text * pi)) + End If + Else '// ̹ ó + Dim NewX, Newy As Integer + Dim SrcDpix, SrcDPiY As Single + 'MsgBox(Tobj.) + SrcDpix = obj.CreateGraphics.DpiX + SrcDPiY = obj.CreateGraphics.DpiY + + NewX = obj.GetSize(MyFont).Width * (obj. / 100) * (Ga.DpiX / SrcDpix) + Newy = obj.GetSize(MyFont).Height * (obj. / 100) * (Ga.DpiY / SrcDPiY) + + Dim BMP As New Bitmap(NewX, Newy, Ga) + Dim G As Graphics = Graphics.FromImage(BMP) + + G.ResetTransform() + G.ScaleTransform((obj. / 100), (obj. / 100)) + If rcnt > 0 Then + G.DrawString(obj., MyFont, Brushes.LightGray, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi + obj.RepeatX * rcnt, obj.Top + Me.tb_secY.Text * pi + obj.RepeatY * rcnt)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + Else + G.DrawString(obj., MyFont, Brush, 0, 0) + G.Dispose() + Ga.DrawImage(BMP, New Point(obj.Left + Me.tb_secX.Text * pi, obj.Top + Me.tb_secY.Text * pi)) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + End If + Next + End If + Next + Next + + + + + + + + + + + + + + ---¹ + For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + S(i) = New MyControlOLEDBv2.MyLabel + S(i). = "" & i + 1 + S(i).Name = "H" & i + 1 + S(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S(i) + Me.cmb_controls.Items.Add(S(i).) + CtlCnt += 1 + Next + + + For i As Integer = 0 To SDL.GetUpperBound(0) '//繮ڸ ҴѴ. + SDL(i) = New MyControlOLEDBv2.MyLabel + SDL(i). = "DL" & i + 1 + SDL(i).Name = "K" & i + 1 + SDL(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SDL(i) + Me.cmb_controls.Items.Add(SDL(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To Sȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sȣ(i) = New MyControlOLEDBv2.MyLabel + Sȣ(i). = "ȣ" & i + 1 + Sȣ(i).Name = "S" & i + 1 + Sȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sȣ(i) + Me.cmb_controls.Items.Add(Sȣ(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To Sθ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sθ(i) = New MyControlOLEDBv2.MyLabel + Sθ(i). = "θ" & i + 1 + Sθ(i).Name = "L" & i + 1 + Sθ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sθ(i) + Me.cmb_controls.Items.Add(Sθ(i).) + CtlCnt += 1 + Next + + For i As Integer = 0 To Sֹȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sֹȣ(i) = New MyControlOLEDBv2.MyLabel + Sֹȣ(i). = "ֹȣ" & i + 1 + Sֹȣ(i).Name = "X" & i + 1 + Sֹȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sֹȣ(i) + Me.cmb_controls.Items.Add(Sֹȣ(i).) + CtlCnt += 1 + Next + + + + + For i As Integer = 0 To Sð.GetUpperBound(0) '//繮ڸ ҴѴ. + Sð(i) = New MyControlOLEDBv2.MyLabel + Sð(i). = "ð" & i + 1 + Sð(i).Name = "Y" & i + 1 + Sð(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sð(i) + Me.cmb_controls.Items.Add(Sð(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To Sֹȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + Sֹȣ(i) = New MyControlOLEDBv2.MyLabel + Sֹȣ(i). = ",ȣ" & i + 1 + Sֹȣ(i).Name = "G" & i + 1 + Sֹȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sֹȣ(i) + Me.cmb_controls.Items.Add(Sֹȣ(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To Sô.GetUpperBound(0) '//繮ڸ ҴѴ. + Sô(i) = New MyControlOLEDBv2.MyLabel + Sô(i). = "ô" & i + 1 + Sô(i).Name = "J" & i + 1 + Sô(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sô(i) + Me.cmb_controls.Items.Add(Sô(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To Sð.GetUpperBound(0) '//繮ڸ ҴѴ. + Sð(i) = New MyControlOLEDBv2.MyLabel + Sð(i). = "ð" & i + 1 + Sð(i).Name = "C" & i + 1 + Sð(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = Sð(i) + Me.cmb_controls.Items.Add(Sð(i).) + CtlCnt += 1 + Next + + + For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + S(i) = New MyControlOLEDBv2.MyLabel + S(i). = "" & i + 1 + S(i).Name = "Z" & i + 1 + S(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S(i) + Me.cmb_controls.Items.Add(S(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To S.GetUpperBound(0) '//繮ڸ ҴѴ. + S(i) = New MyControlOLEDBv2.MyLabel + S(i). = "" & i + 1 + S(i).Name = "M" & i + 1 + S(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S(i) + Me.cmb_controls.Items.Add(S(i).) + CtlCnt += 1 + Next + For i As Integer = 0 To SϷùȣ.GetUpperBound(0) '//繮ڸ ҴѴ. + SϷùȣ(i) = New MyControlOLEDBv2.MyLabel + SϷùȣ(i). = "Ϸùȣ" & i + 1 + SϷùȣ(i).Name = "N" & i + 1 + SϷùȣ(i).Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = SϷùȣ(i) + Me.cmb_controls.Items.Add(SϷùȣ(i).) + CtlCnt += 1 + Next + + + + =======׽Ʈ + S1 = New MyControlOLEDBv2.MyLabel + S1. = "ڹ1" + S1.MyText = "" + S1.Name = "U" + S1.Visible = False + ReDim Preserve AllLabels(CtlCnt) + Me.AllLabels(CtlCnt).ctl = S1 + Me.cmb_controls.Items.Add(S1.) + CtlCnt += 1 diff --git a/Epole/패치문서/TextFile1.txt b/Epole/패치문서/TextFile1.txt new file mode 100644 index 0000000..1f24904 --- /dev/null +++ b/Epole/패치문서/TextFile1.txt @@ -0,0 +1,103 @@ + Case "MARGINX" : StyleList(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper + Case "MARGINY" : StyleList(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper + Case "PICSTYLE" : StyleList(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper + Case "PRINTFONTOFFSET" : StyleList(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper + Case "PRINTBG" : StyleList(CurIdx).Printbg = Line.Substring(Seppos + 1).ToUpper + Case "SCALEX" : StyleList(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper + Case "SCALEY" : StyleList(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper + Case "BAKX" : StyleList(CurIdx).bakx = Line.Substring(Seppos + 1).ToUpper + Case "BAKY" : StyleList(CurIdx).baky = Line.Substring(Seppos + 1).ToUpper + Case "BAKW" : StyleList(CurIdx).bakw = Line.Substring(Seppos + 1).ToUpper + Case "BAKH" : StyleList(CurIdx).bakh = Line.Substring(Seppos + 1).ToUpper + Case "VIEWIMAGE" : StyleList(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper + Case "FILTER" : StyleList(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper + Case Else + dr = StyleList(CurIdx).PATTERNTABLE.NewRow + dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper + dr(1) = Line.Substring(Seppos + 1).ToUpper + StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr) + End Select + + + Public Function PARSE_ð(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + '/θ ̴ ʴ´ Ʈ Ѵ. + Me.CLEAR_ITEM(Sð) + Dim Log As String = "\Parse_ð.txt" + If srcstr = "" OrElse Not Me.cb_yymm.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Me.Sð(i).MyText = SRC(i) + Catch ex As Exception + Exit For + End Try + Next + Return True + End Function + Public Sub PARSE_θ(ByVal Srcstr As String) + Dim Log As String = "\Parse_θ.txt" + Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return + Dim Src() As Char = Srcstr.ToCharArray + Dim SepPos As Short = Srcstr.IndexOf(";") + + 'Ͽθ ȮǷ Ѵ.[STYLE1LINEPATTERN9] + Dim Pname As String = "LINEPATTERN" & Wlen + + ' Me.Ͽ(Srcstr, Pname, Log, "L", Sθ) + '//1 2 ã´. + '//2 style1LInepatternIIڼ + Pname = "LINEPATTERNII" & PATTERN_ENC(θ) + Me.Ͽ(Srcstr, Pname, Log, Me.Sθ) + + + End Sub + + Public Function PARSE_ȣ(ByVal srcstr As String) As Boolean + '/θ ̴ ʴ´ Ʈ Ѵ. + Me.CLEAR_ITEM(Sȣ) + Dim Log As String = "\Parse_ȣ.txt" + If srcstr = "" OrElse Not Me.cb_kwang.Checked Then + AddLog(Admin, "Zero Length - Return", Log) + Return False + End If + + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SRC() As Char = srcstr.ToCharArray + + AddLog(Admin, "Length=" & Wlen & " Sep=" & SepPos, Log) + '/θ ̴ ʴ´ Ʈ Ѵ. + For i As Integer = 0 To Wlen - 1 '//繮ڸ ҴѴ. + Try + Sȣ(i).MyText = SRC(i).ToString + Me.Sȣ(i).Visible = True + Catch ex As Exception + Exit For + End Try + + 'MsgBox("ȣ=" & Sȣ(i).MyText) + Next + Return True + End Function + Public Sub PARSE_ȣ(ByVal srcstr As String) + + Dim Log As String = "\Parse_ȣ.txt" + Dim Wlen As Short = srcstr.Length + Dim SepPos As Short = srcstr.IndexOf(";") + Dim SrC() As Char = srcstr.ToCharArray + + Dim Pname As String = "JNUMPATTERN" & Wlen + ' Me.Ͽ(srcstr, Pname, Log, "S", Sȣ) + + Pname = "JNUMPATTERNII" & PATTERN_ENC(srcstr) + Me.Ͽ(srcstr, Pname, Log, Sȣ) + End Sub \ No newline at end of file diff --git a/Epole/한전번호찰통합.vbproj b/Epole/한전번호찰통합.vbproj new file mode 100644 index 0000000..6a16e7f --- /dev/null +++ b/Epole/한전번호찰통합.vbproj @@ -0,0 +1,795 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64} + WinExe + EpoleNet.My.MyApplication + EpoleNet + EpoleNet + WindowsForms + hg.ico + 521BDCC56486FC1DEDB1A918CF002D2252C08D85 + 전신주번호찰_TemporaryKey.pfx + false + LocalIntranet + false + false + false + + + + + 3.5 + + + v4.0 + + F:\Tinsky\Visual Basic For IREA\Z_Epole_v2\ClickOnce\ + true + Disk + true + Foreground + 7 + Days + false + false + true + 전주번호찰관리프로그램 + 번호찰관리프로그램 + true + index.html + 4 + 1.0.0.%2a + false + true + + + true + full + true + true + ..\..\..\..\SIMP\한전번호찰%28통합%29\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + x86 + false + true + + + Full + false + true + true + ..\..\Runtime\Epole_v2\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + x86 + false + Auto + true + true + + + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + + + False + + + False + + + + False + + + + False + + + + False + + + + + + + + + + + + + + + + + AboutBox1.vb + + + Form + + + + ETCLOGIN.vb + + + Form + + + Form_Work.vb + + + Form + + + fProgress.vb + + + Form + + + Log.vb + + + Form + + + + + + NewFp.vb + + + Component + + + True + True + ireaDataSet.xsd + + + PatternDS.vb + + + PatternDS.xsd + + + True + True + PicDS.xsd + + + syncLOg.vb + + + Form + + + XLSsync.vb + + + Form + + + AddEpole.vb + + + Form + + + + Config.vb + + + Form + + + FileManager.vb + + + Form + + + Frm_Log.vb + + + Form + + + OldnumPicMan.vb + + + Form + + + PicList.vb + + + Form + + + selitem.vb + + + Form + + + StyleEdit.vb + + + Form + + + XLSImport.vb + + + Form + + + MsgForm.vb + + + Form + + + Frm_Main.vb + + + Form + + + AddEpoleDung.vb + + + Form + + + AddEpolekiki.vb + + + Form + + + AddEpoleCable.vb + + + Form + + + AddEpoleCableLabel.vb + + + Form + + + AddEpoleCable2.vb + + + Form + + + bak_AddEpoleCableLabel.vb + + + Form + + + + Form + + + PrintFormSRC.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + SplashScreen.vb + + + Form + + + WEBBROWSER.vb + + + Form + + + AddEpoleETC.vb + + + Form + + + AddEpole지중.vb + + + Form + + + PrintForm지중.vb + + + Form + + + PrintForm수용.vb + + + Form + + + + PRv_picture.vb + + + Form + + + PrintForm_Deung.vb + + + Form + + + PrintFormkiki.vb + + + Form + + + PrintFormCable.vb + + + Form + + + PrintFormCablelABEL.vb + + + Form + + + PrintFormCable2.vb + + + Form + + + + + Designer + AboutBox1.vb + + + Designer + ETCLOGIN.vb + + + Designer + Form_Work.vb + + + fProgress.vb + + + Designer + Log.vb + + + NewFp.vb + Designer + + + syncLOg.vb + Designer + + + XLSsync.vb + Designer + + + Designer + AddEpole.vb + + + Designer + Config.vb + + + Designer + FileManager.vb + + + Designer + Frm_Log.vb + + + + Designer + OldnumPicMan.vb + + + Designer + PicList.vb + + + Designer + selitem.vb + + + Designer + StyleEdit.vb + + + XLSImport.vb + Designer + + + Designer + MsgForm.vb + + + Designer + Frm_Main.vb + + + AddEpoleDung.vb + Designer + + + AddEpolekiki.vb + Designer + + + AddEpoleCable.vb + Designer + + + AddEpoleCableLabel.vb + Designer + + + AddEpoleCable2.vb + Designer + + + bak_AddEpoleCableLabel.vb + Designer + + + Designer + PrintFormSRC.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + Designer + SplashScreen.vb + + + Designer + WEBBROWSER.vb + + + AddEpoleETC.vb + Designer + + + AddEpole지중.vb + Designer + + + PrintForm지중.vb + Designer + + + PrintForm수용.vb + Designer + + + Designer + PRv_picture.vb + + + PrintForm_Deung.vb + Designer + + + PrintFormkiki.vb + Designer + + + PrintFormCable.vb + Designer + + + PrintFormCablelABEL.vb + Designer + + + PrintFormCable2.vb + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + ireaDataSet.xsd + + + Designer + MSDataSetGenerator + ireaDataSet.Designer.vb + + + ireaDataSet.xsd + + + PatternDS.xsd + + + MSDataSetGenerator + PatternDS1.Designer.vb + Designer + + + PatternDS.xsd + + + PicDS.xsd + + + MSDataSetGenerator + PicDS.Designer.vb + Designer + + + PicDS.xsd + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 2.0%28x86%29 + true + + + False + .NET Framework 3.0%28x86%29 + false + + + False + .NET Framework 3.5 + false + + + False + .NET Framework 3.5 SP1 + false + + + + + False + + + + + Include + True + Assembly + + + + + {00020430-0000-0000-C000-000000000046} + 2 + 0 + 0 + primary + False + + + + + {e98126b2-af17-4783-96b9-856d6744dca3} + QRCodeLib + + + {326f9a0f-f714-432d-81cb-ced39ec6c424} + MyControlOLEDBv2 + + + + + \ No newline at end of file diff --git a/Epole/한전번호찰통합.vbproj.user b/Epole/한전번호찰통합.vbproj.user new file mode 100644 index 0000000..f0119bf --- /dev/null +++ b/Epole/한전번호찰통합.vbproj.user @@ -0,0 +1,29 @@ + + + + false + false + ARIN + + + true + false + ARIN + + + F:\Tinsky\Visual Basic For IREA\Z_Epole_v2\ClickOnce\|C:\temp\epo\|C:\temp\|ftp://tindevil.com/public_html/mynetapp/epolev2/|c:\epole게시\ + http://tindevil.com/mynetapp/epolev2/|http://tindevil.com/mynetapp/t4/|http://deviltin.xt.to/project/irea/epole/|http://deviltin.xt.to/out/irea/epole/|http://deviltin.xt.to/irea/epole/ + + + + + + + ko-KR + false + ProjectFiles + false + + + + \ No newline at end of file diff --git a/Epole_한전번호찰통합.sln b/Epole_한전번호찰통합.sln new file mode 100644 index 0000000..6c1b69c --- /dev/null +++ b/Epole_한전번호찰통합.sln @@ -0,0 +1,78 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.40629.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "한전번호찰통합", "Epole\한전번호찰통합.vbproj", "{AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}" +EndProject +Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "SetupIS", "SetupIS\SetupIS.isproj", "{095A61C5-F3A0-4519-86EA-7A775B18DFED}" +EndProject +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "QRCodeLib", "..\QRCodeLib\QRCodeLib.csproj", "{E98126B2-AF17-4783-96B9-856D6744DCA3}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MyControlOLEDBv2", "Sub\MyControl(OleDb)v2\MyControlOLEDBv2\MyControlOLEDBv2.vbproj", "{326F9A0F-F714-432D-81CB-CED39EC6C424}" +EndProject +Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "SubProject", "SubProject", "{397B2121-17D0-4BC5-A6E7-3242222584E2}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|Any CPU = CD_ROM|Any CPU + Debug|Any CPU = Debug|Any CPU + DVD-5|Any CPU = DVD-5|Any CPU + Release|Any CPU = Release|Any CPU + SingleImage|Any CPU = SingleImage|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.Debug|Any CPU.Build.0 = Debug|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.Release|Any CPU.ActiveCfg = Release|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.Release|Any CPU.Build.0 = Release|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {AFB4982C-C6E3-49C6-8C8F-01154D3A4D64}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.CD_ROM|Any CPU.ActiveCfg = CD_ROM + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.CD_ROM|Any CPU.Build.0 = CD_ROM + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.Debug|Any CPU.ActiveCfg = DVD-5 + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.DVD-5|Any CPU.ActiveCfg = DVD-5 + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.DVD-5|Any CPU.Build.0 = DVD-5 + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.Release|Any CPU.ActiveCfg = SingleImage + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.Release|Any CPU.Build.0 = SingleImage + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.SingleImage|Any CPU.ActiveCfg = SingleImage + {095A61C5-F3A0-4519-86EA-7A775B18DFED}.SingleImage|Any CPU.Build.0 = SingleImage + {E98126B2-AF17-4783-96B9-856D6744DCA3}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.Release|Any CPU.Build.0 = Release|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {E98126B2-AF17-4783-96B9-856D6744DCA3}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Debug|Any CPU.Build.0 = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Release|Any CPU.ActiveCfg = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Release|Any CPU.Build.0 = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.SingleImage|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(NestedProjects) = preSolution + {E98126B2-AF17-4783-96B9-856D6744DCA3} = {397B2121-17D0-4BC5-A6E7-3242222584E2} + {326F9A0F-F714-432D-81CB-CED39EC6C424} = {397B2121-17D0-4BC5-A6E7-3242222584E2} + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + VisualSVNWorkingCopyRoot = . + Spices_ObfuscateProject = -1 + Spices_CreateProject = -1 + Spices_ProjectFileName = + EndGlobalSection +EndGlobal diff --git a/Epole_한전번호찰통합.suo b/Epole_한전번호찰통합.suo new file mode 100644 index 0000000..94e6810 Binary files /dev/null and b/Epole_한전번호찰통합.suo differ diff --git a/Epole_한전번호찰통합.v12.suo b/Epole_한전번호찰통합.v12.suo new file mode 100644 index 0000000..f66dc36 Binary files /dev/null and b/Epole_한전번호찰통합.v12.suo differ diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2.sln b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2.sln new file mode 100644 index 0000000..8808f21 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2.sln @@ -0,0 +1,22 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.31101.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MyControlOLEDBv2", "MyControlOLEDBv2\MyControlOLEDBv2.vbproj", "{326F9A0F-F714-432D-81CB-CED39EC6C424}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Debug|Any CPU.Build.0 = Debug|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Release|Any CPU.ActiveCfg = Release|Any CPU + {326F9A0F-F714-432D-81CB-CED39EC6C424}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.Designer.vb new file mode 100644 index 0000000..a024097 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Text = "Form1" + End Sub +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.vb new file mode 100644 index 0000000..10d55d4 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Form1.vb @@ -0,0 +1,3 @@ +Public Class Form1 + +End Class \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.designer.vb new file mode 100644 index 0000000..9a7c33c --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.designer.vb @@ -0,0 +1,137 @@ + _ +Partial Class ImpCtl + Inherits System.Windows.Forms.UserControl + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.TextBox2 = New System.Windows.Forms.TextBox + Me.Label1 = New System.Windows.Forms.Label + Me.TextBox1 = New System.Windows.Forms.TextBox + Me.CheckBox1 = New System.Windows.Forms.CheckBox + Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.ComboBox1 = New System.Windows.Forms.ComboBox + Me.TableLayoutPanel1.SuspendLayout() + Me.SuspendLayout() + ' + 'TextBox2 + ' + Me.TextBox2.BackColor = System.Drawing.Color.LightSlateGray + Me.TextBox2.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox2.Location = New System.Drawing.Point(1, 126) + Me.TextBox2.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(89, 21) + Me.TextBox2.TabIndex = 6 + Me.TextBox2.TabStop = False + Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'Label1 + ' + Me.Label1.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.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Font = New System.Drawing.Font("굴림", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.Label1.Location = New System.Drawing.Point(1, 1) + Me.Label1.Margin = New System.Windows.Forms.Padding(0) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(89, 82) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "개체번호" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'TextBox1 + ' + Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TextBox1.Location = New System.Drawing.Point(1, 105) + Me.TextBox1.Margin = New System.Windows.Forms.Padding(0) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(89, 21) + Me.TextBox1.TabIndex = 4 + Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.CheckBox1.Location = New System.Drawing.Point(1, 147) + Me.CheckBox1.Margin = New System.Windows.Forms.Padding(0) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(89, 20) + Me.CheckBox1.TabIndex = 7 + Me.CheckBox1.TabStop = False + Me.CheckBox1.Text = "빈값" + Me.ToolTip1.SetToolTip(Me.CheckBox1, "선택이 됫을경우 선택된 모든개체의 값이 비어있을경우 데이터가져오기 대상에 제외합니다") + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single] + 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.CheckBox1, 0, 4) + Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.TextBox2, 0, 3) + Me.TableLayoutPanel1.Controls.Add(Me.TextBox1, 0, 2) + Me.TableLayoutPanel1.Controls.Add(Me.ComboBox1, 0, 1) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 5 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(91, 168) + Me.TableLayoutPanel1.TabIndex = 8 + ' + 'ComboBox1 + ' + Me.ComboBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Items.AddRange(New Object() {"문자", "숫자", "날짜"}) + Me.ComboBox1.Location = New System.Drawing.Point(1, 84) + Me.ComboBox1.Margin = New System.Windows.Forms.Padding(0) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(89, 20) + Me.ComboBox1.TabIndex = 8 + ' + 'ImpCtl + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Name = "ImpCtl" + Me.Size = New System.Drawing.Size(91, 168) + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TextBox2 As System.Windows.Forms.TextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox + Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.resx new file mode 100644 index 0000000..13795a7 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.vb new file mode 100644 index 0000000..2121fd0 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/ImpCtl.vb @@ -0,0 +1,173 @@ +Imports System.Drawing +Public Class ImpCtl + Enum e_Valuetype + = 0 + = 1 + ¥ = 2 + End Enum + + Dim vʵ As String + Public Event TimeExpired(ByVal sender As Object, ByVal Status As String) + + ''' + ''' 뿩 + ''' + ''' + ''' + ''' + Overloads Property eNABLED() As Boolean + Get + Return Me.TextBox1.Enabled + End Get + Set(ByVal value As Boolean) + Me.TextBox1.Enabled = value + Me.Label1.Enabled = value + Me.TextBox2.Enabled = value + Me.CheckBox1.Enabled = value + If value = False Then Me.Label1.Text = ".." + End Set + End Property + + ''' + ''' ʵԴϴ. + ''' + ''' + ''' + ''' + Public Property ʵ() As String + Get + Return vʵ + End Get + Set(ByVal value As String) + vʵ = value + End Set + End Property + + Public Property Vtype() As Boolean + Get + Return Me.ComboBox1.Enabled + End Get + Set(ByVal value As Boolean) + Me.ComboBox1.Enabled = value + End Set + End Property + + Public Property Valuetype() As e_Valuetype + Get + Return Me.ComboBox1.SelectedIndex + End Get + Set(ByVal value As e_Valuetype) + Me.ComboBox1.SelectedIndex = 0 + End Set + End Property + Public Property () As String + Get + Return Me.Label1.Text + End Get + Set(ByVal value As String) + Me.Label1.Text = value.Replace("/", vbCrLf) + End Set + End Property + Public Property ڿڸ() As String + Get + Return Me.TextBox2.Text + End Get + Set(ByVal value As String) + Me.TextBox2.Text = value + End Set + End Property + Public Property ȣ() As String + Get + Return Me.TextBox1.Text + End Get + Set(ByVal value As String) + Me.TextBox1.Text = value + End Set + End Property + + Public Property üũ() As Boolean + Get + Return Me.CheckBox1.Checked + End Get + Set(ByVal value As Boolean) + Me.CheckBox1.Checked = value + + End Set + End Property + + + Public Sub New() + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + + ' AddHandler TextBox1.TextChanged, ADDRESS OF + 'AddHandler TextBox1.TextChanged, AddressOf ControlChanged + ' AddHandler Me.DoubleClick, Me.TextBox1.DoubleClick + 'AddHandler Me.TimeExpired, AddressOf timeExp + + + + End Sub + Private Sub timeExp(ByVal sender As Object, ByVal stri As String) + 'MsgBox(stri) + + End Sub + Private Sub ControlChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Dim A As TextBox = CType(sender, TextBox) + If A.Text.Length <= 0 Then Exit Sub + + Select Case A.Text.Substring(0, 1) + Case ":" + If IsNumeric(A.Text.Substring(1)) Then + A.BackColor = Color.LawnGreen + Else + A.BackColor = Color.Tomato + End If + Case "?" + A.BackColor = Color.Gray + Case "#" + A.BackColor = Color.SteelBlue + Case Else + A.BackColor = Color.White + End Select + + End Sub + + Private Sub UserControl1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick + RaiseEvent TimeExpired(Me, "sdf") + End Sub + + Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick + + RaiseEvent TimeExpired(Me, "sdf") + End Sub + + + Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter + Me.TextBox1.SelectAll() + End Sub + + + Private Sub TextBox2_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Enter + Me.TextBox2.SelectAll() + End Sub + + Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus + Me.TextBox2.SelectAll() + ' SendKeys.Send("{TAB}") + End Sub + + Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged + + End Sub + + Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus + Me.TextBox1.SelectAll() + End Sub + + Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged + Me.CheckBox1.ForeColor = IIf(Me.CheckBox1.Checked, Color.Red, Color.Black) + Me.Label1.ForeColor = IIf(Me.CheckBox1.Checked, Color.Red, Color.Black) + End Sub +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.Designer.vb new file mode 100644 index 0000000..789491c --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.34014 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.myapp b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/AssemblyInfo.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..f15bb6e --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' 어셈블리의 일반 정보는 다음 특성 집합을 통해 제어됩니다. +' 어셈블리와 관련된 정보를 수정하려면 +' 이 특성 값을 변경하십시오. + +' 어셈블리 특성 값을 검토합니다. + + + + + + + + + + +'이 프로젝트가 COM에 노출되는 경우 다음 GUID는 typelib의 ID를 나타냅니다. + + +' 어셈블리의 버전 정보는 다음 네 가지 값으로 구성됩니다. +' +' 주 버전 +' 부 버전 +' 빌드 번호 +' 수정 버전 +' +' 모든 값을 지정하거나 아래와 같이 '*'를 사용하여 빌드 번호 및 수정 버전이 자동으로 +' 지정되도록 할 수 있습니다. +' + + + diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.Designer.vb new file mode 100644 index 0000000..4e2e35d --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.Designer.vb @@ -0,0 +1,93 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.34014 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + '이 클래스는 ResGen 또는 Visual Studio와 같은 도구를 통해 StronglyTypedResourceBuilder + '클래스에서 자동으로 생성되었습니다. + '멤버를 추가하거나 제거하려면 .ResX 파일을 편집한 다음 /str 옵션을 사용하여 ResGen을 + '다시 실행하거나 VS 프로젝트를 다시 빌드하십시오. + ''' + ''' 지역화된 문자열 등을 찾기 위한 강력한 형식의 리소스 클래스입니다. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' 이 클래스에서 사용하는 캐시된 ResourceManager 인스턴스를 반환합니다. + ''' + _ + 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("MyControlOLEDBv2.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' 이 강력한 형식의 리소스 클래스를 사용하여 모든 리소스 조회에 대한 현재 스레드의 CurrentUICulture + ''' 속성을 재정의합니다. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + Friend ReadOnly Property close_32() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("close_32", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + + ''' + ''' System.Drawing.Bitmap 형식의 지역화된 리소스를 찾습니다. + ''' + 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 + End Module +End Namespace diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.resx new file mode 100644 index 0000000..9fecaae --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Resources.resx @@ -0,0 +1,130 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\new_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\close_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\srch_32.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.Designer.vb new file mode 100644 index 0000000..cbbe5f2 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 이 코드는 도구를 사용하여 생성되었습니다. +' 런타임 버전:4.0.30319.34014 +' +' 파일 내용을 변경하면 잘못된 동작이 발생할 수 있으며, 코드를 다시 생성하면 +' 이러한 변경 내용이 손실됩니다. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal 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 + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.MyControlOLEDBv2.My.MySettings + Get + Return Global.MyControlOLEDBv2.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.settings b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/licenses.licx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/licenses.licx new file mode 100644 index 0000000..f37a07d --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/My Project/licenses.licx @@ -0,0 +1 @@ +FarPoint.Win.Spread.FpSpread, FarPoint.Win.Spread, Version=5.0.2005.2008, Culture=neutral, PublicKeyToken=327c3516b1b18457 diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.Designer.vb new file mode 100644 index 0000000..7ec7c84 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MyCheckBox + Inherits System.Windows.Forms.CheckBox + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.resx new file mode 100644 index 0000000..52a9ad3 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.vb new file mode 100644 index 0000000..1b7aeac --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCheckBox.vb @@ -0,0 +1,183 @@ +Imports System.Text +Imports System.Data + +Public Class MyCheckBox + Dim ColName As String + Dim Coltype As OleDbType + Dim Ditem As Boolean + + Dim CheckVal As String + Dim UnCheckVal As String + Dim otherval As Boolean + + Dim Prompt As String + + Dim WhereState As String = vbNullString + Dim POS As Int16 + + Protected Var_ViewColNumber As Short + Protected Var_BaseLabel As Label + Private VAR_USERCLICK As Boolean = False '//Ŭ ȰȭǴµ 뿩̴. + + ''' + ''' Ŭ Ʈ Ȱȭ ɿ + ''' + ''' + ''' + ''' + _ + Public Property DB_USERCLICK() As Boolean + Get + Return VAR_USERCLICK + End Get + Set(ByVal value As Boolean) + VAR_USERCLICK = value + End Set + End Property + + ''' + ''' ƮѰ ̺ /ȯ մϴ. + ''' + ''' + ''' + ''' + _ + Public Property DB_BaseLabel() As Label + Get + Return Var_BaseLabel + End Get + Set(ByVal value As Label) + '//Ͱ Ʈ մϴ. + Var_BaseLabel = value + Me.DB_Prompt = Prompt + End Set + End Property + + + + + ''' + ''' ˻ ˻ + ''' + ''' + ''' + ''' + = <= LIKE")> _ + Public Property DB_WhereType() As String + Get + Return WhereState + End Get + Set(ByVal value As String) + WhereState = value + End Set + End Property + _ + Public Property DB_Prompt() As String + Get + Return IIf(Prompt Is vbNullString, DB_ColName, Prompt) + End Get + Set(ByVal value As String) + Prompt = value + End Set + End Property + + _ + Public Property DB_ColName() As String + Get + If ColName = "" Then + Return Me.Name + Else + Return ColName + End If + End Get + Set(ByVal value As String) + ColName = value + DB_Prompt = value + End Set + End Property + + _ + Public Property DB_OtherValue() As Boolean + Get + Return otherval + End Get + Set(ByVal value As Boolean) + otherval = False + End Set + End Property + + _ + Public Property DB_CheckValue() As String + Get + Return CheckVal + End Get + Set(ByVal value As String) + CheckVal = value + End Set + End Property + + _ + Public Property DB_UnCheckVal() As String + Get + Return UnCheckVal + End Get + Set(ByVal value As String) + UnCheckVal = value + End Set + End Property + + + _ + Public Property Value() As String + Get + If Me.CheckState = Windows.Forms.CheckState.Indeterminate Then + Return Nothing + Else + Return IIf(Me.Checked, CheckVal, UnCheckVal) + End If + End Get + Set(ByVal value As String) + Select Case value + Case CheckVal + Me.Checked = True + Case UnCheckVal + Me.Checked = False + Case Else + Me.Checked = otherval + End Select + End Set + End Property + + _ + Public Property DB_Type() As OleDbType + Get + Return Coltype + End Get + Set(ByVal value As OleDbType) + Coltype = value + End Set + End Property + + _ + Public Property DB_ITEM() As Boolean + Get + Return Ditem + End Get + Set(ByVal value As Boolean) + Ditem = value + End Set + End Property + + Private Sub CheckBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}") + If Me.VAR_USERCLICK AndAlso e.KeyCode = Keys.Escape Then '//ư Ŭ ȰȭѴ + Me.CheckState = Windows.Forms.CheckState.Indeterminate + End If + End Sub + + Private Sub CheckBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) + If Me.VAR_USERCLICK AndAlso e.Button = Windows.Forms.MouseButtons.Right Then '//ư Ŭ ȰȭѴ + Me.CheckState = Windows.Forms.CheckState.Indeterminate + End If + End Sub +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.Designer.vb new file mode 100644 index 0000000..b893d0e --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MyCombo + Inherits System.Windows.Forms.ComboBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + ''Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.vb new file mode 100644 index 0000000..c3afaf1 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyCombo.vb @@ -0,0 +1,205 @@ +Imports System.Text +Imports System.Data +Imports System + +Public Class MyCombo + Dim ColName As String + Dim Coltype As OleDbType = OleDbType.VarChar + Dim Ditem As Boolean + Dim SQl As String + Dim QueryType As Boolean = False + Dim Prompt As String + Dim WhereState As String = vbNullString + Dim POS As Int16 + Dim StaticList As String = vbNullString '//̾ƴ ۿ Ѵ. + Dim QueryList As String = vbNullString '//۽ Է Ѵ. + Dim NotNull As Boolean = False + + _ + Public Property DB_NotNull() As Boolean + Get + Return NotNull + End Get + Set(ByVal value As Boolean) + NotNull = value + End Set + End Property + _ + Public Property DB_POs() As Int16 + Get + Return POS + End Get + Set(ByVal value As Int16) + POS = value + End Set + End Property + + = , > , = , <= , < , LIKE )")> _ + Public Property DB_WhereType() As String + Get + Return WhereState + End Get + Set(ByVal value As String) + WhereState = value + End Set + End Property + + _ + Public Property DB_Query() As String + Get + Return SQl + End Get + Set(ByVal value As String) + SQl = value + End Set + End Property + + _ + Public Property DB_QueryType() As Boolean + Get + Return QueryType + End Get + Set(ByVal value As Boolean) + QueryType = value + End Set + End Property + + _ + Public Property DB_QueryItem() As String + Get + Return QueryList + End Get + Set(ByVal value As String) + QueryList = value + End Set + End Property + + _ + Public Property DB_StaticItem() As String + Get + Return StaticList + End Get + Set(ByVal value As String) + StaticList = value + End Set + End Property + + _ + Public Property DB_Prompt() As String + Get + Return IIf(Prompt Is vbNullString, DB_ColName, Prompt) + End Get + Set(ByVal value As String) + Prompt = value + End Set + End Property + + _ + Public Property DB_ColName() As String + Get + If ColName = "" Then + Return Me.Name + Else + Return ColName + End If + End Get + Set(ByVal value As String) + ColName = value + End Set + End Property + + _ + Public Property DB_Type() As OleDbType + Get + Return Coltype + End Get + Set(ByVal value As OleDbType) + Coltype = value + End Set + End Property + + _ + Public Property DB_ITEM() As Boolean + Get + Return Ditem + End Get + Set(ByVal value As Boolean) + Ditem = value + End Set + End Property + + _ + Public Property Value() As String + Get + If Me.SelectedValue = "" Then + Return Me.Text + Else + Return Me.SelectedValue + End If + End Get + Set(ByVal value As String) + Me.SelectedValue = value + If Me.SelectedValue Is vbNullString Then Me.Text = value + End Set + End Property + + + ''' + ''' Ʈ + ''' + ''' + Public Sub UpdateItem() + Dim NTab As New DataTable + Dim UserRow As DataRow + + If QueryType = True Then '// ؼ + 'DB.DB_SQL = (SQl) + ' DB.Get_Data(NTab) + 'NTab = DB.Get_TABLE + + If Not QueryList Is Nothing Then + If QueryList.Trim.Length > 0 Then + For Each R As String In QueryList.Split(":") + UserRow = NTab.NewRow + UserRow(0) = R.Split(",")(0) + UserRow(1) = R.Split(",")(1) + NTab.Rows.InsertAt(UserRow, R.Split(",")(2)) + Next + End If + End If + + 'If QueryList <> Nothing OrElse QueryList.Trim.Length > 0 Then '//߰ 쿡 ߰ش. + 'For Each R As String In QueryList.Split(",") + 'NTab.Rows.Add(R.Split(",")) + 'Next + 'End If + + Me.DataSource = NTab + Me.DisplayMember = Me.DisplayMember + Me.ValueMember = Me.ValueMember + Else '//ƴ staticitem ̺  Ѵ. + If StaticList = "" Then Exit Sub + + Dim A As New DataTable("NEWTAB") + Dim CDIV() As String = StaticList.Split(":") + A.Columns.Add("DSP") + A.Columns.Add("VAL") + 'SataicList : ѵ , ͸ . + + For Each R As String In CDIV + A.Rows.Add(R.Split(",")) + Next + + Me.DataSource = A + Me.DisplayMember = "DSP" + Me.ValueMember = "VAL" + + End If + End Sub + + + + Private Sub ComboBOx_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp + If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}") + End Sub +End Class \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj new file mode 100644 index 0000000..1a0b05e --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj @@ -0,0 +1,236 @@ + + + + Debug + AnyCPU + 9.0.30729 + 2.0 + {326F9A0F-F714-432D-81CB-CED39EC6C424} + Library + MyControlOLEDBv2 + MyControlOLEDBv2 + Windows + false + + + true + http://localhost/MyControlOLEDBv2/ + true + Web + true + Foreground + 7 + Days + false + false + true + 1.0.0.%2a + true + + + 3.5 + 0 + + + v4.0 + + + + true + full + true + true + bin\Debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + x86 + + + pdbonly + false + true + true + bin\debug\ + + + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + lov.vb + + + Form + + + ImpCtl.vb + + + UserControl + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + MyCheckBox.vb + + + Component + + + MyCombo.vb + + + Component + + + MyFpoint.vb + + + Component + + + + MyLabel.vb + + + Component + + + MyListView.vb + + + Component + + + MyMaskBox.vb + + + Component + + + MySearchGrp.vb + + + Component + + + MySortGrp.vb + + + Component + + + MyTextBox.vb + + + Component + + + + + ImpCtl.vb + Designer + + + Designer + lov.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + Designer + MyCheckBox.vb + + + Designer + MyMaskBox.vb + + + Designer + MyTextBox.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + False + .NET Framework 2.0 + true + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj.user b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj.user new file mode 100644 index 0000000..ccde70e --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyControlOLEDBv2.vbproj.user @@ -0,0 +1,17 @@ + + + + + + + + + + + + + + ko-KR + false + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.Designer.vb new file mode 100644 index 0000000..9a49933 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.Designer.vb @@ -0,0 +1,27 @@ +Imports FarPoint.Win.Spread + _ +Partial Class MyFpoint + Inherits FarPoint.Win.Spread.FpSpread + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + 'Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.vb new file mode 100644 index 0000000..f14b32d --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyFpoint.vb @@ -0,0 +1,850 @@ +Public Class MyFpoint + Inherits FarPoint.Win.Spread.FpSpread + + Private v_AAutoAddrowInLast As ToolStripButton = Nothing + Private V_enterToTab As Boolean = False + Private V_DeleteKey As Boolean = False + Private V_CurrentDel As Boolean = False + Private V_FIRSTINDEX As Integer = 0 + Private V_NextRowindex As Integer = -1 + Private A_Ubound As New ArrayList + Private V_SpaceEdit As Boolean = True + Private V_sameRHeight As Boolean = True + Private V_ٹȣ As Int16 = -1 + _ + Public Property AAutoAddrowInLast() As ToolStripButton + Get + Return Me.v_AAutoAddrowInLast + End Get + Set(ByVal value As ToolStripButton) + Me.v_AAutoAddrowInLast = value + End Set + End Property + _ + Public Property ٹȣ() As Int16 + Get + Return V_ٹȣ + End Get + Set(ByVal value As Int16) + V_ٹȣ = value + End Set + End Property + + _ + Public Property SameRowheight() As Boolean + Get + Return V_sameRHeight + End Get + Set(ByVal value As Boolean) + V_sameRHeight = value + End Set + End Property + + + + _ + Public Property EditFromSpace() As Boolean + Get + Return V_SpaceEdit + End Get + Set(ByVal value As Boolean) + V_SpaceEdit = value + End Set + End Property + + ''' + ''' ߺ ͸ ˻մϴ. startindex = ٹȣ,endindex = ٹȣ, source ˻ ȣ, target ˻ ȣ + ''' ˻Ϸ ü ߺ մϴ. + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Function ߺ˻(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing) As Integer + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + If Not PBar Is Nothing Then + PBar.Value = StartIndex + PBar.Minimum = StartIndex + PBar.Maximum = EndIndex + End If + + 'NOTICE("ߺǴ [ֹȣ] ãԴϴ...", Me.lb_msg) + 'Me.Invalidate() + + + For A As Integer = StartIndex To EndIndex + = "" + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + + If .ToString <> "" Then + For B As Integer = StartIndex To EndIndex + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(B, T).Value + Next + If .ToString = .ToString Then + 'MsgBox() + + fcnt += 1 + If CheckColnum > -1 Then + Me.ActiveSheet.Cells(A, CheckColnum).Value = True + Me.ActiveSheet.Cells(B, CheckColnum).Value = True + End If + End If + End If + Next + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + + 'NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Function + + + ''' + ''' ߺ ͸ ˻մϴ. startindex = ٹȣ,endindex = ٹȣ, source ˻ ȣ, target ˻ ȣ + ''' ˻Ϸ ü ߺ մϴ. + ''' + ''' + ''' + ''' + ''' + ''' + ''' + Public Function ߺ˻2(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing) As Integer + '''''˻ 1ü ü Ǯ 鼭 ã´. + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + + If Not PBar Is Nothing Then + PBar.Value = StartIndex + PBar.Minimum = StartIndex + PBar.Maximum = EndIndex + End If + + For A As Integer = StartIndex To EndIndex + = "" + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + If .Trim.ToString <> "" Then + For B As Integer = StartIndex To EndIndex + If A <> B Then '// ϰ ׷ ȣ ȮѴ. + = "" + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(B, T).Value + Next + If .Trim.ToString = .Trim.ToString Then + fcnt += 1 + If CheckColnum > -1 Then + Me.ActiveSheet.Cells(A, CheckColnum).Value = True + Me.ActiveSheet.Cells(B, CheckColnum).Value = True + End If + End If + End If + Next + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + 'NOTICE("[ֹȣ] ߺ˻ Ϸ(" & fcnt & " ͸ ãҽϴ)", Me.lb_msg) + End Function + + Public Function ߺ˻簰(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + Dim Can As Boolean = False + If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If + + For A As Integer = StartIndex To EndIndex + = "" : = "" + Can = False + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Value + Next + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(A, T).Value + Next + + If .Trim.ToString <> "" Then + If TrueDirection = True Then + If .Trim.ToString = .Trim.ToString Then Can = True + Else + If .Trim.ToString <> .Trim.ToString Then Can = True + End If + If Can Then + fcnt += 1 + If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True + End If + + End If + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + + End Function + + Public Function ߺ˻簰ٰ(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer + Dim , As String 'New System.Text.StringBuilder + Dim fcnt As Integer = 0 + Dim Can As Boolean = False + If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If + + For A As Integer = StartIndex To EndIndex + = "" : = "" + Can = False + For Each T As Short In Source + &= Me.ActiveSheet.Cells(A, T).Text + Next + For Each T As Short In Tartger + &= Me.ActiveSheet.Cells(A, T).Text + Next + + If TrueDirection = True Then + If .Trim.ToString = .Trim.ToString Then Can = True + Else + If .Trim.ToString <> .Trim.ToString Then Can = True + End If + + If Can Then + fcnt += 1 + If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True + End If + + If Not PBar Is Nothing Then + If PBar.Value < PBar.Maximum Then PBar.Value += 1 + Me.Invalidate() + End If + Next + Return fcnt + + End Function + + ''' + ''' ʴ° մϴ( ̸ insertNewrow ϱ մϴ.) + ''' + ''' + ''' + Public Function AddRowsU() As Integer + Dim Idx As Integer + With Me.ActiveSheet + If .RowCount <= 0 Then '//Ͱ ƿٸ + Idx = 0 + .AddUnboundRows(Idx, 1) + .Rows(Idx).Tag = "UNBOUND" + .ActiveRowIndex = 0 + .ActiveColumnIndex = Me.FIRST_FOCUSINDEX + A_Ubound.Add(Idx) + Else + Idx = IIf(.ActiveRow.Index < 0, 0, .ActiveRow.Index) + .AddUnboundRows(Idx, 1) + .Rows(Idx).Tag = "UNBOUND" + A_Ubound.Add(Idx) + End If + End With + Return Idx + End Function + + ''' + ''' ġ ο ߰մϴ(ٿ ) + ''' + ''' + Public Sub Arin_InsertNewRow() + If Not Me.Focused Then Me.Focus() + Me.ActiveSheet.Rows.Add(Me.ActiveSheet.ActiveRowIndex, 1) + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.FIRST_FOCUSINDEX) + End Sub + + ''' + ''' ο ߰մϴ(ٿ ) + ''' + ''' + Public Sub Arin_AddNewRow() + If Not Me.Focused Then Me.Focus() + Me.ActiveSheet.Rows.Add(Me.ActiveSheet.RowCount, 1) + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, Me.FIRST_FOCUSINDEX) + SendKeys.Send("{ENTER}") + End Sub + + ''' + ''' ο ߰մϴ.(ٿȵ) + ''' + ''' + Public Sub Arin_AddNewRowU() + If Not Me.Focused Then Me.Focus() + Dim Idx As Integer + Me.ActiveSheet.AddUnboundRows(Me.ActiveSheet.RowCount, 1) + Idx = Me.ActiveSheet.RowCount - 1 + Me.ActiveSheet.Rows(Idx).Tag = "UNBOUND" + Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, Me.FIRST_FOCUSINDEX) + SendKeys.Send("{ENTER}") + End Sub + + Public Function NewRowsU() As Integer + Dim Idx As Integer + Me.ActiveSheet.AddUnboundRows(Me.ActiveSheet.RowCount, 1) + Idx = Me.ActiveSheet.RowCount - 1 + Me.ActiveSheet.Rows(Idx).Tag = "UNBOUND" + A_Ubound.Add(Idx) '--ٿϿ ܽѹ + Return Idx + End Function + Public Sub Attach_Ubound(Optional ByVal NullChkColnum As Integer = -1) + ' MsgBox(A_Ubound.Count) + Dim nullVal As Boolean = False + For Each A As Integer In A_Ubound + Try + If Me.ActiveSheet.Rows(CInt(A)).Tag = "UNBOUND" Then '//ٿȿϰ쿡 + If NullChkColnum > -1 Then + nullVal = True + For z As Integer = NullChkColnum To Me.ActiveSheet.ColumnCount - 1 + If Me.ActiveSheet.Cells(A, z).Text <> "" Then + 'MsgBox(Me.ActiveSheet.Cells(A, z).Text) + nullVal = False + Exit For + End If + Next + End If + If Not nullVal Then Me.ActiveSheet.AddRowToDataSource(CInt(A), True) + End If + Catch ex As Exception + MsgBox("[Err]Add-Unbound Row" & vbCrLf & ex.Message.ToString) + End Try + Next + A_Ubound.Clear() + End Sub + + _ + Public Property NextRow_Index() As Integer + Get + Return V_NextRowindex + + End Get + Set(ByVal value As Integer) + V_NextRowindex = value + End Set + End Property + + _ + Public Property FIRST_FOCUSINDEX() As Integer + Get + Return V_FIRSTINDEX + + End Get + Set(ByVal value As Integer) + V_FIRSTINDEX = value + End Set + End Property + + _ + Public Property CurrentDel() As Boolean + Get + Return V_CurrentDel + + End Get + Set(ByVal value As Boolean) + V_CurrentDel = value + End Set + End Property + + + _ + Public Property DeleteKey() As Boolean + Get + Return V_DeleteKey + + End Get + Set(ByVal value As Boolean) + V_DeleteKey = value + End Set + End Property + + ''' + ''' Էµ ٹȣ ±=ʵ ġϴ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal index As Integer, ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(index, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + ''' + ''' 缱õ ȣشϴ ȯմϴ. + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal Columnindex As Integer, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + Return Me.Sheets(Sheetindex).Cells(Me.ActiveSheet.ActiveRowIndex, Columnindex) + Return RetVal + End Function + ''' + ''' 缱õ ȯմϴ + ''' + ''' + ''' + Public Function Cells() As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + Return Me.ActiveSheet.ActiveCell + End Function + Public Function ActiveCell() As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + Return Me.ActiveSheet.ActiveCell + End Function + ''' + ''' 翭ġ ȯ + ''' + ''' + ''' + ''' + Public Function PreRCells(Optional ByVal FirstrowValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell + If FirstrowValueisNothing AndAlso Me.ActiveRowindex = 0 Then Return Nothing + + If Me.ActiveRowindex = 0 Then + If FirstrowValueisNothing Then + Return Nothing + Else + Return Me.ActiveSheet.ActiveCell + End If + Else + Return Me.ActiveSheet.Cells(Me.ActiveRowindex - 1, Me.ActiveColumnindex) + End If + End Function + ''' + ''' ռ ȯ + ''' + ''' + ''' + ''' + Public Function PreCells(Optional ByVal FirstColValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell + If FirstColValueisNothing AndAlso Me.ActiveColumnindex = 0 Then Return Nothing + + If Me.ActiveColumnindex = 0 Then + If FirstColValueisNothing Then + Return Nothing + Else + Return Me.ActiveSheet.ActiveCell + End If + Else + Return Me.ActiveSheet.Cells(Me.ActiveRowindex, Me.ActiveColumnindex - 1) + End If + End Function + ''' + ''' Էµ ±׿ ʵ尡 ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function Cells(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + ''' + ''' Ȱȭ ȯմϴ. + ''' + ''' + ''' + Public Function ActiveColumn() As FarPoint.Win.Spread.Column + Return Me.ActiveSheet.Columns(Me.ActiveColumnindex) + End Function + ''' + ''' Էµ ±׿ ʵ尡 ġϴ ȯմϴ.(ٹȣ ) + ''' + ''' + ''' + ''' + ''' + Public Function CCells(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell + Dim RetVal As FarPoint.Win.Spread.Cell = Nothing + If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex + + For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns + + If SC.DataField.ToUpper = Tag.ToString.ToUpper Then + RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) + Exit For + End If + Next + If RetVal Is Nothing Then + MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") + End If + Return RetVal + End Function + + ''' + ''' Ȱȭ ٹȣ ȯ + ''' + ''' + ''' + Public Function ActiveRowindex() As Integer + Return Me.ActiveSheet.ActiveRowIndex + End Function + ''' + ''' Ȱȭ ȣ ȯ + ''' + ''' + ''' + Public Function ActiveColumnindex() As Integer + Return Me.ActiveSheet.ActiveColumnIndex + End Function + + ''' + ''' Ű ̵ϴ Ű մϴ. + ''' + ''' + Public Sub EnterToNextItem() + Dim im As New FarPoint.Win.Spread.InputMap + im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused) + im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap) + im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused) + im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumnWrap) + End Sub + + Public Sub NEXT_CELL() + If Me.ActiveSheet.ActiveRowIndex <> Me.ActiveSheet.RowCount - 1 Then '// ƴϸ + If Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '/̸ ÷ ̵ + 'SendKeys.Send("{TAB}") + Me.ActiveSheet.ActiveRowIndex += 1 + Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex + 1, V_FIRSTINDEX) + + Else + 'SendKeys.Send("{TAB}") + 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + 'Me.ActiveSheet.IsSelected(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) + 'ME.ActiveSheet.SEL + Me.ActiveSheet.ActiveColumnIndex += 1 + End If + Else + If Me.ActiveSheet.ActiveColumnIndex <> Me.ActiveSheet.ColumnCount - 1 Then '/̸ ÷ ̵ + 'Me.ActiveSheet.ActiveRowIndex += 1 + Me.ActiveSheet.ActiveColumnIndex += 1 '//ùε ȱ.⺻ 0̴. + End If + End If + End Sub + Public Sub NEXT_ROW() + If Me.ActiveSheet.ActiveRowIndex <> Me.ActiveSheet.RowCount - 1 Then '// ƴϸ + Me.ActiveSheet.ActiveRowIndex += 1 + Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//ùε ȱ.⺻ 0̴. + End If + End Sub + + Public Sub ItemCheck_Select(Optional ByVal index As Int16 = -1) + + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If index = -1 AndAlso Me.ٹȣ <> -1 Then index = ٹȣ '//ȿ մ + sheet.AutoFilterReset(index) '// Ƿ ͸ Ѵ. + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, index).Value = True + Next + End Sub + Public Sub ItemCheck_Unselect(Optional ByVal index As Int16 = -1) + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If index = -1 AndAlso Me.ٹȣ <> -1 Then index = ٹȣ '//ȿ մ + sheet.AutoFilterReset(index) '// Ƿ ͸ Ѵ. + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, index).Value = False + Next + End Sub + Public Sub ItemCheck_Reverse(Optional ByVal index As Int16 = -1) + Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet + If index = -1 AndAlso Me.ٹȣ <> -1 Then index = ٹȣ '//ȿ մ + sheet.AutoFilterReset(index) '// Ƿ ͸ Ѵ. + For i As Integer = 0 To sheet.RowCount - 1 + sheet.Cells(i, index).Value = IIf(sheet.Cells(i, index).Value = True, False, True) + Next + End Sub + ''' + ''' ʺ,̸(ɼ),͵ մϴ. + ''' + ''' + ''' + Public Sub Setting_Save(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + ColSize_Save(Tag, FN) + If ColName Then ColName_Save(Tag, FN) + CurrentState_Save(Tag, FN) + AZOOM_Save(Tag, FN) + End Sub + ''' + ''' ʺ,̸(ɼ),͵ ҷɴϴ + ''' + ''' + ''' + Public Sub Setting_Load(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") + ColSize_Load(Tag, FN) + If ColName Then ColName_Load(Tag, FN) + CurrentState_Load(Tag, FN) + AZOOM_LOAD(Tag, FN) + End Sub + + ''' + ''' ʺ Spread.ini Ͽ մϴ. + ''' + ''' + Public Sub AZOOM_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New MyINI2(File.FullName) + a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", Me.ActiveSheet.ZoomFactor) + + End Sub + ''' + ''' ʺ Spread.ini Ϸ ҷɴϴ. + ''' + ''' + Public Sub AZOOM_LOAD(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New MyINI2(FILEname) + Me.ActiveSheet.ZoomFactor = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", 1) + End Sub + + ''' + ''' ʺ Spread.ini Ͽ մϴ. + ''' + ''' + Public Sub ColSize_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New MyINI2(File.FullName) + For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & z.Index.ToString, z.Width) + Next + End Sub + + ''' + ''' ʺ Spread.ini Ϸ ҷɴϴ. + ''' + ''' + Public Sub ColSize_Load(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New MyINI2(FILEname) + For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + col.Width = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & col.Index.ToString) + Catch ex As Exception '//쿡 Ƿ ׳ + + End Try + Next + End Sub + Public Sub ColName_Load(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + ColSize_Save(tag, fn) + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim a As New MyINI2(FILEname) + For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + col.Label = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & col.Index.ToString).ToString.Trim(Chr(0)) + Catch ex As Exception '//쿡 Ƿ ׳ + End Try + Next + End Sub + Public Sub ColName_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New MyINI2(File.FullName) + For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns + a.Write(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & z.Index.ToString, z.Label) + Next + End Sub + + ''' + ''' [] :ٳ̸ + ''' + ''' + Public Sub CurrentState_Save(ByVal tag As String, ByVal fn As String) + Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) + Dim a As New MyINI2(File.FullName) + a.Write(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", Me.ActiveSheet.Rows.Default.Height) + End Sub + + ''' + ''' [] :ٳ̸ ҷ´.(spre.ini) + ''' + ''' + Public Sub CurrentState_Load(ByVal tag As String, ByVal fn As String) + Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" + If Not System.IO.File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + CurrentState_Save(tag, fn) + Return + End If + Dim a As New MyINI2(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") + Me.ActiveSheet.Rows.Default.Height = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", 20) + End Sub + + + Private Sub Delete_itm(Optional ByVal rowindex As Integer = -1, Optional ByVal prompt As Boolean = True) + Dim Commit As Boolean = True + Dim A As New System.Text.StringBuilder(" : ߽ϴ") + A.AppendLine() + A.AppendLine(" õ ˴ϴ") + A.AppendLine("Ͻðڽϱ?") + If prompt Then + If MsgBox(A.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, " ") <> MsgBoxResult.Ok Then Commit = False + End If + If Not Commit Then Return '//Ʈ Ҹ ÿ . + Me.ActiveSheet.ActiveRow.Remove() + End Sub + + Private Sub MyFpoint_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EditModeOff + + + End Sub + + ''' + ''' 翭ġ ȯ + ''' + ''' + ''' + ''' + Public Function CellsPR(Optional ByVal FirstrowValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell + If FirstrowValueisNothing AndAlso Me.ActiveRowindex = 0 Then Return Nothing + + If Me.ActiveRowindex = 0 Then + If FirstrowValueisNothing Then + Return Nothing + Else + Return Me.ActiveSheet.ActiveCell + End If + Else + Return Me.ActiveSheet.Cells(Me.ActiveRowindex - 1, Me.ActiveColumnindex) + End If + End Function + + Private Sub CustFP_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown + e.Handled = True + e.SuppressKeyPress = False + + Select Case e.KeyCode + Case Keys.Enter + If e.Control Then + Me.Cells.Value = Me.CellsPR.Value + Else + If Not Me.v_AAutoAddrowInLast Is Nothing Then + If Me.ActiveSheet.ActiveRowIndex = Me.ActiveSheet.RowCount - 1 Then '//ٿ + If Me.V_NextRowindex = Me.ActiveSheet.ActiveColumnIndex Then '//ٷΰl + e.Handled = True + Me.v_AAutoAddrowInLast.PerformClick() + ElseIf Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '//̶ + e.Handled = True + Me.v_AAutoAddrowInLast.PerformClick() + End If + End If + Else + If Me.V_NextRowindex = Me.ActiveSheet.ActiveColumnIndex Then '//ٷΰl + Me.NEXT_ROW() + ElseIf Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '//̶ + Me.NEXT_ROW() + End If + End If + End If + Case Keys.Delete + + If e.Shift Then '//Ʈ + If Me.V_DeleteKey Then Delete_itm(, True) + e.Handled = True + Else + If Me.V_CurrentDel Then + Me.ActiveSheet.ActiveCell.ResetValue() + Me.OnEditModeOff(Nothing) + e.Handled = True + End If + End If + + Case Keys.Space + If Me.V_SpaceEdit Then EditMode = True + e.Handled = True + Case Else '//׿ܴٸԷµǾ쿡 editmode ԵǹǷ ѱó ٷ Ʈ Ѵ. + + If e.KeyCode >= Keys.NumPad0 AndAlso e.KeyCode <= Keys.NumPad9 Then + '//Ʈ + ElseIf e.KeyCode >= Keys.D0 AndAlso e.KeyCode <= Keys.D9 Then + '//Ϲݼе + Else + If Not e.Alt AndAlso Not e.Control AndAlso Me.ImeMode = Windows.Forms.ImeMode.Hangul Then + EditMode = True + End If + End If + + End Select + End Sub + + Private Sub CustFP_RowHeightChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.RowHeightChangedEventArgs) Handles Me.RowHeightChanged + If Me.V_sameRHeight Then + Dim Row As FarPoint.Win.Spread.RowHeightChangeExtents = e.RowList(0) + Me.ActiveSheet.Rows.Default.Height = Me.ActiveSheet.Rows(Row.FirstRow).Height + End If + + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyINI.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyINI.vb new file mode 100644 index 0000000..f677630 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyINI.vb @@ -0,0 +1,287 @@ +Imports System.IO + +Public Class MyINI2 + Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer + Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpDownFileName As String) As Integer + 'Private Aname As String + Public FileName As String = vbNullString + Private FileNameBuf As String + Private m_sPath As String + Private m_sKey As String + Private m_sSection As String + Private m_sDefault As String + Private m_lLastReturnCode As Integer + + Public Sub New(ByVal File As String) + FileName = File + FileNameBuf = File + Me.Create() + + 'MsgBox("New 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + + ' If Not System.IO.File.Exists(File) Then System.IO.File.Create(File) + End Sub + Public Sub Create() + If Exist() = True Then Return + Dim A As New IO.FileInfo(FileName) + A.Directory.Create() + Dim FS As IO.FileStream = A.Create() + Dim SW As New IO.StreamWriter(FS, System.Text.Encoding.Default) + SW.WriteLine("//Myini 로부터 자동생성된 파일입니다") + SW.WriteLine("//생성일자 : " & Now.ToString) + SW.Flush() + SW.Close() + FS.Close() + SW = Nothing + FS = Nothing + FileName = FileNameBuf + End Sub + Public Function Exist() As Boolean + Return System.IO.File.Exists(FileName) + End Function + + Public Function Read(ByVal appkey As String, ByVal subkey As String, Optional ByVal DefaultValue As String = vbNullString) As String '//변수초기화 + 'MsgBox("Read 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + + Dim tempstr As Integer 'ini파일에서 읽어온 값을 임시저장하는 변수 + Dim strtemp As String = New String(Chr(0), 2000) 'ini파일의 임시 변수 + Dim Tempbuf As String + + If Not Exist() Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "APP=" & appkey & vbCrLf & "subkey=" & subkey & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Critical, "Error") + Return vbNullString + End If + Try + tempstr = GetPrivateProfileString(appkey, subkey, "", strtemp, Len(strtemp), FileName) + Tempbuf = strtemp.Substring(0, tempstr) + Tempbuf = Tempbuf.Trim(Chr(0)) + + FileName = FileNameBuf + + If Tempbuf.Trim = vbNullString AndAlso DefaultValue <> vbNullString Then + Return DefaultValue + Else + Return Tempbuf + End If + Catch ex As Exception + FileName = FileNameBuf + Return vbNullString + End Try + + End Function + Public Function ReadFile(ByVal appkey As String, ByVal subkey As String, ByVal filename2 As String, Optional ByVal DefaultValue As String = vbNullString) As String '//변수초기화 + 'MsgBox("ReadFile 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + Dim tempstr As Integer 'ini파일에서 읽어온 값을 임시저장하는 변수 + Dim strtemp As String = New String(Chr(0), 2000) 'ini파일의 임시 변수 + Dim Tempbuf As String + + If Not System.IO.File.Exists(filename2) Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Critical, "Error") + Return vbNullString + End If + + Try + tempstr = GetPrivateProfileString(appkey, subkey, "", strtemp, Len(strtemp), filename2) + Tempbuf = strtemp.Substring(0, tempstr) + If Tempbuf.Trim = vbNullString AndAlso DefaultValue <> vbNullString Then + Return DefaultValue + Else + Return Tempbuf + End If + Catch ex As Exception + Return vbNullString + End Try + FileName = FileNameBuf + End Function + + Public Function Write(ByVal appkey As String, ByVal subkey As String, ByVal WriteVal As Object) As Integer + Dim RetVal As Integer + 'MsgBox("Write1 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + If Not Exist() Then + MsgBox("환경파일이 존재하지 않습니다" & vbCrLf & "파일을 생성합니다." & vbCrLf & "파일명=" & FileName, MsgBoxStyle.Information, "확인") + Me.Create() + End If + ' FileName = Aname + RetVal = (WritePrivateProfileString(appkey, subkey, WriteVal, FileName)) + FileName = FileNameBuf + Return RetVal + + End Function + Public Sub Write(ByVal appkey As String, ByVal subkey As String, ByVal WriteVal As Object, ByVal fileName2 As String) + 'MsgBox("Write2 1=" & FileName & vbCrLf & "2=" & FileNameBuf) + If Not System.IO.File.Exists(fileName2) Then + MsgBox("[D] 환경파일이 존재하지 않습니다" & vbCrLf & "파일을 생성합니다." & vbCrLf & "파일명=" & fileName2, MsgBoxStyle.Information, "확인") + System.IO.File.Create(fileName2) + End If + WritePrivateProfileString(appkey, subkey, WriteVal, fileName2) + FileName = FileNameBuf + End Sub + + + + Public Sub EnumerateCurrentSection(ByRef sKey() As String, ByRef iCount As Integer) + Dim sSection As String + Dim iPos As Integer + Dim iNextPos As Integer + Dim sCur As String + + iCount = 0 + Erase sKey + sSection = INISection + If (Len(sSection) > 0) Then + iPos = 1 + iNextPos = InStr(iPos, sSection, Chr(0)) + Do While iNextPos <> 0 + sCur = Mid(sSection, iPos, iNextPos - iPos) + If (sCur <> Chr(0)) Then + iCount = iCount + 1 + 'UPGRADE_WARNING: sKey 배열의 하한이 1에서 0(으)로 변경되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"' + ReDim Preserve sKey(iCount) + sKey(iCount) = Mid(sSection, iPos, iNextPos - iPos) + iPos = iNextPos + 1 + iNextPos = InStr(iPos, sSection, Chr(0)) + End If + Loop + End If + End Sub + + + Public Sub GetAllsection(ByVal key As String, ByRef Section As ArrayList, ByRef Value As ArrayList) + Dim FS As New System.IO.FileStream(FileName, FileMode.Open) + Dim SR As New StreamReader(FS, System.Text.Encoding.Default) + Dim Findkey As String = "[" & key & "]" + Dim Line As String + Dim KeyPos As Integer = -1 + Dim Seppos As Integer = -1 + While SR.Peek > -1 + Line = SR.ReadLine + If KeyPos = -1 Then '//키를 못찻았으면 + If Line.ToUpper.IndexOf(Findkey.ToUpper) > -1 Then KeyPos = Line.ToUpper.IndexOf(Findkey.ToUpper) + Else '//찾앗으면 + If Line.IndexOf("[") = -1 Then '//그다음 키가 오기전까지 모두 추가한다. + Seppos = Line.IndexOf("=") + Section.Add(Line.Substring(0, Seppos)) + Value.Add(Line.Substring(Seppos + 1)) + Else + Exit While + End If + End If + End While + + SR.Close() + FS.Close() + + + End Sub + + Public Sub EnumerateAllSections(ByRef sSections() As String, ByRef iCount As Integer) + Dim sIniFile As String + Dim iPos As Integer + Dim iNextPos As Integer + Dim sCur As String + + iCount = 0 + Erase sSections + sIniFile = Sections + If (Len(sIniFile) > 0) Then + iPos = 1 + iNextPos = InStr(iPos, sIniFile, Chr(0)) + Do While iNextPos <> 0 + If (iNextPos <> iPos) Then + sCur = Mid(sIniFile, iPos, iNextPos - iPos) + iCount = iCount + 1 + 'UPGRADE_WARNING: sSections 배열의 하한이 1에서 0(으)로 변경되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"' + ReDim Preserve sSections(iCount) + sSections(iCount) = sCur + End If + iPos = iNextPos + 1 + iNextPos = InStr(iPos, sIniFile, Chr(0)) + Loop + End If + + End Sub + + Property INISection() As String + Get + Dim sBuf As String + Dim iSize As String + Dim iRetCode As Short + + sBuf = Space(8192) + iSize = CStr(Len(sBuf)) + iRetCode = GetPrivateProfileString(m_sSection, 0, m_sDefault, sBuf, CInt(iSize), m_sPath) + If (CDbl(iSize) > 0) Then + INISection = Left(sBuf, iRetCode) + Else + INISection = "" + End If + + End Get + Set(ByVal Value As String) + m_lLastReturnCode = WritePrivateProfileString(m_sSection, 0, Value, m_sPath) + End Set + End Property + ReadOnly Property Sections() As String + Get + Dim sBuf As String + Dim iSize As String + Dim iRetCode As Short + + sBuf = Space(8192) + iSize = CStr(Len(sBuf)) + iRetCode = GetPrivateProfileString(0, 0, m_sDefault, sBuf, CInt(iSize), m_sPath) + If (CDbl(iSize) > 0) Then + Sections = Left(sBuf, iRetCode) + Else + Sections = "" + End If + + End Get + End Property + + ReadOnly Property LastReturnCode() As Integer + Get + LastReturnCode = m_lLastReturnCode + End Get + End Property + ReadOnly Property Success() As Boolean + Get + Success = (m_lLastReturnCode <> 0) + End Get + End Property + 'UPGRADE_NOTE: Default이(가) Default_Renamed(으)로 업그레이드되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"' + Property Default_Renamed() As String + Get + Default_Renamed = m_sDefault + End Get + Set(ByVal Value As String) + m_sDefault = Value + End Set + End Property + Property Path() As String + Get + Path = m_sPath + End Get + Set(ByVal Value As String) + m_sPath = Value + End Set + End Property + Property Key() As String + Get + Key = m_sKey + End Get + Set(ByVal Value As String) + m_sKey = Value + End Set + End Property + Property Section() As String + Get + Section = m_sSection + End Get + Set(ByVal Value As String) + m_sSection = Value + End Set + End Property + + +End Class \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.Designer.vb new file mode 100644 index 0000000..312da06 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MyLabel + Inherits System.Windows.Forms.PictureBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + 'Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.vb new file mode 100644 index 0000000..25302d8 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyLabel.vb @@ -0,0 +1,226 @@ + +Public Class MyLabel + Public TextValue As String = "[tindevil@Nate.com]" + Public TextFont As New Font("HY߰", 30) + + Dim v As Int16 = 100 + Dim v As Int16 = 100 + + Dim v As String = vbNullString + Dim v As Color = Color.Black + Dim vȸ As Int16 = 0 + + Private v_ As Int16 = 0 '// + Private V_CB As CheckBox + + Public Repeat As Short = 0 '//ݺȽ + Public RepeatX As Single '//ݺ½ x + Public RepeatY As Single '//ݺ½ y + + Public Pattern As String + Public DIV As String + + + Public Sub New() + + ' ȣ Windows Form ̳ʿ ʿմϴ. + InitializeComponent() + 'Me.BackColor = Color.Transparent + ' InitializeComponent() ȣ ڿ ʱȭ ڵ带 ߰Ͻʽÿ. + + End Sub + + _ +Public Property CheckBox() As CheckBox + Get + Return V_CB + End Get + Set(ByVal value As CheckBox) + V_CB = value + Me.Invalidate() + End Set + End Property + + _ + Public Property () As Int16 + Get + Return v_ + End Get + Set(ByVal value As Int16) + v_ = value + Me.Invalidate() + End Set + End Property + + Public Function () As String + If v_ = 0 Then Return TextValue.Trim + Dim z As New System.Text.StringBuilder + For Each A As Char In TextValue.ToCharArray + z.Append(A.ToString & Space(v_)) + Next + Return (z.ToString.Trim()) + End Function + + ''' + ''' Ʈ մϴ ⺻=100 + ''' + ''' + ''' + ''' + _ + Public Property () As Int16 + Get + Return v + End Get + Set(ByVal value As Int16) + v = value + Me.Invalidate() + End Set + End Property + + _ + Public Property ȸ() As Int16 + Get + Return vȸ + End Get + Set(ByVal value As Int16) + vȸ = value + Me.Invalidate() + End Set + End Property + + + _ + Public Property () As Int16 + Get + Return v + End Get + Set(ByVal value As Int16) + v = value + Me.Invalidate() + End Set + End Property + + + Public Function GetSize(Optional ByVal NewFont As Font = Nothing) As SizeF + If NewFont Is Nothing Then NewFont = TextFont + Return TextRenderer.MeasureText(, NewFont) + End Function + + + ''' + ''' Ʈ ֽϴ. + ''' + ''' + ''' + ''' + _ + Property () As String + Get + If v = vbNullString Then Return Me.Name.ToString + Return v + End Get + Set(ByVal value As String) + v = value + End Set + End Property + + Public Property MyForeColor() As Color + Get + Return v + End Get + Set(ByVal value As Color) + v = value + Me.Invalidate() + End Set + End Property + + _ + Public Property MyText() As String + Get + Return TextValue + End Get + Set(ByVal value As String) + TextValue = value + Me.Invalidate() + End Set + End Property + + _ + Public Property MyFont() As Font + Get + Return TextFont + End Get + Set(ByVal value As Font) + TextFont = value + Me.Invalidate() + End Set + End Property + + + Public Function GetImage() As Bitmap + Dim Br As New SolidBrush(v) + Me.Height = GetSize.Height * (v / 100) + Me.Width = GetSize.Width * (v / 100) + Dim Bmp As New Bitmap(Me.Width, Me.Height, Me.CreateGraphics) + Dim G As Graphics = Graphics.FromImage(Bmp) + + G.ScaleTransform((v / 100), (v / 100)) + G.DrawString(TextValue, TextFont, Br, 0, 0) + G.Dispose() + Return Bmp + End Function + + + Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs) + Dim Br As New SolidBrush(v) + Dim LastText As String = "" + Dim Idx As Integer = 0 + + + Dim Z As New System.Drawing.StringFormat() + Z.FormatFlags = StringFormatFlags.MeasureTrailingSpaces + + If v = 100 AndAlso v = 100 Then '// ڷ ó + Me.Width = GetSize.Width + Me.Height = GetSize.Height + LastText = () + + ' Dim A As New Font("", 20, FontStyle.Regular, GraphicsUnit.Display, &H1, True) + pe.Graphics.DrawString(LastText, TextFont, Br, 0, 0, Z) + 'pe.Graphics.DrawString(LastText, A, Br, 0, 0) + Else + Me.Height = GetSize.Height * (v / 100) + Me.Width = GetSize.Width * (v / 100) + Dim Bmp As New Bitmap(Me.Width, Me.Height, pe.Graphics) + Dim G As Graphics = Graphics.FromImage(Bmp) + + If vȸ <> 0 Then + 'G.ResetTransform() + 'G.TranslateTransform(-Me.Width, -Me.Height, Drawing2D.MatrixOrder.Append) + 'G.RotateTransform(vȸ, Drawing2D.MatrixOrder.Append) + 'G.TranslateTransform(Me.Width, Me.Height, Drawing2D.MatrixOrder.Append) + + G.TranslateTransform(-Me.Width, -Me.Height, Drawing2D.MatrixOrder.Append) + G.RotateTransform(vȸ, Drawing2D.MatrixOrder.Append) + G.TranslateTransform(Me.Width, Me.Height, Drawing2D.MatrixOrder.Append) + End If + 'G.TranslateTransform(Me.Width / 2, Me.Height / 2, Drawing2D.MatrixOrder.Append) + G.ScaleTransform((v / 100), (v / 100)) + G.DrawString(TextValue, TextFont, Br, 0, 0) + G.Dispose() + pe.Graphics.DrawImage(Bmp, 0, 0) ', CInt(GetSize.Width * (v / 100)), GetSize.Height) + End If + + End Sub + + + Private Sub RotateAt(ByVal gr As Graphics, ByVal cx As Integer, ByVal cy As Integer, ByVal angle As Single) + gr.ResetTransform() + gr.TranslateTransform(-cx, -cy, Drawing2D.MatrixOrder.Append) + gr.RotateTransform(angle, Drawing2D.MatrixOrder.Append) + gr.TranslateTransform(cx, cy, Drawing2D.MatrixOrder.Append) + End Sub + + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.Designer.vb new file mode 100644 index 0000000..2a198b6 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MyListView + Inherits System.Windows.Forms.ListView + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.vb new file mode 100644 index 0000000..9c30cea --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyListView.vb @@ -0,0 +1,237 @@ +Imports System.Text +Imports System.IO +Public Class MyListView + Private AutoView As Boolean = False '//ڵ dz ǥ + Private var_AutoDelete As Boolean = True '//DelteŰ ڵ rowid ̿ؼ Ѵ. + Private VAR_ENABLE_MYKEY As Boolean = True + Private var_enterkey As Boolean = True + + + ''' + ''' Ű Ŀ ̵մϱ? + ''' + ''' + _ + Public Property DB_Enable_EnterKey() As Boolean + Get + Return var_enterkey + End Get + Set(ByVal value As Boolean) + var_enterkey = value + End Set + End Property + + ''' + ''' ü Ŀ ̵մϴ. + ''' + ''' + Public Sub DB_SetFocus() + If Me.Items.Count <= 0 Then + MsgBox(" Ͱ ʽϴ", MsgBoxStyle.Information, "Ȯ") + Else + Me.Focus() + End If + End Sub + + ''' + ''' ⺻ Ʈ Ű ENTER/SHIFT+KEY/DELETE Ȱȭմϴ. + ''' + ''' + ''' + ''' + _ + Public Property DB_Enable_MyKey() As Boolean + Get + Return (VAR_ENABLE_MYKEY) + End Get + Set(ByVal value As Boolean) + VAR_ENABLE_MYKEY = value + End Set + End Property + + + ''' + ''' DELETE Ű õǾ 0 ROWID մϴ + ''' + ''' + ''' + ''' + _ + Public Property DB_Enable_DelKey() As Boolean + Get + Return var_AutoDelete + End Get + Set(ByVal value As Boolean) + var_AutoDelete = value + End Set + End Property + + ''' + ''' ڵ ǥմϴ selectedindexchanged Լ ȣ˴ϴ. + ''' + ''' + ''' + _ + Public Property DB_Autoview() As Boolean + Get + Return AutoView + End Get + Set(ByVal value As Boolean) + AutoView = value + End Set + End Property + + + ''' + ''' ü մϴ. + ''' + ''' + Public Sub ITEM_SELECT() + For Each A As ListViewItem In Me.Items + A.Checked = True + Next + End Sub + + ''' + ''' ü մϴ. + ''' + ''' + Public Sub ITEM_UNSELECT() + For Each A As ListViewItem In Me.Items + A.Checked = False + Next + End Sub + + ''' + ''' + ''' + ''' + Public Sub ITEM_DESELECT() + For Each A As ListViewItem In Me.Items + A.Checked = IIf(A.Checked, False, True) + Next + End Sub + + ''' + ''' û + ''' + ''' + Public Sub ITEM_SELECTDEL() + For Each A As ListViewItem In Me.Items + If A.Checked Then A.Remove() + Next + End Sub + + + + + + ''' + ''' Ʈ ũ⸦ Ȯմϴ. + ''' + ''' + Public Sub COLSIZE_SAVE() + Dim a As New MyINI2(My.Application.Info.DirectoryPath & "\LISTVIEW.INI") + For Each COL As ColumnHeader In Me.Columns + a.Write(Me.Parent.Name & "-" & Me.Name, "COLSIZE" & COL.Index.ToString, COL.Width) + Next + End Sub + + ''' + ''' Ʈ ũ⸦ Ϸκ ҷɴϴ. + ''' + ''' + Public Sub COLSIZE_LOAD() + Dim FILEname As String = My.Application.Info.DirectoryPath & "\LISTVIEW.INI" + Dim a As New MyINI2(My.Application.Info.DirectoryPath & "\LISTVIEW.INI") + If Not File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + COLSIZE_SAVE() + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + + For Each COL As ColumnHeader In Me.Columns + 'MsgBox(COL.Index) + 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) + Try + COL.Width = a.Read(Me.Parent.Name & "-" & Me.Name, "COLSIZE" & COL.Index.ToString) + Catch ex As Exception '//쿡 Ƿ ׳ + + End Try + Next + End Sub + + Public Sub FileSave() + + Dim SD As New SaveFileDialog + SD.Filter = " и (*.TXT)|*.TXT|޸ и (*.CSV)|*.CSV|Excel WorkSheet(*.XLS)|*.XLS|XML Excel WorkSheet|*.xml|HTML(*.HTML)|*.HTML" + SD.FilterIndex = 1 + SD.RestoreDirectory = True + If SD.ShowDialog() = DialogResult.OK Then + Select Case SD.FilterIndex + Case 1 + ExportToTXT(SD.FileName) + End Select + End If + + End Sub + + Public Function ExportToTXT(ByVal FileName As String, Optional ByVal StartPosition As Short = 2, Optional ByVal NotePadOpen As Boolean = False) As Boolean + Dim FS As New FileStream(FileName, FileMode.Create) + 'Dim BW As New BinaryWriter(FS, System.Text.Encoding.Default) + Dim SW As New StreamWriter(FS, System.Text.Encoding.Default) + + Dim rowIndex As Integer = 1 ' ప + Dim Rrowindex As Integer = 1 + Dim colIndex As Integer = 0 ' + Dim RcolIndex As Integer = 0 + + + Windows.Forms.Cursor.Current = Cursors.WaitCursor '//콺 ȯ + + Try + Dim LV As ListViewItem + Dim la As ListViewItem.ListViewSubItem + Dim SubBuf As StringBuilder + Dim Aa As ColumnHeader + + '--Ӹ + For Each Aa In Me.Columns + 'MsgBox(Aa.Text) + colIndex += 1 + If colIndex >= StartPosition Then + RcolIndex += 1 + SW.Write(Aa.Text & vbTab) + 'excelApp.Cells(1, RcolIndex) = Aa.Text + End If + Next + SW.Write(vbCrLf) + + '- + For Each LV In Me.Items + rowIndex += 1 '//ప 1 Ų. + colIndex = 0 '// ʱȭѴ. + RcolIndex = 0 '// ʱȭѴ. + SubBuf = New StringBuilder '//ڿ ʱȭ + For Each la In LV.SubItems + colIndex += 1 + If colIndex >= StartPosition Then + RcolIndex += 1 + SW.Write(la.Text & vbTab) '//÷ ߰Ѵ. + End If + Next + SW.Write(vbCrLf) + Next + + SW.Close() + FS.Close() + Return True + Catch exp As Exception + MessageBox.Show(exp.ToString) + SW.Close() + FS.Close() + Return False + End Try + End Function +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.Designer.vb new file mode 100644 index 0000000..c799c4e --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.Designer.vb @@ -0,0 +1,32 @@ + _ +Partial Class MyMaskBox + Inherits System.Windows.Forms.MaskedTextBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.resx new file mode 100644 index 0000000..721d5e1 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 394, 208 + + + False + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.vb new file mode 100644 index 0000000..46efff4 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyMaskBox.vb @@ -0,0 +1,190 @@ +Public Class MyMaskBox + Enum Inputtype + = 1 + = 2 + = 3 + ҹ = 5 + 빮 = 6 + End Enum + + Dim ColName As String + Dim Coltype As OleDbType = OleDbType.VarChar + Dim Ditem As Boolean + Dim Prompt As String + Dim WhereState As String = vbNullString + Dim NotNull As Boolean = False + Dim iNTYPE As Inputtype = Inputtype. + Dim DEF_VALUE As String = Me.Text + Protected Var_ViewColNumber As Short + Protected Var_BaseLabel As Label + + _ + Public Property DB_BaseLabel() As Label + Get + Return Var_BaseLabel + End Get + Set(ByVal value As Label) + '//Ͱ Ʈ մϴ. + Var_BaseLabel = value + Me.DB_Prompt = Prompt + End Set + End Property + + + + + _ + Public Property WHERE_DEFAULT_VALUE() As String + Get + Return DEF_VALUE + End Get + Set(ByVal value As String) + DEF_VALUE = value + End Set + End Property + + _ + Public Property Input_type() As Inputtype + Get + Return iNTYPE + End Get + Set(ByVal value As Inputtype) + iNTYPE = value + End Set + End Property + + _ + Public Property DB_NotNull() As Boolean + Get + Return NotNull + End Get + Set(ByVal value As Boolean) + NotNull = value + End Set + End Property + + + _ + Public Property DB_WhereType() As String + Get + Return WhereState + End Get + Set(ByVal value As String) + WhereState = value + End Set + End Property + + _ + Public Property DB_Prompt() As String + Get + Return IIf(Prompt Is vbNullString, DB_ColName, Prompt) + End Get + Set(ByVal value As String) + Prompt = value + End Set + End Property + + _ + Public Property DB_ColName() As String + Get + If ColName = "" Then + Return Me.Name + Else + Return ColName + End If + End Get + Set(ByVal value As String) + ColName = value + End Set + End Property + + _ + Public Property DB_Type() As OleDbType + Get + Return Coltype + End Get + Set(ByVal value As OleDbType) + Coltype = value + End Set + End Property + + _ + Public Property DB_ITEM() As Boolean + Get + Return Ditem + End Get + Set(ByVal value As Boolean) + Ditem = value + End Set + End Property + + ''' + ''' ϰų ȯմϴ. + ''' + ''' + ''' + ''' + _ + Public Property Value() As String + Get + Return Me.Text + End Get + Set(ByVal value As String) + If value.ToUpper = "$$DATE$$" Then + Me.Text = Format(Now, "yyyyMMdd") + Else + Me.Text = value + End If + + End Set + End Property + + Private Sub MyMaskTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) + Me.SelectAll() + End Sub + + Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + Select Case iNTYPE + Case Inputtype.빮 + If Char.IsNumber(e.KeyChar) Then + e.Handled = True + Else + e.KeyChar = Char.ToUpper(e.KeyChar.ToString) + End If + 'If Not Char.IsUpper(e.KeyChar.ToString) Then e.Handled = True + Case Inputtype. + If Char.IsNumber(e.KeyChar) Then e.Handled = True + ' If Not Char.IsLetter(e.KeyChar.ToString) Then e.Handled = True + + Case Inputtype.ҹ + If Char.IsNumber(e.KeyChar) Then + e.Handled = True + Else + e.KeyChar = Char.ToLower(e.KeyChar.ToString) + End If + 'If Not Char.IsLower(e.KeyChar.ToString) Then e.Handled = True + Case Inputtype. + + If Char.IsLetter(e.KeyChar) Then e.Handled = True + End Select + + + End Sub + + Private Sub TextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}") + If e.Alt AndAlso e.KeyCode = Keys.Enter Then SendKeys.Send("+{TAB}") + + + End Sub + + Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) + If Me.NotNull = True AndAlso Me.Text = "" Then + + Me.ErrorProvider1.SetError(Me, " ʵ ݵ ԷµǾմϴ") + Else + Me.ErrorProvider1.Clear() + End If + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.Designer.vb new file mode 100644 index 0000000..080ea7f --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MySearchGrp + Inherits System.Windows.Forms.GroupBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.vb new file mode 100644 index 0000000..21bafb8 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySearchGrp.vb @@ -0,0 +1,184 @@ +Imports System.Text + +Public Class MySearchGrp + + ''' + ''' ü Ŀ ̵մϴ. + ''' + ''' + Public Sub DB_SetFocus() + 'ĵ ߿ 1 ۿ Ŀ ݴϴ. + Dim A As ArrayList = GetSortedItem() + Dim itm As Control = A(0) + Dim ItmType As String = itm.GetType.Name.ToString.ToUpper + Select Case ItmType + Case "TEXTBOX" + CType(itm, MyControlOLEDBv2.MyTextBox).Focus() + Case "CHECKBOX" + CType(itm, MyControlOLEDBv2.MyCheckBox).Focus() + Case "COMBOBOX" + CType(itm, MyControlOLEDBv2.MyCombo).Focus() + End Select + + + End Sub + + ''' + ''' Ǽ ̿Ͽ ĵ 迭(ARRAYLIST) ȯմϴ. + ''' + ''' + ''' + Public Function GetSortedItem() As ArrayList + Dim Iname As String + Dim CAr As New ArrayList + Dim CArC As New ArrayList + + For Each itm As Control In Me.Controls + Iname = itm.GetType.Name.ToString.ToUpper + If Iname = "TEXTBOX" OrElse Iname = "CHECKBOX" OrElse Iname = "COMBOBOX" Then + CAr.Add(itm.TabIndex) + End If + Next + CAr.Sort() + + For i As Integer = 0 To CAr.Count - 1 + For Each itm As Control In Me.Controls + Iname = itm.GetType.Name.ToString.ToUpper + If itm.TabIndex = CAr.Item(i) Then CArC.Add(itm) + Next + Next + Return CArC + End Function + + + ''' + ''' WHERE SQL մϴ.(PROMPT=TRUE ̸ WHERE پ ȯ˴ϴ) + ''' + ''' + ''' + Public Function GetWhere(Optional ByVal HEADER As Boolean = False, Optional ByVal AddParam As Boolean = True, Optional ByVal ResetParam As Boolean = True) As String + 'where kcode = >= <= != ̷°  . + 'where Db_item Ÿ true ΰ͵鸸 ۼѴ. + Dim SQL As New StringBuilder(vbNullString) + Dim CNT As Integer = 0 + + If ResetParam Then + ' MsgBox("Ķ ") + 'DB.MyParam_Reset() + + End If + + For Each ITM As Object In Me.Controls + + ' MsgBox(ITM.GetType.Name) + + Select Case ITM.GetType.Name.ToUpper + Case "MYMASKTEXTBOX" + Dim A As MyControlOLEDBv2.MyMaskBox = ITM + If A.DB_ITEM AndAlso A.Text.Trim <> "" Then + '⺻ WHERE_DEFAULT_VALUE Ȯմϴ. ̵Ǿٸ WHERE մϴ + If A.Text <> A.WHERE_DEFAULT_VALUE Then + CNT += 1 + If CNT <> 1 Then SQL.Append(" AND ") + If Not AddParam Then '//ڴ 'ٿش + If A.DB_Type = OleDbType.VarChar Then + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & "'" & A.Value & "'") + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & A.Value) + End If + + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & " :S" & CNT) + End If + 'If AddParam Then DB.MyParam_Add(" :S" & CNT, A.DB_Type, A.Value) + End If + End If + Case "TEXTBOX" + + Dim A As MyControlOLEDBv2.MyTextBox = ITM + If A.DB_ITEM AndAlso A.Text.Trim <> "" Then + '⺻ WHERE_DEFAULT_VALUE Ȯմϴ. ̵Ǿٸ WHERE մϴ + If A.Text <> A.WHERE_DEFAULT_VALUE Then + CNT += 1 + If CNT <> 1 Then SQL.Append(" AND ") + If Not AddParam Then + If A.DB_Type = OleDbType.VarChar Then + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & "'" & A.Value & "'") + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & A.Value) + End If + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & " :S" & CNT) + End If + 'If AddParam Then DB.MyParam_Add(" :S" & CNT, A.DB_Type, A.Value) + End If + End If + + + Case "CHECKBOX" + + Dim A As MyControlOLEDBv2.MyCheckBox = ITM + If A.DB_ITEM Then + '⺻ WHERE_DEFAULT_VALUE Ȯմϴ. ̵Ǿٸ WHERE մϴ + CNT += 1 + If CNT <> 1 Then SQL.Append(" AND ") + If Not AddParam Then + If A.DB_Type = OleDbType.VarChar Then + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & "'" & A.Value & "'") + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & A.Value) + End If + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & " :S" & CNT) + End If + 'If AddParam Then DB.MyParam_Add(" :S" & CNT, A.DB_Type, A.Value) + + End If + + Case "COMBOBOX" + + Dim A As MyControlOLEDBv2.MyCombo = ITM + If A.DB_ITEM Then + '⺻ WHERE_DEFAULT_VALUE Ȯմϴ. ̵Ǿٸ WHERE մϴ + If (A.DropDownStyle <> ComboBoxStyle.DropDownList AndAlso A.Text.Trim <> "") OrElse (A.DropDownStyle = ComboBoxStyle.DropDownList AndAlso Not (A.SelectedIndex = 0 AndAlso A.SelectedValue = -1)) Then + CNT += 1 + If CNT <> 1 Then SQL.Append(" AND ") + If Not AddParam Then + If A.DB_Type = OleDbType.VarChar Then + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & "'" & A.Value & "'") + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & A.Value) + End If + Else + SQL.Append(A.DB_ColName & Space(1) & A.DB_WhereType & " :S" & CNT) + End If + ' If AddParam Then DB.MyParam_Add(" :S" & CNT, A.DB_Type, A.Value) + End If + End If + End Select + Next + + + + If SQL.ToString.Trim = "" Then '// ƿ̴. + Return vbNullString + Else + Return IIf(HEADER, " WHERE " & SQL.ToString, SQL.ToString) + End If + + End Function + + ''' + ''' ˻ ޺ڽ մϴ. + ''' + ''' + Public Sub UpdateComboBox() + For Each Itm As Control In Me.Controls + Select Case Itm.GetType.Name.ToString.ToUpper + Case "COMBOBOX" + CType(Itm, MyControlOLEDBv2.MyCombo).UpdateItem() + End Select + Next + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.Designer.vb new file mode 100644 index 0000000..8826488 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.Designer.vb @@ -0,0 +1,26 @@ + _ +Partial Class MySortGrp + Inherits System.Windows.Forms.GroupBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + components = New System.ComponentModel.Container() + ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + End Sub + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.vb new file mode 100644 index 0000000..0e73ac3 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MySortGrp.vb @@ -0,0 +1,120 @@ +Imports System.Text +Imports System.IO + +Public Class MySortGrp + Public Sub SAVE_Setting() + Dim a As New MyINI2(My.Application.Info.DirectoryPath & "\Setting.INI") + For Each C As Control In Me.Controls + If C.GetType.Name.ToUpper = "CHECKBOX" Then + a.Write(Me.Parent.Name & "-" & Me.Name, C.Name, CType(C, MyControlOLEDBv2.MyCheckBox).CheckState.ToString) + End If + Next + End Sub + + Public Sub LOAD_Setting() + Dim FILEname As String = My.Application.Info.DirectoryPath & "\Setting.INI" + Dim a As New MyINI2(FILEname) + If Not File.Exists(FILEname) Then + MsgBox("ʺ ʽϴ", MsgBoxStyle.Critical, "ʺ-") + SAVE_Setting() + Return + End If + 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) + Dim Getdata As String + For Each C As Control In Me.Controls + If C.GetType.Name.ToUpper = "CHECKBOX" Then + Try + Getdata = a.Read(Me.Parent.Name & "-" & Me.Name, C.Name) + Select Case Getdata.ToUpper + Case "UNCHECKED" + CType(C, MyControlOLEDBv2.MyCheckBox).CheckState = CheckState.Unchecked + Case "INDETERMINATE" + CType(C, MyControlOLEDBv2.MyCheckBox).CheckState = CheckState.Indeterminate + Case "CHECKED" + CType(C, MyControlOLEDBv2.MyCheckBox).CheckState = CheckState.Checked + End Select + Catch ex As Exception + + End Try + End If + Next + End Sub + + + ''' + ''' ü Ŀ ̵մϴ. + ''' + ''' + Public Sub DB_SetFocus() + 'ĵ ߿ 1 ۿ Ŀ ݴϴ. + Dim A As ArrayList = GetSortedItem() + Dim itm As Control = A(0) + Dim ItmType As String = itm.GetType.Name.ToString.ToUpper + Select Case ItmType + Case "TEXTBOX" + CType(itm, MyControlOLEDBv2.MyTextBox).Focus() + Case "CHECKBOX" + CType(itm, MyControlOLEDBv2.MyCheckBox).Focus() + Case "COMBOBOX" + CType(itm, MyControlOLEDBv2.MyCombo).Focus() + End Select + + + End Sub + + ''' + ''' SQL ȯմϴ.(PROMPT=TRUE ̸ ORDER BY ٿ ȯ˴ϴ.) + ''' + ''' + ''' + Public Function GetSort(Optional ByVal HEADER As Boolean = False) As String + Dim SQL As New StringBuilder() + Dim First As Boolean = False + Dim Ar As ArrayList = GetSortedItem() + + For Each ITM As MyControlOLEDBv2.MyCheckBox In Ar + ' MsgBox(ITM.DB_ColName) + If ITM.Value <> Nothing Then + If Not First Then + First = True + SQL.Append(Space(1) & CType(ITM, MyControlOLEDBv2.MyCheckBox).DB_ColName & Space(1) & CType(ITM, MyControlOLEDBv2.MyCheckBox).Value) + Else + SQL.Append(Space(1) & "," & CType(ITM, MyControlOLEDBv2.MyCheckBox).DB_ColName & Space(1) & CType(ITM, MyControlOLEDBv2.MyCheckBox).Value) + End If + End If + Next + + If SQL.ToString.Trim = "" Then + Return vbNullString + Else + Return IIf(HEADER, " ORDER BY " & SQL.ToString, SQL.ToString) + End If + End Function + + ''' + ''' Ǽ ĵǾִ ȯմϴ + ''' + ''' + ''' + Private Function GetSortedItem() As ArrayList + Dim Iname As String + Dim CAr As New ArrayList + Dim CArC As New ArrayList + + For Each itm As Control In Me.Controls + Iname = itm.GetType.Name.ToString.ToUpper + If Iname = "CHECKBOX" Then + CAr.Add(itm.TabIndex) + End If + Next + CAr.Sort() + + For i As Integer = 0 To CAr.Count - 1 + For Each itm As Control In Me.Controls + Iname = itm.GetType.Name.ToString.ToUpper + If itm.TabIndex = CAr.Item(i) Then CArC.Add(itm) + Next + Next + Return CArC + End Function +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.Designer.vb new file mode 100644 index 0000000..3945240 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.Designer.vb @@ -0,0 +1,32 @@ + _ +Partial Class MyTextBox + Inherits System.Windows.Forms.TextBox + + 'UserControl은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider(Me.components) + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + CType(Me.ErrorProvider1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider + +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.resx new file mode 100644 index 0000000..94a0deb --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 511, 180 + + + False + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.vb new file mode 100644 index 0000000..8131bfd --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/MyTextBox.vb @@ -0,0 +1,233 @@ +Imports System.Drawing +Public Class MyTextBox + + Enum Inputtype + = 1 + = 2 + = 3 + ҹ = 5 + 빮 = 6 + ڴ빮 = 7 + ڼҹ = 8 + End Enum + + Dim ColName As String + Dim Coltype As OleDbType = OleDbType.VarChar + Dim Ditem As Boolean + Dim Prompt As String + Dim WhereState As String = vbNullString + Dim NotNull As Boolean = False + Dim iNTYPE As Inputtype = Inputtype. + Dim DEF_VALUE As String = Me.Text + + Protected Var_ViewColNumber As Short + Protected Var_BaseLabel As Label + + Public Sub New() + + ' ȣ ̳ʿ ʿմϴ. + InitializeComponent() + + ' InitializeComponent() ȣ ڿ ʱȭ ڵ带 ߰Ͻʽÿ. + + End Sub + + _ + Public Property DB_BaseLabel() As Label + Get + Return Var_BaseLabel + End Get + Set(ByVal value As Label) + '//Ͱ Ʈ մϴ. + Var_BaseLabel = value + Me.DB_Prompt = Prompt + End Set + End Property + + + _ + Public Property WHERE_DEFAULT_VALUE() As String + Get + Return DEF_VALUE + End Get + Set(ByVal value As String) + DEF_VALUE = value + End Set + End Property + + _ + Public Property Input_type() As Inputtype + Get + Return iNTYPE + End Get + Set(ByVal value As Inputtype) + iNTYPE = value + End Set + End Property + + _ + Public Property DB_NotNull() As Boolean + Get + Return NotNull + End Get + Set(ByVal value As Boolean) + NotNull = value + End Set + End Property + + + _ + Public Property DB_WhereType() As String + Get + Return WhereState + End Get + Set(ByVal value As String) + WhereState = value + End Set + End Property + + _ + Public Property DB_Prompt() As String + Get + Return IIf(Prompt Is vbNullString, DB_ColName, Prompt) + End Get + Set(ByVal value As String) + '//Ʈ ٲ ̺ ؽƮ ٲش. + Prompt = value + Try + Me.DB_BaseLabel.Text = value '& "(&" & Var_ViewColNumber & ")" + Catch ex As Exception + + End Try + End Set + End Property + + _ + Public Property DB_ColName() As String + Get + If ColName = "" Then + Return Me.Name + Else + Return ColName + End If + End Get + Set(ByVal value As String) + ColName = value + End Set + End Property + + _ + Public Property DB_Type() As OleDbType + Get + Return Coltype + End Get + Set(ByVal value As OleDbType) + Coltype = value + End Set + End Property + + _ + Public Property DB_ITEM() As Boolean + Get + Return Ditem + End Get + Set(ByVal value As Boolean) + Ditem = value + End Set + End Property + + _ + Public Property Value() As String + Get + If Me.DB_Type = OleDbType.Numeric AndAlso Me.Text.Trim = "" Then + Return 0 + End If + Return Me.Text + End Get + Set(ByVal value As String) + If value.ToUpper = "$$DATE$$" Then + Me.Text = Format(Now, "yyyyMMdd") + Else + Me.Text = value + End If + + End Set + End Property + + Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) + If Me.Text.Length > 0 Then + Me.SelectAll() + End If + End Sub + + Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) + Select Case iNTYPE + Case Inputtype.빮 + If Char.IsNumber(e.KeyChar) Then + e.Handled = True + Else + e.KeyChar = Char.ToUpper(e.KeyChar.ToString) + End If + 'If Not Char.IsUpper(e.KeyChar.ToString) Then e.Handled = True + Case Inputtype. + If Char.IsNumber(e.KeyChar) Then e.Handled = True + ' If Not Char.IsLetter(e.KeyChar.ToString) Then e.Handled = True + + Case Inputtype.ҹ + If Char.IsNumber(e.KeyChar) Then + e.Handled = True + Else + e.KeyChar = Char.ToLower(e.KeyChar.ToString) + End If + 'If Not Char.IsLower(e.KeyChar.ToString) Then e.Handled = True + Case Inputtype. + + If Char.IsLetter(e.KeyChar) Then e.Handled = True + + Case Inputtype.ڴ빮 + e.KeyChar = Char.ToUpper(e.KeyChar.ToString) + + Case Inputtype.ڼҹ + e.KeyChar = Char.ToLower(e.KeyChar.ToString) + + End Select + + + End Sub + + Private Sub TextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) + If e.KeyCode = Keys.Enter OrElse e.KeyCode = Keys.Down Then SendKeys.Send("{TAB}") + + 'If e.KeyCode = Keys.Right AndAlso Me.SelectionStart = Me.Text.Length Then '//ʹưϰ쿡 Ŀġ λ¿ ̴. + 'SendKeys.Send("{TAB}") + 'End If + + If (e.Shift AndAlso e.KeyCode = Keys.Enter) OrElse e.KeyCode = Keys.Up Then + SendKeys.Send("+{TAB}") + End If + + 'If e.KeyCode = Keys.Left AndAlso Me.Text.Length <= 0 Then + ' SendKeys.Send("+{TAB}") + ' End If + + 'If e.KeyCode = Keys.Left AndAlso Me.SelectionStart = 0 Then + ' SendKeys.Send("+{TAB}") + ' End If + + + + End Sub + + Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) + Me.BackColor = IIf(Me.ReadOnly, Color.Gray, Color.White) + If Me.NotNull = True AndAlso Me.Text = "" Then + Me.ErrorProvider1.SetError(Me, " ʵ ݵ ԷµǾմϴ") + Me.BackColor = Color.Tomato + Else + Me.ErrorProvider1.Clear() + Me.BackColor = IIf(Me.ReadOnly, Color.Gray, Color.White) + 'Me.BackColor = Color.White + End If + + End Sub +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/close_32.png b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/close_32.png new file mode 100644 index 0000000..1b61812 Binary files /dev/null and b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/close_32.png differ diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/new_32.png b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/new_32.png new file mode 100644 index 0000000..33a39df Binary files /dev/null and b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/new_32.png differ diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/srch_32.png b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/srch_32.png new file mode 100644 index 0000000..bd29900 Binary files /dev/null and b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/Resources/srch_32.png differ diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.Designer.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.Designer.vb new file mode 100644 index 0000000..1205602 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.Designer.vb @@ -0,0 +1,235 @@ + _ +Partial Class lov + Inherits System.Windows.Forms.Form + + 'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다. + _ + 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 디자이너를 사용하십시오. + '코드 편집기를 사용하여 수정하지 마십시오. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container + Dim TipAppearance1 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance + Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel + Me.fpspread1 = New MyControlOLEDBv2.MyFpoint + Me.fpspread1_Sheet1 = New FarPoint.Win.Spread.SheetView + Me.Button1 = New System.Windows.Forms.Button + Me.tb_searchtext = New System.Windows.Forms.TextBox + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip + Me.bt_cancel = New System.Windows.Forms.ToolStripButton + Me.bt_ok = New System.Windows.Forms.ToolStripButton + Me.lb_msg = New System.Windows.Forms.ToolStripLabel + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.TableLayoutPanel1.SuspendLayout() + CType(Me.fpspread1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.fpspread1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ToolStrip1.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TableLayoutPanel1 + ' + Me.TableLayoutPanel1.ColumnCount = 2 + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!)) + Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 666.0!)) + Me.TableLayoutPanel1.Controls.Add(Me.fpspread1, 1, 0) + Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0) + Me.TableLayoutPanel1.Controls.Add(Me.tb_searchtext, 1, 0) + Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.TableLayoutPanel1.Name = "TableLayoutPanel1" + Me.TableLayoutPanel1.RowCount = 1 + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 45.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 247.0!)) + Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) + Me.TableLayoutPanel1.Size = New System.Drawing.Size(720, 476) + Me.TableLayoutPanel1.TabIndex = 3 + ' + 'fpspread1 + ' + Me.fpspread1.AAutoAddrowInLast = Nothing + Me.fpspread1.About = "3.0.2003.2005" + Me.fpspread1.AccessibleDescription = "fpspread1, Sheet1, Row 0, Column 0, " + Me.fpspread1.BackColor = System.Drawing.SystemColors.Control + Me.fpspread1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.TableLayoutPanel1.SetColumnSpan(Me.fpspread1, 2) + Me.fpspread1.CurrentDel = False + Me.fpspread1.DeleteKey = False + Me.fpspread1.Dock = System.Windows.Forms.DockStyle.Fill + Me.fpspread1.EditFromSpace = True + Me.fpspread1.EnableCrossSheetReference = False + Me.fpspread1.FIRST_FOCUSINDEX = 0 + Me.fpspread1.HorizontalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fpspread1.Location = New System.Drawing.Point(3, 48) + Me.fpspread1.Name = "fpspread1" + Me.fpspread1.NextRow_Index = -1 + Me.fpspread1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.fpspread1.SameRowheight = True + Me.fpspread1.SelectionBlockOptions = FarPoint.Win.Spread.SelectionBlockOptions.Rows + Me.fpspread1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.fpspread1_Sheet1}) + Me.fpspread1.Size = New System.Drawing.Size(714, 425) + Me.fpspread1.TabIndex = 0 + TipAppearance1.BackColor = System.Drawing.SystemColors.Info + TipAppearance1.Font = New System.Drawing.Font("굴림", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + TipAppearance1.ForeColor = System.Drawing.SystemColors.InfoText + Me.fpspread1.TextTipAppearance = TipAppearance1 + Me.fpspread1.VerticalScrollBarPolicy = FarPoint.Win.Spread.ScrollBarPolicy.AsNeeded + Me.fpspread1.선택줄번호 = CType(-1, Short) + ' + 'fpspread1_Sheet1 + ' + Me.fpspread1_Sheet1.Reset() + Me.fpspread1_Sheet1.SheetName = "Sheet1" + 'Formulas and custom names must be loaded with R1C1 reference style + Me.fpspread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.R1C1 + Me.fpspread1_Sheet1.Columns.Get(0).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(0).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(1).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(1).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(2).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(2).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(3).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(3).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(4).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(4).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(5).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(5).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(6).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(6).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(7).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(7).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(8).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(8).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(9).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(9).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(10).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(10).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(11).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(11).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(12).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(12).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(13).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(13).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(14).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(14).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(15).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(15).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(16).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(16).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(17).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(17).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(18).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(18).AllowAutoSort = True + Me.fpspread1_Sheet1.Columns.Get(19).AllowAutoFilter = True + Me.fpspread1_Sheet1.Columns.Get(19).AllowAutoSort = True + Me.fpspread1_Sheet1.OperationMode = FarPoint.Win.Spread.OperationMode.RowMode + Me.fpspread1_Sheet1.Protect = False + Me.fpspread1_Sheet1.RowHeader.Columns.Default.Resizable = False + Me.fpspread1_Sheet1.ReferenceStyle = FarPoint.Win.Spread.Model.ReferenceStyle.A1 + ' + 'Button1 + ' + Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.Button1.Image = Global.MyControlOLEDBv2.My.Resources.Resources.srch_32 + Me.Button1.Location = New System.Drawing.Point(3, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(48, 39) + Me.Button1.TabIndex = 2 + Me.Button1.UseVisualStyleBackColor = True + ' + 'tb_searchtext + ' + Me.tb_searchtext.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper + Me.tb_searchtext.Dock = System.Windows.Forms.DockStyle.Fill + Me.tb_searchtext.Font = New System.Drawing.Font("맑은 고딕", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.tb_searchtext.Location = New System.Drawing.Point(57, 3) + Me.tb_searchtext.Name = "tb_searchtext" + Me.tb_searchtext.Size = New System.Drawing.Size(660, 35) + Me.tb_searchtext.TabIndex = 3 + Me.tb_searchtext.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(32, 32) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.bt_cancel, Me.bt_ok, Me.lb_msg}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 476) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(720, 39) + Me.ToolStrip1.TabIndex = 4 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'bt_cancel + ' + Me.bt_cancel.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.bt_cancel.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bt_cancel.Image = Global.MyControlOLEDBv2.My.Resources.Resources.close_32 + Me.bt_cancel.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_cancel.Name = "bt_cancel" + Me.bt_cancel.Size = New System.Drawing.Size(98, 36) + Me.bt_cancel.Text = "취소(&X)" + ' + 'bt_ok + ' + Me.bt_ok.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.bt_ok.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.bt_ok.Image = Global.MyControlOLEDBv2.My.Resources.Resources.new_32 + Me.bt_ok.ImageTransparentColor = System.Drawing.Color.Magenta + Me.bt_ok.Name = "bt_ok" + Me.bt_ok.Size = New System.Drawing.Size(100, 36) + Me.bt_ok.Text = "확인(&O)" + ' + 'lb_msg + ' + Me.lb_msg.Name = "lb_msg" + Me.lb_msg.Size = New System.Drawing.Size(23, 36) + Me.lb_msg.Text = ">>" + ' + 'lov + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(720, 515) + Me.Controls.Add(Me.TableLayoutPanel1) + Me.Controls.Add(Me.ToolStrip1) + Me.Name = "lov" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "값을 선택하세요" + Me.TableLayoutPanel1.ResumeLayout(False) + Me.TableLayoutPanel1.PerformLayout() + CType(Me.fpspread1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.fpspread1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel + Friend WithEvents fpspread1 As MyControlOLEDBv2.MyFpoint + Friend WithEvents fpspread1_Sheet1 As FarPoint.Win.Spread.SheetView + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents tb_searchtext As System.Windows.Forms.TextBox + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents bt_cancel As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents bt_ok As System.Windows.Forms.ToolStripButton + Friend WithEvents lb_msg As System.Windows.Forms.ToolStripLabel +End Class diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.resx b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.resx new file mode 100644 index 0000000..0605456 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.resx @@ -0,0 +1,129 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 679, 17 + + + 969, 17 + + + 830, 17 + + \ No newline at end of file diff --git a/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.vb b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.vb new file mode 100644 index 0000000..4458a85 --- /dev/null +++ b/Sub/MyControl(OleDb)v2/MyControlOLEDBv2/lov.vb @@ -0,0 +1,200 @@ +Public Class lov + Public RES As Integer = 0 + Public SelRow As DataRowView + Dim first As Boolean = False + ' Dim DA As OracleClient.OracleDataAdapter + ' Dim vCMD As OracleClient.OracleCommand + Dim Dt As New DataTable + Dim VSql As String + Dim work As Boolean + Dim A As New System.Text.StringBuilder + +#Region "New Function" + Public Sub New() + InitializeComponent() + End Sub + Public Sub New(ByVal Dt As DataTable) + ' 이 호출은 Windows Form 디자이너에 필요합니다. + InitializeComponent() + Me.BindingSource1.DataSource = Dt + Me.fpspread1.DataSource = Me.BindingSource1 + 'Me.OK_Button.PerformClick() + ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + End Sub + 'Public Sub New(ByVal Connection As OracleClient.OracleConnection, ByVal Sql As String) + ' ' 이 호출은 Windows Form 디자이너에 필요합니다. + ' InitializeComponent() + ' DA = New OracleClient.OracleDataAdapter(Sql, Connection) + ' Dt = New DataTable + + ' DA.Fill(Dt) + ' DA = Nothing + + ' Me.BindingSource1.DataSource = Dt + ' Me.fpspread1.DataSource = Me.BindingSource1 + + ' 'Me.OK_Button.PerformClick() + ' ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + 'End Sub + 'Public Sub New(ByVal cmd As OracleClient.OracleCommand) + ' ' 이 호출은 Windows Form 디자이너에 필요합니다. + ' InitializeComponent() + + + ' vCMD = cmd + ' DA = New OracleClient.OracleDataAdapter(vCMD) + ' Dt = New DataTable + + ' DA.Fill(Dt) + ' DA = Nothing + + ' Me.BindingSource1.DataSource = Dt + ' Me.fpspread1.DataSource = Me.BindingSource1 + + ' 'Me.OK_Button.PerformClick() + ' ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. + 'End Sub +#End Region + +#Region "OK/CANCEL 버튼" + Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_ok.Click + SelRow = Me.BindingSource1.Current + Me.DialogResult = System.Windows.Forms.DialogResult.OK + Me.Close() + End Sub + + Private Sub ToolStripButton1_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 +#End Region + 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) + ElseIf Src.GetType.Name.ToUpper = "LABEL" Then + CType(Src, Label).Text = "▶ " & MSG & Space(1) & "(" & Now.ToString & ")" + End If + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) + End Sub + Public Sub NOTICE(ByVal MSG As String, ByVal FCOLOR As Color, ByVal Src As Windows.Forms.ToolStripStatusLabel) + Src.Text = "▶ " & MSG & Space(1) & "(" & Now.ToString & ")" + Src.ForeColor = FCOLOR + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) + End Sub + Public Sub NOTICE(ByVal MSG As String, ByVal FCOLOR As Color, ByVal Src As Windows.Forms.ToolStripLabel) + Src.Text = "▶ " & MSG & Space(1) & "(" & Now.ToString & ")" + Src.ForeColor = FCOLOR + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) + End Sub + Public Sub NoticeDel(ByVal Src As Windows.Forms.ToolStripStatusLabel) + Src.Text = "▶" + End Sub + Private Sub fpspread1_CellDoubleClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles fpspread1.CellDoubleClick + Me.bt_ok.PerformClick() + End Sub + + 'Private Sub fpspread1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles fpspread1.EnterCell + ' NOTICE(Me.fpspread1_Sheet1.ActiveRowIndex & "/" & Me.fpspread1_Sheet1.ActiveColumnIndex & " : 엔터(ENTER)키는 현재항목을 선택 , ESC 키를 누르면 검색창으로 이동합니다.", Color.Blue, Me.lb_msg) + 'End Sub + + Private Sub fpspread1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles fpspread1.GotFocus + If Me.fpspread1_Sheet1.Rows.Count = 0 Then + NOTICE("선택 가능한 목록이 없습니다", Color.Red, Me.lb_msg) + Me.tb_searchText.Focus() + Else + NOTICE("엔터(ENTER)키는 현재항목을 선택 , ESC 키를 누르면 검색창으로 이동합니다.", Color.Blue, Me.lb_msg) + 'MsgBox("sdf") + + End If + End Sub + + Private Sub Lov_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated + + Select Case Me.fpspread1.ActiveSheet.RowCount + Case 0 + Me.bt_cancel.PerformClick() + Case 1 + Me.bt_ok.PerformClick() + Case Else + Me.tb_searchText.Focus() + End Select + End Sub + + ''' + ''' 사용하지않음 + ''' + ''' + Private Sub FindStr() + work = True + Dim Frow, Fcol As Integer + Dim Colname As String = Me.fpspread1.ActiveSheet.Columns(Me.fpspread1.ActiveSheet.ActiveColumnIndex).Label + Dim SearchStr As String = InputBox("[" & Colname & "] 열에서 검색할 문자를 입력하세요.", "검색문자를 입력하세요") + Me.fpspread1.Search(Me.fpspread1.ActiveSheetIndex, SearchStr, False, False, False, True, 0, Me.fpspread1.ActiveSheet.ActiveColumnIndex, Me.fpspread1.ActiveSheet.RowCount, Me.fpspread1.ActiveSheet.ActiveColumnIndex, Frow, Fcol) + If Frow >= 0 AndAlso Fcol >= 0 Then '//검색됫다면 + Me.first = True + Me.fpspread1.ActiveSheet.SetActiveCell(Frow, Fcol) + SendKeys.Send("{RIGHT}") + SendKeys.Send("{LEFT}") + Me.lb_msg.Text = "줄번호 = " & Me.fpspread1.ActiveSheet.ActiveRowIndex + 1 + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation) + Else + Me.lb_msg.Text = SearchStr & "로 검색된 값이 없습니다" + My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) + + End If + End Sub + + + Private Sub Lov_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load + Me.fpspread1.EnterToNextItem() + End Sub + + ''' + ''' where 절을 생성한후 리턴(모든 열에대한 같은 where like 절 + ''' + ''' + ''' + Private Function WhereState() As String + A.Remove(0, A.Length) + For i As Integer = 0 To Me.Dt.Columns.Count - 1 + If Dt.Columns(i).DataType.Name.ToUpper = "STRING" Then + A.Append(IIf(i = 0, "", Space(1) & "or ") & Dt.Columns(i).Caption & " like '" & Me.tb_searchtext.Text & "%'") + End If + + Next + + Return A.ToString + End Function + + Private Sub fpspread1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles fpspread1.KeyUp + Select Case e.KeyCode + Case Keys.Escape + Me.tb_searchtext.Focus() + Case Keys.Enter + Me.bt_ok.PerformClick() + End Select + End Sub + + Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_searchtext.GotFocus + NOTICE("방향키(↓)를 누르면 하단목록으로 이동합니다", Color.Blue, Me.lb_msg) + End Sub + + Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_searchtext.KeyDown + Select Case e.KeyCode + Case Keys.Down + Me.fpspread1.Focus() + If Me.fpspread1_Sheet1.Rows.Count = 1 Then Me.bt_ok.PerformClick() '//한것박에없을경우는 바로 그것이므로 바로 커밋한다. + Case Keys.Escape + Me.bt_cancel.PerformClick() + End Select + End Sub + + Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_searchtext.TextChanged + Me.BindingSource1.Filter = Me.WhereState + End Sub + + Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click + Me.tb_searchtext.Focus() + End Sub +End Class \ No newline at end of file diff --git a/fpsetting_main.xml b/fpsetting_main.xml new file mode 100644 index 0000000..0c354eb --- /dev/null +++ b/fpsetting_main.xml @@ -0,0 +1,3713 @@ + + + + + + 0 + True + True + True + False + False + True + False + False + True + Double click a column to group by that column. + True + True + Control + + Tile + Separate + No + True + Off + Off + True + True + Fixed3D + Always + True + AllHeaders + False + Leading + Always + False + True + -1 + AsNeeded + 0 + True + False + No + Leading + Always + Cells, Rows, Columns, Sheet + 1 + + Control + False + Always + + + + + + + WithHorizontalScrollBar + AsNeeded + 0.5 + + Info + InfoText + + 굴림 + 9 + False + 129 + False + False + False + Point + False + + + 500 + Off + -1 + AsNeeded + Auto + + + 3 + + + + + #ff7fa1d1 + #ffa1badd + #ff7fa1d1 + #ffa1badd + #ffd8e7fa + #ffd5e5f9 + #ffb6d2f5 + #ffd9e7f9 + White + White + White + #ffb7d2f4 + #ff92a5c7 + Black + LightBlue + #ffd8e7fa + #ffd5e5f9 + #ffb6d2f5 + #ffd9e7f9 + #ffeaf1f9 + #ffd8e4f4 + #ffdbe6f5 + #ffe8eff9 + #ffc7d9f3 + #ffc3d6f2 + #ff92b6e8 + #ffbed4f1 + #ff92a1bd + #ff688caf + #ffd7e6f7 + #ffd7e6f7 + #ff688caf + White + #ffa1badd + #ffa1badd + #ffd5e5f9 + #ffd9e7f9 + #ffd8e4f4 + #ffb7d2f4 + #ffd5e5f9 + #ffd9e7f9 + #ffd8e4f4 + #ffe8eff9 + #ffc3d6f2 + #ffbed4f1 + #ffd7e6f7 + Black + #ff7f9db9 + SlateBlue + ControlDark + Trapezoid + Enhanced + Standard + + + + + + + False + + + + + + + Auto + + + #ffaab9cd + #ff9dbce4 + #ff669ade + #ff556991 + #ff3c6eaf + #ff17498a + #ff424b63 + #ff424b63 + #ff424b63 + #ff7396be + #ff4b5a6e + + + + + + + + + + Auto + + + #ffaab9cd + #ff9dbce4 + #ff669ade + #ff556991 + #ff3c6eaf + #ff17498a + #ff424b63 + #ff424b63 + #ff424b63 + #ff7396be + #ff4b5a6e + + + + + + + Sheet1 + + + + +
+