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

170717_220 버젼

Browse Source
This commit is contained in:
chi
2019-05-03 22:28:16 +09:00
commit 963a673598
160 changed files with 81703 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

935
Epole/업로드폼/XLSImport.Designer.vb generated Normal file
View File

@@ -0,0 +1,935 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class XLSImport
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(XLSImport))
Dim TipAppearance1 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance
Dim TipAppearance2 As FarPoint.Win.Spread.TipAppearance = New FarPoint.Win.Spread.TipAppearance
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip
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.ToolStripButton3 = New System.Windows.Forms.ToolStripButton
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 ArinNewFp.NewFp
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.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel
Me.CustFP2 = New ArinNewFp.NewFp
Me.IreaDataSet = New EpoleNetv3.ireaDataSet
Me.ta = New EpoleNetv3.ireaDataSetTableAdapters.Detail_tongsinTableAdapter
Me.CustFP1_Sheet1 = New FarPoint.Win.Spread.SheetView
Me.ImpCtl2 = New NewControlGroup.NewImpCnt2
Me.ImpCtl3 = New NewControlGroup.NewImpCnt2
Me.ImpCtl4 = New NewControlGroup.NewImpCnt2
Me.ImpCtl5 = New NewControlGroup.NewImpCnt2
Me.ImpCtl6 = New NewControlGroup.NewImpCnt2
Me.ImpCtl7 = New NewControlGroup.NewImpCnt2
Me.ImpCtl8 = New NewControlGroup.NewImpCnt2
Me.ImpCtl9 = New NewControlGroup.NewImpCnt2
Me.ImpCtl10 = New NewControlGroup.NewImpCnt2
Me.ImpCtl11 = New NewControlGroup.NewImpCnt2
Me.ImpCtl12 = New NewControlGroup.NewImpCnt2
Me.ImpCtl13 = New NewControlGroup.NewImpCnt2
Me.ImpCtl14 = New NewControlGroup.NewImpCnt2
Me.ImpCtl15 = New NewControlGroup.NewImpCnt2
Me.ImpCtl16 = New NewControlGroup.NewImpCnt2
Me.ImpCtl17 = New NewControlGroup.NewImpCnt2
Me.ImpCtl18 = New NewControlGroup.NewImpCnt2
Me.ImpCtl19 = New NewControlGroup.NewImpCnt2
Me.ImpCtl20 = New NewControlGroup.NewImpCnt2
Me.CustFP2_Sheet1 = New FarPoint.Win.Spread.SheetView
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.CustFP1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.TableLayoutPanel3.SuspendLayout()
CType(Me.CustFP2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CustFP1_Sheet1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CustFP2_Sheet1, 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_cnt, Me.LB_DB, Me.lb_file, Me.lb_reccnt, Me.lb_msg})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 663)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1001, 22)
Me.StatusStrip1.TabIndex = 1
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_DB
'
Me.LB_DB.Name = "LB_DB"
Me.LB_DB.Size = New System.Drawing.Size(17, 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(17, 17)
Me.lb_file.Text = "★"
'
'lb_reccnt
'
Me.lb_reccnt.Name = "lb_reccnt"
Me.lb_reccnt.Size = New System.Drawing.Size(33, 17)
Me.lb_reccnt.Text = "(0/0)"
'
'lb_msg
'
Me.lb_msg.Name = "lb_msg"
Me.lb_msg.Size = New System.Drawing.Size(17, 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.ToolStripButton3})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(1001, 39)
Me.ToolStrip2.TabIndex = 12
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(131, 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(53, 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)
'
'ToolStripButton3
'
Me.ToolStripButton3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton3.BackColor = System.Drawing.Color.Transparent
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.EpoleNetv3.My.Resources.Resources.stop_32
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(88, 36)
Me.ToolStripButton3.Text = "닫기(&X)"
Me.ToolStripButton3.ToolTipText = "현재 창을 닫습니다"
'
'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(137, 136)
'
'lStripMenuItem1
'
Me.lStripMenuItem1.Name = "lStripMenuItem1"
Me.lStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.lStripMenuItem1.Text = "선택반전"
'
'gsdfolStripMenuItem1
'
Me.gsdfolStripMenuItem1.Name = "gsdfolStripMenuItem1"
Me.gsdfolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.gsdfolStripMenuItem1.Text = "전체선택"
'
'htrtripMenuItem
'
Me.htrtripMenuItem.Name = "htrtripMenuItem"
Me.htrtripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.htrtripMenuItem.Text = "선택해제"
'
'gfdsolStripMenuItem1
'
Me.gfdsolStripMenuItem1.Name = "gfdsolStripMenuItem1"
Me.gfdsolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.gfdsolStripMenuItem1.Text = "전체삭제"
'
'olStripMenuItem1
'
Me.olStripMenuItem1.Name = "olStripMenuItem1"
Me.olStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.olStripMenuItem1.Text = "선택삭제"
'
'jytripMenuItem1
'
Me.jytripMenuItem1.Name = "jytripMenuItem1"
Me.jytripMenuItem1.Size = New System.Drawing.Size(136, 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.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
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.ToolStrip1, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.TableLayoutPanel3, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.CustFP2, 0, 3)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 42)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 4
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 160.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 60.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(1001, 616)
Me.TableLayoutPanel1.TabIndex = 17
'
'CustFP1
'
Me.CustFP1.AAutoAddrowInLast = Nothing
Me.CustFP1.About = "3.0.2003.2005"
Me.CustFP1.AccessibleDescription = "CustFP1, Sheet1, Row 0, Column 0, "
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.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.CustFP1.Dock = System.Windows.Forms.DockStyle.Fill
Me.CustFP1.Location = New System.Drawing.Point(2, 2)
Me.CustFP1.Margin = New System.Windows.Forms.Padding(0)
Me.CustFP1.Name = "CustFP1"
Me.CustFP1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.CustFP1.Sheets.AddRange(New FarPoint.Win.Spread.SheetView() {Me.CustFP1_Sheet1})
Me.CustFP1.Size = New System.Drawing.Size(997, 162)
Me.CustFP1.TabIndex = 22
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.CustFP1.TextTipAppearance = TipAppearance1
'
'ToolStrip1
'
Me.ToolStrip1.Dock = System.Windows.Forms.DockStyle.Fill
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.ToolStrip1.Location = New System.Drawing.Point(2, 328)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(997, 40)
Me.ToolStrip1.TabIndex = 19
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.EpoleNetv3.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(107, 37)
Me.ToolStripButton2.Text = "미리보기(&V)"
Me.ToolStripButton2.ToolTipText = "클릭하면 위의 뷰 내용중 선택된 항목들을 데이터베이스 입력합니다"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 40)
'
'ToolStripButton6
'
Me.ToolStripButton6.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton6.Image = Global.EpoleNetv3.My.Resources.Resources.edit_32
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(129, 37)
Me.ToolStripButton6.Text = "삭제후 추가하기"
Me.ToolStripButton6.ToolTipText = "기존의 데이터를 모두 삭제하고 새롭게 추가합니다"
'
'ToolStripButton5
'
Me.ToolStripButton5.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton5.Image = Global.EpoleNetv3.My.Resources.Resources.redo_32
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(107, 37)
Me.ToolStripButton5.Text = "추가하기(&A)"
Me.ToolStripButton5.ToolTipText = "기존의 데이터뒤에 새롭게 추가합니다"
'
'TableLayoutPanel3
'
Me.TableLayoutPanel3.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.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.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.Controls.Add(Me.ImpCtl20, 18, 0)
Me.TableLayoutPanel3.Location = New System.Drawing.Point(2, 166)
Me.TableLayoutPanel3.Margin = New System.Windows.Forms.Padding(0)
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(997, 160)
Me.TableLayoutPanel3.TabIndex = 21
'
'CustFP2
'
Me.CustFP2.AAutoAddrowInLast = Nothing
Me.CustFP2.About = "3.0.2003.2005"
Me.CustFP2.AccessibleDescription = "CustFP2, Sheet1, Row 0, Column 0, "
Me.CustFP2.ACellImeLabel = Nothing
Me.CustFP2.ACellposLabel = Nothing
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.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.CustFP2.Dock = System.Windows.Forms.DockStyle.Fill
Me.CustFP2.Location = New System.Drawing.Point(2, 370)
Me.CustFP2.Margin = New System.Windows.Forms.Padding(0)
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(997, 244)
Me.CustFP2.TabIndex = 23
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.CustFP2.TextTipAppearance = TipAppearance2
'
'IreaDataSet
'
Me.IreaDataSet.DataSetName = "ireaDataSet"
Me.IreaDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'ta
'
Me.ta.ClearBeforeFill = True
'
'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.ColumnCount = 1
Me.CustFP1_Sheet1.RowCount = 0
Me.CustFP1_Sheet1.ColumnHeader.Cells.Get(0, 0).Value = "불러오기로 파일을 불러오세요"
Me.CustFP1_Sheet1.ColumnHeader.Rows.Get(0).Height = 33.0!
Me.CustFP1_Sheet1.Columns.Get(0).Label = "불러오기로 파일을 불러오세요"
Me.CustFP1_Sheet1.Columns.Get(0).Width = 412.0!
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)
'
'ImpCtl2
'
Me.ImpCtl2.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl2.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl2.enable = False
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(52, 160)
Me.ImpCtl2.TabIndex = 0
Me.ImpCtl2.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl2.Visible = False
Me.ImpCtl2.기본키 = False
Me.ImpCtl2.문자열자르기 = ""
Me.ImpCtl2.빈값체크 = False
Me.ImpCtl2.열번호 = ""
Me.ImpCtl2.제목 = "*"
Me.ImpCtl2.포맷마스크 = ""
Me.ImpCtl2.필드명 = Nothing
'
'ImpCtl3
'
Me.ImpCtl3.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl3.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl3.enable = False
Me.ImpCtl3.Location = New System.Drawing.Point(52, 0)
Me.ImpCtl3.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl3.Name = "ImpCtl3"
Me.ImpCtl3.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl3.TabIndex = 1
Me.ImpCtl3.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl3.Visible = False
Me.ImpCtl3.기본키 = False
Me.ImpCtl3.문자열자르기 = ""
Me.ImpCtl3.빈값체크 = False
Me.ImpCtl3.열번호 = ""
Me.ImpCtl3.제목 = "*"
Me.ImpCtl3.포맷마스크 = ""
Me.ImpCtl3.필드명 = Nothing
'
'ImpCtl4
'
Me.ImpCtl4.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl4.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl4.enable = False
Me.ImpCtl4.Location = New System.Drawing.Point(104, 0)
Me.ImpCtl4.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl4.Name = "ImpCtl4"
Me.ImpCtl4.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl4.TabIndex = 2
Me.ImpCtl4.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl4.Visible = False
Me.ImpCtl4.기본키 = False
Me.ImpCtl4.문자열자르기 = ""
Me.ImpCtl4.빈값체크 = False
Me.ImpCtl4.열번호 = ""
Me.ImpCtl4.제목 = "*"
Me.ImpCtl4.포맷마스크 = ""
Me.ImpCtl4.필드명 = Nothing
'
'ImpCtl5
'
Me.ImpCtl5.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl5.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl5.enable = False
Me.ImpCtl5.Location = New System.Drawing.Point(156, 0)
Me.ImpCtl5.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl5.Name = "ImpCtl5"
Me.ImpCtl5.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl5.TabIndex = 3
Me.ImpCtl5.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl5.Visible = False
Me.ImpCtl5.기본키 = False
Me.ImpCtl5.문자열자르기 = ""
Me.ImpCtl5.빈값체크 = False
Me.ImpCtl5.열번호 = ""
Me.ImpCtl5.제목 = "*"
Me.ImpCtl5.포맷마스크 = ""
Me.ImpCtl5.필드명 = Nothing
'
'ImpCtl6
'
Me.ImpCtl6.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl6.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl6.enable = False
Me.ImpCtl6.Location = New System.Drawing.Point(208, 0)
Me.ImpCtl6.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl6.Name = "ImpCtl6"
Me.ImpCtl6.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl6.TabIndex = 4
Me.ImpCtl6.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl6.Visible = False
Me.ImpCtl6.기본키 = False
Me.ImpCtl6.문자열자르기 = ""
Me.ImpCtl6.빈값체크 = False
Me.ImpCtl6.열번호 = ""
Me.ImpCtl6.제목 = "*"
Me.ImpCtl6.포맷마스크 = ""
Me.ImpCtl6.필드명 = Nothing
'
'ImpCtl7
'
Me.ImpCtl7.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl7.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl7.enable = False
Me.ImpCtl7.Location = New System.Drawing.Point(260, 0)
Me.ImpCtl7.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl7.Name = "ImpCtl7"
Me.ImpCtl7.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl7.TabIndex = 5
Me.ImpCtl7.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl7.Visible = False
Me.ImpCtl7.기본키 = False
Me.ImpCtl7.문자열자르기 = ""
Me.ImpCtl7.빈값체크 = False
Me.ImpCtl7.열번호 = ""
Me.ImpCtl7.제목 = "*"
Me.ImpCtl7.포맷마스크 = ""
Me.ImpCtl7.필드명 = Nothing
'
'ImpCtl8
'
Me.ImpCtl8.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl8.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl8.enable = False
Me.ImpCtl8.Location = New System.Drawing.Point(312, 0)
Me.ImpCtl8.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl8.Name = "ImpCtl8"
Me.ImpCtl8.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl8.TabIndex = 6
Me.ImpCtl8.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl8.Visible = False
Me.ImpCtl8.기본키 = False
Me.ImpCtl8.문자열자르기 = ""
Me.ImpCtl8.빈값체크 = False
Me.ImpCtl8.열번호 = ""
Me.ImpCtl8.제목 = "*"
Me.ImpCtl8.포맷마스크 = ""
Me.ImpCtl8.필드명 = Nothing
'
'ImpCtl9
'
Me.ImpCtl9.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl9.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl9.enable = False
Me.ImpCtl9.Location = New System.Drawing.Point(364, 0)
Me.ImpCtl9.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl9.Name = "ImpCtl9"
Me.ImpCtl9.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl9.TabIndex = 7
Me.ImpCtl9.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl9.Visible = False
Me.ImpCtl9.기본키 = False
Me.ImpCtl9.문자열자르기 = ""
Me.ImpCtl9.빈값체크 = False
Me.ImpCtl9.열번호 = ""
Me.ImpCtl9.제목 = "*"
Me.ImpCtl9.포맷마스크 = ""
Me.ImpCtl9.필드명 = Nothing
'
'ImpCtl10
'
Me.ImpCtl10.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl10.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl10.enable = False
Me.ImpCtl10.Location = New System.Drawing.Point(416, 0)
Me.ImpCtl10.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl10.Name = "ImpCtl10"
Me.ImpCtl10.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl10.TabIndex = 8
Me.ImpCtl10.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl10.Visible = False
Me.ImpCtl10.기본키 = False
Me.ImpCtl10.문자열자르기 = ""
Me.ImpCtl10.빈값체크 = False
Me.ImpCtl10.열번호 = ""
Me.ImpCtl10.제목 = "*"
Me.ImpCtl10.포맷마스크 = ""
Me.ImpCtl10.필드명 = Nothing
'
'ImpCtl11
'
Me.ImpCtl11.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl11.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl11.enable = False
Me.ImpCtl11.Location = New System.Drawing.Point(468, 0)
Me.ImpCtl11.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl11.Name = "ImpCtl11"
Me.ImpCtl11.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl11.TabIndex = 9
Me.ImpCtl11.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl11.Visible = False
Me.ImpCtl11.기본키 = False
Me.ImpCtl11.문자열자르기 = ""
Me.ImpCtl11.빈값체크 = False
Me.ImpCtl11.열번호 = ""
Me.ImpCtl11.제목 = "*"
Me.ImpCtl11.포맷마스크 = ""
Me.ImpCtl11.필드명 = Nothing
'
'ImpCtl12
'
Me.ImpCtl12.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl12.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl12.enable = False
Me.ImpCtl12.Location = New System.Drawing.Point(520, 0)
Me.ImpCtl12.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl12.Name = "ImpCtl12"
Me.ImpCtl12.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl12.TabIndex = 10
Me.ImpCtl12.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl12.Visible = False
Me.ImpCtl12.기본키 = False
Me.ImpCtl12.문자열자르기 = ""
Me.ImpCtl12.빈값체크 = False
Me.ImpCtl12.열번호 = ""
Me.ImpCtl12.제목 = "*"
Me.ImpCtl12.포맷마스크 = ""
Me.ImpCtl12.필드명 = Nothing
'
'ImpCtl13
'
Me.ImpCtl13.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl13.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl13.enable = False
Me.ImpCtl13.Location = New System.Drawing.Point(572, 0)
Me.ImpCtl13.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl13.Name = "ImpCtl13"
Me.ImpCtl13.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl13.TabIndex = 11
Me.ImpCtl13.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl13.Visible = False
Me.ImpCtl13.기본키 = False
Me.ImpCtl13.문자열자르기 = ""
Me.ImpCtl13.빈값체크 = False
Me.ImpCtl13.열번호 = ""
Me.ImpCtl13.제목 = "*"
Me.ImpCtl13.포맷마스크 = ""
Me.ImpCtl13.필드명 = Nothing
'
'ImpCtl14
'
Me.ImpCtl14.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl14.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl14.enable = False
Me.ImpCtl14.Location = New System.Drawing.Point(624, 0)
Me.ImpCtl14.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl14.Name = "ImpCtl14"
Me.ImpCtl14.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl14.TabIndex = 12
Me.ImpCtl14.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl14.Visible = False
Me.ImpCtl14.기본키 = False
Me.ImpCtl14.문자열자르기 = ""
Me.ImpCtl14.빈값체크 = False
Me.ImpCtl14.열번호 = ""
Me.ImpCtl14.제목 = "*"
Me.ImpCtl14.포맷마스크 = ""
Me.ImpCtl14.필드명 = Nothing
'
'ImpCtl15
'
Me.ImpCtl15.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl15.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl15.enable = False
Me.ImpCtl15.Location = New System.Drawing.Point(676, 0)
Me.ImpCtl15.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl15.Name = "ImpCtl15"
Me.ImpCtl15.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl15.TabIndex = 13
Me.ImpCtl15.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl15.Visible = False
Me.ImpCtl15.기본키 = False
Me.ImpCtl15.문자열자르기 = ""
Me.ImpCtl15.빈값체크 = False
Me.ImpCtl15.열번호 = ""
Me.ImpCtl15.제목 = "*"
Me.ImpCtl15.포맷마스크 = ""
Me.ImpCtl15.필드명 = Nothing
'
'ImpCtl16
'
Me.ImpCtl16.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl16.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl16.enable = False
Me.ImpCtl16.Location = New System.Drawing.Point(728, 0)
Me.ImpCtl16.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl16.Name = "ImpCtl16"
Me.ImpCtl16.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl16.TabIndex = 14
Me.ImpCtl16.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl16.Visible = False
Me.ImpCtl16.기본키 = False
Me.ImpCtl16.문자열자르기 = ""
Me.ImpCtl16.빈값체크 = False
Me.ImpCtl16.열번호 = ""
Me.ImpCtl16.제목 = "*"
Me.ImpCtl16.포맷마스크 = ""
Me.ImpCtl16.필드명 = Nothing
'
'ImpCtl17
'
Me.ImpCtl17.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl17.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl17.enable = False
Me.ImpCtl17.Location = New System.Drawing.Point(780, 0)
Me.ImpCtl17.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl17.Name = "ImpCtl17"
Me.ImpCtl17.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl17.TabIndex = 15
Me.ImpCtl17.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl17.Visible = False
Me.ImpCtl17.기본키 = False
Me.ImpCtl17.문자열자르기 = ""
Me.ImpCtl17.빈값체크 = False
Me.ImpCtl17.열번호 = ""
Me.ImpCtl17.제목 = "*"
Me.ImpCtl17.포맷마스크 = ""
Me.ImpCtl17.필드명 = Nothing
'
'ImpCtl18
'
Me.ImpCtl18.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl18.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl18.enable = False
Me.ImpCtl18.Location = New System.Drawing.Point(832, 0)
Me.ImpCtl18.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl18.Name = "ImpCtl18"
Me.ImpCtl18.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl18.TabIndex = 16
Me.ImpCtl18.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl18.Visible = False
Me.ImpCtl18.기본키 = False
Me.ImpCtl18.문자열자르기 = ""
Me.ImpCtl18.빈값체크 = False
Me.ImpCtl18.열번호 = ""
Me.ImpCtl18.제목 = "*"
Me.ImpCtl18.포맷마스크 = ""
Me.ImpCtl18.필드명 = Nothing
'
'ImpCtl19
'
Me.ImpCtl19.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl19.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl19.enable = False
Me.ImpCtl19.Location = New System.Drawing.Point(884, 0)
Me.ImpCtl19.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl19.Name = "ImpCtl19"
Me.ImpCtl19.Size = New System.Drawing.Size(52, 160)
Me.ImpCtl19.TabIndex = 17
Me.ImpCtl19.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl19.Visible = False
Me.ImpCtl19.기본키 = False
Me.ImpCtl19.문자열자르기 = ""
Me.ImpCtl19.빈값체크 = False
Me.ImpCtl19.열번호 = ""
Me.ImpCtl19.제목 = "*"
Me.ImpCtl19.포맷마스크 = ""
Me.ImpCtl19.필드명 = Nothing
'
'ImpCtl20
'
Me.ImpCtl20.BackColor = System.Drawing.SystemColors.Control
Me.ImpCtl20.Dock = System.Windows.Forms.DockStyle.Fill
Me.ImpCtl20.enable = False
Me.ImpCtl20.Location = New System.Drawing.Point(936, 0)
Me.ImpCtl20.Margin = New System.Windows.Forms.Padding(0)
Me.ImpCtl20.Name = "ImpCtl20"
Me.ImpCtl20.Size = New System.Drawing.Size(61, 160)
Me.ImpCtl20.TabIndex = 18
Me.ImpCtl20.값형태 = NewControlGroup.NewImpCnt2.E_vartype.문자
Me.ImpCtl20.Visible = False
Me.ImpCtl20.기본키 = False
Me.ImpCtl20.문자열자르기 = ""
Me.ImpCtl20.빈값체크 = False
Me.ImpCtl20.열번호 = ""
Me.ImpCtl20.제목 = "*"
Me.ImpCtl20.포맷마스크 = ""
Me.ImpCtl20.필드명 = Nothing
'
'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.ColumnHeader.Rows.Get(0).Height = 33.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
'
'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(1001, 685)
Me.Controls.Add(Me.ToolStrip2)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.TableLayoutPanel1)
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)
Me.TableLayoutPanel1.PerformLayout()
CType(Me.CustFP1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.TableLayoutPanel3.ResumeLayout(False)
CType(Me.CustFP2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.IreaDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CustFP1_Sheet1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CustFP2_Sheet1, 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 EpoleNetv3.ireaDataSet
Friend WithEvents CustFP1 As ArinNewFp.NewFp
Friend WithEvents CustFP1_Sheet1 As FarPoint.Win.Spread.SheetView
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents CustFP2 As ArinNewFp.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 ta As EpoleNetv3.ireaDataSetTableAdapters.Detail_tongsinTableAdapter
Friend WithEvents TableLayoutPanel3 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents ImpCtl2 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl3 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl4 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl5 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl6 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl7 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl8 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl9 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl10 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl11 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl12 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl13 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl14 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl15 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl16 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl17 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl18 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl19 As NewControlGroup.NewImpCnt2
Friend WithEvents ImpCtl20 As NewControlGroup.NewImpCnt2
Friend WithEvents lb_cnt As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
End Class

4431
Epole/업로드폼/XLSImport.resx Normal file
View File

File diff suppressed because it is too large Load Diff

726
Epole/업로드폼/XLSImport.vb Normal file
View File

@@ -0,0 +1,726 @@
Imports System.IO
Imports System.Text
Imports acc.ARINCLASS
Public Class XLSImport
Dim Impctls(18) As NewImpCnt2
' Dim FN As String = vbNullString
Dim Arin As New acc.ARINCLASS
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 DT_tongsin As New ireaDataSet.Detail_tongsinDataTable
Dim DT_Sknetworks As New ireaDataSet.Detail_SknetworksDataTable
Dim DT_Jdung As New ireaDataSet.Detail_DeungDataTable
Dim DT_Karo As New ireaDataSet.Detail_KaroDataTable
'// 로우
Dim ROW_Tongsin As ireaDataSet.Detail_tongsinRow
Dim ROW_SknetWorks As ireaDataSet.Detail_SknetworksRow
Dim ROW_Jdung As ireaDataSet.Detail_DeungRow
Dim ROW_Karo As ireaDataSet.Detail_KaroRow
Dim SrcDataSet As ireaDataSet
Dim gubunId As Integer '//추가될 관리id를 받는다.
Dim Wt As Work_Type '//관리구분을 받는다. 없을경우 기본 0(가공번호찰로 한다)
'Dim MaxArray As String '"엑셀의 최대범위"
Dim Sview As FarPoint.Win.Spread.SheetView
Public Sub New()
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
End Sub
Public Sub New(ByVal DataSrc As ireaDataSet, ByVal rowid As Short, ByVal vgubun As Short) '//현재이걸로 데이터를 가져온다.
InitializeComponent()
gubunId = rowid
Wt = vgubun
SrcDataSet = DataSrc
End Sub
Private Sub Control_Setting()
Select Case Wt
Case Work_Type.jongakdung
Me.Text = "정액등 엑셀데이터 가져오기"
Me.Set_ImpCtl(New String() {"고객번호1", "고객번호2", "고객번호3", "관리번호1", "관리번호2", "관리번호3", "지점명"})
Case Work_Type.karodung
Me.Text = "가로등 엑셀데이터 가져오기"
Me.Set_ImpCtl(New String() {"행정도시", "지역명", "번지", "관리번호1", "관리번호2", "문의전화1", "문의전화2", "비고1", "비고2", "비고3", "QRCODE"})
Case Work_Type.Sknetworks
Me.Text = "기타번호찰 엑셀데이터 가져오기"
Me.Set_ImpCtl(New String() {"구간명1", "구간명2", "전주번호1", "전주번호2", "운용기관", "중계기명", "규격", "시공일", "시공자", "문의전화1", "문의전화2"})
Case Else
Me.Text = "번호찰 가져오기"
MsgBox("Err: ControlSEtting : 알수없는 번호찰형식")
End Select
End Sub
Private Sub Set_ImpCtl(ByVal Name() As String)
Dim Offset As Short = 0
For i As Short = 0 To Name.Length - 1
Me.Impctls(i).제목 = Name(i)
Me.Impctls(i).enable = True
Me.Impctls(i).Visible = True
Me.Impctls(i).값형태 = NewImpCnt2.E_vartype.문자
Next
End Sub
Private Sub Apply_SkNetworks() '//가로등 미리보기
Dim 번호 As Integer '//번호는 notnull 이다
Dim NullChk As Boolean = Me.NullCHeck
Dim NullVal As String = ""
Dim cnt As Integer = -1
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
Dim VarStr(18) As String '//문자를 저장하는 변수
Dim Nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If
Me.DT_Sknetworks.Rows.Clear() : Me.DT_Sknetworks.AcceptChanges()
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
For i As Short = 0 To 18
VarStr(i) = Me.GetFPData(Me.Impctls(i), Dr) '.ToUpper
Next
If NullChk Then '//널값 체크시에 체크된것이 null이라면 nullval 을 true로 바꾼다.
NullVal = ""
For i As Short = 0 To 18
If Me.Impctls(i).빈값체크 AndAlso Me.Impctls(i).enable Then
NullVal &= IIf(VarStr(i).Trim = "", "", "X")
If NullVal <> "" Then Exit For
End If
Next
Else
NullVal = "X" '//기본false로 해줘야한다.
End If
If NullVal.Trim <> "" Then 'false일때만 추가한다. true는 널값이잇으므로 넘어간다.
Me.ROW_SknetWorks = Me.DT_Sknetworks.NewDetail_SknetworksRow '//임시테이블
Me.ROW_SknetWorks.rowid = System.Guid.NewGuid
Me.ROW_SknetWorks.관리ID = gubunId
Me.ROW_SknetWorks.번호 = index
Me.ROW_SknetWorks.정렬번호 = "1" & Format(index, "0000") & "1000"
Me.ROW_SknetWorks.출력 = True
'------------------------------------------
Me.ROW_SknetWorks.구간명1 = VarStr(0)
Me.ROW_SknetWorks.구간명2 = VarStr(1)
Me.ROW_SknetWorks.전주번호1 = VarStr(2)
Me.ROW_SknetWorks.전주번호2 = VarStr(3)
Me.ROW_SknetWorks.운용기관 = VarStr(4)
Me.ROW_SknetWorks.중계기명 = VarStr(5)
Me.ROW_SknetWorks.규격 = VarStr(6)
Me.ROW_SknetWorks.시공일 = VarStr(7)
Me.ROW_SknetWorks.시공자 = VarStr(8)
Me.ROW_SknetWorks.연락처1 = VarStr(9)
Me.ROW_SknetWorks.연락처2 = VarStr(10)
Me.DT_Sknetworks.Rows.Add(Me.ROW_SknetWorks) '
Else '//빈줄이 나왔음을 의미하므로 빈줄 카운터 증가
Nullcnt += 1
If Nullcnt >= 5 Then
Exit For
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
NOTICE("가져오기완료(" & Me.CustFP2_Sheet1.RowCount & "개)", Me.lb_msg)
Me.CustFP2.DataSource = Me.DT_Sknetworks
'//보여서 필요없는 열값을 숨긴다.
Me.CustFP2.ActiveSheet.Columns(0).Width = 0 '//rowid
Me.CustFP2.ActiveSheet.Columns(1).Width = 0 '//관리Id
Me.CustFP2.ActiveSheet.Columns(2).Width = 0 '//정렬번호
Me.CustFP2.ActiveSheet.Columns(16).Width = 0 '//출력
Me.CustFP2.ActiveSheet.Columns(17).Width = 0 '//출력
End Sub
Private Sub Apply_karo() '//가로등 미리보기
Dim 번호 As Integer '//번호는 notnull 이다
Dim NullChk As Boolean = Me.NullCHeck
Dim NullVal As String = ""
Dim cnt As Integer = -1
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
Dim VarStr(18) As String '//문자를 저장하는 변수
Dim NullCnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If
Me.DT_Karo.Rows.Clear() : Me.DT_Karo.AcceptChanges()
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
For i As Short = 0 To VarStr.GetUpperBound(0)
If i = 10 Then '//qr코드제외
VarStr(i) = Me.GetFPData(Me.Impctls(i), Dr)
Else
VarStr(i) = Me.GetFPData(Me.Impctls(i), Dr) '.ToUpper
End If
Next
If NullChk Then '//널값 체크시에 체크된것이 null이라면 nullval 을 true로 바꾼다.
NullVal = ""
For i As Short = 0 To VarStr.GetUpperBound(0)
If Me.Impctls(i).빈값체크 AndAlso Me.Impctls(i).enable Then
NullVal &= IIf(VarStr(i).Trim = "", "", "X")
If NullVal <> "" Then Exit For
End If
Next
Else
NullVal = "X" '//기본false로 해줘야한다.
End If
If NullVal.Trim <> "" Then 'false일때만 추가한다. true는 널값이잇으므로 넘어간다.
Me.ROW_Karo = Me.DT_Karo.NewDetail_KaroRow '//임시테이블
Me.ROW_Karo.rowid = System.Guid.NewGuid
Me.ROW_Karo.관리ID = gubunId
Me.ROW_Karo.번호 = index
Me.ROW_Karo.정렬번호 = "1" & Format(index, "0000") & "1000"
Me.ROW_Karo.출력 = True
'------------------------------------------ Me.Set_ImpCtl(New String() {"행정도시", "지역명", "번지", "관리번호1", "관리번호2", "문의전화1", "문의전화2"})
Me.ROW_Karo.area2 = VarStr(0)
Me.ROW_Karo.area1 = VarStr(1)
Me.ROW_Karo.f1 = VarStr(2)
Me.ROW_Karo.m1 = VarStr(3)
Me.ROW_Karo.m2 = VarStr(4)
Me.ROW_Karo.tel1 = VarStr(5)
Me.ROW_Karo.tel2 = VarStr(6)
Me.ROW_Karo.bigo1 = VarStr(7)
Me.ROW_Karo.bigo2 = VarStr(8)
Me.ROW_Karo.bigo3 = VarStr(9)
Me.ROW_Karo.QRCODE = VarStr(10)
Me.DT_Karo.Rows.Add(Me.ROW_Karo)
NullCnt = 0
Else '//빈줄이 나왔음을 의미하므로 빈줄 카운터 증가
NullCnt += 1
If NullCnt >= 5 Then
Exit For
End If
End If
Catch ex As ConstraintException '//중복
Dim ermsg As String = ex.Message.ToString
' AddLog("번호중복", "중복된 번호:" & 번호)
Catch ex As Exception
Dim ermsg As String = ex.Message.ToString
' AddLog(ex.InnerException.ToString, ex.Message.ToString)
End Try
End If
Next
NOTICE("가져오기완료(" & Me.CustFP2_Sheet1.RowCount & "개)", Me.lb_msg)
Me.CustFP2.DataSource = Me.DT_Karo
'//보여서 필요없는 열값을 숨긴다.
Me.CustFP2.ActiveSheet.Columns(0).Width = 0 '//rowid
Me.CustFP2.ActiveSheet.Columns(1).Width = 0 '//관리Id
Me.CustFP2.ActiveSheet.Columns(2).Width = 0 '//정렬번호
Me.CustFP2.ActiveSheet.Columns(3).Width = 0 '//출력
Me.CustFP2.ActiveSheet.Columns(14).Width = 0 '//정렬번호
Me.CustFP2.ActiveSheet.Columns(4).Label = "행정도시"
Me.CustFP2.ActiveSheet.Columns(5).Label = "지역명"
Me.CustFP2.ActiveSheet.Columns(6).Label = "번지"
Me.CustFP2.ActiveSheet.Columns(7).Label = "관리번호1"
Me.CustFP2.ActiveSheet.Columns(8).Label = "관리번호2"
Me.CustFP2.ActiveSheet.Columns(9).Label = "전화번호1"
Me.CustFP2.ActiveSheet.Columns(10).Label = "전화번호2"
Me.CustFP2.ActiveSheet.Columns(11).Label = "비고1"
Me.CustFP2.ActiveSheet.Columns(12).Label = "비고2"
Me.CustFP2.ActiveSheet.Columns(13).Label = "비고3"
End Sub
Private Sub Apply_jdung() '//가로등 미리보기
Dim 번호 As Integer '//번호는 notnull 이다
Dim NullChk As Boolean = Me.NullCHeck
Dim NullVal As String = ""
Dim cnt As Integer = -1
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
Dim VarStr(18) As String '//문자를 저장하는 변수
Dim nullcnt As Short = 0
NOTICE("(임시)데이터베이스에 기록합니다(취소불가능)", Me.lb_msg)
If (Me.tb_ecnt.Text = 0 AndAlso UserInfo.Type = E_AuthType.Demo) OrElse (UserInfo.Type = E_AuthType.Demo AndAlso (Me.tb_ecnt.Text - Me.tb_scnt.Text) > 100) Then
MsgBox("임시사용자는 자동종료카운트(0)을 사용할 수 없으며" & vbCrLf & vbCrLf & _
"시작카운터와 종료카운터의 범위는 100까지만 가능합니다", MsgBoxStyle.Information, "확인")
Me.tb_ecnt.Text = Me.tb_scnt.Text + 100
End If
Me.DT_Jdung.Rows.Clear() : Me.DT_Jdung.AcceptChanges()
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
For i As Short = 0 To 18
VarStr(i) = Me.GetFPData(Me.Impctls(i), Dr) '.ToUpper
Next
If NullChk Then '//널값 체크시에 체크된것이 null이라면 nullval 을 true로 바꾼다.
NullVal = ""
For i As Short = 0 To 18
If Me.Impctls(i).빈값체크 AndAlso Me.Impctls(i).enable Then
NullVal &= IIf(VarStr(i).Trim = "", "", "X")
If NullVal <> "" Then Exit For
End If
Next
Else
NullVal = "X" '//기본false로 해줘야한다.
End If
If NullVal.Trim <> "" Then 'false일때만 추가한다. true는 널값이잇으므로 넘어간다.
Me.ROW_Jdung = Me.DT_Jdung.NewDetail_DeungRow '//임시테이블
Me.ROW_Jdung.rowid = System.Guid.NewGuid
Me.ROW_Jdung.관리ID = gubunId
Me.ROW_Jdung.번호 = index
Me.ROW_Jdung.정렬번호 = "1" & Format(index, "0000") & "1000"
Me.ROW_Jdung.출력 = True
'------------------------------------------ Me.Set_ImpCtl(New String() {"고객번호1", "고객번호2", "고객번호3", "관리번호1", "관리번호2", "관리번호3", "지점명"})
Me.ROW_Jdung.고객번호1 = VarStr(0)
Me.ROW_Jdung.고객번호2 = VarStr(1)
Me.ROW_Jdung.고객번호3 = VarStr(2)
Me.ROW_Jdung.관리번호1 = VarStr(3)
Me.ROW_Jdung.관리번호2 = VarStr(4)
Me.ROW_Jdung.관리번호3 = VarStr(5)
Me.ROW_Jdung.지점명 = VarStr(6)
Me.DT_Jdung.Rows.Add(Me.ROW_Jdung) '
Else '//빈줄이 나왔음을 의미하므로 빈줄 카운터 증가
NullCnt += 1
If NullCnt >= 5 Then
Exit For
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
NOTICE("가져오기완료(" & Me.CustFP2_Sheet1.RowCount & "개)", Me.lb_msg)
Me.CustFP2.DataSource = Me.DT_Jdung
'//보여서 필요없는 열값을 숨긴다.
Me.CustFP2.ActiveSheet.Columns(0).Width = 0 '//rowid
Me.CustFP2.ActiveSheet.Columns(1).Width = 0 '//관리Id
Me.CustFP2.ActiveSheet.Columns(2).Width = 0 '//정렬번호
Me.CustFP2.ActiveSheet.Columns(3).Width = 0 '//출력
Me.CustFP2.ActiveSheet.Columns(4).Width = 0 '//출력
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
'//기존에 존재하는 모든 데이터를 삭제하고 새로 추가합니다.
'//Byref 로가져온 원래데이터셋을 이용해서 데이터를 삭제합니다.
Select Case Wt
Case Work_Type.jongakdung
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.DT_Jdung)
Case Work_Type.karodung
If Me.SrcDataSet.Detail_Karo.Rows.Count <> 0 Then
NOTICE("기존의 자료를 삭제합니다", Me.lb_msg)
For I As Integer = Me.SrcDataSet.Detail_Karo.Rows.Count - 1 To 0 Step -1
Me.SHowCnt(I, Me.SrcDataSet.Detail_Karo.Rows.Count - 1)
Me.SrcDataSet.Detail_Karo.Rows(I).Delete()
Next
End If
Me.SrcDataSet.Detail_Karo.Merge(Me.DT_Karo)
Case Work_Type.Sknetworks
If Me.SrcDataSet.Detail_Sknetworks.Rows.Count <> 0 Then
NOTICE("기존의 자료를 삭제합니다", Me.lb_msg)
For I As Integer = Me.SrcDataSet.Detail_Sknetworks.Rows.Count - 1 To 0 Step -1
Me.SHowCnt(I, Me.SrcDataSet.Detail_Sknetworks.Rows.Count - 1)
Me.SrcDataSet.Detail_Sknetworks.Rows(I).Delete()
Next
End If
Me.SrcDataSet.Detail_Sknetworks.Merge(Me.DT_Sknetworks)
End Select
Me.Close()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
'//기존에 존재하는 모든 데이터를 삭제하고 새로 추가합니다.
Dim DT As New DataTable
Dim CT As New DataTable
Select Case Wt
Case Work_Type.jongakdung
DT = Me.SrcDataSet.Detail_Deung
CT = Me.DT_Jdung
Case Work_Type.karodung
DT = Me.SrcDataSet.Detail_Karo
CT = Me.DT_Karo
Case Work_Type.Sknetworks
DT = Me.SrcDataSet.Detail_Sknetworks
CT = Me.DT_Sknetworks
End Select
'//최대값을 찾습니다.
NOTICE("새로운 번호를 찾습니다", Me.lb_msg)
Dim 최대값 As Integer
Dim Dv As New DataView(DT, "", "번호 desc", DataViewRowState.CurrentRows)
If Dv.Count = 0 Then
최대값 = 0
Else
최대값 = Dv(0)("번호")
End If
NOTICE("번호를 새로 부여합니다", Me.lb_msg)
For I As Integer = 0 To CT.Rows.Count - 1 '//추가는 번호를 새로 받는다.
Me.SHowCnt(I, CT.Rows.Count - 1)
CT.Rows(I)("번호") = 최대값 + I + 1
CT.Rows(I)("정렬번호") = "1" & Format((최대값 + I + 1), "0000") & "1000"
Next
NOTICE("기존의 데이터와 병합합니다", Me.lb_msg)
DT.Merge(CT)
Me.Close()
End Sub
#Region "자주바꾸지앟음"
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 Wt
Case Work_Type.jongakdung
Me.Apply_jdung()
Case Work_Type.karodung
Me.Apply_karo()
Case Work_Type.Sknetworks
Me.Apply_SkNetworks()
End Select
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 MyINI(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 XLSImport_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Save_Setting() '//현재설정을 저장하고나간다.
End Sub
Private Sub Control_init()
Me.Impctls(0) = Me.ImpCtl2
Me.Impctls(1) = Me.ImpCtl3
Me.Impctls(2) = Me.ImpCtl4
Me.Impctls(3) = Me.ImpCtl5
Me.Impctls(4) = Me.ImpCtl6
Me.Impctls(5) = Me.ImpCtl7
Me.Impctls(6) = Me.ImpCtl8
Me.Impctls(7) = Me.ImpCtl9
Me.Impctls(8) = Me.ImpCtl10
Me.Impctls(9) = Me.ImpCtl11
Me.Impctls(10) = Me.ImpCtl12
Me.Impctls(11) = Me.ImpCtl13
Me.Impctls(12) = Me.ImpCtl14
Me.Impctls(13) = Me.ImpCtl15
Me.Impctls(14) = Me.ImpCtl16
Me.Impctls(15) = Me.ImpCtl17
Me.Impctls(16) = Me.ImpCtl18
Me.Impctls(17) = Me.ImpCtl19
Me.Impctls(18) = Me.ImpCtl20
For i As Short = 0 To Me.Impctls.GetUpperBound(0)
Me.Impctls(i).enable = False
Next
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Control_Init()
Control_Setting()
If Not GetINI(IniFile) Then
MsgBox("오류로인해 프로그램이 종료됩니다." & vbCrLf & vbCrLf & "환경설정 데이터가 반환되지 않았습니다", MsgBoxStyle.Critical, "Er")
End
End If
LOadCurrentSet()
'Me.CustFP1.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) '//글자정보 불러오기
End Sub
'''
''' 현재 텍스트박스 셋팅을 저장합니다.
'''
Private Sub LOadCurrentSet()
Dim ini As New MyINI(IniFile)
For Each A As NewControlGroup.NewImpCnt2 In Me.TableLayoutPanel3.Controls
A.열번호 = ini.Read("CURSETNUM" & Wt, A.Name)
A.문자열자르기 = ini.Read("CURSETSPL" & Wt, A.Name)
A.빈값체크 = ini.Read("CURSETNUL" & Wt, A.Name, False)
Next
End Sub
Private Sub Save_Setting() '//현재 셋팅을 저장합니다.
'//저장목록은 시작/종료 열번호 아이템의 텍스트이다.
Dim Aranini As New MyINI(IniFile)
Aranini.Write("normal", "startpos", Me.tb_scnt.Text) '//시작
Aranini.Write("normal", "endpos", Me.tb_ecnt.Text) '//종료
For Each A As NewControlGroup.NewImpCnt2 In Me.TableLayoutPanel3.Controls '//각 텍스트박스
Aranini.Write("CURSETNUM" & Wt, A.Name, A.열번호)
Aranini.Write("CURSETSPL" & Wt, A.Name, A.문자열자르기)
Aranini.Write("CURSETNUL" & Wt, A.Name, A.빈값체크)
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 MyINI(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 NewControlGroup.NewImpCnt2, 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.열번호
If Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text = "" Then
' MsgBox("값이없어서 바로보낸다")
Return "" '//데이터없으면 리턴
End If
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 = sender.문자열자르기.Split(",")
If DIV(1) = "0" Then '//시작부터 끝까지
Try
VALSTR = (Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text.Substring(DIV(0) - 1))
Catch ex As Exception
VALSTR = Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text
End Try
Return VALSTR
Else '/지정범위
Try
VALSTR = Me.CustFP1.ActiveSheet.Cells(Drow.Index, CInt(SUbidx - 1)).Text.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
For i As Short = 0 To 18
If Me.Impctls(i).열번호 <> "" AndAlso Me.Impctls(i).enable AndAlso Me.Impctls(i).빈값체크 Then
Return True
End If
Next
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
#End Region
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Me.Close()
End Sub
End Class