KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial commit

Browse Source
This commit is contained in:
Chikyun
2019-10-24 21:24:21 +09:00
commit 376f7d9de0
544 changed files with 295019 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

120
ArinWarev1/Forms_Basic/Frm_About.Designer.vb generated Normal file
View File

@@ -0,0 +1,120 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_About
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("돋움", 10.0!, System.Drawing.FontStyle.Bold)
Me.Label6.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label6.Location = New System.Drawing.Point(15, 16)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(123, 14)
Me.Label6.TabIndex = 3
Me.Label6.Text = "[ECO2 만든 이]"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 49)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(130, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Main Coder(Y.K.H)"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.Location = New System.Drawing.Point(15, 69)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(112, 12)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Sub Coder(Arin)"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label3.Location = New System.Drawing.Point(15, 89)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(121, 12)
Me.Label3.TabIndex = 1
Me.Label3.Text = "UI Design(Yoojm)"
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
Me.PictureBox1.BackgroundImage = Global.Eco2Ar.My.Resources.Resources.ECO2
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.PictureBox1.Location = New System.Drawing.Point(178, 8)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(106, 102)
Me.PictureBox1.TabIndex = 2
Me.PictureBox1.TabStop = False
'
'Frm_About
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(296, 119)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label3)
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.FixedToolWindow
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_About"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "프로그램정보"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label6 As System.Windows.Forms.Label
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 PictureBox1 As System.Windows.Forms.PictureBox
Private Sub Frm_About_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
End Sub
End Class

120
ArinWarev1/Forms_Basic/Frm_About.resx Normal file
View File

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

27
ArinWarev1/Forms_Basic/Frm_About.vb Normal file
View File

@@ -0,0 +1,27 @@
Public NotInheritable Class Frm_About
#Region "Default Infomation 편집마지마세요"
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Frm_About_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F1 Then MsgBox("Support by skykkumi : '01~12'", MsgBoxStyle.Information, "Message") '//
e.Handled = True
End Sub
#End Region
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Process.Start("http://hangeul.naver.com/share.nhn")
End Sub
Private Sub Frm_About_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

128
ArinWarev1/Forms_Basic/Frm_Calc.Designer.vb generated Normal file
View File

@@ -0,0 +1,128 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Calc
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.bt_설계개선안 = New System.Windows.Forms.Button()
Me.bt_cancel = New System.Windows.Forms.Button()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.SystemColors.Control
Me.Button1.Location = New System.Drawing.Point(11, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(137, 31)
Me.Button1.TabIndex = 3
Me.Button1.Text = "요구량"
Me.Button1.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.ForeColor = System.Drawing.Color.Silver
Me.Button2.Location = New System.Drawing.Point(40, 174)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(137, 31)
Me.Button2.TabIndex = 4
Me.Button2.Text = "소요량"
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'Button3
'
Me.Button3.BackColor = System.Drawing.SystemColors.Control
Me.Button3.Location = New System.Drawing.Point(11, 48)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(137, 31)
Me.Button3.TabIndex = 5
Me.Button3.Text = "요구량+소요량"
Me.Button3.UseVisualStyleBackColor = False
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.bt_cancel)
Me.Panel1.Controls.Add(Me.bt_설계개선안)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button3)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(160, 164)
Me.Panel1.TabIndex = 7
'
'bt_설계개선안
'
Me.bt_설계개선안.BackColor = System.Drawing.SystemColors.Control
Me.bt_설계개선안.Location = New System.Drawing.Point(11, 85)
Me.bt_설계개선안.Name = "bt_설계개선안"
Me.bt_설계개선안.Size = New System.Drawing.Size(137, 31)
Me.bt_설계개선안.TabIndex = 8
Me.bt_설계개선안.Text = "설계개선안"
Me.bt_설계개선안.UseVisualStyleBackColor = False
'
'bt_cancel
'
Me.bt_cancel.BackColor = System.Drawing.SystemColors.Control
Me.bt_cancel.ForeColor = System.Drawing.Color.Red
Me.bt_cancel.Location = New System.Drawing.Point(11, 122)
Me.bt_cancel.Name = "bt_cancel"
Me.bt_cancel.Size = New System.Drawing.Size(137, 31)
Me.bt_cancel.TabIndex = 9
Me.bt_cancel.Text = "취 소"
Me.bt_cancel.UseVisualStyleBackColor = False
'
'Frm_Calc
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.ClientSize = New System.Drawing.Size(160, 164)
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Calc"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "계산"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
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 Panel1 As System.Windows.Forms.Panel
Friend WithEvents bt_설계개선안 As System.Windows.Forms.Button
Friend WithEvents bt_cancel As System.Windows.Forms.Button
End Class

120
ArinWarev1/Forms_Basic/Frm_Calc.resx Normal file
View File

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

60
ArinWarev1/Forms_Basic/Frm_Calc.vb Normal file
View File

@@ -0,0 +1,60 @@
Public Class Frm_Calc
Public Type As Calculator.ECalc
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Frm_Calc_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Type = Calculator.ECalc.REq
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Type = Calculator.ECalc.Use
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Type = Calculator.ECalc.All
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Close()
End Sub
Private Sub bt_설계개선안_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_설계개선안.Click
Select Case Prj.UserAuthType
Case "ADMIN", "BOTH1" '// 우선 제한된 사용자만 설계개선안 검토 가능
Type = Calculator.ECalc.설계개선안
Me.DialogResult = Windows.Forms.DialogResult.OK
Case Else
End Select
End Sub
Private Sub Frm_Calc_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Select Case Prj.UserAuthType
Case "ADMIN", "BOTH1" '//제한된 사용자만 가능
bt_설계개선안.Visible = True
Case Else
bt_설계개선안.Visible = False
End Select
End Sub
Private Sub bt_cancel_Click(sender As System.Object, e As System.EventArgs) Handles bt_cancel.Click
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Sub
End Class

273
ArinWarev1/Forms_Basic/Frm_Common.Designer.vb generated Normal file
View File

@@ -0,0 +1,273 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Common
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Common))
Me.DS = New Eco2Ar.DS()
Me.Tbl_commonBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Tbl_commonTableAdapter = New Eco2Ar.DSTableAdapters.tbl_commonTableAdapter()
Me.Tbl_commonBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
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.Tbl_commonBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.Tbl_commonDataGridView = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Tbl_commonBindingNavigator.SuspendLayout()
CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Tbl_commonBindingSource
'
Me.Tbl_commonBindingSource.DataMember = "tbl_common"
Me.Tbl_commonBindingSource.DataSource = Me.DS
'
'Tbl_commonTableAdapter
'
Me.Tbl_commonTableAdapter.ClearBeforeFill = True
'
'Tbl_commonBindingNavigator
'
Me.Tbl_commonBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem
Me.Tbl_commonBindingNavigator.BindingSource = Me.Tbl_commonBindingSource
Me.Tbl_commonBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.Tbl_commonBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
Me.Tbl_commonBindingNavigator.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Tbl_commonBindingNavigator.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.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tbl_commonBindingNavigatorSaveItem})
Me.Tbl_commonBindingNavigator.Location = New System.Drawing.Point(0, 0)
Me.Tbl_commonBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.Tbl_commonBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.Tbl_commonBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
Me.Tbl_commonBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.Tbl_commonBindingNavigator.Name = "Tbl_commonBindingNavigator"
Me.Tbl_commonBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.Tbl_commonBindingNavigator.Size = New System.Drawing.Size(791, 25)
Me.Tbl_commonBindingNavigator.TabIndex = 3
Me.Tbl_commonBindingNavigator.Text = "BindingNavigator1"
'
'BindingNavigatorAddNewItem
'
Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image)
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22)
Me.BindingNavigatorAddNewItem.Text = "새로 추가"
'
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(29, 22)
Me.BindingNavigatorCountItem.Text = "/{0}"
Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수"
'
'BindingNavigatorDeleteItem
'
Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image)
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True
Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
Me.BindingNavigatorDeleteItem.Text = "삭제"
'
'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(23, 22)
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(23, 22)
Me.BindingNavigatorMovePreviousItem.Text = "이전으로 이동"
'
'BindingNavigatorSeparator
'
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
'
'BindingNavigatorPositionItem
'
Me.BindingNavigatorPositionItem.AccessibleName = "위치"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0"
Me.BindingNavigatorPositionItem.ToolTipText = "현재 위치"
'
'BindingNavigatorSeparator1
'
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
'
'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(23, 22)
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(23, 22)
Me.BindingNavigatorMoveLastItem.Text = "마지막으로 이동"
'
'BindingNavigatorSeparator2
'
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
'Tbl_commonBindingNavigatorSaveItem
'
Me.Tbl_commonBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.Tbl_commonBindingNavigatorSaveItem.Image = CType(resources.GetObject("Tbl_commonBindingNavigatorSaveItem.Image"), System.Drawing.Image)
Me.Tbl_commonBindingNavigatorSaveItem.Name = "Tbl_commonBindingNavigatorSaveItem"
Me.Tbl_commonBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22)
Me.Tbl_commonBindingNavigatorSaveItem.Text = "데이터 저장"
'
'Tbl_commonDataGridView
'
Me.Tbl_commonDataGridView.AutoGenerateColumns = False
Me.Tbl_commonDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.Tbl_commonDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5})
Me.Tbl_commonDataGridView.DataSource = Me.Tbl_commonBindingSource
Me.Tbl_commonDataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.Tbl_commonDataGridView.Location = New System.Drawing.Point(0, 25)
Me.Tbl_commonDataGridView.Name = "Tbl_commonDataGridView"
Me.Tbl_commonDataGridView.RowTemplate.Height = 23
Me.Tbl_commonDataGridView.Size = New System.Drawing.Size(791, 455)
Me.Tbl_commonDataGridView.TabIndex = 3
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "gubun"
Me.DataGridViewTextBoxColumn1.HeaderText = "gubun"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "code"
Me.DataGridViewTextBoxColumn2.HeaderText = "code"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.DataPropertyName = "name"
Me.DataGridViewTextBoxColumn3.HeaderText = "name"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "valn1"
Me.DataGridViewTextBoxColumn4.HeaderText = "valn1"
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "codename"
Me.DataGridViewTextBoxColumn5.HeaderText = "codename"
Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
Me.DataGridViewTextBoxColumn5.ReadOnly = True
'
'Frm_Common
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(791, 480)
Me.Controls.Add(Me.Tbl_commonDataGridView)
Me.Controls.Add(Me.Tbl_commonBindingNavigator)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "Frm_Common"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "공용코드관리"
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Tbl_commonBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Tbl_commonBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.Tbl_commonBindingNavigator.ResumeLayout(False)
Me.Tbl_commonBindingNavigator.PerformLayout()
CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents CidDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DS As Eco2Ar.DS
Friend WithEvents Tbl_commonBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents Tbl_commonTableAdapter As Eco2Ar.DSTableAdapters.tbl_commonTableAdapter
Friend WithEvents Tbl_commonBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem 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 Tbl_commonBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
Friend WithEvents Tbl_commonDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

212
ArinWarev1/Forms_Basic/Frm_Common.resx Normal file
View File

@@ -0,0 +1,212 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Tbl_commonBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>84, 17</value>
</metadata>
<metadata name="Tbl_commonTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>288, 17</value>
</metadata>
<metadata name="Tbl_commonBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>486, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC
pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++
Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ
/5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA
zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/
IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E
rkJggg==
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<data name="Tbl_commonBindingNavigatorSaveItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wgAADsIBFShKgAAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV
K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr
XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp
T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic
DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF
/wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO
AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM
ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i
QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60
4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII=
</value>
</data>
</root>

24
ArinWarev1/Forms_Basic/Frm_Common.vb Normal file
View File

@@ -0,0 +1,24 @@
Public Class Frm_Common
Dim viewTag As String = "common"
Dim ViewFile As String = "\View_Config\Common_"
Dim ViewOutFile As String = "\ExcelOut\공용코드.xls"
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Tbl_commonBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tbl_commonBindingNavigatorSaveItem.Click
Me.Validate()
Me.Tbl_commonBindingSource.EndEdit()
Me.Tbl_commonTableAdapter.Update(Me.DS.tbl_common)
End Sub
Private Sub Frm_Common_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
Me.Tbl_commonTableAdapter.Fill(Me.DS.tbl_common)
End Sub
End Class

38
ArinWarev1/Forms_Basic/Frm_DisplayGubun.Designer.vb generated Normal file
View File

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

120
ArinWarev1/Forms_Basic/Frm_DisplayGubun.resx Normal file
View File

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

60
ArinWarev1/Forms_Basic/Frm_DisplayGubun.vb Normal file
View File

@@ -0,0 +1,60 @@
Public Class Frm_DisplayGubun
Dim Fc As Color = Color.Black
Dim Bc As Color = Color.White
Public Sub New()
' 이 호출은 Windows Form 디자이너에 필요합니다.
InitializeComponent()
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Sub New(ByVal vfc As String, ByVal vfb As String)
InitializeComponent()
Try
Me.Fc = Color.FromArgb(vfc)
Catch ex As Exception
Me.Fc = Color.Black
End Try
Try
Me.Bc = Color.FromArgb(vfb)
Catch ex As Exception
Me.Bc = Color.White
End Try
End Sub
Private Sub Frm_DisplayGubun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 555
Me.Height = 362
End Sub
Private Sub Frm_DisplayGubun_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim x, y As Decimal
x = 0
y = 0
Dim G As Graphics = e.Graphics
For i As Integer = 0 To 100
If i <> 0 AndAlso i Mod 10 = 0 Then
x = 0
y += 55
ElseIf i <> 0 Then
x += 55
End If
Try
Dim B As New System.Drawing.Drawing2D.HatchBrush(i, Me.Fc, Me.Bc)
G.FillRectangle(B, New Rectangle(x, y, 50, 50))
G.DrawString(i.ToString, Me.Font, New SolidBrush(Color.White), x, y)
Catch ex As Exception
End Try
Next
G.Dispose()
End Sub
End Class

278
ArinWarev1/Forms_Basic/Frm_FileInfo.Designer.vb generated Normal file
View File

@@ -0,0 +1,278 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_FileInfo
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.tb_password = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.tb_Edittime = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cmb_ft = New System.Windows.Forms.ComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.tb_ui = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.tb_lg = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.tb_maketime = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.tb_desc = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.tb_name = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.Label9)
Me.Panel1.Controls.Add(Me.tb_password)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.tb_Edittime)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.cmb_ft)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.tb_ui)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.tb_lg)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.tb_maketime)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.tb_desc)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.tb_name)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(398, 320)
Me.Panel1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(106, 229)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(278, 36)
Me.Button1.TabIndex = 17
Me.Button1.Text = "변경완료"
Me.Button1.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(21, 278)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(298, 12)
Me.Label10.TabIndex = 16
Me.Label10.Text = "* 암호는 저장파일형태가 01 이상이 되어야합니다"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(21, 295)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(232, 12)
Me.Label9.TabIndex = 16
Me.Label9.Text = "* 버젼 변경은 현재 허용되지 않습니다"
'
'tb_password
'
Me.tb_password.Location = New System.Drawing.Point(106, 173)
Me.tb_password.Name = "tb_password"
Me.tb_password.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.tb_password.Size = New System.Drawing.Size(279, 21)
Me.tb_password.TabIndex = 15
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.ForeColor = System.Drawing.Color.Blue
Me.Label8.Location = New System.Drawing.Point(69, 176)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(31, 12)
Me.Label8.TabIndex = 14
Me.Label8.Text = "암호"
'
'tb_Edittime
'
Me.tb_Edittime.Location = New System.Drawing.Point(106, 92)
Me.tb_Edittime.Name = "tb_Edittime"
Me.tb_Edittime.ReadOnly = True
Me.tb_Edittime.Size = New System.Drawing.Size(279, 21)
Me.tb_Edittime.TabIndex = 13
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(17, 95)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(83, 12)
Me.Label7.TabIndex = 12
Me.Label7.Text = "최종수정시간"
'
'cmb_ft
'
Me.cmb_ft.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_ft.FormattingEnabled = True
Me.cmb_ft.Items.AddRange(New Object() {"00 [기본파일형태]", "01 [암호설정가능]"})
Me.cmb_ft.Location = New System.Drawing.Point(106, 201)
Me.cmb_ft.Name = "cmb_ft"
Me.cmb_ft.Size = New System.Drawing.Size(279, 20)
Me.cmb_ft.TabIndex = 11
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(17, 204)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(83, 12)
Me.Label6.TabIndex = 10
Me.Label6.Text = "저장파일형태"
'
'tb_ui
'
Me.tb_ui.Location = New System.Drawing.Point(106, 146)
Me.tb_ui.Name = "tb_ui"
Me.tb_ui.ReadOnly = True
Me.tb_ui.Size = New System.Drawing.Size(279, 21)
Me.tb_ui.TabIndex = 9
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(82, 152)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(18, 12)
Me.Label5.TabIndex = 8
Me.Label5.Text = "UI"
'
'tb_lg
'
Me.tb_lg.Location = New System.Drawing.Point(106, 119)
Me.tb_lg.Name = "tb_lg"
Me.tb_lg.ReadOnly = True
Me.tb_lg.Size = New System.Drawing.Size(279, 21)
Me.tb_lg.TabIndex = 7
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(77, 124)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(23, 12)
Me.Label4.TabIndex = 6
Me.Label4.Text = "LG"
'
'tb_maketime
'
Me.tb_maketime.Location = New System.Drawing.Point(106, 65)
Me.tb_maketime.Name = "tb_maketime"
Me.tb_maketime.ReadOnly = True
Me.tb_maketime.Size = New System.Drawing.Size(279, 21)
Me.tb_maketime.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(43, 70)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(57, 12)
Me.Label3.TabIndex = 4
Me.Label3.Text = "생성시간"
'
'tb_desc
'
Me.tb_desc.Location = New System.Drawing.Point(106, 38)
Me.tb_desc.Name = "tb_desc"
Me.tb_desc.Size = New System.Drawing.Size(279, 21)
Me.tb_desc.TabIndex = 3
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(25, 44)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(75, 12)
Me.Label2.TabIndex = 2
Me.Label2.Text = "템플릿 설명"
'
'tb_name
'
Me.tb_name.Location = New System.Drawing.Point(106, 11)
Me.tb_name.Name = "tb_name"
Me.tb_name.Size = New System.Drawing.Size(279, 21)
Me.tb_name.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(25, 15)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(75, 12)
Me.Label1.TabIndex = 0
Me.Label1.Text = "템플릿 이름"
'
'Frm_FileInfo
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(398, 320)
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_FileInfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "템플릿 정보"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents tb_name As System.Windows.Forms.TextBox
Friend WithEvents tb_desc As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents tb_ui As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents tb_lg As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tb_maketime As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents cmb_ft As System.Windows.Forms.ComboBox
Friend WithEvents tb_Edittime As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents tb_password As System.Windows.Forms.TextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

120
ArinWarev1/Forms_Basic/Frm_FileInfo.resx Normal file
View File

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

45
ArinWarev1/Forms_Basic/Frm_FileInfo.vb Normal file
View File

@@ -0,0 +1,45 @@
Public Class Frm_FileInfo
Private Sub Frm_FileInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.tb_name.Text = Prj.Name
Me.tb_desc.Text = Prj.Desc
Me.tb_maketime.Text = Prj.MakeTime
Me.tb_Edittime.Text = Prj.EditTime
Me.tb_lg.Text = Prj.LGVersino
Me.tb_ui.Text = Prj.UIVersion
Me.cmb_ft.SelectedIndex = CInt(Prj.SFType)
Select Case Me.cmb_ft.SelectedIndex
Case 1
Me.tb_password.Text = Prj.Password
Case Else
Me.tb_password.Text = ""
End Select
If Me.cmb_ft.SelectedIndex = -1 Then Me.cmb_ft.SelectedIndex = 1
End Sub
Private Sub cmb_ft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_ft.SelectedIndexChanged
Select Case Me.cmb_ft.SelectedIndex
Case 0
Me.tb_password.Text = ""
Me.tb_password.Enabled = False
Case 1
Me.cmb_ft.Enabled = True
Case Else
Me.tb_password.Text = ""
Me.tb_password.Enabled = False
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Prj.Name = Me.tb_name.Text
Prj.Desc = Me.tb_desc.Text
Prj.MakeTime = Me.tb_maketime.Text
Prj.EditTime = Me.tb_Edittime.Text
Prj.LGVersino = Me.tb_lg.Text
Prj.UIVersion = Me.tb_ui.Text
Prj.SFType = Format(Me.cmb_ft.SelectedIndex, "00")
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
End Class

386
ArinWarev1/Forms_Basic/Frm_Filter.Designer.vb generated Normal file
View File

@@ -0,0 +1,386 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Filter
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.tb_filter = New System.Windows.Forms.TextBox()
Me.cmb_field1 = New System.Windows.Forms.ComboBox()
Me.cmb_field2 = New System.Windows.Forms.ComboBox()
Me.cmb_field3 = New System.Windows.Forms.ComboBox()
Me.cmb_field4 = New System.Windows.Forms.ComboBox()
Me.cmb_j1 = New System.Windows.Forms.ComboBox()
Me.cmb_j2 = New System.Windows.Forms.ComboBox()
Me.cmb_j3 = New System.Windows.Forms.ComboBox()
Me.cmb_cond1 = New System.Windows.Forms.ComboBox()
Me.cmb_cond2 = New System.Windows.Forms.ComboBox()
Me.cmb_cond3 = New System.Windows.Forms.ComboBox()
Me.cmb_cond4 = New System.Windows.Forms.ComboBox()
Me.tb_s1 = New System.Windows.Forms.TextBox()
Me.tb_s2 = New System.Windows.Forms.TextBox()
Me.tb_s3 = New System.Windows.Forms.TextBox()
Me.tb_s4 = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.tb_valuec = New System.Windows.Forms.TextBox()
Me.cmb_fieldc = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.SuspendLayout()
'
'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.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(229, 252)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
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, 27.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(170, 27)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(78, 21)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "확인"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(88, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(78, 21)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "취소"
'
'tb_filter
'
Me.tb_filter.Location = New System.Drawing.Point(22, 20)
Me.tb_filter.Multiline = True
Me.tb_filter.Name = "tb_filter"
Me.tb_filter.Size = New System.Drawing.Size(361, 60)
Me.tb_filter.TabIndex = 1
'
'cmb_field1
'
Me.cmb_field1.FormattingEnabled = True
Me.cmb_field1.Location = New System.Drawing.Point(73, 23)
Me.cmb_field1.Name = "cmb_field1"
Me.cmb_field1.Size = New System.Drawing.Size(138, 20)
Me.cmb_field1.TabIndex = 3
'
'cmb_field2
'
Me.cmb_field2.FormattingEnabled = True
Me.cmb_field2.Location = New System.Drawing.Point(73, 49)
Me.cmb_field2.Name = "cmb_field2"
Me.cmb_field2.Size = New System.Drawing.Size(138, 20)
Me.cmb_field2.TabIndex = 4
'
'cmb_field3
'
Me.cmb_field3.FormattingEnabled = True
Me.cmb_field3.Location = New System.Drawing.Point(73, 75)
Me.cmb_field3.Name = "cmb_field3"
Me.cmb_field3.Size = New System.Drawing.Size(138, 20)
Me.cmb_field3.TabIndex = 5
'
'cmb_field4
'
Me.cmb_field4.FormattingEnabled = True
Me.cmb_field4.Location = New System.Drawing.Point(73, 101)
Me.cmb_field4.Name = "cmb_field4"
Me.cmb_field4.Size = New System.Drawing.Size(138, 20)
Me.cmb_field4.TabIndex = 6
'
'cmb_j1
'
Me.cmb_j1.FormattingEnabled = True
Me.cmb_j1.Items.AddRange(New Object() {"AND", "OR"})
Me.cmb_j1.Location = New System.Drawing.Point(6, 49)
Me.cmb_j1.Name = "cmb_j1"
Me.cmb_j1.Size = New System.Drawing.Size(61, 20)
Me.cmb_j1.TabIndex = 7
'
'cmb_j2
'
Me.cmb_j2.FormattingEnabled = True
Me.cmb_j2.Items.AddRange(New Object() {"AND", "OR"})
Me.cmb_j2.Location = New System.Drawing.Point(6, 75)
Me.cmb_j2.Name = "cmb_j2"
Me.cmb_j2.Size = New System.Drawing.Size(61, 20)
Me.cmb_j2.TabIndex = 8
'
'cmb_j3
'
Me.cmb_j3.FormattingEnabled = True
Me.cmb_j3.Items.AddRange(New Object() {"AND", "OR"})
Me.cmb_j3.Location = New System.Drawing.Point(6, 101)
Me.cmb_j3.Name = "cmb_j3"
Me.cmb_j3.Size = New System.Drawing.Size(61, 20)
Me.cmb_j3.TabIndex = 9
'
'cmb_cond1
'
Me.cmb_cond1.FormattingEnabled = True
Me.cmb_cond1.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
Me.cmb_cond1.Location = New System.Drawing.Point(217, 23)
Me.cmb_cond1.Name = "cmb_cond1"
Me.cmb_cond1.Size = New System.Drawing.Size(51, 20)
Me.cmb_cond1.TabIndex = 11
'
'cmb_cond2
'
Me.cmb_cond2.FormattingEnabled = True
Me.cmb_cond2.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
Me.cmb_cond2.Location = New System.Drawing.Point(217, 49)
Me.cmb_cond2.Name = "cmb_cond2"
Me.cmb_cond2.Size = New System.Drawing.Size(51, 20)
Me.cmb_cond2.TabIndex = 12
'
'cmb_cond3
'
Me.cmb_cond3.FormattingEnabled = True
Me.cmb_cond3.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
Me.cmb_cond3.Location = New System.Drawing.Point(217, 75)
Me.cmb_cond3.Name = "cmb_cond3"
Me.cmb_cond3.Size = New System.Drawing.Size(51, 20)
Me.cmb_cond3.TabIndex = 13
'
'cmb_cond4
'
Me.cmb_cond4.FormattingEnabled = True
Me.cmb_cond4.Items.AddRange(New Object() {"Like", "<>", "=", "<=", ">="})
Me.cmb_cond4.Location = New System.Drawing.Point(217, 101)
Me.cmb_cond4.Name = "cmb_cond4"
Me.cmb_cond4.Size = New System.Drawing.Size(51, 20)
Me.cmb_cond4.TabIndex = 14
'
'tb_s1
'
Me.tb_s1.Location = New System.Drawing.Point(274, 22)
Me.tb_s1.Name = "tb_s1"
Me.tb_s1.Size = New System.Drawing.Size(109, 21)
Me.tb_s1.TabIndex = 15
'
'tb_s2
'
Me.tb_s2.Location = New System.Drawing.Point(274, 49)
Me.tb_s2.Name = "tb_s2"
Me.tb_s2.Size = New System.Drawing.Size(109, 21)
Me.tb_s2.TabIndex = 16
'
'tb_s3
'
Me.tb_s3.Location = New System.Drawing.Point(274, 76)
Me.tb_s3.Name = "tb_s3"
Me.tb_s3.Size = New System.Drawing.Size(109, 21)
Me.tb_s3.TabIndex = 17
'
'tb_s4
'
Me.tb_s4.Location = New System.Drawing.Point(274, 103)
Me.tb_s4.Name = "tb_s4"
Me.tb_s4.Size = New System.Drawing.Size(109, 21)
Me.tb_s4.TabIndex = 18
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.cmb_field1)
Me.GroupBox1.Controls.Add(Me.cmb_field2)
Me.GroupBox1.Controls.Add(Me.tb_s4)
Me.GroupBox1.Controls.Add(Me.cmb_field3)
Me.GroupBox1.Controls.Add(Me.tb_s3)
Me.GroupBox1.Controls.Add(Me.cmb_field4)
Me.GroupBox1.Controls.Add(Me.tb_s2)
Me.GroupBox1.Controls.Add(Me.cmb_j1)
Me.GroupBox1.Controls.Add(Me.tb_s1)
Me.GroupBox1.Controls.Add(Me.cmb_j2)
Me.GroupBox1.Controls.Add(Me.cmb_cond4)
Me.GroupBox1.Controls.Add(Me.cmb_j3)
Me.GroupBox1.Controls.Add(Me.cmb_cond3)
Me.GroupBox1.Controls.Add(Me.cmb_cond1)
Me.GroupBox1.Controls.Add(Me.cmb_cond2)
Me.GroupBox1.Location = New System.Drawing.Point(10, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(389, 135)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "조건"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.tb_filter)
Me.GroupBox2.Location = New System.Drawing.Point(10, 153)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(389, 93)
Me.GroupBox2.TabIndex = 1
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Filter"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.LightGreen
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Label1.Location = New System.Drawing.Point(12, 261)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(31, 14)
Me.Label1.TabIndex = 22
Me.Label1.Text = "0001"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(49, 261)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(101, 12)
Me.Label2.TabIndex = 23
Me.Label2.Text = ": 코드로 입력요망"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.tb_valuec)
Me.GroupBox3.Controls.Add(Me.cmb_fieldc)
Me.GroupBox3.Location = New System.Drawing.Point(10, 285)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(389, 51)
Me.GroupBox3.TabIndex = 2
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "바꾸기"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(198, 22)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(41, 12)
Me.Label4.TabIndex = 1
Me.Label4.Text = "변경값"
'
'tb_valuec
'
Me.tb_valuec.Location = New System.Drawing.Point(245, 19)
Me.tb_valuec.Name = "tb_valuec"
Me.tb_valuec.Size = New System.Drawing.Size(138, 21)
Me.tb_valuec.TabIndex = 2
Me.tb_valuec.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'cmb_fieldc
'
Me.cmb_fieldc.FormattingEnabled = True
Me.cmb_fieldc.Location = New System.Drawing.Point(22, 19)
Me.cmb_fieldc.Name = "cmb_fieldc"
Me.cmb_fieldc.Size = New System.Drawing.Size(156, 20)
Me.cmb_fieldc.TabIndex = 0
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 339)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(353, 12)
Me.Label3.TabIndex = 24
Me.Label3.Text = "바꾸기 값이 설정되어있으면 확인시에 해당 필드값이 변경됩니다"
'
'Frm_Filter
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(411, 360)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Filter"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "검색조건"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents tb_filter As System.Windows.Forms.TextBox
Friend WithEvents cmb_field1 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_field2 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_field3 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_field4 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_j1 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_j2 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_j3 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_cond1 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_cond2 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_cond3 As System.Windows.Forms.ComboBox
Friend WithEvents cmb_cond4 As System.Windows.Forms.ComboBox
Friend WithEvents tb_s1 As System.Windows.Forms.TextBox
Friend WithEvents tb_s2 As System.Windows.Forms.TextBox
Friend WithEvents tb_s3 As System.Windows.Forms.TextBox
Friend WithEvents tb_s4 As System.Windows.Forms.TextBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents cmb_fieldc As System.Windows.Forms.ComboBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents tb_valuec As System.Windows.Forms.TextBox
End Class

120
ArinWarev1/Forms_Basic/Frm_Filter.resx Normal file
View File

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

253
ArinWarev1/Forms_Basic/Frm_Filter.vb Normal file
View File

@@ -0,0 +1,253 @@
Imports System.Windows.Forms
Public Class Frm_Filter
Public ColumList() As String '//필드네임
Public ColumTitle() As String '//필드제목줄
Public Colorlist As String
Public Numfield As String '//숫자필드일경우
Public Default_Filter As String '//기본값 code <> '0'
Private Sub Frm_Filter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Init_combo()
End Sub
Private Sub Init_combo() '//콤보박스목록을 생성
Dim CmbJ As String() = {"AND", "OR"}
Dim CmbCond As String() = {"LIKE", "=", "<>", "<=", ">="}
'//clear
Me.cmb_j1.Items.Clear()
Me.cmb_j2.Items.Clear()
Me.cmb_j3.Items.Clear()
'Me.cmb_j4.Items.Clear()
Me.cmb_cond1.Items.Clear()
Me.cmb_cond2.Items.Clear()
Me.cmb_cond3.Items.Clear()
Me.cmb_cond4.Items.Clear()
Me.cmb_field1.Items.Clear()
Me.cmb_field2.Items.Clear()
Me.cmb_field3.Items.Clear()
Me.cmb_field4.Items.Clear()
Me.cmb_fieldc.Items.Clear()
'/set
Me.cmb_j1.Items.AddRange(CmbJ)
Me.cmb_j2.Items.AddRange(CmbJ)
Me.cmb_j3.Items.AddRange(CmbJ)
Me.cmb_cond1.Items.AddRange(CmbCond)
Me.cmb_cond2.Items.AddRange(CmbCond)
Me.cmb_cond3.Items.AddRange(CmbCond)
Me.cmb_cond4.Items.AddRange(CmbCond)
Try '//필드선택 콤보박승 필드명 넣기
Me.cmb_field1.Items.AddRange(ColumTitle)
Me.cmb_field2.Items.AddRange(ColumTitle)
Me.cmb_field3.Items.AddRange(ColumTitle)
Me.cmb_field4.Items.AddRange(ColumTitle)
Me.cmb_fieldc.Items.AddRange(ColumTitle)
Catch ex As Exception
MsgBox("필드목록이 없거나 매개변수값이 없습니다", MsgBoxStyle.Critical, "확인")
End Try
'Me.cmb_j1.SelectedIndex = 0
'Me.cmb_j2.SelectedIndex = 0
'Me.cmb_j3.SelectedIndex = 0
'Me.cmb_cond1.SelectedIndex = 0
'Me.cmb_cond2.SelectedIndex = 0
'Me.cmb_cond3.SelectedIndex = 0
'Me.cmb_cond4.SelectedIndex = 0
AddHandler Me.cmb_j1.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_j2.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_j3.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_cond1.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_cond2.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_cond3.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_cond4.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_field1.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_field2.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_field3.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.cmb_field4.SelectedIndexChanged, AddressOf event_comboselectindex
AddHandler Me.tb_s1.TextChanged, AddressOf event_textboxchange
AddHandler Me.tb_s2.TextChanged, AddressOf event_textboxchange
AddHandler Me.tb_s3.TextChanged, AddressOf event_textboxchange
AddHandler Me.tb_s4.TextChanged, AddressOf event_textboxchange
End Sub
Private Function IsnumField(ByVal v_Fname As String) As Boolean
'//숫자필드목록에서 해당 필드가 잇는지 확인한다.
If Me.Numfield.IndexOf(v_Fname) = -1 Then '//해당필드가 숫자목록에 잇으면 True
Return False
Else
Return True
End If
End Function
Private Sub MakeWhreState()
'//콤보박스값을 가지고 Textbox1 을 생성
Dim NewStat As New System.Text.StringBuilder()
If Me.cmb_field1.SelectedIndex <> -1 And Me.tb_s1.Text <> "" Then
If cmb_cond1.Text.ToUpper = "LIKE" Then
NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'%" + tb_s1.Text + "%'")
Else
'//숫자필드이면
If IsnumField(Me.cmb_field1.Text) Then
NewStat.Append(Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field1.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond1.Text + Space(1) + tb_s1.Text)
Else
NewStat.Append(Space(1) + Me.ColumList(Me.cmb_field1.SelectedIndex).ToString + Space(1) + cmb_cond1.Text + Space(1) + "'" + tb_s1.Text + "'")
End If
End If
End If
If Me.cmb_field2.SelectedIndex <> -1 And Me.tb_s2.Text <> "" Then
If cmb_cond2.Text.ToUpper = "LIKE" Then
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'%" + tb_s2.Text + "%'")
Else
If IsnumField(Me.cmb_field1.Text) Then
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field2.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond2.Text + Space(1) + tb_s2.Text)
Else
NewStat.Append(Space(1) + Me.cmb_j1.Text + Space(1) + Me.ColumList(Me.cmb_field2.SelectedIndex).ToString + Space(1) + cmb_cond2.Text + Space(1) + "'" + tb_s2.Text + "'")
End If
End If
End If
If Me.cmb_field3.SelectedIndex <> -1 And Me.tb_s3.Text <> "" Then
If cmb_cond3.Text.ToUpper = "LIKE" Then
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'%" + tb_s3.Text + "%'")
Else
If IsnumField(Me.cmb_field1.Text) Then
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field3.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond3.Text + Space(1) + tb_s3.Text)
Else
NewStat.Append(Space(1) + Me.cmb_j2.Text + Space(1) + Me.ColumList(Me.cmb_field3.SelectedIndex).ToString + Space(1) + cmb_cond3.Text + Space(1) + "'" + tb_s3.Text + "'")
End If
End If
End If
If Me.cmb_field4.SelectedIndex <> -1 And Me.tb_s4.Text <> "" Then
If cmb_cond3.Text.ToUpper = "LIKE" Then
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'%" + tb_s4.Text + "%'")
Else
If IsnumField(Me.cmb_field1.Text) Then
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + "convert(isnull(" & Me.ColumList(Me.cmb_field4.SelectedIndex).ToString & ",'0'),'System.Single')" + Space(1) + cmb_cond4.Text + Space(1) + tb_s4.Text)
Else
NewStat.Append(Space(1) + Me.cmb_j3.Text + Space(1) + Me.ColumList(Me.cmb_field4.SelectedIndex).ToString + Space(1) + cmb_cond4.Text + Space(1) + "'" + tb_s4.Text + "'")
End If
End If
End If
If NewStat.ToString.Trim = "" Then
Me.tb_filter.Text = Default_Filter
Else
Me.tb_filter.Text = Default_Filter & " and " + NewStat.ToString
End If
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If Me.tb_filter.Text = "" Then Me.tb_filter.Text = Default_Filter
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub event_textboxchange(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.MakeWhreState()
End Sub
Private Sub event_comboselectindex(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.MakeWhreState()
End Sub
Private Sub cmb_field1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field1.SelectedIndexChanged
Dim Find As Boolean = False
For Each C As String In Me.Colorlist.Split(",")
If C.ToUpper = Me.ColumList(Me.cmb_field1.SelectedIndex).ToUpper Then ' Me.cmb_field1.Text.ToUpper Then
Find = True
Exit For
End If
Next
If Find Then
Me.tb_s1.BackColor = Color.LightGreen
Else
Me.tb_s1.BackColor = Color.White
End If
End Sub
Private Sub cmb_field2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field2.SelectedIndexChanged
Dim Find As Boolean = False
For Each C As String In Me.Colorlist.Split(",")
If C.ToUpper = Me.ColumList(Me.cmb_field2.SelectedIndex).ToUpper Then
Find = True
Exit For
End If
Next
If Find Then
Me.tb_s2.BackColor = Color.LightGreen
Else
Me.tb_s2.BackColor = Color.White
End If
End Sub
Private Sub cmb_field3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field3.SelectedIndexChanged
Dim Find As Boolean = False
For Each C As String In Me.Colorlist.Split(",")
If C.ToUpper = Me.ColumList(Me.cmb_field3.SelectedIndex).ToUpper Then
Find = True
Exit For
End If
Next
If Find Then
Me.tb_s3.BackColor = Color.LightGreen
Else
Me.tb_s3.BackColor = Color.White
End If
End Sub
Private Sub cmb_field4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_field4.SelectedIndexChanged
Dim Find As Boolean = False
For Each C As String In Me.Colorlist.Split(",")
If C.ToUpper = Me.ColumList(Me.cmb_field4.SelectedIndex).ToUpper Then
Find = True
Exit For
End If
Next
If Find Then
Me.tb_s4.BackColor = Color.LightGreen
Else
Me.tb_s4.BackColor = Color.White
End If
End Sub
Private Sub cmb_cond1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_cond1.SelectedIndexChanged
End Sub
End Class

175
ArinWarev1/Forms_Basic/Frm_Intro.Designer.vb generated Normal file
View File

@@ -0,0 +1,175 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Intro
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.tb_id = New System.Windows.Forms.TextBox()
Me.tb_pw = New System.Windows.Forms.TextBox()
Me.chk_id = New System.Windows.Forms.CheckBox()
Me.chk_pass = New System.Windows.Forms.CheckBox()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lbl_ip = New System.Windows.Forms.ToolStripStatusLabel()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.Button1.Location = New System.Drawing.Point(404, 25)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(61, 63)
Me.Button1.TabIndex = 11
Me.Button1.Text = "LOGIN"
Me.Button1.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.White
Me.Label3.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label3.Location = New System.Drawing.Point(42, 64)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(117, 19)
Me.Label3.TabIndex = 12
Me.Label3.Text = "PASSWORD :"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.White
Me.Label2.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.Location = New System.Drawing.Point(42, 30)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(36, 19)
Me.Label2.TabIndex = 12
Me.Label2.Text = "ID :"
'
'tb_id
'
Me.tb_id.BackColor = System.Drawing.Color.White
Me.tb_id.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_id.Location = New System.Drawing.Point(165, 25)
Me.tb_id.MaxLength = 10
Me.tb_id.Name = "tb_id"
Me.tb_id.Size = New System.Drawing.Size(233, 29)
Me.tb_id.TabIndex = 1
Me.tb_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ToolTip1.SetToolTip(Me.tb_id, "ID를 입력하세요")
'
'tb_pw
'
Me.tb_pw.BackColor = System.Drawing.Color.White
Me.tb_pw.Font = New System.Drawing.Font("돋움", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_pw.Location = New System.Drawing.Point(165, 59)
Me.tb_pw.MaxLength = 10
Me.tb_pw.Name = "tb_pw"
Me.tb_pw.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.tb_pw.Size = New System.Drawing.Size(233, 29)
Me.tb_pw.TabIndex = 3
Me.tb_pw.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ToolTip1.SetToolTip(Me.tb_pw, "암호를 입력하세요")
'
'chk_id
'
Me.chk_id.AutoSize = True
Me.chk_id.BackColor = System.Drawing.Color.Transparent
Me.chk_id.Location = New System.Drawing.Point(21, 32)
Me.chk_id.Name = "chk_id"
Me.chk_id.Size = New System.Drawing.Size(15, 14)
Me.chk_id.TabIndex = 7
Me.ToolTip1.SetToolTip(Me.chk_id, "사용자 ID를 저장합니다")
Me.chk_id.UseVisualStyleBackColor = False
'
'chk_pass
'
Me.chk_pass.AutoSize = True
Me.chk_pass.BackColor = System.Drawing.Color.Transparent
Me.chk_pass.Location = New System.Drawing.Point(21, 66)
Me.chk_pass.Name = "chk_pass"
Me.chk_pass.Size = New System.Drawing.Size(15, 14)
Me.chk_pass.TabIndex = 8
Me.ToolTip1.SetToolTip(Me.chk_pass, "사용자 암호를 저장합니다")
Me.chk_pass.UseVisualStyleBackColor = False
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_ip})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 98)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(478, 22)
Me.StatusStrip1.TabIndex = 16
Me.StatusStrip1.Text = "StatusStrip1"
'
'lbl_ip
'
Me.lbl_ip.BackColor = System.Drawing.Color.Transparent
Me.lbl_ip.Name = "lbl_ip"
Me.lbl_ip.Size = New System.Drawing.Size(25, 17)
Me.lbl_ip.Text = "[IP]"
'
'Frm_Intro
'
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(478, 120)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.tb_id)
Me.Controls.Add(Me.tb_pw)
Me.Controls.Add(Me.chk_pass)
Me.Controls.Add(Me.chk_id)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Intro"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "사용자확인"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents chk_id As System.Windows.Forms.CheckBox
Friend WithEvents chk_pass As System.Windows.Forms.CheckBox
Friend WithEvents tb_id As System.Windows.Forms.TextBox
Friend WithEvents tb_pw As System.Windows.Forms.TextBox
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lbl_ip As System.Windows.Forms.ToolStripStatusLabel
End Class

126
ArinWarev1/Forms_Basic/Frm_Intro.resx Normal file
View File

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

215
ArinWarev1/Forms_Basic/Frm_Intro.vb Normal file
View File

@@ -0,0 +1,215 @@
Public Class Frm_Intro
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Save_SEtting()
Myini.Write("user", "chkid", Me.chk_id.Checked)
Myini.Write("user", "chkpass", Me.chk_pass.Checked)
If Me.chk_id.Checked Then
Myini.Write("user", "id", Me.tb_id.Text)
Else
Myini.Write("user", "id", "")
End If
If Me.chk_pass.Checked Then
Myini.Write("user", "pass", Me.tb_pw.Text)
Else
Myini.Write("user", "pass", "")
End If
End Sub
Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Escape
Me.Close()
End Select
End Sub
Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'TODO: 이 코드는 데이터를 'DS.C2600' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
' Uselov = New Lov.ModLov(My.Settings.CS, "")
Me.lbl_ip.Text = "현재 IP:" & Prj.CUrIP & "/MAC:" & Prj.CUrMac & " 컴퓨터에서 접속하였습니다."
My.Application.DoEvents()
'//지정된 정보를 가져옵니다.
Try
Me.chk_id.Checked = CBool(Myini.Read("user", "chkid", CStr(True)))
Me.chk_pass.Checked = CBool(Myini.Read("user", "chkpass", CStr(True)))
Catch ex As Exception
Me.chk_id.Checked = False
Me.chk_pass.Checked = False
End Try
If Me.chk_id.Checked Then Me.tb_id.Text = Myini.Read("user", "id", "")
If Me.chk_pass.Checked Then Me.tb_pw.Text = Myini.Read("user", "pass", "")
End Sub
Private Function GetLevel(ByVal Dcode As String) As Short
'im DR() As DataRow = Me.DS.tbl_user.Select("uid='" & Dcode & "'")
'If DR Is Nothing Then Return 0 '//일반사원 반환
'Try
' Return CShort(DR(0)("level"))
'Catch ex As Exception
' Return 0
'End Try
End Function
Private Sub tb_pw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pw.KeyDown
If e.KeyCode = Keys.Enter Then
'//지정된 id 와 비번으로 해당 계정이 존재하는지 확인한다.
login()
ElseIf e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End If
End Sub
Private Sub tb_id_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_id.GotFocus, tb_pw.GotFocus
CType(sender, TextBox).Focus()
CType(sender, TextBox).SelectAll()
End Sub
Private Sub tB_id_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_id.KeyDown
Select Case e.KeyCode
Case Keys.Enter
Me.tb_pw.Focus()
Case Keys.Escape
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Select
End Sub
Private Sub login()
Prj.Admin = False
Dim UseriNfo As ArinLogin.ArinLOgin.User_Info
If tb_id.Text.StartsWith("guest") Then
UseriNfo = New ArinLogin.ArinLOgin.User_Info()
UseriNfo.authtype = "IP"
UseriNfo.name = tb_id.Text
'ElseIf tb_id.Text.StartsWith("user") Then
' UseriNfo = New ArinLogin.ArinLOgin.User_Info()
' UseriNfo.authtype = "IP"
' UseriNfo.name = tb_id.Text
Else
Work_msg("서버 응답을 기다리는중")
Dim L As New ArinLogin.ArinLOgin
pLog.Add(String.Format("Login Try ID = {0}", tb_id.Text))
UseriNfo = L.Check_user("eco_user", Me.tb_id.Text, Me.tb_pw.Text)
Work_msg("")
If UseriNfo.name = "" Then
MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
Return
End If
End If
Select Case UseriNfo.authtype
Case "IP"
If Me.tb_id.Text.ToLower() <> "guest" Then 'AndAlso Not Me.tb_id.Text.ToLower().StartsWith("user") Then
If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then
MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Else
Try
Dim userPass As String
Dim userMAC As String
Dim userIP As String
userMAC = Prj.CUrMac.GetHashCode
userIP = Prj.CUrIP.GetHashCode
userPass = userIP + userMAC
userPass = userPass.GetHashCode
If CLng(userPass) < 0 Then
userPass = (CLng(userPass) * -1).ToString
End If
'If Me.tb_pw.Text <> userPass Then
' MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
' End
'End If
Catch ex As Exception
MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
End
End Try
End If
Case "MAC" '//MAC인증일경우 현재MAC과 비교한다.
If Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then
MsgBox("로그인사용자와 현재컴퓨터의 MAC이 일치하지않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Case "BOTH", "BOTH1", "BOTH2" '// BOTH1, BOTH2 는 기존 일반사용자와 다른 권한 부여하기 위해 만듬. BOTH1은 가져오기 가능, BOTH2는 가져오기 + 프로파일 수정가능 2010.11.22 --- BOTH0 은 일반유저로 설정
If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper OrElse Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then
MsgBox("로그인사용자의 IP 또는 MAC이 일치하지 않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Case "ADMIN"
Prj.Admin = True
Case "BOTH0"
Case Else
Return
End Select
pLog.Add(String.Format("Login OK ID={0}", Me.tb_id.Text))
Prj.LoginTime = Format(Now, "yyyy-MM-dd HH:mi:ss")
Prj.UserId = Me.tb_id.Text
Prj.UserPass = Me.tb_pw.Text
If Me.tb_id.Text.ToLower() = "guest" Then
Prj.UserAuthType = "BOTH0"
'ElseIf Me.tb_id.Text.ToLower().StartsWith("user") Then
' Prj.UserAuthType = "BOTH"
Else
Prj.UserAuthType = UseriNfo.authtype
End If
Save_SEtting()
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
'Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' Dim LF As New Frm_user("")
' If LF.ShowDialog = Windows.Forms.DialogResult.OK Then
' Me.tB_id.Text = LF.UID
' Me.tb_pw.Text = ""
' Me.tb_pw.Focus()
' Else
' Me.tB_id.Text = ""
' Me.tb_pw.Text = ""
' Me.tB_id.Focus()
' End If
'End Sub
Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
End Sub
Private Sub lbl_ip_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Dim Str As New System.Text.StringBuilder
Str.AppendLine("### 다음내용을 관리자에게 메일로 보내주세요 ###")
Str.AppendLine("ip : " & Prj.CUrIP)
Str.AppendLine("mac : " & Prj.CUrMac)
'Str.AppendLine("lg : " & Prj.LGVersino)
'Str.AppendLine("ui : " & Prj.UIVersion)
My.Computer.FileSystem.WriteAllText("c:\address.txt", Str.ToString, False)
Shell("notepad c:\address.txt", AppWinStyle.NormalFocus)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
login()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub btn_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
End Class

173
ArinWarev1/Forms_Basic/Frm_Login.Designer.vb generated Normal file
View File

@@ -0,0 +1,173 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Login
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.lbl_ip = New System.Windows.Forms.ToolStripStatusLabel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.tb_id = New System.Windows.Forms.TextBox()
Me.tb_pw = New System.Windows.Forms.TextBox()
Me.chk_pass = New System.Windows.Forms.CheckBox()
Me.chk_id = New System.Windows.Forms.CheckBox()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lbl_ip})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 101)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(371, 22)
Me.StatusStrip1.TabIndex = 16
Me.StatusStrip1.Text = "StatusStrip1"
'
'lbl_ip
'
Me.lbl_ip.Name = "lbl_ip"
Me.lbl_ip.Size = New System.Drawing.Size(25, 17)
Me.lbl_ip.Text = "[IP]"
'
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.Button1.Location = New System.Drawing.Point(288, 17)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(67, 67)
Me.Button1.TabIndex = 11
Me.Button1.Text = "LOGIN"
Me.Button1.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.White
Me.Label3.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label3.Location = New System.Drawing.Point(36, 60)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(116, 19)
Me.Label3.TabIndex = 12
Me.Label3.Text = "PASSWORD :"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.White
Me.Label2.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label2.Location = New System.Drawing.Point(36, 22)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(35, 19)
Me.Label2.TabIndex = 12
Me.Label2.Text = "ID :"
'
'tb_id
'
Me.tb_id.BackColor = System.Drawing.Color.White
Me.tb_id.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_id.Location = New System.Drawing.Point(157, 17)
Me.tb_id.MaxLength = 10
Me.tb_id.Name = "tb_id"
Me.tb_id.Size = New System.Drawing.Size(116, 29)
Me.tb_id.TabIndex = 1
Me.tb_id.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ToolTip1.SetToolTip(Me.tb_id, "ID를 입력하세요")
'
'tb_pw
'
Me.tb_pw.BackColor = System.Drawing.Color.White
Me.tb_pw.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.tb_pw.Location = New System.Drawing.Point(157, 55)
Me.tb_pw.MaxLength = 10
Me.tb_pw.Name = "tb_pw"
Me.tb_pw.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.tb_pw.Size = New System.Drawing.Size(116, 29)
Me.tb_pw.TabIndex = 3
Me.tb_pw.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.ToolTip1.SetToolTip(Me.tb_pw, "암호를 입력하세요")
'
'chk_pass
'
Me.chk_pass.AutoSize = True
Me.chk_pass.BackColor = System.Drawing.Color.Transparent
Me.chk_pass.Location = New System.Drawing.Point(15, 62)
Me.chk_pass.Name = "chk_pass"
Me.chk_pass.Size = New System.Drawing.Size(15, 14)
Me.chk_pass.TabIndex = 8
Me.ToolTip1.SetToolTip(Me.chk_pass, "사용자 암호를 저장합니다")
Me.chk_pass.UseVisualStyleBackColor = False
'
'chk_id
'
Me.chk_id.AutoSize = True
Me.chk_id.BackColor = System.Drawing.Color.Transparent
Me.chk_id.Location = New System.Drawing.Point(15, 24)
Me.chk_id.Name = "chk_id"
Me.chk_id.Size = New System.Drawing.Size(15, 14)
Me.chk_id.TabIndex = 7
Me.ToolTip1.SetToolTip(Me.chk_id, "사용자 ID를 저장합니다")
Me.chk_id.UseVisualStyleBackColor = False
'
'Frm_Login
'
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(371, 123)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.tb_id)
Me.Controls.Add(Me.tb_pw)
Me.Controls.Add(Me.chk_pass)
Me.Controls.Add(Me.chk_id)
Me.Font = New System.Drawing.Font("굴림", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Login"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "사용자확인"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents chk_id As System.Windows.Forms.CheckBox
Friend WithEvents chk_pass As System.Windows.Forms.CheckBox
Friend WithEvents tb_id As System.Windows.Forms.TextBox
Friend WithEvents tb_pw As System.Windows.Forms.TextBox
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents lbl_ip As System.Windows.Forms.ToolStripStatusLabel
End Class

126
ArinWarev1/Forms_Basic/Frm_Login.resx Normal file
View File

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

204
ArinWarev1/Forms_Basic/Frm_Login.vb Normal file
View File

@@ -0,0 +1,204 @@
Public Class Frm_Login
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Save_SEtting()
Myini.Write("user", "chkid", Me.chk_id.Checked)
Myini.Write("user", "chkpass", Me.chk_pass.Checked)
If Me.chk_id.Checked Then
Myini.Write("user", "id", Me.tb_id.Text)
Else
Myini.Write("user", "id", "")
End If
If Me.chk_pass.Checked Then
Myini.Write("user", "pass", Me.tb_pw.Text)
Else
Myini.Write("user", "pass", "")
End If
End Sub
Private Sub Frm_Login_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Escape
Me.Close()
End Select
End Sub
Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'TODO: 이 코드는 데이터를 'DS.C2600' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
' Uselov = New Lov.ModLov(My.Settings.CS, "")
Me.lbl_ip.Text = "현재 IP:" & Prj.CUrIP & "/MAC:" & Prj.CUrMac & " 컴퓨터에서 접속하였습니다."
My.Application.DoEvents()
'//지정된 정보를 가져옵니다.
Try
Me.chk_id.Checked = CBool(Myini.Read("user", "chkid", CStr(True)))
Me.chk_pass.Checked = CBool(Myini.Read("user", "chkpass", CStr(True)))
Catch ex As Exception
Me.chk_id.Checked = False
Me.chk_pass.Checked = False
End Try
If Me.chk_id.Checked Then Me.tb_id.Text = Myini.Read("user", "id", "")
If Me.chk_pass.Checked Then Me.tb_pw.Text = Myini.Read("user", "pass", "")
End Sub
Private Function GetLevel(ByVal Dcode As String) As Short
'im DR() As DataRow = Me.DS.tbl_user.Select("uid='" & Dcode & "'")
'If DR Is Nothing Then Return 0 '//일반사원 반환
'Try
' Return CShort(DR(0)("level"))
'Catch ex As Exception
' Return 0
'End Try
End Function
Private Sub tb_pw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_pw.KeyDown
If e.KeyCode = Keys.Enter Then
'//지정된 id 와 비번으로 해당 계정이 존재하는지 확인한다.
login()
ElseIf e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End If
End Sub
Private Sub tb_id_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_id.GotFocus, tb_pw.GotFocus
CType(sender, TextBox).Focus()
CType(sender, TextBox).SelectAll()
End Sub
Private Sub tB_id_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_id.KeyDown
Select Case e.KeyCode
Case Keys.Enter
Me.tb_pw.Focus()
Case Keys.Escape
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End Select
End Sub
Private Sub login()
Work_msg("서버 응답을 기다리는중")
Dim L As New ArinLogin.ArinLOgin
Dim UseriNfo As ArinLogin.ArinLOgin.User_Info = L.Check_user("eco_user", Me.tb_id.Text, Me.tb_pw.Text)
Work_msg("")
Prj.Admin = False
If UseriNfo.name = "" Then
If Me.tb_id.Text = "guest" Then
UseriNfo.authtype = "IP"
Else
MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
Return
End If
End If
Select Case UseriNfo.authtype
Case "IP"
If Me.tb_id.Text <> "guest" Then
If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper Then
MsgBox("로그인사용자와 현재컴퓨터의 IP가 일치하지않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Else
Try
Dim userPass As String
Dim userMAC As String
Dim userIP As String
userMAC = Prj.CUrMac.GetHashCode
userIP = Prj.CUrIP.GetHashCode
userPass = userIP + userMAC
userPass = userPass.GetHashCode
If CLng(userPass) < 0 Then
userPass = (CLng(userPass) * -1).ToString
End If
If Me.tb_pw.Text <> userPass Then
MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
End
End If
Catch ex As Exception
MsgBox("존재하지 않는계정이거나 비밀번호오류입니다", MsgBoxStyle.Critical, "확인")
End
End Try
End If
Case "MAC" '//MAC인증일경우 현재MAC과 비교한다.
If Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then
MsgBox("로그인사용자와 현재컴퓨터의 MAC이 일치하지않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Case "BOTH", "BOTH1", "BOTH2" '// BOTH1, BOTH2 는 기존 일반사용자와 다른 권한 부여하기 위해 만듬. BOTH1은 가져오기 가능, BOTH2는 가져오기 + 프로파일 수정가능 2010.11.22 --- BOTH0 은 일반유저로 설정
If Prj.CUrIP.ToUpper <> UseriNfo.authip.ToUpper OrElse Prj.CUrMac.ToUpper <> UseriNfo.authmac.ToUpper Then
MsgBox("로그인사용자의 IP 또는 MAC이 일치하지 않습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Case "ADMIN"
Prj.Admin = True
Case "BOTH0"
Case Else
Return
End Select
Prj.LoginTime = Format(Now, "yyyy-MM-dd HH:mi:ss")
Prj.UserId = Me.tb_id.Text
Prj.UserPass = Me.tb_pw.Text
If Me.tb_id.Text = "guest" Then
Prj.UserAuthType = "BOTH0"
Else
Prj.UserAuthType = UseriNfo.authtype
End If
Save_SEtting()
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub
'Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
' Dim LF As New Frm_user("")
' If LF.ShowDialog = Windows.Forms.DialogResult.OK Then
' Me.tB_id.Text = LF.UID
' Me.tb_pw.Text = ""
' Me.tb_pw.Focus()
' Else
' Me.tB_id.Text = ""
' Me.tb_pw.Text = ""
' Me.tB_id.Focus()
' End If
'End Sub
Private Sub Frm_Intro_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
End Sub
Private Sub lbl_ip_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
Dim Str As New System.Text.StringBuilder
Str.AppendLine("### 다음내용을 관리자에게 메일로 보내주세요 ###")
Str.AppendLine("ip : " & Prj.CUrIP)
Str.AppendLine("mac : " & Prj.CUrMac)
'Str.AppendLine("lg : " & Prj.LGVersino)
'Str.AppendLine("ui : " & Prj.UIVersion)
My.Computer.FileSystem.WriteAllText("c:\address.txt", Str.ToString, False)
Shell("notepad c:\address.txt", AppWinStyle.NormalFocus)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
login()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
Private Sub btn_end_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End
End Sub
End Class

1607
ArinWarev1/Forms_Basic/Frm_RepResult_Admin.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

256
ArinWarev1/Forms_Basic/Frm_RepResult_Admin.resx Normal file
View File

@@ -0,0 +1,256 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>647, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABKklE
QVQ4T2MYPKBw1vP/TQue/8+c+Pg/VAgDhLc/wCnHkDvz2f9VR97/x6UovvvB/+CGa7gNyJjy9P/CfR+w
Korvefh/6f7///2rL+A2IKHnyf9pW95jKIpovw/WnDnr/3+v0hO4DYjsevS/d/UHFEWhrffAmlvXAW3v
/PvfJf8AbgMCmx/+r5v/Dq4ouOXu/0V7///vAGrOmPPzv13dz//2GdtxG+BRdf9//rQ3KIrsim//T5/z
+79/17f/OoXv/lskrMdtgH3p3f/Zk19jKNJPOf/fpOjFf5WsT/+NI5fhNsAi787/1P7XWBUZJJ34L5v2
9b9u8DzcBhhm3f4f1vISpyL91Mv/NXyn4TZAJ+3Gf7/qh3gVqXhMwG2AU+6V/yAFeBUNQsDAAADwdsCr
peWacAAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABSklE
QVQ4T2MYvODuAvb/t+Zx/r86h+v/xRm8/6HCxIPrQI1/HjX+//Ow4f/JyQKkG3B+Oi/cgIM9IqQbcHyS
IFBz3f8/D6r+72gXJ2zApZk8/89O5ft/EqjxSL/Q/33dIkDN5f//3iv6v75B5v+qGrn/SysV/88vVf4/
q0gV08BTQH/+eVgP1FQLxJX//9wrAeK8/3/vZv7/eyf5/9/bcf//3YwA4pD/k3I0MQ041CsMdu7f+6VA
jQVAjdlAjalAjQn//92KBmoM+//vRtD/f9f9/nel6WIasLNd4v+WZqn/68DOlf+/pELx/99bMUCN4f+n
5mn8n5Cl9b87Q/d/e6r+/+ZEQ8JhMhvoT5Bz/90I+N+ToUNYAzoA+fPfDX8g9vvfmqxPugHd6bpg/4Jw
fZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdAPoBBgYACQj2J51/IhpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton50.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAACL0lE
QVQ4T62S3UvTURjHf/9C990EXXRbU2M4F6vBr1xDWTYMK8JefpFmabpMExUr06j5BtkKl05arSbhpCJf
wBQpEWUqWZq5oiUONcUmgsHX85z98riKLqIHnpvD+XzOeV6k/xLPn4VB6WtdQot3EQ/d82hqDOGuYxp1
tV9gvxXA9fJJlJaMo7DgLfJyR3D+nB8qLkkEdnUCtTUr+Fssr6zClNqFQ6lPeaq4JHmfLHBBZcU39erv
QXBofhm7LC+g0SiwHvQIgfvBHBeUlnxVr0fHT/hjcAExZh8KLk3hgKVZCJwNM1xw0fZBRURshIcnQtgm
e5GTPYbkJKcQ1N8OckHW2REVi8SvcJ8/iM0GNxRlAGazQwhqqj9zgXJqQEX/DHf2f8Km+EYcPvIKiYl1
QnCjcgod7WCjBI4dfwPr0V7ebWoY1UzfppcjcDdSrC8hy3YhuFI2gTYf2A4Aza4fbO7fUX5tljeVGkY1
Z2b41+H9ya0wGiuE4HLhGDyPgPvOVbY4YZjSsqPSkm5D2pmiCJzE4H0eGAxlQmDLG2UwUF0V5i8TROcx
OhmD72cwOjkLJfcq9phaOKzb7YJeXyQEtJaOO1j/NgkIPp1/E+8CcwhML+JCsR2xBheDmxCbcA+6+Hwh
yMwYYnUvcXir0YMtO2Q8buuBr70PHd396H09iL1mKzT6BsQxeLu2HlptTrTg5Ikevp60YbQkNGcaFXWb
GkY106uUBO+MyxKCfw9JWgNsaDprRvk1ewAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAtklE
QVQ4T2MYOiC8/cF/KJN0EN/94H9wwzXyDIjvefh/6f7///2rL5BuQET7fbDmzFn//3uVniDNgNDWe2DN
reuAtnf+/e+Sf4B4A4Jb7v5ftPf//w6g5ow5P//b1f38b5+xnTQX2BXf/p8+5/d//65v/3UK3/23SFhP
ehjop5z/b1L04r9K1qf/xpHLSDcABAySTvyXTfv6Xzd4HnkGgIB+6uX/Gr7TyDcABFQ8JlBmwGAFDAwA
0BRgmAS6UFUAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAABLElE
QVQ4T2MYXKBw1vP/UCYGAMk1LXj+P3PiY5xqGHJnPvuf0H0PqwKQ3Koj7/+Htz/AbUDGlKf/5+3//T+h
6w6GIpDcwn0f/gc3XMNtQELPk/+z9/3637n173+30ssoCkFy07a8/+9ffQG3AZFdj/5P2fbrf8nSv/8T
pv/9b5N7Fq4YJNe7+sN/r9ITuA0IbH74v3Xte7Bm45Iv/6Wjr/03jlwG1gCSq5v/7r9L/gHcBnhU3f9f
MvcdXLOiSw9cMUguf9qb//YZ23EbYF96939gyzMMzSAAksue/Pq/RcJ63AZY5N35b1NwBUMzCIDkUvtf
w72EFRhm3caqGQRAcmEtL//rBs/DbYBO2g2ckiA5v+qH/zV8p+E2AB9wyr3yX8VjAhhDhQYFYGAAAL7R
v7O5DE6cAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA60AAAOtAGxNnosAAAAo0lE
QVQ4T2MYfKBw1vP/UCZ5IHfms/8J3ffINyRjytP/8/b//p/QdYc8QxJ6nvyfve/X/86tf/+7lV4m3ZDI
rkf/p2z79b9k6d//CdP//rfJPUuaIYHND/+3rn0P1mxc8uW/dPS1/8aRy4g3xKPq/v+Sue/gmhVdekhz
gX3p3f+BLc/I0wwCFnl3/tsUXCFPMwgYZt0mXzMI6KTdIF/zUAQMDACgfl+gBzRCOAAAAABJRU5ErkJg
gg==
</value>
</data>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>445, 17</value>
</metadata>
<data name="ToolStripButton51.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJ2SURBVDhPjVNdSJNhFH5bXdmFRFFeREQXRfQDJRlWZLra
mrOIDCEqQmrlTKkoIaHZoEKK1sAVS1dYiJCaCZUkKCRL20WmrXJ61U0UXhSMuen+n97n3adkdtGBw3u+
c57nOed83/uJv+2BEIZGIRzy9MkzSNdi5gwabL65hVgt/Y4ETn51XEfkvRfpnz+UM2aONWKI1WgZY0IW
WwKXK5D8/A742A/0tQKvmjLOeOSNqhFD7BwRqgYuWgC/F8nuZnwqP4y2lSvgWajDQPFuTD26AXS6gF4p
5H8LYslRZG3nyaSvB4nO+/CZC9jB6RFi/TUhFsnY/qGsGOl2Z0ak5wkSvtdqHfVOZOAYr6lAqr0B/qMm
RZaeRXF51vlK9iDW/wLpLjeij+uBZw1IyUbjlyzEOjiBb6L2FFLuWrTlLAU7z5AH9+1ArLcDqZcPMWY5
QkJwrPwgkhI7cdUCcgkMTtVbkbh7Hh6dDtrYdQOF2xDtbpWTuRA4YcY9IX7JvfOer8pBUmIjt6qUoBKI
2E4icdMCb/4GJu2DBVsw3dWMZMttjJbpFVlOlktxNolLLDlKgGN8LzcibjuGUPUBDOlzMd3RiITHjtFD
u2bJXIvrtS3LltjjIGdmBcdw4SbELpQgWmVC3G1D3HUFo+a8OWSJy5LuHCnajFhNKcghd/Yzhq1GRCsN
iFabELLuV+NxZzW27EzywNY1iMgm4Uoj65nPSOOlGMpfi+g5TUSCvug3onN5Npp0C/B0yWIM71yHyNm9
qk7s7EWiyQd1lVkIn8mA/uVhi16RiSVHo2eMCapyNHb7VrododNFyhkzxxox88h/mvZO/vN3FuI3yXDJ
RlfZIFMAAAAASUVORK5CYII=
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>529, 17</value>
</metadata>
<metadata name="bsmain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>722, 17</value>
</metadata>
<metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
</root>

58
ArinWarev1/Forms_Basic/Frm_RepResult_Admin.vb Normal file
View File

@@ -0,0 +1,58 @@
Public Class Frm_RepResult_Admin
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
Select Case Me.DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString
Case "MT"
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Green
Case "TT"
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Blue
Case "ST"
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Tomato
Case "SL"
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.DarkMagenta
Case Else
Me.DataGridView1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Black
End Select
End Sub
Private Sub Frm_RepResult_Admin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.bsmain.DataSource = DSETR1
Me.bs_1차소요량.DataSource = DSETR1
Me.bs_max.DataSource = DSETR1
Me.bs_면적.DataSource = DSETR1
Me.bs_생산E.DataSource = DSETR1
Me.bs_소요량.DataSource = DSETR1
Dim dv() As DataGridView = New DataGridView() {Me.DataGridView7, _
Me.DataGridView9, _
Me.DataGridView10, _
Me.DataGridView11, _
Me.DataGridView12, _
Me.DataGridView13, _
Me.DataGridView14, _
Me.DataGridView15, _
Me.DataGridView16, _
Me.DataGridView17, _
Me.DataGridView18, _
Me.DataGridView19}
For i As Integer = 1 To 12
Dim Bs As New BindingSource
Bs.DataSource = DSETR1
Bs.DataMember = "월별에너지분석"
Bs.Filter = "월='M" & Format(i, "00") & "'"
dv(i - 1).DataSource = Bs
Next
' Me.bs.DataSource = DSETR
End Sub
End Class

84
ArinWarev1/Forms_Basic/Frm_Warning.Designer.vb generated Normal file
View File

@@ -0,0 +1,84 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Warning
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Warning))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'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.Center
Me.Panel1.Controls.Add(Me.Label1)
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(4)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(273, 146)
Me.Panel1.TabIndex = 0
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("돋움", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(2, 108)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(270, 28)
Me.Label1.TabIndex = 0
Me.Label1.Text = "잠시만 기다려주세요"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Timer1
'
Me.Timer1.Interval = 20
'
'Frm_Warning
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.ClientSize = New System.Drawing.Size(273, 146)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Frm_Warning"
Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
Me.Text = "알림메세지"
Me.TopMost = True
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
End Class

176
ArinWarev1/Forms_Basic/Frm_Warning.resx Normal file
View File

@@ -0,0 +1,176 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Panel1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAsMAAALDAE/QCLIAAAKo0lE
QVR4XuXZCXBU9R0HcKzXKLCbOyG7icnGHMRAIQnhChC0gBQUaUGoM3Xa2tPOdDpTZ1oPjoBYFeQqgaqQ
GAiQO+QSSAiHCArFoxWqtoooZEM2m919b3ffe7ub5Nfff5OQfdlfyJ7UNsx8xt3v/t///a/3/7+MowBg
RCNDxrhPHXR8/bTP+fosoH7zB9WfoZDhrcDXz3yYr58OfF0OcOWaRVSZW4EMgw1n6Ttc9SRzt/kS9Eht
wFWliyyjygYbGQYb3zDzBcvxJfgR/3V1gqVlMfDVqX9mv91qZBhMONNjuIoHHN3mC9DDVoDwBXQZm8FU
ntbNfqOuCSYyDCa+YXqdcO4pcHz5LEgn0tB46Lq+C4T3fwZ8TXoLdU0wkWGwmMrTk7jKCd0O3R6QTmf1
DUAa2C4sAoe+BLjK9B5jiVpDXRssZBgsfG3Wv8RPngH7xZ9gx1NlHFfWAvuNr06/Sl0bLGQYDFzt1EV8
3dSeLu02kE6muw2A7ex06NIXAV87BbiyBLZDkvUEGhkGmvPYq8zgbf9e51zu0vEUkv3TXwMrw1WkCrfq
WCTDQMOXnTWWYw/3OC4/jx1NHtqpDOjSbgdL83zcD5JfpuoKNDIMJJxJBR5xdseVV8B2ZhrdcRf2j36I
+8ErYCpL7mLXUnUGEhkGEl+bXWc9s7LHfunnILXc70Z0y5LB8dUasJ5ZAXxV6jGqzkAiw0AxVTyQxlWk
dzm+3gDiyQxnZz0hvZ8HjqubcC9IY8diClV3oJBhoHDVEz8XP/wF2D54DMRjSV6xf/pbYNdylanfUHUH
ChkGAleT+Sgu/277F3/EWU2Wdc7cqIG2fQnwWUGcE/vMN2hkZaRTk4GtHL5mco/pYPwPqHsEAhn6Czev
23HjM9ku/g6k92Zjh1jnBnzx1zhYuTAFJmZNgAlo+YJk+Gyn2q2c7eMVwOowld1vMe5V3U7dy19k6C+u
ZnK+pWlut/3iUyA2J7ppXBUD47OzZWqfi3Ev24LvBriCzEfycBA0G6l7+YsM/WHcqw4xlSZLtk9/j298
E7EjCW6a1o6DzDlzYOq8eTB1/nzn58bVbADk5QQknfse2D9/BowHNA7DW6oQ6p7+IEN/4MZXaz21uMf2
wVIQm7AjhI+2qiFv6VKZD7eqyLJiUyJuiE+D5cRiMB1MCvixSIa+MpWmpnPlqXb7pd/gM4xHWtN9pMu7
42DOkiUyLKPKMtLpKbgK/gDG/UndnYXjxlP39hUZ+oqrGP+Z8N4ykM7OwYbHD+mrwjiY/cgjMiyjyvaz
fbwShLPLwViSeIW6t6/I0BdcecZSXP52299/DOJRnLmj2PAhfF0UB7mLFslcwYwqe0PLeOe7gfFgereh
MHY51QZfkKG3DMWqO40HkgzS31bgxjcJG8w6M7Rvit0HgGVUWVe2c/NBPP8EGArjzPpd0XdSbfEWGXrL
VJa+ztyQ47CdXwTiETzPh3FtbxzMXLhQ5ipmVFmZowlg/8eTwFVn9XQWqgJyLJKhNwxFseHGfYmCdGEZ
Hl248R3B3XwYrSVqmLFggQzLqLKDSadz8NX6CdC/rrJ1/CUynGqTN8jQG6aDqYcsR3O7xXdzQTis8oh2
vxqm4TuAK5ZRZd2pQbrwGJgbZvZ0vqlqotrkDTL0lKE4YYJxr0aSzj8CwpE4bFysR64fVMHUhx6SaTvA
OkeXH4xtiLYPHgf9G2pHx/aICVTbPEWGnjIWa/5pPTarRzw+EYS3sXFvj/NIe6kKpsydK9OOg0KVHYp0
Jg8szXmg3xV7mWqbp8jQE4aipGXG/cmSdDYPGxTjFV1ZLGTn5cmwjCo7JDxqpfOL8UTQdOl3RD5BtdET
ZDgcPILu6tyt1gsnZmFDkkBoxAZ5QV8eC1mzZ8t0YEaVvRnxRCYIJ+aCviCa022OuItq63DIcDiG3Qnr
TKVpNvFkFjYk2mudleNgcm6uTGcFLm2i7E31PQrG/and+p3Rm6i2DocMb0a3LTKqY2eMRTwxtXdTaozy
mqEqBibNmCHDMqrscMTmFBDfmQW6HdFS+5aIKKrNN0OGN6PfqarmKtO6xOZUEBqwET4wVUXDd6dNkzGy
ASDKekI8mQ18ZTrod8Z4fSyS4VA6tsZO7tgeYxVbcNdnM9AQ6ROuJgom5OTIcNW+1yccxrfIk1OgoyDG
ptsWMZlq+1DIcCi6rVEXzdUpPeyGQn2Ez/iaSMjIzpZhGVXWU2xFmutwFeyK/pJq+1DIkNK+Mepx/Q58
9pvuxxuG+8V8KALSMzNlWEaV9Rh7FFoyoHO3yo7H4pNUHyhkOJj2xZC7214O01nqEnHp4+5LNcALlreT
YfykSTKWxmSyrFcOx4MV68G/EYy6LRF3U30ZjAwHa3spLL/z9WhRaMS3tbowv1kPJ0PaxIkyVhwUqqx3
wvEPJg2YilXdnTsjN1N9GYwMXbXmh8RoN4RwlrpYsOINrHgjfwkt0yAlI0OGZVRZrzVEo3i2CgRcBTFU
n1yRoStc/pWGPeEOZ+drQwNCfOf78KdfDQwC+8wyqqxPGmKAK8E3zoKIo1SfXJFhv2urlJnaDUrOeoi4
iR+E5kwQ330UxPdWgnj2cez8w/j8JpFlfYMroT4SV0G42L4lPJvqWz8yZLDzt2nXKT/hSkKwwv9NfGko
6LaHf9m+Ofw2qo8MGTKta5Qr2zcpcPaxskNKP/XV4dI4C2YNL0VBzfpoPAIHcie3633XuSsMX47Cfkr1
kSHD1tWKe7TrFO3mMqykRgmW6l7sM3UTb1mwnqeWqOE+jcZpxYI44Fn9RFl/mSuUoNsSZmzfFHYP1Ve3
gNHmK17U71BarYcUYKkaC+bKsc7/su/+6W1U/YsREJ+QILP/ucgbv9PXes5SPYB9N7wZ2tWxLWwb1Ve3
oHW1UqVdrzRaqvo6X9ErEAMg4O4sHkmBqvVJoFKrZQqf1Th/ExrwuCWu9Ub/pPVPHBsI3dYwa/umcNXg
/sq+MLjxHTLuVjjYRXzpmD7Y+Rqs3F84u1JLDp75s2DJg0kQGxvrNG9GIvDNs0A6ju8CbD+grvUCa7u5
HAegD/tuKg7BQQh1+3+Lsi84+zltG5Qma81YZ8e5A6OdzBVjsGI2CP5jM2w/sxiEM8uhKH8WvLEqF8yn
l4H97KP4mh1HXuMLc3n/5I0Bc1lv+/ExEHQbw6e79vnGh2svKG7T5isvcfvwYuwwtx8732dw5X7Ds9p2
ag44zq0Ax/kfge2dBzHDFy2qrI8slQMT2D+J/AEFtL8Wevn6qwPH4o0B0K5VPql7TeGcfVPJaDDtu7cX
fmYXswpJVf36njdX1b2srgY1NFhY21wn0TmReH99QYitfXPoL2UD0LpKMVq7VqEzl/UufWPxvf8deweY
XPVNBoeT4TSoYze4zLhsEvvwpTiZ5bgKNoYZ8a/b0QMDsEbxqn6HQmCzZnzrXjAUfTuRg+YltjoMryu7
dZtCCpwDcO15RXxrvsLEOs9GzrDnnm8vYlC81f+4Xn85lG/bEBo/SrtGUWR4c2xX/3PDH8RBKMSb/R9i
J0P/HmHco+zUrg8tGKVdrbiIwVXpeCqewyMD9reDDYJ2fcj7o2Ym3LH03NNqGIlyE+9YOgr/adDCEUpz
4z1gpCLDkYQMRxIyHEnIcOSAUf8Bg2gMXEGUQa0AAAAASUVORK5CYII=
</value>
</data>
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
</root>

24
ArinWarev1/Forms_Basic/Frm_Warning.vb Normal file
View File

@@ -0,0 +1,24 @@
Public Class Frm_Warning
Public Term As Decimal = 0
Public Second As Decimal = 0
Dim Perc As Decimal
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Second -= TOSG(Me.Timer1.Interval / 100) '//타이머를 증가
If Second < 0 Then
Me.Timer1.Enabled = False
Me.Dispose()
Else
Perc = TOSG(1 * Second / Term)
Me.Opacity = Perc
End If
End Sub
End Class

94
ArinWarev1/Forms_Basic/Frm_Work.Designer.vb generated Normal file
View File

@@ -0,0 +1,94 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Work
Inherits CForm
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Panel1.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.ProgressBar1)
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(4)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(318, 96)
Me.Panel1.TabIndex = 0
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Label1.Font = New System.Drawing.Font("돋움", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(318, 78)
Me.Label1.TabIndex = 0
Me.Label1.Text = "잠시만 기다려주세요"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ProgressBar1
'
Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.ProgressBar1.Location = New System.Drawing.Point(0, 78)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(318, 18)
Me.ProgressBar1.TabIndex = 1
'
'Timer1
'
Me.Timer1.Interval = 1000
'
'Frm_Work
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.ClientSize = New System.Drawing.Size(318, 96)
Me.ControlBox = False
Me.Controls.Add(Me.Panel1)
Me.Font = New System.Drawing.Font("돋움", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "Frm_Work"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "알림메세지"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.Panel1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents Timer1 As System.Windows.Forms.Timer
End Class

123
ArinWarev1/Forms_Basic/Frm_Work.resx Normal file
View File

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

32
ArinWarev1/Forms_Basic/Frm_Work.vb Normal file
View File

@@ -0,0 +1,32 @@
Public Class Frm_Work
Public Sub New()
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Sub New(title As String)
' 이 호출은 디자이너에 필요합니다.
InitializeComponent()
Me.Text = title
' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오.
End Sub
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
End Class

173
ArinWarev1/Forms_Basic/Frm_import.Designer.vb generated Normal file
View File

@@ -0,0 +1,173 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Import
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Import))
Me.chk_deldata = New System.Windows.Forms.CheckBox()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.tb_file = New System.Windows.Forms.TextBox()
Me.rado = New System.Windows.Forms.RadioButton()
Me.radi = New System.Windows.Forms.RadioButton()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'chk_deldata
'
resources.ApplyResources(Me.chk_deldata, "chk_deldata")
Me.chk_deldata.Checked = True
Me.chk_deldata.CheckState = System.Windows.Forms.CheckState.Checked
Me.chk_deldata.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
Me.chk_deldata.Name = "chk_deldata"
Me.chk_deldata.UseVisualStyleBackColor = True
'
'ListView1
'
Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
Me.ListView1.CheckBoxes = True
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.FullRowSelect = True
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView1.HotTracking = True
Me.ListView1.HoverSelection = True
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.Name = "ListView1"
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1")
'
'ColumnHeader2
'
resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2")
'
'ColumnHeader3
'
resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3")
'
'tb_file
'
Me.tb_file.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
resources.ApplyResources(Me.tb_file, "tb_file")
Me.tb_file.Name = "tb_file"
'
'rado
'
resources.ApplyResources(Me.rado, "rado")
Me.rado.BackColor = System.Drawing.Color.Transparent
Me.rado.Checked = True
Me.rado.Name = "rado"
Me.rado.TabStop = True
Me.rado.UseVisualStyleBackColor = False
'
'radi
'
resources.ApplyResources(Me.radi, "radi")
Me.radi.BackColor = System.Drawing.Color.Transparent
Me.radi.Name = "radi"
Me.radi.UseVisualStyleBackColor = False
'
'Button2
'
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Transparent
resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.chk_deldata)
Me.Panel1.Controls.Add(Me.ListView1)
Me.Panel1.Controls.Add(Me.tb_file)
Me.Panel1.Controls.Add(Me.rado)
Me.Panel1.Controls.Add(Me.radi)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.PictureBox1)
Me.Panel1.Name = "Panel1"
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
'
'PictureBox1
'
resources.ApplyResources(Me.PictureBox1, "PictureBox1")
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.TabStop = False
'
'Frm_Import
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.Controls.Add(Me.Panel1)
Me.Name = "Frm_Import"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents chk_deldata As System.Windows.Forms.CheckBox
Friend WithEvents ListView1 As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents tb_file As System.Windows.Forms.TextBox
Friend WithEvents rado As System.Windows.Forms.RadioButton
Friend WithEvents radi As System.Windows.Forms.RadioButton
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
End Class

531
ArinWarev1/Forms_Basic/Frm_import.resx Normal file
View File

@@ -0,0 +1,531 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="chk_deldata.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="chk_deldata.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="chk_deldata.Location" type="System.Drawing.Point, System.Drawing">
<value>216, 61</value>
</data>
<data name="chk_deldata.Size" type="System.Drawing.Size, System.Drawing">
<value>218, 17</value>
</data>
<data name="chk_deldata.TabIndex" type="System.Int32, mscorlib">
<value>11</value>
</data>
<data name="chk_deldata.Text" xml:space="preserve">
<value>가져오는영역의 데이터 초기화</value>
</data>
<data name="chk_deldata.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;chk_deldata.Name" xml:space="preserve">
<value>chk_deldata</value>
</data>
<data name="&gt;&gt;chk_deldata.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;chk_deldata.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;chk_deldata.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ColumnHeader1.Width" type="System.Int32, mscorlib">
<value>255</value>
</data>
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
<value>66</value>
</data>
<data name="ColumnHeader3.Width" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="ListView1.Location" type="System.Drawing.Point, System.Drawing">
<value>16, 131</value>
</data>
<data name="ListView1.Size" type="System.Drawing.Size, System.Drawing">
<value>434, 265</value>
</data>
<data name="ListView1.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="&gt;&gt;ListView1.Name" xml:space="preserve">
<value>ListView1</value>
</data>
<data name="&gt;&gt;ListView1.Type" xml:space="preserve">
<value>System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ListView1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;ListView1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="tb_file.Location" type="System.Drawing.Point, System.Drawing">
<value>16, 105</value>
</data>
<data name="tb_file.Size" type="System.Drawing.Size, System.Drawing">
<value>433, 22</value>
</data>
<data name="tb_file.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;tb_file.Name" xml:space="preserve">
<value>tb_file</value>
</data>
<data name="&gt;&gt;tb_file.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tb_file.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;tb_file.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="rado.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="rado.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="rado.Location" type="System.Drawing.Point, System.Drawing">
<value>114, 60</value>
</data>
<data name="rado.Size" type="System.Drawing.Size, System.Drawing">
<value>81, 17</value>
</data>
<data name="rado.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="rado.Text" xml:space="preserve">
<value>내보내기</value>
</data>
<data name="&gt;&gt;rado.Name" xml:space="preserve">
<value>rado</value>
</data>
<data name="&gt;&gt;rado.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;rado.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;rado.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="radi.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="radi.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="radi.Location" type="System.Drawing.Point, System.Drawing">
<value>13, 60</value>
</data>
<data name="radi.Size" type="System.Drawing.Size, System.Drawing">
<value>81, 17</value>
</data>
<data name="radi.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="radi.Text" xml:space="preserve">
<value>가져오기</value>
</data>
<data name="&gt;&gt;radi.Name" xml:space="preserve">
<value>radi</value>
</data>
<data name="&gt;&gt;radi.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;radi.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;radi.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="Button2.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="Button2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 402</value>
</data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>439, 29</value>
</data>
<data name="Button2.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="Button2.Text" xml:space="preserve">
<value>실행</value>
</data>
<data name="&gt;&gt;Button2.Name" xml:space="preserve">
<value>Button2</value>
</data>
<data name="&gt;&gt;Button2.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>13, 81</value>
</data>
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>437, 22</value>
</data>
<data name="Button1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="Button1.Text" xml:space="preserve">
<value>파일선택</value>
</data>
<data name="&gt;&gt;Button1.Name" xml:space="preserve">
<value>Button1</value>
</data>
<data name="&gt;&gt;Button1.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="Panel1.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Center</value>
</data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>86, 34</value>
</data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>157, 13</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label2.Text" xml:space="preserve">
<value>해당 파일을 선택하세요</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>86, 12</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>173, 13</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>데이터 내보내기/가져오기</value>
</data>
<data name="Label1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleCenter</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>8</value>
</data>
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAAr/AAAK/wE0YpqCAAAI90lE
QVRoQ9XYCUxUdx4H8DeA14iCFypyiYhFIiynojZrbOw2XrFm12q9jdtQrdq1caubaDet7tqtSvGoVahS
QERuFVBBLQoedNfuJjTZ0qQcYodjhhmGN/cAv/393zDDvJnfALZ2U0g+ecPv/Y/v/13zgAOAIY0sDiVk
8QUa34va90KQRab9LPdzeXRkhRg7smaY2WeHfQOiMlHIIkMN+jzURQuT+PJ1wHQWxaVTbfpDZaKQRYYa
9DmMU6X7duM4wg9+7mE1hzb9wm6DQhYZatDBUhcmVOq+PgTdirvQrXwAun8egs7CuBqqrStUJgpZZKhB
B0OZ6hmuygzo6WorA+O9cEF3+2NQZQaCMsU9gupDoTJRyCJDDToY6pw5MuN3F8D4cKFtAabq34GxNg3U
OeFKqg+FykQhiww16EA6ssPeUOfH93Q1ngVjxWwwVITZdMmyQV0wF9TZwdupvo6oTBSyyFCDDmCYKsNf
b3p6DQOHi8IbvnoJDPciwdRUCqoMPxNr69DXCZWJQhYZatD+qPOikjTla8FUs9MSmGCuPYSP1bWgzg27
SI1hj8pEIYsMNWg/JqrSfLrMz/Ix6Cyxu2Lm5jJQpU3qZn0cxhChMlHIIkMN6greuBW66vd7jI9fxZCh
oCsPBXnODGjOCEbToS07GLRlM4V9pn+tAV31fryhw76hxrKiMlHIIkMNSlGmjI7E67rbXPcZGO5gSKTI
DYH7x2bA4cQw+DBxNhQfmQktWaGgv23Zb36aiffCtB7lefdopzE/s2ypTBSyyDgN7Kh3oo6s4CZDzSd4
s0ZguBDQlYVA/eczYf6iWJgdHy+ISIiD2tMhoL01Q2hjvD8PDN8mQcelILloPDtUJgpZZGwD9wO/nNar
86K7zd/uBcNtDNerKW0WxL7yCixYtkwQv2QJ1J7Do2/Xxlx7GPDG7+nImJLoGP6XXQCbwLIdjjejxvhd
MujLg0Vk6aHw21WrYNHrr9s0peElZN/uziwwfX+O3dAGNpYw7hkLBaIyUcgiYwvqqPcIdVyemcTfXNFt
rF6BgaaLNGeGwssrV4qwmmM745ONwN9YDqpLAReswRWnLahMFLLIWIPa2IVHPsqL40ym/34E+rIgJy2X
ZsKC5ctFWE3cLlBg+j4JlF94dylOcT7W8L/MAhA7QmzbkRl4W3t/S4+hItoWxF7b5RCnBbCa/hbud2Co
fBm097biK7ff14qTOAdz6gUswBpWtGXOSaOVaZNNpn8nYoAAkhyf+wmvvSbCak5tb/oLTDX7QJnq091+
xj1e/inHMVQmCllkhOvRyu7UKi9OqtM9eguPNAbqDeBIcWU6zMUnjz1Wo9oKymeB7tEOfN2e2CJPwgUg
KhOFLDLWUylg4XGrTJmwoSMr1GR8uBQn9nNJmRsEcYsXiyhz8Lq/gfudTBMYq/8AyvQQfMUYk9j2yYtY
QDKGtl6Tls8j2896qg2PNtsmpeiQMi8QYhYtElHmBeA+X9fY4h9vB8VJT13bx9xIKhOFLDIKPI1tJyyn
U4HXpOLzicfUeTFm/Z1IOkBpH1W+P0QtXCiiyvfDfVP7pa9IgI7L0T2KU+NSqUwUssiw8G3HbXzlyVK9
vnIpObEjdaEfRCYkiKgL8OyUTBmQoWo1tP5jlKn5I86XyuWILDKtH3M28uSxpZ2F8V26G4HkpI46C31h
Dr4D2essxMWVTB7YrRB8U50LbcfGPKRyOSKLTOsRjmu2iG1N8tTp78bSE1oV9+GLpkJ4TIwIX4SLK/YZ
FP1X86HlyGiz7APJfCqbPbLI4Cnkmj/kJK1HR9byhXPIiVzRXJ0MYVFRIpqrbN8ksesu4EHozIsE2Qcj
njX9mZNQ+azIIiM7yHGyv3psaD0+Vqu7GdT/hPZKsW1ZLETHRcCsCIuwyAisxeCZwvvg+sTBuYF/DP1t
bNePB4fvpPJZkUXmxwOcVHbQvZ1nTw9qAgfaaxMsivFpUrkCSk4vgT1b58GuLfMg8++LQX9/KWhxgbZ2
/Rov6Mz1g6f73PmG3ZyUysiQRebZAcnRthMj9fQEjiwTWulu4pvng9/jc30Lwu+NqlWgLQ10aie42r+W
oyN6mvZ7pFAZGbLYsJfzb9wn4TX5437CpNgH1aRMhLdW+8OmFQFQ+Ske+d76cynyBj7XCxr2uBnrEjl/
KqtTgWnaK7muOC3tEgYp9AZNgTcO5jC4KzgpszAuAPyDggSzXwqEluy+fQNic+Z7gbZgLP7uBfLkUdD4
J7cqKqtToX4HN//pe248G0Rb4AWanLGgwaNATkTyAkWON/gF+MM0/z5PzuDZwX39KuwjzJszBrR5uAjM
0fium6l+p2SRY17RLxhe0rhLUqtKHS0MqLkyBvjsMXg0LEeCZDepoBi/7G79Bta8GgRTfX0FC6L9QV2C
ryAlM7ANjjUImjyc+7InaBA7E8rzUqjf6fasbrv4sSpewNuSrU0HPHh2KbDV85mjgc/CAYgJXLo6QXji
KO+shLN/mQcn3osD2Y1lwpNJe20KtsGjaq/ANf4Szp8hxUWwA+oNTe97mOt3ue22z2wXnvOs3yFp78TQ
umuTgE+XQueX2PkKWwAOOMhJGd11/GPl0XowPHkXDN+g6m34/RBq14Yd1T4aF/gslmGUgM+RgjrLG+oT
JfwP2zhP5wW8IznefGSYTo9vk3wmdryAHa0ujrTDfkdphN7JBGnY9tJ4vAzwW/VL/MykY91RhguZCOdT
f2HB+utKp4DssEdPwx7JBdECGt7hghp2S3j+ihT/IAmwdEwZ8YIM//nODxcWoMGzoC32g/pdEsMPf+SC
bAto3CvJl58c3m24HYI3LZ6uDFxx6ohfDf4iSscF5I4S/ikmTxoGdW9zaX1nYK/kP5o8qei/yL92Tfvd
MDouAH98ctZwW6q2uSkebnWXVW12lz3YhNuNCLeVG9ybqze5N1Sux89vonV22+dh16dinbu8Yi2y3/YS
2qHHljmbq9i8GyweYCaWrXKzmyJnNbeFZWcLiEIxaGOvTWgzYg22oe3Iuu//jc3NMrAsLBPLZt3HMkcJ
l9BQRhaHErI4dAD3P/ArbcVv17aEAAAAAElFTkSuQmCC
</value>
</data>
<data name="PictureBox1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="PictureBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>14, 10</value>
</data>
<data name="PictureBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>48, 48</value>
</data>
<data name="PictureBox1.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms">
<value>AutoSize</value>
</data>
<data name="PictureBox1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;PictureBox1.Name" xml:space="preserve">
<value>PictureBox1</value>
</data>
<data name="&gt;&gt;PictureBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;PictureBox1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;PictureBox1.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>5, 3, 5, 3</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>455, 434</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>8, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>455, 434</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>돋움, 9.75pt, style=Bold</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>데이터관리</value>
</data>
<data name="&gt;&gt;ColumnHeader1.Name" xml:space="preserve">
<value>ColumnHeader1</value>
</data>
<data name="&gt;&gt;ColumnHeader1.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ColumnHeader2.Name" xml:space="preserve">
<value>ColumnHeader2</value>
</data>
<data name="&gt;&gt;ColumnHeader2.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ColumnHeader3.Name" xml:space="preserve">
<value>ColumnHeader3</value>
</data>
<data name="&gt;&gt;ColumnHeader3.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>Frm_Import</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

209
ArinWarev1/Forms_Basic/Frm_import.sr-Cyrl-CS.resx Normal file
View File

@@ -0,0 +1,209 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH
DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp
bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE
sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs
AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4
JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR
3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd
li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF
ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX
wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF
hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55
4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ
VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB
5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC
qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE
j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I
1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9
rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG
fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp
B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ
yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC
YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln
yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v
vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp
vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L
Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA
bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z
llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW
ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s
xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6
eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw
YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR
XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm
WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl
xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2
dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8
V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za
Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v
Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb
PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/
0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h
/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAACM9JREFUaEPtmQlQVEca
x98AAo6ciqjccgYpYTkVJbWUKbMprzLWxuh6oeWmUKNmSbnRrdJsJbprNirBI0YhQrhEbpRDQQ0KHmTX
7FaRqg1bFQ4xwzHDHLy5B/j26zeH82AGhiCCVaHqV92vX/f7/v/+ut/0DBQAUK8yr7R4MvGTbWA2BiFM
WhyzD+67SFETxEacH6gS5wdo8Dk2432WpaYnzYCkPCGVrtsMhP7y2OxXzYCrKNtjEGeR+cP6EBpwHY+J
Kc2ApCy+Qf7dMRgU3IVB4QOQ//MY9JfFNr8SBoQZDmGiXJ+hgd5aUN0LYxjsewyiXF8QpluHW2piyjIg
KVzMU/14BVQPEwwG1E2/A1VLFkgKw4TT2oC4IPRdSUnc0EDHRVDVLwJlfaiBAV4BSEqXgKTAf7clJqYi
AzNEOd4K9dPrKDqMJV757WugvBcB6s5qEOV4qdHAjLFMvHQDkuLIVGndJlA37wNGsAk0LcfwtboJJEWh
mdPNgJsoy31A86wEhYewuYvXRmi6akGUNXcQDbiNZuKlZgA3br286aMh1eM3UWwwyOuCgV8YAF05/shC
6C3wB1ltEHNP/a+NIG86jBs69PtpYUCYPisC1/WgpvVLUN5BkYigKBDunwqA48mh8EnyIqg8EQTd+cGg
uK29r3mai3vBc0h42TpqhIkvtUeYyc+ALpA4379T2fw5btpwFBcI8tpAaPsqCJYlxsCiuDiG8PhYaDkf
CLJbAUwf1f2loPwhFcR5fnyDAfI8IybfAM4SfjhtkRRHDWp+SAHlbRSnozMrBGLeeAOWr17NELdyJbRc
wtk36qNpOQ648YfEOfOTjYXr65NnQDfzGMgWN6NU9WMaKOr8WfCyg+G369dD4ttvG+jMwiVk3O9OCKj/
d4lsaCV5FiP8ghYBMnEDeqHDj9W6NIuvBqXSN9cOqprWorCFLLpyg+H1detYkLbh/VRPtgFdswZEeT5X
9MIF59EA8mIMGK9LYuT5tbsw01Wt/u+noKj1G0F3XhAsX7OGBWlj9/XFa1/MQioIv3YZEJyj3PXiJ8cA
iiepJSbEub63ZfeThpT1UYyI4fReDRxhgLQpbmHfYSgbXgfZvZ145Pb6TnAWYxDOvYAM6MWySmLgEjdK
mDVPrf53MorxMQkf3/vxb73FgrSN6H/TGxSIuvkQCDPcB/suWMfxv6AowoSXEBFuQLcuSWqFmXNb5Y/e
w1lHQToBw0vBtYWwBN88xpA2c/0VdSEgf7QXj9tu3fxUNIBM3IAulSSdzNrEUpg+Z6s4P1itergKxXiZ
RVjkB7ErVrAQFuJeqcExI/DENk9QNb0DwuxAPGI4Jvd+/iIMpOnWIzGirdv3XXSQKB/tYAKaQ473hMW+
EJ2YyEJY7APyGg/zkAl5vBsEZx3kvZ9R9hPPAKax94w2nQJck4Kv3E5JiqM1ijsRpkVUozgdohJviExI
YCEq8cL7C0ZFUR8P4qtRQ4JzrhkTNkDE95424MFP4yoUDavGFEFESsq8ICI+noWk1BPkVfPHRNm4AXr+
MVPd9SnlYYkJs5ul5zOK0sNPc6ruL4sbkNf4jimAiOwv84DFeAYypr8MZ79q3tjcCsST6hLoPeX4cGIG
TlBUl5aYnlQHueJuzOjBK1GcDrp8AYRFR7Ogy3H2K90tQvHtMug+MUvD+5izbCwTZjOAKaS6PqE4PSft
W+iyxRYF1guUVsyD0MhIFtIKIn4umxt4bQqciP7iCOB9bPes888UZzQTZg3wjlIU7682W3tOO8nkN/20
gc0FNG6vxr61MRAVGw4h4VpCI8KxLRoziPvghptl1OCXob85Dfx81HbfLzLw8xGKyztq3UeTt4cFQWXX
5wBD5QJQNKyFqvMr4eDOpbA/aSnk/n0FKO6vAhkaNfTT9zdZzsZ+s6G/yAueHrKm2w9QXHMmzGbg2RHO
yd4z9orxBCRBCfKbePJ88Ht8rych+LnRuB5k1b7MvRFUYNsodJ+0G+o8bJM+LgPtKZR3xyEOLS1x/QVB
cUyFKzSnu8F7G7xh+1ofaPgCZx7bxk25C9BFztB+0ErVmkx5mzJhMgOdKZwbgvPcASZgmQtIS11AVm6h
AAwqQxJifcDbz49h0Wu+0F2A43X3xixJzBJnkJU64Rhn4KfNhI4/WTVaZKBtL7Xs6YdWNBEuK3UGaaET
SHEWxgxqEOcMgkIX8PLxBk/v5zy5gEsFxYxKGd7XwcQtdARZMZpAHR0fWKnb9nESh5tgZQDFczr2c1pE
GbOYQNJrjkAXOOJsaGfCJEZBmeCV+GF36zew8U0/WODhwbA8yhskVXgEqQpAgfgsC5AWY+yrDiBFSCaE
l7nQts/qWetu9muVbWAPZ2fnERuaLB3ins6dBXQ+PsCCgIY+FXOYN47wzjq4+JelcObDWODVrGbeTLLr
8/FZOKvGlOK1Geg8jJ/DRRNkQl2g8yMbTdt+qwPGWTAYaNtDObTt5fT1o2j59blAZ3Oh/xscfI0YsDwo
ESO/gV90Hm0B5ZMPQPk90rQLz1DBRkLJrD5HinVT0PlEw0wGupALknwXaEvm0D/tohz0Jp4beJ9zuuvE
DLkCT5R0Lg68ggP1ZNpDvwFsz0SyTKALxgTNwjF5s3EZ4KfqN1gnZGP7cHKwzRS5JI49SL7WQsbLq+cD
77jNUPtBzhWWgfb3Kb/2AxyavsbFLyk+2oHpdi8IW3zOBLlsyxiQYhZklV7Qtp+j/OmPlB8xwWSgI4VT
wj9rO6i8HYibFtOVg44z7KYNdKYdLmk0UDST+XGMnzoDWvdQWQYD7Smc/0iLuaxfkY1/UZ6O9c7DVuT/
hxT5cy/cSCU17rISPNxpzWvcYc17sB3LbQiWDVutu5q2W7c3bMH6H5DNRiWpW4p+LPav32zNr9+EGJek
jjAxkMfamF2NJO5WLQ9QE9HWsMNKULiBSiLaiYFIJBrZpmM7ljsQ0mEXstvonr7PyypJbKKBaCGaiDZ9
bKI50uKfL8b6YjFV9381MFUzr4/7f/ArbcXZ8eUKAAAAAElFTkSuQmCC
</value>
</data>
</root>

715
ArinWarev1/Forms_Basic/Frm_import.vb Normal file
View File

@@ -0,0 +1,715 @@
Public Class Frm_Import
Dim RecordCount As Long
Dim TableList As DataTable
Dim IsExcel As Boolean = False
Private Sub Frm_Import_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'//테이블목록 추가
Add_Tablelist()
Me.Button2.Enabled = False '//실행버튼 사용불가
Me.IsExcel = False
End Sub
Private Sub Add_Tablelist()
Dim TabName As String
Dim TabDesc As String = ""
Dim Sort As String = ""
Me.TableList = New DataTable
Me.TableList.Columns.Add("Desc")
Me.TableList.Columns.Add("Name")
Me.TableList.Columns.Add("Sort")
Me.TableList.Columns.Add("Cnt")
For Each Dt As DataTable In DSET1.Tables
TabName = Dt.TableName
TabDesc = ""
Select Case TabName.ToUpper
'Case "TBL_BUHA"
'TabDesc = "부하"
'Sort = "00"
Case "TBL_BUNBAE"
TabDesc = "냉방분배"
Sort = "00"
'Case "TBL_COMMON"
'TabDesc = "공용코드"
'Sort = "00"
Case "TBL_DESC"
TabDesc = "건물개요"
Sort = "00"
Case "TBL_KONGJO"
TabDesc = "공조"
Sort = "00"
Case "TBL_KONGKUB"
TabDesc = "난방공급"
Sort = "00"
Case "TBL_MYOUN"
TabDesc = "입력면"
Sort = "00"
Case "TBL_NANBANGKIKI"
TabDesc = "난방기기"
Sort = "00"
Case "TBL_NANGBANGKIKI"
TabDesc = "냉방기기"
Sort = "00"
Case "TBL_NBUNBAE"
TabDesc = "난방분배"
Sort = "00"
Case "TBL_NEW"
TabDesc = "신재생및열병합"
Sort = "00"
'Case "TBL_PROFILE"
' TabDesc = "프로필"
' Sort = "00"
Case "TBL_ZONE"
TabDesc = "입력존"
Sort = "00"
Case "TBL_YK"
TabDesc = "열관류율(목록)"
Sort = "00"
Case "TBL_YKDETAIL"
TabDesc = "*열관류율(내역)"
Sort = "00"
'Case "TBL_WEATHER"
' TabDesc = "기상데이터(목록)"
' Sort = "00"
'Case "WEATHER_CHA"
'TabDesc = "*기상데이터(차양)"
'Sort = "00"
'Case "WEATHER_ILSA"
' TabDesc = "*기상데이터(일사)"
' Sort = "00"
'Case "WEATHER_SUPDO"
'TabDesc = "*기상데이터(습도)"
'Sort = "00"
'Case "WEATHER_ILSA"
'TabDesc = "*기상데이터(일사)"
'Sort = "00"
End Select
If TabDesc <> "" Then Me.TableList.Rows.Add(New String() {TabDesc, TabName, Sort})
Next
End Sub
Private Sub Frm_Import_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Me.DialogResult = Windows.Forms.DialogResult.Cancel
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If radi.Checked Then
File_Open()
Me.Button2.Enabled = True
Else
'//내보내기 기능
File_Save()
Me.Button2.Enabled = True
End If
End Sub
Private Sub File_Open()
Dim Od As New OpenFileDialog
Od.FileName = "c:\out.txt"
Od.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls"
Od.FilterIndex = 0
If Od.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
Me.tb_file.Text = Od.FileName
Me.IsExcel = IIf(Od.FilterIndex = 1, False, True)
'//테이블리스트의 데이터갯수 초기화
For Each Dr As DataRow In Me.TableList.Rows
Dr("cnt") = 0
Next
Me.TableList.AcceptChanges()
'//혹시 연속으로 열경우를 대비해서 초기화한다.
Select Case Od.FilterIndex
Case 1 '//텍스트파일
Dim Table As String
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
For Each B As String In BUf.Split(CChar(vbCrLf))
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then
Table = B.Split(CChar(vbTab))(0)
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
Dim DR() As DataRow = Me.TableList.Select("name='" & Table.Trim & "'")
If DR.GetUpperBound(0) = 0 Then
Try
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
Catch ex As Exception
DR(0)("cnt") = 1
End Try
End If
End If
Next
Case 2
'//엑셀데이터에서 정보를 얻어와야한다.
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
'//줄과 열의 갯수를 가져옵니다.
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
Dim ColCount As String = Rng.Offset(0, 5).Value
If rowCount.Trim = "" OrElse rowCount = "0" Then
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
If V = "" Then
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
Return
End If
If IsNumeric(V) = False Then
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
Return
End If
rowCount = V
End If
If rowCount.Trim = "" OrElse rowCount = "0" Then
ColCount = 60 '//60개를 넘지는 않으므로(아마두?)
End If
'//범위가 지정되었으므로 데이터를 확인한다.
'//데이터의 시작줄은 항상 5번이다.
Dim Tabname As String = ""
Dim 열 As New ArrayList
Dim z_cnt As Integer = 0
For r As Integer = 5 To rowCount
Try
Tabname = Rng.Offset(r, 0).Value.ToString.Trim '//0번째열은 항상 테이블 이름이 오도록한다
Catch ex As Exception
Tabname = ""
End Try
If Tabname = "" OrElse Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
Else '//테이블이름으로 판단하고 해당 리스트를 찾아서 값을 누적시킴
'//해당 테이블 이름을 테이블 리스트에 찾아서 카운터를 누적시킨다.
Dim DR() As DataRow = Me.TableList.Select("name='" & Tabname & "'")
If DR.GetUpperBound(0) = 0 Then
Try
DR(0)("cnt") = Val(DR(0)("cnt")) + 1
Catch ex As Exception
DR(0)("cnt") = 1
End Try
End If
End If
Next
'//Dispos Excel Object
xlBook.Close()
xlApp.Application.Quit()
xlApp.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet1 = Nothing
End Select
Me.ListView1.Items.Clear() '//리스트뷰클리어
Dim lv As ListViewItem
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
If DSET1.Tables(dr("name").ToString).Rows.Count > 0 Then
lv = Me.ListView1.Items.Add(dr("desc").ToString) '//테이블설명
lv.SubItems.Add(dr("cnt").ToString) '//레코드숫자
lv.SubItems.Add(dr("name").ToString) '//테이블이름
End If
Next
End Sub
Private Sub File_Save()
DSET1.AcceptChanges()
DSETR1.AcceptChanges()
Dim sd As New SaveFileDialog
sd.FileName = "c:\out.txt"
sd.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls"
sd.FilterIndex = 0
If sd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
Me.tb_file.Text = sd.FileName
Me.IsExcel = IIf(sd.FilterIndex = 1, False, True)
Me.ListView1.Items.Clear() '//기존의 목록제거
Dim Lv As ListViewItem
For Each dr As DataRow In Me.TableList.Select("", "sort") '//정렬시켜서 가져옴
If DSET1.Tables(dr("name")).Rows.Count > 0 Then
Lv = Me.ListView1.Items.Add(dr("desc")) '//테이블설명
Lv.SubItems.Add(DSET1.Tables(dr("name")).Rows.Count) '//레코드숫자
Lv.SubItems.Add(dr("name")) '//테이블이름
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If MsgBox("실행하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") <> MsgBoxResult.Ok Then Return
If Me.radi.Checked Then
If My.Computer.FileSystem.FileExists(Me.tb_file.Text) = False Then
MsgBox("해당파일이 존재하지않아서 가져올 수 없습니다", MsgBoxStyle.Critical, "확인")
Me.Button2.Enabled = False
Return
End If
If Me.IsExcel Then
InPutXls()
Else
INput()
End If
Else
If Me.IsExcel Then
OutputXLS()
Else
OutPut()
End If
End If
End Sub
Private Function Get_Listview(ByVal Tabname As String) As ListViewItem
Dim Tname As String
Dim R As ListViewItem = Nothing
For Each Lv As ListViewItem In Me.ListView1.Items
Tname = Lv.SubItems(2).Text
If Tname.ToUpper.Trim = Tabname.ToUpper.Trim Then
R = Lv
Exit For
End If
Next
Return R
End Function
Private Sub InPutXls()
'//가져오는 영역의 데이터 클리어
Work_msg("저장영역 데이터확인중...")
For Each Lview As ListViewItem In Me.ListView1.Items
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
Work_msg("데이터 삭제중(" & Lview.SubItems(2).Text & ")")
If DSET1.Tables(Lview.SubItems(2).Text).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
Dr.Delete()
Next
Else
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
Dr.Delete()
Next
End If
End If
Next
DSET1.AcceptChanges()
Dim NullCnt As Int16 = 0
Dim mytext1 As String = vbNullString
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Open(Me.tb_file.Text)
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets(1) '//첫번째 시트로고정
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
'//줄과 열의 갯수를 가져옵니다.
Dim rowCount As String = Rng.Offset(0, 4).Value '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
Dim ColCount As String = Rng.Offset(0, 5).Value
If rowCount.Trim = "" OrElse rowCount = "0" Then
Dim V As String = InputBox("전체줄의 갯수를 입력하세요", "데이터갯수입력", 1000)
If V = "" Then
MsgBox("불러올 줄수를 확인할 수 없습니다", MsgBoxStyle.Critical, "확인")
Return
End If
If IsNumeric(V) = False Then
MsgBox("숫자만 입력가능합니다", MsgBoxStyle.Critical, "확인")
Return
End If
rowCount = V
End If
If rowCount.Trim = "" OrElse rowCount = "0" Then
ColCount = 60 '//60개를 넘지는 않으므로
End If
'//범위가 지정되었으므로 데이터를 확인한다.
'//데이터의 시작줄은 항상 5번이다.
Dim Tabname As String = ""
Dim lv As ListViewItem
Dim 열 As New ArrayList
Dim z_cnt As Integer = 0
For r As Integer = 5 To rowCount
Try
Tabname = Rng.Offset(r, 0).Value.ToString '//0번째열은 항상 테이블 이름이 오도록한다
Catch ex As Exception
Tabname = ""
End Try
If Tabname.Trim.ToUpper = "TABLE" Then '//이건 테이블을 제목줄이다
열 = New ArrayList '//열제목을 이곳에 모두 넣는다.
For c As Integer = 1 To ColCount
Try
If Rng.Offset(r, c).Value.ToString.Trim <> "" AndAlso Rng.Offset(r, c).Value.ToString.Trim <> "0" Then '//열제목이있다
열.Add(Rng.Offset(r, c).Value.ToString.Trim)
End If
Catch ex As Exception
End Try
Next
Else
If 열.Count > 0 AndAlso Tabname.Trim <> "" Then '//열제목이 설정되어잇어야 돌아가도록
lv = Get_Listview(Tabname)
If lv.Checked Then '//가져오기설정과 테이블이름이 잇어야함
Work_msg("가져오는중(" & Tabname & ")")
Dim Dr As DataRow = DSET1.Tables(Tabname).NewRow
Dr("code") = Format(DSET1.Tables(Tabname).Rows.Count, "0000")
For c As Integer = 1 To 열.Count
Try
Dr(열.Item(c - 1).ToString) = Rng.Offset(r, c).Value
Catch ex As Exception
Dr(열.Item(c - 1).ToString) = DBNull.Value
End Try
Next
Try
DSET1.Tables(Tabname).Rows.Add(Dr)
DSET1.Tables(Tabname).AcceptChanges()
z_cnt += 1
Catch ex As Exception
End Try
End If
End If
End If
Next
Work_msg("")
'//Dispos Excel Object
xlBook.Close()
xlApp.Application.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet1 = Nothing
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
Me.Close()
' Process.Start(Me.tb_file.Text)
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
End Sub
Private Sub INput() '//텍스트파일 가져오기
Dim BUf As String = My.Computer.FileSystem.ReadAllText(Me.tb_file.Text, System.Text.Encoding.Default)
Dim Table As String
Dim 열 As String = ""
For Each Lview As ListViewItem In Me.ListView1.Items
If Lview.Checked And Me.chk_deldata.Checked Then ' '//삭제명령이 잇엇다면 삭제를 한다.
Dim TAblename As String = Lview.SubItems(2).Text
If DSET1.Tables(TAblename).Columns.IndexOf("code") <> -1 Then '//코드가잇는 개체라면 코드빼고 삭제
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Select("Code<>'0'")
Dr.Delete()
Next
Else
For Each Dr As DataRow In DSET1.Tables(Lview.SubItems(2).Text).Rows
Dr.Delete()
Next
End If
End If
Next
DSET1.AcceptChanges()
Dim Lv As ListViewItem
Dim z_cnt As Integer = 0
Dim e_cnt As Integer = 0
For Each B As String In BUf.Split(CChar(vbCrLf)) '//데이터를 실제로 가져온다
If B.Trim <> "" AndAlso B.Trim.Substring(0, 1) <> "#" Then '//주석데이터도제거
Table = B.Split(CChar(vbTab))(0).Trim
Select Case Table.ToUpper
Case "TABLE"
열 = B.Trim
Case Else
'//해당테이블명이 리뷰에 있는지확인하고 그것의 사용체크가되어있는지확인
Lv = Get_Listview(Table)
If Not Lv Is Nothing Then
If Lv.Checked Then '//사용여부확인
Dim Dr As DataRow = DSET1.Tables(Table).NewRow
Dr("code") = Format(DSET1.Tables(Table).Rows.Count, "0000")
For i As Integer = 1 To B.Split(CChar(vbTab)).GetUpperBound(0)
Try
Dr(열.Split(CChar(vbTab))(i)) = B.Split(CChar(vbTab))(i)
Catch ex As Exception
Dr(열.Split(CChar(vbTab))(i)) = DBNull.Value
End Try
Next
Try
DSET1.Tables(Table).Rows.Add(Dr)
DSET1.Tables(Table).AcceptChanges()
z_cnt += 1
'Catch sqlex As SqlClient.SqlException
' MsgBox(sqlex.ErrorCode)
Catch ex As Exception
' MsgBox(ex.Message.ToString)
If ex.Message.ToString.IndexOf("고유 값") <> -1 Then
z_cnt += 1
Else
e_cnt += 1
End If
End Try
End If
End If
End Select
End If
Next
DSET1.AcceptChanges()
' MsgBox(DSET1.tbl_zone.Rows.Count)
Dim M As New System.Text.StringBuilder
M.AppendLine(z_cnt & "개의 데이터가 추가됨")
M.AppendLine(e_cnt & "개의 오류발생")
MsgBox(M.ToString, MsgBoxStyle.Information, "OK")
End Sub
'//텍스트파일 내보내기
Private Sub OutPut()
Work_msg("기본정보생성중...")
Dim Wb As New System.Text.StringBuilder
Wb.AppendLine("#### ECO2 Data ####")
Wb.AppendLine("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
Wb.AppendLine("#### Export by Eco2 ####")
Dim Tabname As String = ""
For Each lv As ListViewItem In Me.ListView1.Items
If lv.Checked Then '//체크된것만 내보낸다
Tabname = lv.SubItems(2).Text
Work_msg("내보내는중(" & Tabname & ")")
Wb.Append("table") '///////////////////////
For Each C As System.Data.DataColumn In DSET1.Tables(Tabname).Columns
Wb.Append(vbTab & C.ColumnName)
Next
Wb.Append(vbCrLf)
For Each C As DataRow In DSET1.Tables(Tabname).Rows
Wb.Append(Tabname)
For i As Integer = 0 To DSET1.Tables(Tabname).Columns.Count - 1
'If (Tabname.ToUpper = "TBL_MYOUN") Then
' If DSET1.Tables(Tabname).Columns(i).ColumnName.ToUpper.Trim = "열관류율" Then
' If CSng(C(i)) = 0 Then '//링크값사용
' Dim Dr As DS.tbl_ykRow = DSET1.tbl_yk.Select("code='" & C("열관류율2") & "'")(0)
' Wb.Append(vbTab & Dr("열관류율").ToString)
' Else '//입력값사용
' Wb.Append(vbTab & C(i).ToString)
' End If
' Else
' Wb.Append(vbTab & C(i).ToString)
' End If
'Else
' Wb.Append(vbTab & C(i).ToString)
'End If
Wb.Append(vbTab & C(i).ToString)
Next
Wb.Append(vbCrLf)
Next
End If
Next
Work_msg("")
My.Computer.FileSystem.WriteAllText(Me.tb_file.Text, Wb.ToString, False, System.Text.Encoding.Default)
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
Process.Start(Me.tb_file.Text)
End If
Me.Close()
End Sub
Private Sub OutputXLS()
Dim NullCnt As Int16 = 0
Dim mytext1 As String = vbNullString
Dim xlApp As Excel.Application = New Excel.Application ' CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
xlApp.Visible = False
xlApp.ReferenceStyle = Excel.XlReferenceStyle.xlA1
Dim xlBook As Excel.Workbook = xlApp.Workbooks.Add
Dim xlSheet1 As Excel.Worksheet = xlBook.Worksheets.Add
Work_msg("데이터수 확인중...")
'//전체데이터갯수를 가지고 배열을 정의한다.
Dim Rcnt As Integer = 0
Dim Ccnt As Integer = 0
Dim TabName As String = ""
For Each Lv As ListViewItem In Me.ListView1.Items
If Lv.Checked Then
TabName = Lv.SubItems(2).Text
Rcnt += DSET1.Tables(TabName).Rows.Count
If DSET1.Tables(TabName).Columns.Count > Ccnt Then Ccnt = DSET1.Tables(TabName).Columns.Count
End If
Next
'//제목줄 5줄을포함
'If Ccnt < 5 Then Ccnt = 5
Work_msg("저장영역할당....")
Dim saRet(Rcnt + 50, 52) As String '//여유잇게 할당
For i As Integer = 0 To Rcnt + 10 - 1
For j As Integer = 0 To Ccnt + 5 - 1
saRet(i, j) = ""
Next
Next
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
Work_msg("기본정보를 내보냅니다....")
'//export title (제목내보내기)
'Rng.Offset(0, 0).Value = "#### ECO2 Data ####"
'Rng.Offset(1, 0).Value = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
'Rng.Offset(2, 0).Value = ("#### Export by Eco2 ####")
saRet(0, 0) = "#### ECO2 Data ####"
saRet(1, 0) = ("#### Export Time : " & Format(Now, "yyyy-MM-dd HH:mm:ss") & " ####")
saRet(2, 0) = ("#### Export by Eco2 ####")
'//Export SUbTitle(부가적인정보내보내기)
'Rng.Offset(0, 4).Value = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
'Rng.Offset(0, 5).Value = Ccnt - 1 '//열수를 입력
saRet(0, 4) = Rcnt + 4 '//줄수를 입력(나중에 불러올때 가져올범위를 대략 판단)
saRet(0, 5) = Ccnt - 1 '//열수를 입력
Dim RowIndex As Integer = 5
Dim ColIndex As Integer = 0
For Each Lv As ListViewItem In Me.ListView1.Items
If Lv.Checked Then
TabName = Lv.SubItems(2).Text
Work_msg("내보내는중(" & TabName & ")")
'Set_ArrayData(Rng, RowIndex, DSET1.Tables(TabName))
Set_ArrayData(saRet, RowIndex, DSET1.Tables(TabName))
End If
Next
Try
My.Computer.FileSystem.DeleteFile(Me.tb_file.Text) '//대상파일이 존재하면 삭제해버림
Catch ex As Exception
End Try
xlSheet1.Range("A1:AZ" & CStr(Rcnt + 10).ToString).Value = saRet
'xlApp.Visible = True
xlBook.Saved = True
'xlSheet1.SaveAs(Me.tb_file.Text)
xlSheet1.SaveAs(Me.tb_file.Text, _
Excel.XlFileFormat.xlExcel7, _
Nothing, Nothing, Nothing, Nothing, _
Nothing, Nothing, Nothing, Nothing)
xlBook.Close()
xlApp.Application.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet1 = Nothing
Work_msg("")
If MsgBox("내보내기 완료" & vbCrLf & "파일을 확인하시겠습니까?", _
vbInformation Or vbOK, "확인") = MsgBoxResult.Ok Then
Process.Start(Me.tb_file.Text)
End If
Me.Close()
' Process.Start(Me.tb_file.Text)
'Shell(Me.tb_file.Text, AppWinStyle.NormalFocus)
End Sub
Private Sub Set_ArrayData(ByRef Rng As Excel.Range, ByRef RowIndex As Integer, ByVal Dt As DataTable)
RowIndex += 1
Rng.Offset(RowIndex, 0).Value = "table" '//테이블컬럼명을 내보낸다
'//Export ColumnData
For i As Integer = 0 To Dt.Columns.Count - 1
Rng.Offset(RowIndex, i + 1).Value2 = Dt.Columns(i).ColumnName.ToString
Next
'//Export RowData
For Each C As DataRow In Dt.Rows
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
Rng.Offset(RowIndex, 0).Value = Dt.TableName
For i As Integer = 0 To Dt.Columns.Count - 1
Rng.Offset(RowIndex, i + 1).Value2 = C(i).ToString
Next
Next
End Sub
Private Sub Set_ArrayData(ByRef Rng(,) As String, ByRef RowIndex As Integer, ByVal Dt As DataTable)
RowIndex += 1
Rng(RowIndex, 0) = "table" '//테이블컬럼명을 내보낸다
'//Export ColumnData
For i As Integer = 0 To Dt.Columns.Count - 1
Rng(RowIndex, i + 1) = Dt.Columns(i).ColumnName.ToString
Next
'//Export RowData
For Each C As DataRow In Dt.Rows
RowIndex += 1 ': ReDim Preserve saRet(RowIndex, 255)
Rng(RowIndex, 0) = Dt.TableName
For i As Integer = 0 To Dt.Columns.Count - 1
Rng(RowIndex, i + 1) = C(i).ToString
Next
Next
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'//d요부분만 추가됫어요
Me.Close()
End Sub
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim a As Graphics = e.Graphics
Dim b As New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, 500), Color.WhiteSmoke, _
Color.DarkGray, Drawing2D.LinearGradientMode.Vertical)
a.FillRectangle(b, 0, 0, Me.Width, Me.Height)
'a.FillRectangle(b, Me.Width, 0, Me.Width, 30)
b.Dispose()
a.Dispose()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet1 As Excel.Worksheet
xlApp = New Excel.Application ' CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Open("c:\out.xls")
xlSheet1 = xlBook.Worksheets(1) '//첫번째 시트로고정
Dim Rng As Excel.Range = xlSheet1.Range("A1") '//Offset으로사용할것이므로 0,0셀을 선택한다
xlApp.Visible = True
MsgBox("가져오기완료", MsgBoxStyle.Information, "확인")
'//Dispos Excel Object
'xlBook.displayalerts = False
xlBook.Saved = True
xlBook.Close()
xlApp.Application.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet1 = Nothing
Me.Close()
' Process.Start(M
End Sub
End Class