initial commit

This commit is contained in:
raytrace
2018-12-09 20:18:51 +09:00
commit 9aef53ee89
477 changed files with 2867797 additions and 0 deletions

View File

@@ -0,0 +1,178 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_import2
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_import2))
Me.Panel1 = New System.Windows.Forms.Panel()
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.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()
'
'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"
'
'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
'
'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.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_Import"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents rado As System.Windows.Forms.RadioButton
Friend WithEvents radi As System.Windows.Forms.RadioButton
Friend WithEvents tb_file As System.Windows.Forms.TextBox
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 chk_deldata As System.Windows.Forms.CheckBox
End Class

View File

@@ -0,0 +1,513 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Panel1.BackgroundImageLayout" type="System.Windows.Forms.ImageLayout, System.Windows.Forms">
<value>Center</value>
</data>
<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.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>189, 56</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>14, 121</value>
</data>
<data name="ListView1.Size" type="System.Drawing.Size, System.Drawing">
<value>380, 245</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>14, 97</value>
</data>
<data name="tb_file.Size" type="System.Drawing.Size, System.Drawing">
<value>379, 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>100, 55</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.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 55</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.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 371</value>
</data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>384, 27</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.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 75</value>
</data>
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>382, 20</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="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>75, 31</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.Location" type="System.Drawing.Point, System.Drawing">
<value>75, 11</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.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 9</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>4, 3, 4, 3</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>408, 411</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>0</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>408, 411</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>돋움, 9.75pt, style=Bold</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 3, 4, 3</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>Eco2Ar.CForm, Eco2Ar, Version=1.2013.1208.2322, Culture=neutral, PublicKeyToken=null</value>
</data>
</root>

View File

@@ -0,0 +1,722 @@
Public Class Frm_import2
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
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

View File

@@ -0,0 +1,106 @@
<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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_About))
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.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(74, 14)
Me.Label6.TabIndex = 3
Me.Label6.Text = "[만든 이]"
'
'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(16, 46)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(129, 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(16, 66)
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(16, 86)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(119, 12)
Me.Label3.TabIndex = 1
Me.Label3.Text = "UI Design(Yoojm)"
'
'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.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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
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 = "프로그램정보"
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
Private Sub Frm_About_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated
End Sub
End Class

File diff suppressed because it is too large Load Diff

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

View File

@@ -0,0 +1,305 @@
<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 Eco2OD.DS()
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
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.ToolStripButton1 = 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()
Me.ta = New Eco2OD.DSTableAdapters.tbl_common_odTableAdapter()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.tbFilter = New System.Windows.Forms.ToolStripTextBox()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Tbl_commonDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bn
'
Me.bn.AddNewItem = Me.BindingNavigatorAddNewItem
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.BindingNavigatorCountItem
Me.bn.DeleteItem = Me.BindingNavigatorDeleteItem
Me.bn.Font = New System.Drawing.Font("돋움", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.Tbl_commonBindingNavigatorSaveItem, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.ToolStripLabel1, Me.tbFilter})
Me.bn.Location = New System.Drawing.Point(0, 0)
Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem
Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.BindingNavigatorPositionItem
Me.bn.Size = New System.Drawing.Size(791, 25)
Me.bn.TabIndex = 3
Me.bn.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 = "새로 추가"
'
'bs
'
Me.bs.DataMember = "tbl_common_od"
Me.bs.DataSource = Me.DS
'
'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 = "데이터 저장"
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(125, 22)
Me.ToolStripButton1.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.bs
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
'
'ta
'
Me.ta.ClearBeforeFill = True
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(32, 22)
Me.ToolStripLabel1.Text = "Filter"
'
'tbFilter
'
Me.tbFilter.Name = "tbFilter"
Me.tbFilter.Size = New System.Drawing.Size(200, 25)
'
'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.bn)
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.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
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 Eco2OD.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents ta As Eco2OD.DSTableAdapters.tbl_common_odTableAdapter
Friend WithEvents bn 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
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents tbFilter As System.Windows.Forms.ToolStripTextBox
End Class

View File

@@ -0,0 +1,227 @@
<?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="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>210, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.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>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>84, 17</value>
</metadata>
<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>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ta.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>148, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,39 @@
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.bs.EndEdit()
Me.ta.Update(Me.DS.tbl_common_od)
End Sub
Private Sub Frm_Common_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
bs.DataSource = Pub.DSET1.tbl_common_od
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.ta.Fill(DSET1.tbl_common_od)
End Sub
Private Sub ToolStripTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles tbFilter.TextChanged
Try
bs.Filter = tbFilter.Text
tbFilter.BackColor = Color.White
Catch ex As Exception
bs.Filter = ""
tbFilter.BackColor = Color.HotPink
End Try
End Sub
End Class

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

View File

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

View File

@@ -0,0 +1,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

View File

@@ -0,0 +1,875 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_ExtReport
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.components = New System.ComponentModel.Container()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.DSR = New Eco2OD.DSR()
Me.C001DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C002DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C003DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C004DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C005DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C006DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C007DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C008DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C009DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C010DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C011DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C012DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C013DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C014DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C015DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C016DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C017DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C018DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C019DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C020DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C021DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C022DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C023DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C024DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C025DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C026DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C027DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C028DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C029DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C030DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C031DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C032DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C033DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C034DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C035DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C036DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C037DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C038DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C039DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C040DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C041DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C042DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C043DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C044DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C045DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C046DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C047DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C048DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C049DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C050DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C051DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C052DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C053DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C054DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C055DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C056DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C057DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C058DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C059DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C060DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C061DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C062DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C063DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C064DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C065DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C066DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C067DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C068DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C069DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C070DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C071DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C072DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C073DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C074DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C075DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C076DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C077DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C078DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C079DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C080DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C081DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C082DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C083DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C084DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C085DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C086DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C087DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C088DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C089DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C090DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C091DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C092DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C093DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C094DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C095DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C096DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C097DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C098DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C099DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.C100DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DataGridView1
'
Me.DataGridView1.AutoGenerateColumns = False
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.C001DataGridViewTextBoxColumn, Me.C002DataGridViewTextBoxColumn, Me.C003DataGridViewTextBoxColumn, Me.C004DataGridViewTextBoxColumn, Me.C005DataGridViewTextBoxColumn, Me.C006DataGridViewTextBoxColumn, Me.C007DataGridViewTextBoxColumn, Me.C008DataGridViewTextBoxColumn, Me.C009DataGridViewTextBoxColumn, Me.C010DataGridViewTextBoxColumn, Me.C011DataGridViewTextBoxColumn, Me.C012DataGridViewTextBoxColumn, Me.C013DataGridViewTextBoxColumn, Me.C014DataGridViewTextBoxColumn, Me.C015DataGridViewTextBoxColumn, Me.C016DataGridViewTextBoxColumn, Me.C017DataGridViewTextBoxColumn, Me.C018DataGridViewTextBoxColumn, Me.C019DataGridViewTextBoxColumn, Me.C020DataGridViewTextBoxColumn, Me.C021DataGridViewTextBoxColumn, Me.C022DataGridViewTextBoxColumn, Me.C023DataGridViewTextBoxColumn, Me.C024DataGridViewTextBoxColumn, Me.C025DataGridViewTextBoxColumn, Me.C026DataGridViewTextBoxColumn, Me.C027DataGridViewTextBoxColumn, Me.C028DataGridViewTextBoxColumn, Me.C029DataGridViewTextBoxColumn, Me.C030DataGridViewTextBoxColumn, Me.C031DataGridViewTextBoxColumn, Me.C032DataGridViewTextBoxColumn, Me.C033DataGridViewTextBoxColumn, Me.C034DataGridViewTextBoxColumn, Me.C035DataGridViewTextBoxColumn, Me.C036DataGridViewTextBoxColumn, Me.C037DataGridViewTextBoxColumn, Me.C038DataGridViewTextBoxColumn, Me.C039DataGridViewTextBoxColumn, Me.C040DataGridViewTextBoxColumn, Me.C041DataGridViewTextBoxColumn, Me.C042DataGridViewTextBoxColumn, Me.C043DataGridViewTextBoxColumn, Me.C044DataGridViewTextBoxColumn, Me.C045DataGridViewTextBoxColumn, Me.C046DataGridViewTextBoxColumn, Me.C047DataGridViewTextBoxColumn, Me.C048DataGridViewTextBoxColumn, Me.C049DataGridViewTextBoxColumn, Me.C050DataGridViewTextBoxColumn, Me.C051DataGridViewTextBoxColumn, Me.C052DataGridViewTextBoxColumn, Me.C053DataGridViewTextBoxColumn, Me.C054DataGridViewTextBoxColumn, Me.C055DataGridViewTextBoxColumn, Me.C056DataGridViewTextBoxColumn, Me.C057DataGridViewTextBoxColumn, Me.C058DataGridViewTextBoxColumn, Me.C059DataGridViewTextBoxColumn, Me.C060DataGridViewTextBoxColumn, Me.C061DataGridViewTextBoxColumn, Me.C062DataGridViewTextBoxColumn, Me.C063DataGridViewTextBoxColumn, Me.C064DataGridViewTextBoxColumn, Me.C065DataGridViewTextBoxColumn, Me.C066DataGridViewTextBoxColumn, Me.C067DataGridViewTextBoxColumn, Me.C068DataGridViewTextBoxColumn, Me.C069DataGridViewTextBoxColumn, Me.C070DataGridViewTextBoxColumn, Me.C071DataGridViewTextBoxColumn, Me.C072DataGridViewTextBoxColumn, Me.C073DataGridViewTextBoxColumn, Me.C074DataGridViewTextBoxColumn, Me.C075DataGridViewTextBoxColumn, Me.C076DataGridViewTextBoxColumn, Me.C077DataGridViewTextBoxColumn, Me.C078DataGridViewTextBoxColumn, Me.C079DataGridViewTextBoxColumn, Me.C080DataGridViewTextBoxColumn, Me.C081DataGridViewTextBoxColumn, Me.C082DataGridViewTextBoxColumn, Me.C083DataGridViewTextBoxColumn, Me.C084DataGridViewTextBoxColumn, Me.C085DataGridViewTextBoxColumn, Me.C086DataGridViewTextBoxColumn, Me.C087DataGridViewTextBoxColumn, Me.C088DataGridViewTextBoxColumn, Me.C089DataGridViewTextBoxColumn, Me.C090DataGridViewTextBoxColumn, Me.C091DataGridViewTextBoxColumn, Me.C092DataGridViewTextBoxColumn, Me.C093DataGridViewTextBoxColumn, Me.C094DataGridViewTextBoxColumn, Me.C095DataGridViewTextBoxColumn, Me.C096DataGridViewTextBoxColumn, Me.C097DataGridViewTextBoxColumn, Me.C098DataGridViewTextBoxColumn, Me.C099DataGridViewTextBoxColumn, Me.C100DataGridViewTextBoxColumn})
Me.DataGridView1.DataSource = Me.BindingSource1
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.RowTemplate.Height = 23
Me.DataGridView1.Size = New System.Drawing.Size(830, 568)
Me.DataGridView1.TabIndex = 0
'
'BindingSource1
'
Me.BindingSource1.DataMember = "ExtReport"
Me.BindingSource1.DataSource = Me.DSR
'
'DSR
'
Me.DSR.DataSetName = "DSR"
Me.DSR.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'C001DataGridViewTextBoxColumn
'
Me.C001DataGridViewTextBoxColumn.DataPropertyName = "c001"
Me.C001DataGridViewTextBoxColumn.HeaderText = "c001"
Me.C001DataGridViewTextBoxColumn.Name = "C001DataGridViewTextBoxColumn"
'
'C002DataGridViewTextBoxColumn
'
Me.C002DataGridViewTextBoxColumn.DataPropertyName = "c002"
Me.C002DataGridViewTextBoxColumn.HeaderText = "c002"
Me.C002DataGridViewTextBoxColumn.Name = "C002DataGridViewTextBoxColumn"
'
'C003DataGridViewTextBoxColumn
'
Me.C003DataGridViewTextBoxColumn.DataPropertyName = "c003"
Me.C003DataGridViewTextBoxColumn.HeaderText = "c003"
Me.C003DataGridViewTextBoxColumn.Name = "C003DataGridViewTextBoxColumn"
'
'C004DataGridViewTextBoxColumn
'
Me.C004DataGridViewTextBoxColumn.DataPropertyName = "c004"
Me.C004DataGridViewTextBoxColumn.HeaderText = "c004"
Me.C004DataGridViewTextBoxColumn.Name = "C004DataGridViewTextBoxColumn"
'
'C005DataGridViewTextBoxColumn
'
Me.C005DataGridViewTextBoxColumn.DataPropertyName = "c005"
Me.C005DataGridViewTextBoxColumn.HeaderText = "c005"
Me.C005DataGridViewTextBoxColumn.Name = "C005DataGridViewTextBoxColumn"
'
'C006DataGridViewTextBoxColumn
'
Me.C006DataGridViewTextBoxColumn.DataPropertyName = "c006"
Me.C006DataGridViewTextBoxColumn.HeaderText = "c006"
Me.C006DataGridViewTextBoxColumn.Name = "C006DataGridViewTextBoxColumn"
'
'C007DataGridViewTextBoxColumn
'
Me.C007DataGridViewTextBoxColumn.DataPropertyName = "c007"
Me.C007DataGridViewTextBoxColumn.HeaderText = "c007"
Me.C007DataGridViewTextBoxColumn.Name = "C007DataGridViewTextBoxColumn"
'
'C008DataGridViewTextBoxColumn
'
Me.C008DataGridViewTextBoxColumn.DataPropertyName = "c008"
Me.C008DataGridViewTextBoxColumn.HeaderText = "c008"
Me.C008DataGridViewTextBoxColumn.Name = "C008DataGridViewTextBoxColumn"
'
'C009DataGridViewTextBoxColumn
'
Me.C009DataGridViewTextBoxColumn.DataPropertyName = "c009"
Me.C009DataGridViewTextBoxColumn.HeaderText = "c009"
Me.C009DataGridViewTextBoxColumn.Name = "C009DataGridViewTextBoxColumn"
'
'C010DataGridViewTextBoxColumn
'
Me.C010DataGridViewTextBoxColumn.DataPropertyName = "c010"
Me.C010DataGridViewTextBoxColumn.HeaderText = "c010"
Me.C010DataGridViewTextBoxColumn.Name = "C010DataGridViewTextBoxColumn"
'
'C011DataGridViewTextBoxColumn
'
Me.C011DataGridViewTextBoxColumn.DataPropertyName = "c011"
Me.C011DataGridViewTextBoxColumn.HeaderText = "c011"
Me.C011DataGridViewTextBoxColumn.Name = "C011DataGridViewTextBoxColumn"
'
'C012DataGridViewTextBoxColumn
'
Me.C012DataGridViewTextBoxColumn.DataPropertyName = "c012"
Me.C012DataGridViewTextBoxColumn.HeaderText = "c012"
Me.C012DataGridViewTextBoxColumn.Name = "C012DataGridViewTextBoxColumn"
'
'C013DataGridViewTextBoxColumn
'
Me.C013DataGridViewTextBoxColumn.DataPropertyName = "c013"
Me.C013DataGridViewTextBoxColumn.HeaderText = "c013"
Me.C013DataGridViewTextBoxColumn.Name = "C013DataGridViewTextBoxColumn"
'
'C014DataGridViewTextBoxColumn
'
Me.C014DataGridViewTextBoxColumn.DataPropertyName = "c014"
Me.C014DataGridViewTextBoxColumn.HeaderText = "c014"
Me.C014DataGridViewTextBoxColumn.Name = "C014DataGridViewTextBoxColumn"
'
'C015DataGridViewTextBoxColumn
'
Me.C015DataGridViewTextBoxColumn.DataPropertyName = "c015"
Me.C015DataGridViewTextBoxColumn.HeaderText = "c015"
Me.C015DataGridViewTextBoxColumn.Name = "C015DataGridViewTextBoxColumn"
'
'C016DataGridViewTextBoxColumn
'
Me.C016DataGridViewTextBoxColumn.DataPropertyName = "c016"
Me.C016DataGridViewTextBoxColumn.HeaderText = "c016"
Me.C016DataGridViewTextBoxColumn.Name = "C016DataGridViewTextBoxColumn"
'
'C017DataGridViewTextBoxColumn
'
Me.C017DataGridViewTextBoxColumn.DataPropertyName = "c017"
Me.C017DataGridViewTextBoxColumn.HeaderText = "c017"
Me.C017DataGridViewTextBoxColumn.Name = "C017DataGridViewTextBoxColumn"
'
'C018DataGridViewTextBoxColumn
'
Me.C018DataGridViewTextBoxColumn.DataPropertyName = "c018"
Me.C018DataGridViewTextBoxColumn.HeaderText = "c018"
Me.C018DataGridViewTextBoxColumn.Name = "C018DataGridViewTextBoxColumn"
'
'C019DataGridViewTextBoxColumn
'
Me.C019DataGridViewTextBoxColumn.DataPropertyName = "c019"
Me.C019DataGridViewTextBoxColumn.HeaderText = "c019"
Me.C019DataGridViewTextBoxColumn.Name = "C019DataGridViewTextBoxColumn"
'
'C020DataGridViewTextBoxColumn
'
Me.C020DataGridViewTextBoxColumn.DataPropertyName = "c020"
Me.C020DataGridViewTextBoxColumn.HeaderText = "c020"
Me.C020DataGridViewTextBoxColumn.Name = "C020DataGridViewTextBoxColumn"
'
'C021DataGridViewTextBoxColumn
'
Me.C021DataGridViewTextBoxColumn.DataPropertyName = "c021"
Me.C021DataGridViewTextBoxColumn.HeaderText = "c021"
Me.C021DataGridViewTextBoxColumn.Name = "C021DataGridViewTextBoxColumn"
'
'C022DataGridViewTextBoxColumn
'
Me.C022DataGridViewTextBoxColumn.DataPropertyName = "c022"
Me.C022DataGridViewTextBoxColumn.HeaderText = "c022"
Me.C022DataGridViewTextBoxColumn.Name = "C022DataGridViewTextBoxColumn"
'
'C023DataGridViewTextBoxColumn
'
Me.C023DataGridViewTextBoxColumn.DataPropertyName = "c023"
Me.C023DataGridViewTextBoxColumn.HeaderText = "c023"
Me.C023DataGridViewTextBoxColumn.Name = "C023DataGridViewTextBoxColumn"
'
'C024DataGridViewTextBoxColumn
'
Me.C024DataGridViewTextBoxColumn.DataPropertyName = "c024"
Me.C024DataGridViewTextBoxColumn.HeaderText = "c024"
Me.C024DataGridViewTextBoxColumn.Name = "C024DataGridViewTextBoxColumn"
'
'C025DataGridViewTextBoxColumn
'
Me.C025DataGridViewTextBoxColumn.DataPropertyName = "c025"
Me.C025DataGridViewTextBoxColumn.HeaderText = "c025"
Me.C025DataGridViewTextBoxColumn.Name = "C025DataGridViewTextBoxColumn"
'
'C026DataGridViewTextBoxColumn
'
Me.C026DataGridViewTextBoxColumn.DataPropertyName = "c026"
Me.C026DataGridViewTextBoxColumn.HeaderText = "c026"
Me.C026DataGridViewTextBoxColumn.Name = "C026DataGridViewTextBoxColumn"
'
'C027DataGridViewTextBoxColumn
'
Me.C027DataGridViewTextBoxColumn.DataPropertyName = "c027"
Me.C027DataGridViewTextBoxColumn.HeaderText = "c027"
Me.C027DataGridViewTextBoxColumn.Name = "C027DataGridViewTextBoxColumn"
'
'C028DataGridViewTextBoxColumn
'
Me.C028DataGridViewTextBoxColumn.DataPropertyName = "c028"
Me.C028DataGridViewTextBoxColumn.HeaderText = "c028"
Me.C028DataGridViewTextBoxColumn.Name = "C028DataGridViewTextBoxColumn"
'
'C029DataGridViewTextBoxColumn
'
Me.C029DataGridViewTextBoxColumn.DataPropertyName = "c029"
Me.C029DataGridViewTextBoxColumn.HeaderText = "c029"
Me.C029DataGridViewTextBoxColumn.Name = "C029DataGridViewTextBoxColumn"
'
'C030DataGridViewTextBoxColumn
'
Me.C030DataGridViewTextBoxColumn.DataPropertyName = "c030"
Me.C030DataGridViewTextBoxColumn.HeaderText = "c030"
Me.C030DataGridViewTextBoxColumn.Name = "C030DataGridViewTextBoxColumn"
'
'C031DataGridViewTextBoxColumn
'
Me.C031DataGridViewTextBoxColumn.DataPropertyName = "c031"
Me.C031DataGridViewTextBoxColumn.HeaderText = "c031"
Me.C031DataGridViewTextBoxColumn.Name = "C031DataGridViewTextBoxColumn"
'
'C032DataGridViewTextBoxColumn
'
Me.C032DataGridViewTextBoxColumn.DataPropertyName = "c032"
Me.C032DataGridViewTextBoxColumn.HeaderText = "c032"
Me.C032DataGridViewTextBoxColumn.Name = "C032DataGridViewTextBoxColumn"
'
'C033DataGridViewTextBoxColumn
'
Me.C033DataGridViewTextBoxColumn.DataPropertyName = "c033"
Me.C033DataGridViewTextBoxColumn.HeaderText = "c033"
Me.C033DataGridViewTextBoxColumn.Name = "C033DataGridViewTextBoxColumn"
'
'C034DataGridViewTextBoxColumn
'
Me.C034DataGridViewTextBoxColumn.DataPropertyName = "c034"
Me.C034DataGridViewTextBoxColumn.HeaderText = "c034"
Me.C034DataGridViewTextBoxColumn.Name = "C034DataGridViewTextBoxColumn"
'
'C035DataGridViewTextBoxColumn
'
Me.C035DataGridViewTextBoxColumn.DataPropertyName = "c035"
Me.C035DataGridViewTextBoxColumn.HeaderText = "c035"
Me.C035DataGridViewTextBoxColumn.Name = "C035DataGridViewTextBoxColumn"
'
'C036DataGridViewTextBoxColumn
'
Me.C036DataGridViewTextBoxColumn.DataPropertyName = "c036"
Me.C036DataGridViewTextBoxColumn.HeaderText = "c036"
Me.C036DataGridViewTextBoxColumn.Name = "C036DataGridViewTextBoxColumn"
'
'C037DataGridViewTextBoxColumn
'
Me.C037DataGridViewTextBoxColumn.DataPropertyName = "c037"
Me.C037DataGridViewTextBoxColumn.HeaderText = "c037"
Me.C037DataGridViewTextBoxColumn.Name = "C037DataGridViewTextBoxColumn"
'
'C038DataGridViewTextBoxColumn
'
Me.C038DataGridViewTextBoxColumn.DataPropertyName = "c038"
Me.C038DataGridViewTextBoxColumn.HeaderText = "c038"
Me.C038DataGridViewTextBoxColumn.Name = "C038DataGridViewTextBoxColumn"
'
'C039DataGridViewTextBoxColumn
'
Me.C039DataGridViewTextBoxColumn.DataPropertyName = "c039"
Me.C039DataGridViewTextBoxColumn.HeaderText = "c039"
Me.C039DataGridViewTextBoxColumn.Name = "C039DataGridViewTextBoxColumn"
'
'C040DataGridViewTextBoxColumn
'
Me.C040DataGridViewTextBoxColumn.DataPropertyName = "c040"
Me.C040DataGridViewTextBoxColumn.HeaderText = "c040"
Me.C040DataGridViewTextBoxColumn.Name = "C040DataGridViewTextBoxColumn"
'
'C041DataGridViewTextBoxColumn
'
Me.C041DataGridViewTextBoxColumn.DataPropertyName = "c041"
Me.C041DataGridViewTextBoxColumn.HeaderText = "c041"
Me.C041DataGridViewTextBoxColumn.Name = "C041DataGridViewTextBoxColumn"
'
'C042DataGridViewTextBoxColumn
'
Me.C042DataGridViewTextBoxColumn.DataPropertyName = "c042"
Me.C042DataGridViewTextBoxColumn.HeaderText = "c042"
Me.C042DataGridViewTextBoxColumn.Name = "C042DataGridViewTextBoxColumn"
'
'C043DataGridViewTextBoxColumn
'
Me.C043DataGridViewTextBoxColumn.DataPropertyName = "c043"
Me.C043DataGridViewTextBoxColumn.HeaderText = "c043"
Me.C043DataGridViewTextBoxColumn.Name = "C043DataGridViewTextBoxColumn"
'
'C044DataGridViewTextBoxColumn
'
Me.C044DataGridViewTextBoxColumn.DataPropertyName = "c044"
Me.C044DataGridViewTextBoxColumn.HeaderText = "c044"
Me.C044DataGridViewTextBoxColumn.Name = "C044DataGridViewTextBoxColumn"
'
'C045DataGridViewTextBoxColumn
'
Me.C045DataGridViewTextBoxColumn.DataPropertyName = "c045"
Me.C045DataGridViewTextBoxColumn.HeaderText = "c045"
Me.C045DataGridViewTextBoxColumn.Name = "C045DataGridViewTextBoxColumn"
'
'C046DataGridViewTextBoxColumn
'
Me.C046DataGridViewTextBoxColumn.DataPropertyName = "c046"
Me.C046DataGridViewTextBoxColumn.HeaderText = "c046"
Me.C046DataGridViewTextBoxColumn.Name = "C046DataGridViewTextBoxColumn"
'
'C047DataGridViewTextBoxColumn
'
Me.C047DataGridViewTextBoxColumn.DataPropertyName = "c047"
Me.C047DataGridViewTextBoxColumn.HeaderText = "c047"
Me.C047DataGridViewTextBoxColumn.Name = "C047DataGridViewTextBoxColumn"
'
'C048DataGridViewTextBoxColumn
'
Me.C048DataGridViewTextBoxColumn.DataPropertyName = "c048"
Me.C048DataGridViewTextBoxColumn.HeaderText = "c048"
Me.C048DataGridViewTextBoxColumn.Name = "C048DataGridViewTextBoxColumn"
'
'C049DataGridViewTextBoxColumn
'
Me.C049DataGridViewTextBoxColumn.DataPropertyName = "c049"
Me.C049DataGridViewTextBoxColumn.HeaderText = "c049"
Me.C049DataGridViewTextBoxColumn.Name = "C049DataGridViewTextBoxColumn"
'
'C050DataGridViewTextBoxColumn
'
Me.C050DataGridViewTextBoxColumn.DataPropertyName = "c050"
Me.C050DataGridViewTextBoxColumn.HeaderText = "c050"
Me.C050DataGridViewTextBoxColumn.Name = "C050DataGridViewTextBoxColumn"
'
'C051DataGridViewTextBoxColumn
'
Me.C051DataGridViewTextBoxColumn.DataPropertyName = "c051"
Me.C051DataGridViewTextBoxColumn.HeaderText = "c051"
Me.C051DataGridViewTextBoxColumn.Name = "C051DataGridViewTextBoxColumn"
'
'C052DataGridViewTextBoxColumn
'
Me.C052DataGridViewTextBoxColumn.DataPropertyName = "c052"
Me.C052DataGridViewTextBoxColumn.HeaderText = "c052"
Me.C052DataGridViewTextBoxColumn.Name = "C052DataGridViewTextBoxColumn"
'
'C053DataGridViewTextBoxColumn
'
Me.C053DataGridViewTextBoxColumn.DataPropertyName = "c053"
Me.C053DataGridViewTextBoxColumn.HeaderText = "c053"
Me.C053DataGridViewTextBoxColumn.Name = "C053DataGridViewTextBoxColumn"
'
'C054DataGridViewTextBoxColumn
'
Me.C054DataGridViewTextBoxColumn.DataPropertyName = "c054"
Me.C054DataGridViewTextBoxColumn.HeaderText = "c054"
Me.C054DataGridViewTextBoxColumn.Name = "C054DataGridViewTextBoxColumn"
'
'C055DataGridViewTextBoxColumn
'
Me.C055DataGridViewTextBoxColumn.DataPropertyName = "c055"
Me.C055DataGridViewTextBoxColumn.HeaderText = "c055"
Me.C055DataGridViewTextBoxColumn.Name = "C055DataGridViewTextBoxColumn"
'
'C056DataGridViewTextBoxColumn
'
Me.C056DataGridViewTextBoxColumn.DataPropertyName = "c056"
Me.C056DataGridViewTextBoxColumn.HeaderText = "c056"
Me.C056DataGridViewTextBoxColumn.Name = "C056DataGridViewTextBoxColumn"
'
'C057DataGridViewTextBoxColumn
'
Me.C057DataGridViewTextBoxColumn.DataPropertyName = "c057"
Me.C057DataGridViewTextBoxColumn.HeaderText = "c057"
Me.C057DataGridViewTextBoxColumn.Name = "C057DataGridViewTextBoxColumn"
'
'C058DataGridViewTextBoxColumn
'
Me.C058DataGridViewTextBoxColumn.DataPropertyName = "c058"
Me.C058DataGridViewTextBoxColumn.HeaderText = "c058"
Me.C058DataGridViewTextBoxColumn.Name = "C058DataGridViewTextBoxColumn"
'
'C059DataGridViewTextBoxColumn
'
Me.C059DataGridViewTextBoxColumn.DataPropertyName = "c059"
Me.C059DataGridViewTextBoxColumn.HeaderText = "c059"
Me.C059DataGridViewTextBoxColumn.Name = "C059DataGridViewTextBoxColumn"
'
'C060DataGridViewTextBoxColumn
'
Me.C060DataGridViewTextBoxColumn.DataPropertyName = "c060"
Me.C060DataGridViewTextBoxColumn.HeaderText = "c060"
Me.C060DataGridViewTextBoxColumn.Name = "C060DataGridViewTextBoxColumn"
'
'C061DataGridViewTextBoxColumn
'
Me.C061DataGridViewTextBoxColumn.DataPropertyName = "c061"
Me.C061DataGridViewTextBoxColumn.HeaderText = "c061"
Me.C061DataGridViewTextBoxColumn.Name = "C061DataGridViewTextBoxColumn"
'
'C062DataGridViewTextBoxColumn
'
Me.C062DataGridViewTextBoxColumn.DataPropertyName = "c062"
Me.C062DataGridViewTextBoxColumn.HeaderText = "c062"
Me.C062DataGridViewTextBoxColumn.Name = "C062DataGridViewTextBoxColumn"
'
'C063DataGridViewTextBoxColumn
'
Me.C063DataGridViewTextBoxColumn.DataPropertyName = "c063"
Me.C063DataGridViewTextBoxColumn.HeaderText = "c063"
Me.C063DataGridViewTextBoxColumn.Name = "C063DataGridViewTextBoxColumn"
'
'C064DataGridViewTextBoxColumn
'
Me.C064DataGridViewTextBoxColumn.DataPropertyName = "c064"
Me.C064DataGridViewTextBoxColumn.HeaderText = "c064"
Me.C064DataGridViewTextBoxColumn.Name = "C064DataGridViewTextBoxColumn"
'
'C065DataGridViewTextBoxColumn
'
Me.C065DataGridViewTextBoxColumn.DataPropertyName = "c065"
Me.C065DataGridViewTextBoxColumn.HeaderText = "c065"
Me.C065DataGridViewTextBoxColumn.Name = "C065DataGridViewTextBoxColumn"
'
'C066DataGridViewTextBoxColumn
'
Me.C066DataGridViewTextBoxColumn.DataPropertyName = "c066"
Me.C066DataGridViewTextBoxColumn.HeaderText = "c066"
Me.C066DataGridViewTextBoxColumn.Name = "C066DataGridViewTextBoxColumn"
'
'C067DataGridViewTextBoxColumn
'
Me.C067DataGridViewTextBoxColumn.DataPropertyName = "c067"
Me.C067DataGridViewTextBoxColumn.HeaderText = "c067"
Me.C067DataGridViewTextBoxColumn.Name = "C067DataGridViewTextBoxColumn"
'
'C068DataGridViewTextBoxColumn
'
Me.C068DataGridViewTextBoxColumn.DataPropertyName = "c068"
Me.C068DataGridViewTextBoxColumn.HeaderText = "c068"
Me.C068DataGridViewTextBoxColumn.Name = "C068DataGridViewTextBoxColumn"
'
'C069DataGridViewTextBoxColumn
'
Me.C069DataGridViewTextBoxColumn.DataPropertyName = "c069"
Me.C069DataGridViewTextBoxColumn.HeaderText = "c069"
Me.C069DataGridViewTextBoxColumn.Name = "C069DataGridViewTextBoxColumn"
'
'C070DataGridViewTextBoxColumn
'
Me.C070DataGridViewTextBoxColumn.DataPropertyName = "c070"
Me.C070DataGridViewTextBoxColumn.HeaderText = "c070"
Me.C070DataGridViewTextBoxColumn.Name = "C070DataGridViewTextBoxColumn"
'
'C071DataGridViewTextBoxColumn
'
Me.C071DataGridViewTextBoxColumn.DataPropertyName = "c071"
Me.C071DataGridViewTextBoxColumn.HeaderText = "c071"
Me.C071DataGridViewTextBoxColumn.Name = "C071DataGridViewTextBoxColumn"
'
'C072DataGridViewTextBoxColumn
'
Me.C072DataGridViewTextBoxColumn.DataPropertyName = "c072"
Me.C072DataGridViewTextBoxColumn.HeaderText = "c072"
Me.C072DataGridViewTextBoxColumn.Name = "C072DataGridViewTextBoxColumn"
'
'C073DataGridViewTextBoxColumn
'
Me.C073DataGridViewTextBoxColumn.DataPropertyName = "c073"
Me.C073DataGridViewTextBoxColumn.HeaderText = "c073"
Me.C073DataGridViewTextBoxColumn.Name = "C073DataGridViewTextBoxColumn"
'
'C074DataGridViewTextBoxColumn
'
Me.C074DataGridViewTextBoxColumn.DataPropertyName = "c074"
Me.C074DataGridViewTextBoxColumn.HeaderText = "c074"
Me.C074DataGridViewTextBoxColumn.Name = "C074DataGridViewTextBoxColumn"
'
'C075DataGridViewTextBoxColumn
'
Me.C075DataGridViewTextBoxColumn.DataPropertyName = "c075"
Me.C075DataGridViewTextBoxColumn.HeaderText = "c075"
Me.C075DataGridViewTextBoxColumn.Name = "C075DataGridViewTextBoxColumn"
'
'C076DataGridViewTextBoxColumn
'
Me.C076DataGridViewTextBoxColumn.DataPropertyName = "c076"
Me.C076DataGridViewTextBoxColumn.HeaderText = "c076"
Me.C076DataGridViewTextBoxColumn.Name = "C076DataGridViewTextBoxColumn"
'
'C077DataGridViewTextBoxColumn
'
Me.C077DataGridViewTextBoxColumn.DataPropertyName = "c077"
Me.C077DataGridViewTextBoxColumn.HeaderText = "c077"
Me.C077DataGridViewTextBoxColumn.Name = "C077DataGridViewTextBoxColumn"
'
'C078DataGridViewTextBoxColumn
'
Me.C078DataGridViewTextBoxColumn.DataPropertyName = "c078"
Me.C078DataGridViewTextBoxColumn.HeaderText = "c078"
Me.C078DataGridViewTextBoxColumn.Name = "C078DataGridViewTextBoxColumn"
'
'C079DataGridViewTextBoxColumn
'
Me.C079DataGridViewTextBoxColumn.DataPropertyName = "c079"
Me.C079DataGridViewTextBoxColumn.HeaderText = "c079"
Me.C079DataGridViewTextBoxColumn.Name = "C079DataGridViewTextBoxColumn"
'
'C080DataGridViewTextBoxColumn
'
Me.C080DataGridViewTextBoxColumn.DataPropertyName = "c080"
Me.C080DataGridViewTextBoxColumn.HeaderText = "c080"
Me.C080DataGridViewTextBoxColumn.Name = "C080DataGridViewTextBoxColumn"
'
'C081DataGridViewTextBoxColumn
'
Me.C081DataGridViewTextBoxColumn.DataPropertyName = "c081"
Me.C081DataGridViewTextBoxColumn.HeaderText = "c081"
Me.C081DataGridViewTextBoxColumn.Name = "C081DataGridViewTextBoxColumn"
'
'C082DataGridViewTextBoxColumn
'
Me.C082DataGridViewTextBoxColumn.DataPropertyName = "c082"
Me.C082DataGridViewTextBoxColumn.HeaderText = "c082"
Me.C082DataGridViewTextBoxColumn.Name = "C082DataGridViewTextBoxColumn"
'
'C083DataGridViewTextBoxColumn
'
Me.C083DataGridViewTextBoxColumn.DataPropertyName = "c083"
Me.C083DataGridViewTextBoxColumn.HeaderText = "c083"
Me.C083DataGridViewTextBoxColumn.Name = "C083DataGridViewTextBoxColumn"
'
'C084DataGridViewTextBoxColumn
'
Me.C084DataGridViewTextBoxColumn.DataPropertyName = "c084"
Me.C084DataGridViewTextBoxColumn.HeaderText = "c084"
Me.C084DataGridViewTextBoxColumn.Name = "C084DataGridViewTextBoxColumn"
'
'C085DataGridViewTextBoxColumn
'
Me.C085DataGridViewTextBoxColumn.DataPropertyName = "c085"
Me.C085DataGridViewTextBoxColumn.HeaderText = "c085"
Me.C085DataGridViewTextBoxColumn.Name = "C085DataGridViewTextBoxColumn"
'
'C086DataGridViewTextBoxColumn
'
Me.C086DataGridViewTextBoxColumn.DataPropertyName = "c086"
Me.C086DataGridViewTextBoxColumn.HeaderText = "c086"
Me.C086DataGridViewTextBoxColumn.Name = "C086DataGridViewTextBoxColumn"
'
'C087DataGridViewTextBoxColumn
'
Me.C087DataGridViewTextBoxColumn.DataPropertyName = "c087"
Me.C087DataGridViewTextBoxColumn.HeaderText = "c087"
Me.C087DataGridViewTextBoxColumn.Name = "C087DataGridViewTextBoxColumn"
'
'C088DataGridViewTextBoxColumn
'
Me.C088DataGridViewTextBoxColumn.DataPropertyName = "c088"
Me.C088DataGridViewTextBoxColumn.HeaderText = "c088"
Me.C088DataGridViewTextBoxColumn.Name = "C088DataGridViewTextBoxColumn"
'
'C089DataGridViewTextBoxColumn
'
Me.C089DataGridViewTextBoxColumn.DataPropertyName = "c089"
Me.C089DataGridViewTextBoxColumn.HeaderText = "c089"
Me.C089DataGridViewTextBoxColumn.Name = "C089DataGridViewTextBoxColumn"
'
'C090DataGridViewTextBoxColumn
'
Me.C090DataGridViewTextBoxColumn.DataPropertyName = "c090"
Me.C090DataGridViewTextBoxColumn.HeaderText = "c090"
Me.C090DataGridViewTextBoxColumn.Name = "C090DataGridViewTextBoxColumn"
'
'C091DataGridViewTextBoxColumn
'
Me.C091DataGridViewTextBoxColumn.DataPropertyName = "c091"
Me.C091DataGridViewTextBoxColumn.HeaderText = "c091"
Me.C091DataGridViewTextBoxColumn.Name = "C091DataGridViewTextBoxColumn"
'
'C092DataGridViewTextBoxColumn
'
Me.C092DataGridViewTextBoxColumn.DataPropertyName = "c092"
Me.C092DataGridViewTextBoxColumn.HeaderText = "c092"
Me.C092DataGridViewTextBoxColumn.Name = "C092DataGridViewTextBoxColumn"
'
'C093DataGridViewTextBoxColumn
'
Me.C093DataGridViewTextBoxColumn.DataPropertyName = "c093"
Me.C093DataGridViewTextBoxColumn.HeaderText = "c093"
Me.C093DataGridViewTextBoxColumn.Name = "C093DataGridViewTextBoxColumn"
'
'C094DataGridViewTextBoxColumn
'
Me.C094DataGridViewTextBoxColumn.DataPropertyName = "c094"
Me.C094DataGridViewTextBoxColumn.HeaderText = "c094"
Me.C094DataGridViewTextBoxColumn.Name = "C094DataGridViewTextBoxColumn"
'
'C095DataGridViewTextBoxColumn
'
Me.C095DataGridViewTextBoxColumn.DataPropertyName = "c095"
Me.C095DataGridViewTextBoxColumn.HeaderText = "c095"
Me.C095DataGridViewTextBoxColumn.Name = "C095DataGridViewTextBoxColumn"
'
'C096DataGridViewTextBoxColumn
'
Me.C096DataGridViewTextBoxColumn.DataPropertyName = "c096"
Me.C096DataGridViewTextBoxColumn.HeaderText = "c096"
Me.C096DataGridViewTextBoxColumn.Name = "C096DataGridViewTextBoxColumn"
'
'C097DataGridViewTextBoxColumn
'
Me.C097DataGridViewTextBoxColumn.DataPropertyName = "c097"
Me.C097DataGridViewTextBoxColumn.HeaderText = "c097"
Me.C097DataGridViewTextBoxColumn.Name = "C097DataGridViewTextBoxColumn"
'
'C098DataGridViewTextBoxColumn
'
Me.C098DataGridViewTextBoxColumn.DataPropertyName = "c098"
Me.C098DataGridViewTextBoxColumn.HeaderText = "c098"
Me.C098DataGridViewTextBoxColumn.Name = "C098DataGridViewTextBoxColumn"
'
'C099DataGridViewTextBoxColumn
'
Me.C099DataGridViewTextBoxColumn.DataPropertyName = "c099"
Me.C099DataGridViewTextBoxColumn.HeaderText = "c099"
Me.C099DataGridViewTextBoxColumn.Name = "C099DataGridViewTextBoxColumn"
'
'C100DataGridViewTextBoxColumn
'
Me.C100DataGridViewTextBoxColumn.DataPropertyName = "c100"
Me.C100DataGridViewTextBoxColumn.HeaderText = "c100"
Me.C100DataGridViewTextBoxColumn.Name = "C100DataGridViewTextBoxColumn"
'
'Frm_ExtReport
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(830, 568)
Me.Controls.Add(Me.DataGridView1)
Me.Name = "Frm_ExtReport"
Me.Text = "Frm_ExtReport"
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DSR, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents DataGridView1 As DataGridView
Friend WithEvents C001DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C002DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C003DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C004DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C005DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C006DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C007DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C008DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C009DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C010DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C011DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C012DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C013DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C014DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C015DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C016DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C017DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C018DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C019DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C020DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C021DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C022DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C023DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C024DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C025DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C026DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C027DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C028DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C029DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C030DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C031DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C032DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C033DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C034DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C035DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C036DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C037DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C038DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C039DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C040DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C041DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C042DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C043DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C044DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C045DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C046DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C047DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C048DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C049DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C050DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C051DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C052DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C053DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C054DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C055DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C056DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C057DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C058DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C059DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C060DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C061DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C062DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C063DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C064DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C065DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C066DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C067DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C068DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C069DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C070DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C071DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C072DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C073DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C074DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C075DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C076DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C077DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C078DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C079DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C080DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C081DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C082DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C083DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C084DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C085DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C086DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C087DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C088DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C089DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C090DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C091DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C092DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C093DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C094DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C095DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C096DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C097DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C098DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C099DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents C100DataGridViewTextBoxColumn As DataGridViewTextBoxColumn
Friend WithEvents BindingSource1 As BindingSource
Friend WithEvents DSR As DSR
End Class

View File

@@ -0,0 +1,132 @@
<?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="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="BindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>156, 17</value>
</metadata>
<metadata name="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>156, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,5 @@
Public Class Frm_ExtReport
Private Sub Frm_ExtReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
BindingSource1.DataSource = DSETR1
End Sub
End Class

View File

@@ -0,0 +1,280 @@
<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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_FileInfo))
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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
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

File diff suppressed because it is too large Load Diff

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

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

View File

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

View File

@@ -0,0 +1,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

View File

@@ -0,0 +1,114 @@
<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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Intro))
Me.BtOK = New C1.Win.C1Input.C1Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.RadioButton2 = New System.Windows.Forms.RadioButton()
Me.RadioButton1 = New System.Windows.Forms.RadioButton()
CType(Me.BtOK, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'BtOK
'
Me.BtOK.Location = New System.Drawing.Point(22, 100)
Me.BtOK.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.BtOK.Name = "BtOK"
Me.BtOK.Size = New System.Drawing.Size(288, 41)
Me.BtOK.TabIndex = 24
Me.BtOK.Text = "확인(&O)"
Me.BtOK.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(22, 155)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(272, 20)
Me.Label1.TabIndex = 25
Me.Label1.Text = "이 버전은 검토를 위한 베타버전입니다."
'
'RadioButton2
'
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.RadioButton2.ForeColor = System.Drawing.Color.RoyalBlue
Me.RadioButton2.Location = New System.Drawing.Point(22, 19)
Me.RadioButton2.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(216, 25)
Me.RadioButton2.TabIndex = 18
Me.RadioButton2.Text = "에너지 절약형 친환경주택"
Me.RadioButton2.UseVisualStyleBackColor = True
'
'RadioButton1
'
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Checked = True
Me.RadioButton1.Font = New System.Drawing.Font("맑은 고딕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.RadioButton1.ForeColor = System.Drawing.Color.RoyalBlue
Me.RadioButton1.Location = New System.Drawing.Point(22, 56)
Me.RadioButton1.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(222, 25)
Me.RadioButton1.TabIndex = 17
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "건축물 에너지 소비 총량제"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'Frm_Intro
'
Me.AcceptButton = Me.BtOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(328, 150)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.BtOK)
Me.Controls.Add(Me.RadioButton2)
Me.Controls.Add(Me.RadioButton1)
Me.Font = New System.Drawing.Font("맑은 고딕", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(3, 6, 3, 6)
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
CType(Me.BtOK, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents BtOK As C1.Win.C1Input.C1Button
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,58 @@
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()
If Me.RadioButton1.Checked Then
Setting.Data("user", "program") = "eco2"
ElseIf Me.RadioButton2.Checked Then
Setting.Data("user", "program") = "od"
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.DialogResult = Windows.Forms.DialogResult.Cancel
Me.Close()
End Select
End Sub
Private Sub Frm_Login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'//마지막으로사용한 정보를 찾아서 자동 선택한다
Dim program As String = Setting.Read("user", "program", "od")
If program = "od" Then
Me.RadioButton2.Checked = True
ElseIf program = "eco2" Then
Me.RadioButton1.Checked = True
End If
'//170518 default
' Me.RadioButton1.Checked = True
End Sub
Private Sub C1Button1_Click(sender As Object, e As EventArgs) Handles BtOK.Click
'If Me.RadioButton2.Checked Then
' MsgBox("현재 개발 진행중입니다.", MsgBoxStyle.Information, "확인")
' RadioButton1.Checked = True
' Return
'End If
If RadioButton1.Checked = False AndAlso Me.RadioButton2.Checked = False Then
MsgBox("프로그램을 선택하세요", MsgBoxStyle.Information, "확인")
Return
Else
Save_SEtting()
Me.DialogResult = Windows.Forms.DialogResult.OK
End If
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,271 @@
<?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="DSR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>647, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.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=4.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=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>529, 17</value>
</metadata>
<metadata name="bsmain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>722, 17</value>
</metadata>
<metadata name="F.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="M00.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_max.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bs_면적.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="난방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="냉방.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="조명.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="급탕.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="환기.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs_소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>111, 17</value>
</metadata>
<metadata name="bs_1차소요량.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>218, 17</value>
</metadata>
<metadata name="bs_생산E.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 17</value>
</metadata>
</root>

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

View File

@@ -0,0 +1,85 @@
<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.BackgroundColor = 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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
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

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,25 @@
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
Dim T As String = "타이머"
Second -= TOSG(T, Me.Timer1.Interval / 100) '//타이머를 증가
If Second < 0 Then
Me.Timer1.Enabled = False
Me.Dispose()
Else
Perc = TOSG(T, 1 * Second / Term)
Me.Opacity = Perc
End If
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,745 @@
<?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="Label64.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label77.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label78.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label79.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label80.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label81.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label82.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label83.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label84.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label85.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label86.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label87.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label90.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label91.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label39.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label251.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label253.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label255.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label256.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label257.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label258.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label254.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label252.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label250.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label249.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label248.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label247.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label25.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label26.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label27.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label28.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label29.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label30.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label31.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label32.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label33.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label34.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label36.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label92.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label93.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label94.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label95.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label96.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label97.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label98.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label99.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label100.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label101.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label40.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label41.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label42.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label43.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label45.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label46.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label47.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label48.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label49.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label50.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label51.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label52.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label53.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label54.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label55.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label56.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label57.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label58.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label59.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label60.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label61.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label62.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label63.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label7.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label10.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label11.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label12.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>485, 56</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
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="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
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="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
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>
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
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="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
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="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_temp.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
</metadata>
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 56</value>
</metadata>
<data name="ToolStripButton25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
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="ToolStripButton26.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
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="ToolStripButton27.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
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>
<data name="ToolStripButton28.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
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="ToolStripButton29.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
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="ToolStripButton30.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_supdo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 56</value>
</metadata>
<data name="ToolStripButton33.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
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="ToolStripButton34.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
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="ToolStripButton35.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
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>
<data name="ToolStripButton36.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
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="ToolStripButton37.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
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="ToolStripButton38.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_cha.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>399, 17</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABKklE
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="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAtklE
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="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAAAo0lE
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>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABLElE
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="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABSklE
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="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA6mAAAOpgGH3KlvAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="bsWGDep3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>464, 95</value>
</metadata>
<metadata name="area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="dvc_area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="area3.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsWGDep2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>312, 95</value>
</metadata>
<metadata name="bsWGDep1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 95</value>
</metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>497, 17</value>
</metadata>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>552, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>177</value>
</metadata>
</root>

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,96 @@
<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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Frm_Work))
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(373, 127)
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(373, 112)
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, 112)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(373, 15)
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.BackgroundColor = System.Drawing.SystemColors.AppWorkspace
Me.ClientSize = New System.Drawing.Size(373, 127)
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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
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

File diff suppressed because it is too large Load Diff

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

210
ArinWarev1/FORM-BASIC/Frm_Yk.Designer.vb generated Normal file
View File

@@ -0,0 +1,210 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_Yk
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_Yk))
Me.C1FlexGrid1 = New C1.Win.C1FlexGrid.C1FlexGrid()
Me.DS = New Eco2OD.DS()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.bn = New System.Windows.Forms.BindingNavigator(Me.components)
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.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
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.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
CType(Me.C1FlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn.SuspendLayout()
Me.SuspendLayout()
'
'C1FlexGrid1
'
Me.C1FlexGrid1.ColumnInfo = resources.GetString("C1FlexGrid1.ColumnInfo")
Me.C1FlexGrid1.DataSource = Me.bs
Me.C1FlexGrid1.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1FlexGrid1.Location = New System.Drawing.Point(0, 0)
Me.C1FlexGrid1.Name = "C1FlexGrid1"
Me.C1FlexGrid1.Rows.Count = 1
Me.C1FlexGrid1.Rows.DefaultSize = 20
Me.C1FlexGrid1.Size = New System.Drawing.Size(752, 530)
Me.C1FlexGrid1.TabIndex = 0
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'bs
'
Me.bs.DataMember = "tbl_yk"
Me.bs.DataSource = Me.DS
'
'bn
'
Me.bn.AddNewItem = Me.BindingNavigatorAddNewItem
Me.bn.BindingSource = Me.bs
Me.bn.CountItem = Me.BindingNavigatorCountItem
Me.bn.DeleteItem = Me.BindingNavigatorDeleteItem
Me.bn.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem})
Me.bn.Location = New System.Drawing.Point(0, 530)
Me.bn.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.bn.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.bn.MoveNextItem = Me.BindingNavigatorMoveNextItem
Me.bn.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.bn.Name = "bn"
Me.bn.PositionItem = Me.BindingNavigatorPositionItem
Me.bn.Size = New System.Drawing.Size(752, 25)
Me.bn.TabIndex = 1
Me.bn.Text = "BindingNavigator1"
'
'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 = "현재 위치"
'
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(27, 22)
Me.BindingNavigatorCountItem.Text = "/{0}"
Me.BindingNavigatorCountItem.ToolTipText = "전체 항목 수"
'
'BindingNavigatorSeparator1
'
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator"
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 = "BindingNavigatorSeparator"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
'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 = "새로 추가"
'
'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 = "삭제"
'
'Frm_Yk
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(752, 555)
Me.Controls.Add(Me.C1FlexGrid1)
Me.Controls.Add(Me.bn)
Me.Name = "Frm_Yk"
Me.Text = "Frm_Yk"
CType(Me.C1FlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bn, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn.ResumeLayout(False)
Me.bn.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents C1FlexGrid1 As C1.Win.C1FlexGrid.C1FlexGrid
Friend WithEvents bs As BindingSource
Friend WithEvents DS As DS
Friend WithEvents bn As BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
Friend WithEvents BindingNavigatorCountItem As ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem As ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem As ToolStripButton
Friend WithEvents BindingNavigatorSeparator As ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem As ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator1 As ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem As ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As ToolStripSeparator
End Class

View File

@@ -0,0 +1,200 @@
<?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>
<data name="C1FlexGrid1.ColumnInfo" xml:space="preserve">
<value>12,1,0,0,0,100,Columns:1{Name:"code";Caption:"code";Style:"DataType:System.String;TextAlign:LeftCenter;";} 2{Name:"설명";Caption:"설명";Style:"DataType:System.String;TextAlign:LeftCenter;";} 3{Name:"열관류율";Caption:"열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 4{Name:"면형태";Caption:"면형태";Style:"DataType:System.String;TextAlign:LeftCenter;";} 5{Name:"창호열관류율";Caption:"창호열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 6{Name:"일사에너지투과율";Caption:"일사에너지투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 7{Name:"창호세부설명";Caption:"창호세부설명";Style:"DataType:System.String;TextAlign:LeftCenter;";} 8{Name:"발코니창호여부";Caption:"발코니창호여부";Style:"DataType:System.Boolean;TextAlign:LeftCenter;ImageAlign:CenterCenter;";} 9{Name:"발코니창호열관류율";Caption:"발코니창호열관류율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 10{Name:"발코니투과율";Caption:"발코니투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} 11{Name:"투과율";Caption:"투과율";Style:"DataType:System.String;TextAlign:LeftCenter;";} </value>
</data>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>84, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="bn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>148, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.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/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFKSURBVDhPYxi84O4C9v+35nH+vzqH6//FGbz/ocLEg+tA
jX8eNf7/87Dh/8nJAqQbcH46L9yAgz0ipBtwfJIgUHPd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/
fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97
J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp
Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4
35OhQ1gDOgD5898NfyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A+gEGBgAJCPY
nnX8iGkAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorDeleteItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFvSURBVDhPtZBNKMNhHMd3Vd5K7eKCWjkgk7yEZDKksciE
yMwkBw6LhHZxcCDlQg64SA4kJeVE4jRv89qaWn8tUtoF/7g8H2Ootb+x4nt56nm+38/v+/xUfyJcJ9Bt
BMcOH1eRiZV5RGcVwqyHrfWwELweWJoJ9rC2AL0mRLse0VEBcxOKkLeGwlwGIz2h75w6ApC6bERjAdia
gkxiyIow5cKkPWxDFYvTiMrUdxDDVnCfwVh/AOo/P2zhhccFzcWBLxmzEPV50Nfyu/Cn2N/1V85DGNKh
Rhth+EaCxkLISUDWxvOgjYXa7F/Wv7kGUz4UJeKzGODi6H25d2l+yPLsDwu8v4NWHY8lSbhL0/HtbX8F
GLXh1MQgnxwoQ3h5hkEL6JI5TlPj21gNMd6WZyC1VSN7r0Mh7G4i56pxpkQhdTWA/KQ4aUcTh+x0KACm
RpBSo3HrM0G6Uq7pl2zvhvNDBcClE8YH4HDv2/A/SKV6BYojAxyEJtLJAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEqSURBVDhPYxg8oHDW8/9NC57/z5z4+D9UCAOEtz/AKceQ
O/PZ/1VH3v/HpSi++8H/4IZruA3ImPL0/8J9H7Aqiu95+H/p/v///asv4DYgoefJ/2lb3mMoimi/D9ac
Oev/f6/SE7gNiOx69L939QcURaGt98CaW9cBbe/8+98l/wBuAwKbH/6vm/8Orii45e7/RXv//+8Aas6Y
8/O/Xd3P//YZ23Eb4FF1/3/+tDcoiuyKb/9Pn/P7v3/Xt/86he/+WySsx22Afend/9mTX2Mo0k85/9+k
6MV/laxP/40jl+E2wCLvzv/U/tdYFRkknfgvm/b1v27wPNwGGGbd/h/W8hKnIv3Uy/81fKfhNkAn7cZ/
v+qHeBWpeEzAbYBT7pX/IAV4FQ1CwMAAAPB2wKul5ZpwAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAC2SURBVDhPYxg6ILz9wX8ok3QQ3/3gf3DDNfIMiO95+H/p
/v///asvkG5ARPt9sObMWf//e5WeIM2A0NZ7YM2t64C2d/7975J/gHgDglvu/l+09///DqDmjDk//9vV
/fxvn7GdNBfYFd/+nz7n93//rm//dQrf/bdIWE96GOinnP9vUvTiv0rWp//GkctINwAEDJJO/JdN+/pf
N3geeQaAgH7q5f8avtPINwAEVDwmUGbAYAUMDADQFGCYBLpQVQAAAABJRU5ErkJggg==
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACjSURBVDhPYxh8oHDW8/9QJnkgd+az/wnd98g3JGPK0//z
9v/+n9B1hzxDEnqe/J+979f/zq1//7uVXibdkMiuR/+nbPv1v2Tp3/8J0//+t8k9S5ohgc0P/7eufQ/W
bFzy5b909LX/xpHLiDfEo+r+/5K57+CaFV16SHOBfend/4Etz8jTDAIWeXf+2xRcIU8zCBhm3SZfMwjo
pN0gX/NQBAwMAKB+X6AHNEI4AAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEsSURBVDhPYxhcoHDW8/9QJgYAyTUteP4/c+JjnGoYcmc+
+5/QfQ+rApDcqiPv/4e3P8BtQMaUp//n7f/9P6HrDoYikNzCfR/+Bzdcw21AQs+T/7P3/frfufXvf7fS
yygKQXLTtrz/7199AbcBkV2P/k/Z9ut/ydK//xOm//1vk3sWrhgk17v6w3+v0hO4DQhsfvi/de17sGbj
ki//paOv/TeOXAbWAJKrm//uv0v+AdwGeFTd/18y9x1cs6JLD1wxSC5/2pv/9hnbcRtgX3r3f2DLMwzN
IACSy578+r9FwnrcBljk3flvU3AFQzMIgORS+1/DvYQVGGbdxqoZBEByYS0v/+sGz8NtgE7aDZySIDm/
6of/NXyn4TYAH3DKvfJfxWMCGEOFBgVgYAAAvtG/s7kMTpwAAAAASUVORK5CYII=
</value>
</data>
</root>

View File

@@ -0,0 +1,5 @@
Public Class Frm_Yk
Private Sub Frm_Yk_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.bs.DataSource = DSET1.tbl_yk
End Sub
End Class

1830
ArinWarev1/FORM-BASIC/Frm_Zone.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,189 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_import2
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.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.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()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.Transparent
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.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(637, 361)
Me.Panel1.TabIndex = 0
'
'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.Location = New System.Drawing.Point(404, 92)
Me.chk_deldata.Name = "chk_deldata"
Me.chk_deldata.Size = New System.Drawing.Size(104, 24)
Me.chk_deldata.TabIndex = 0
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
Me.ListView1.Location = New System.Drawing.Point(296, 174)
Me.ListView1.Name = "ListView1"
Me.ListView1.Size = New System.Drawing.Size(121, 97)
Me.ListView1.TabIndex = 1
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'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))
Me.tb_file.Location = New System.Drawing.Point(230, 120)
Me.tb_file.Name = "tb_file"
Me.tb_file.Size = New System.Drawing.Size(100, 21)
Me.tb_file.TabIndex = 2
'
'rado
'
Me.rado.BackColor = System.Drawing.Color.Transparent
Me.rado.Checked = True
Me.rado.Location = New System.Drawing.Point(156, 46)
Me.rado.Name = "rado"
Me.rado.Size = New System.Drawing.Size(104, 24)
Me.rado.TabIndex = 3
Me.rado.TabStop = True
Me.rado.UseVisualStyleBackColor = False
'
'radi
'
Me.radi.BackColor = System.Drawing.Color.Transparent
Me.radi.Location = New System.Drawing.Point(60, 104)
Me.radi.Name = "radi"
Me.radi.Size = New System.Drawing.Size(104, 24)
Me.radi.TabIndex = 4
Me.radi.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(296, 46)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 5
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(43, 47)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 6
Me.Button1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(0, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(100, 23)
Me.Label2.TabIndex = 7
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(100, 23)
Me.Label1.TabIndex = 8
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(74, 162)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(100, 50)
Me.PictureBox1.TabIndex = 9
Me.PictureBox1.TabStop = False
'
'Frm_import2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.AppWorkspace
Me.ClientSize = New System.Drawing.Size(637, 361)
Me.Controls.Add(Me.Panel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Frm_import2"
Me.TransparencyKey = System.Drawing.SystemColors.AppWorkspace
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents rado As System.Windows.Forms.RadioButton
Friend WithEvents radi As System.Windows.Forms.RadioButton
Friend WithEvents tb_file As System.Windows.Forms.TextBox
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 chk_deldata As System.Windows.Forms.CheckBox
End Class

View File

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

View File

@@ -0,0 +1,726 @@
Public Class Frm_import2
Public Overrides Function AcceptChanged() As Boolean
End Function
Public Overrides Function RejectChanged() As Boolean
End Function
Public Overrides Function HasChanged() As Boolean
End Function
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 With {
.FileName = "c:\out.txt",
.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls",
.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 With {
.FileName = "c:\out.txt",
.Filter = "탭으로 분리된 텍스트파일(*.txt)|*.txt|Ms Excel(*.xls)|*.xls",
.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 With {
.DisplayAlerts = False,
.Visible = False,
.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

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,213 @@
<?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="Label43.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label44.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label55.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label58.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label59.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label60.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label56.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label57.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label37.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label108.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label112.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label111.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label110.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label27.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label28.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label30.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label2.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label4.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label34.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label35.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label5.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label6.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label38.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label8.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>40</value>
</metadata>
</root>

View File

@@ -0,0 +1,385 @@
Public Class Frm_profile
Dim Init As Boolean = False
Dim SrcDrv As DataRowView
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.설정프로필)
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
AddHandler DSET1.tbl_profile_od.TableNewRow, AddressOf AddNewDataRow_Profile
'//모든컨트롤의 cTrl_enter 를 추가합니다
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
Me.Init = True
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Me.bs.Filter = ""
Catch ex As Exception
Me.bs.MoveFirst()
End Try
''170514
Me.SplitContainer1.Panel2.Enabled = True
Me.bn_all.Visible = True
End Sub
#Region "Control_Enter"
Private Sub BindProperty(ByVal Ctl As Control.ControlCollection)
For Each C As Control In Ctl
If C.Controls.Count > 1 Then
BindProperty(C.Controls)
Else
If C.GetType.ToString.ToUpper.IndexOf("MYTB") <> -1 Then
AddHandler CType(C, MyTb).KeyDown, AddressOf TextBOx_KeyDown
ElseIf C.GetType.ToString.ToUpper.IndexOf("MYCMB") <> -1 Then
AddHandler CType(C, MyCmb).KeyDown, AddressOf Cmd_KeyDown
End If
End If
Next
End Sub
Private Sub TextBOx_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyTb).DataBindings.Item("text").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyTb).Text
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
Private Sub Cmd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Enter AndAlso e.Control Then
Try
Dim Field As String = (CType(sender, MyCmb).DataBindings.Item("selectedvalue").BindingMemberInfo.BindingField)
For Each Dr As DataRow In DT.Select(Me.bs.Filter, "")
Dr(Field) = CType(sender, MyCmb).SelectedValue
Next
Work_msg_timer("모든값이 변경되었습니다", 25)
Catch ex As Exception
End Try
End If
End Sub
#End Region
#Region "기본"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Sub AddNewDataRow_Profile(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_profile_od)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
#Region "제어버튼"
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_add.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
INitRow(Me.Controls)
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Del.Click
Dbbase.DelCrow(Me.bs, True)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_cancel.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_profile_od, Nothing)
End Sub
#End Region
Private Sub Frm_V20091231_Zone_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta < 0 Then
If Me.bs.Position < Me.bs.Count Then Me.bs.Position += 1
Else
If Me.bs.Position > 0 Then Me.bs.Position -= 1
End If
Me.Validate()
My.Application.DoEvents()
End Sub
#End Region
Private Sub 사용시작시간NTb_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles tb_t1.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.KeyCode = Keys.V And e.Control Then
e.Handled = True
e.SuppressKeyPress = True
'//클립보드붙여넣기
Dim CB() As String = My.Computer.Clipboard.GetText.Split(CChar(vbCrLf))
If CB.GetUpperBound(0) <> 59 Then
MsgBox("붙여넣기가 호환되는 데이터가 아닙니다.", MsgBoxStyle.Information, "확인")
Return
End If
For ii As Integer = 0 To CType(CB(0).Split(CChar(vbTab)), String()).GetUpperBound(0)
If Me.bs.Count = 0 OrElse ii > 0 Then Me.bt_add.PerformClick() '//한줄추가
Dim Cnt As Short = 0
For i As Integer = 0 To CB.GetUpperBound(0)
Select Case i
Case 0
CType(Me.bs.Current, DataRowView)("설명") = CB(i).Split(CChar(vbTab))(ii).Trim
Case 0 + 1
Me.tb_일급탕요구량.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 1 + 1 '//공란
Case 2 + 1 '//면적
Me.tb_t1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 3 + 1
Me.tb_t2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 4 + 1
Me.tb_t3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 5 + 1
Me.tb_t4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 6 + 1
Me.tb_t5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 7 + 1
Me.tb_t6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 8 + 1
' Me.tb_t7.Text = CB(i).Trim
Case 9
' Me.tb_t8.Text = CB(i).Trim
Case 10
' Me.tb_t9.Text = CB(i).Trim
Case 11
' Me.tb_t10.Text = CB(i).Trim
Case 12
' Me.tb_공냉난시간.Text = CB(i).Trim
Case 13 + 1
Case 14 + 1
Case 15 '//요구조도
' Me.tb_t12.Text = CB(i).Trim
Case 16
'Me.tb_t13.Text = CB(i).Trim
Case 17
'Me.tb_t14.Text = CB(i).Trim
Case 18
'Me.tb_t15.Text = CB(i).Trim
Case 19
'Me.tb_t16.Text = CB(i).Trim
Case 20 '//부분운전계수
'Me.tb_t17.Text = CB(i).Trim
Case 21
Case 22
Case 23 + 1 '//최소도입외기량
Me.tb_t18.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 24
' Me.tb_t19.Text = CB(i).Trim
Case 25
Case 26
Case 27 + 1
Me.tb_t20.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 28 + 1 '//작업보조기기
Me.tb_t21.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 29
Case 30
Case 31 + 1 '//실내공기온도
'Me.TabControl11.SelectedIndex = 1
Me.tB_t22.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 32 + 1
Me.tb_t23.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 33 + 1
Me.tb_t24.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 34 + 1
Me.tb_t25.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 35 + 1
' Me.tb_t26.Text = CB(i).Trim
Case 36 '//최소설정온도 냉방
'Me.tb_t27.Text = CB(i).Trim
Case 37
Case 38
Case 39
' Me.tb_t28.Text = CB(i).Trim
Case 40
'Me.tb_t29.Text = CB(i).Trim
Case 41
' Me.tb_t30.Text = CB(i).Trim
Case 42
' Me.tb_t31.Text = CB(i).Trim
Case 43
' Me.tb_t32.Text = CB(i).Trim
Case 44
Case 45
Case 46
Case 40 + 7 + 1
Me.tb_tm1.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 41 + 7 + 1
Me.tb_tm2.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 42 + 7 + 1
Me.tb_tm3.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 43 + 7 + 1
Me.tb_tm4.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 44 + 7 + 1
Me.tb_tm5.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 45 + 7 + 1
Me.tb_tm6.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 46 + 7 + 1
Me.tb_tm7.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 47 + 7 + 1
Me.tb_tm8.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 48 + 7 + 1
Me.tb_tm9.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 49 + 7 + 1
Me.tB_tm10.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 50 + 7 + 1
Me.tb_tm11.Text = CB(i).Split(CChar(vbTab))(ii).Trim
Case 51 + 7 + 1
Me.tb_tm12.Text = CB(i).Split(CChar(vbTab))(ii).Trim
End Select
Next
If bs.Position < bs.Count Then bs.Position += 1 '//위치이동
Next
Me.bs.EndEdit()
End If
End If
End Sub
Private Sub bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
Dim dR() As DataRow = DSET1.tbl_profile_od.Select(Me.bs.Filter, "")
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
dR(i).Delete()
Next
DSET1.tbl_profile_od.AcceptChanges()
End If
End If
End If
End Sub
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = ""
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
Try
Me.bs.Filter = Filter
Catch ex As Exception
Me.bs.Filter = ""
End Try
End If
End If
End Sub
Private Sub dv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dv.KeyDown
'//여기보시면 alt+d 누르면 한줄을 경고없이(falsE)삭제하도록 햇어요.. 사실원래 밋alt +d 인데.. ㅎㅎ 잘못해서 ctrl 됫다는
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 추가
Select Case e.KeyCode
Case Keys.D
If e.Alt Then
Dbbase.DelCrow(Me.bs, False)
End If
Case Keys.C
If e.Control Then
Me.SrcDrv = Me.bs.Current
If Me.SrcDrv Is Nothing Then
MsgBox("저장할 ROW가 없습니다", MsgBoxStyle.Information, "확인")
Return
End If
' My.Computer.Clipboard.SetData("ZDATA", Drv)
End If
Case Keys.V
If e.Control Then
If Me.SrcDrv Is Nothing Then Return
Me.bt_add.PerformClick() '//신규추가
Dim NewDrv As DataRowView = Me.bs.Current
For Each C As DataColumn In Me.DT.Columns
If C.ColumnName.ToUpper = "CODE" Then
ElseIf C.ColumnName.ToUpper = "설명" Then
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName) & "#1"
Else
NewDrv(C.ColumnName) = SrcDrv(C.ColumnName)
End If
Next
Me.bs.EndEdit()
bs.MoveLast()
End If
End Select
End If
End Sub
End Class

View File

@@ -0,0 +1,506 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Frm_V20091231_YK
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_V20091231_YK))
Me.NTb_창호세부설명 = New System.Windows.Forms.TextBox()
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2OD.DS()
Me.NTb_일사에너지투과율 = New System.Windows.Forms.TextBox()
Me.NTb_창호열관류율 = New System.Windows.Forms.TextBox()
Me.lbl_창호세부설명 = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UserControl11 = New mn.UserControl1()
Me.lbl_일사에너지투과율 = New System.Windows.Forms.Label()
Me.lbl_창호열관류율 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.열관류율NTb = New Eco2OD.MyTb()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.fxData = New C1.Win.C1FlexGrid.C1FlexGrid()
Me.cmGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.열너비저장ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.열너비자동조정ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.열너비초기화ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.bs_detail = New System.Windows.Forms.BindingSource(Me.components)
Me.C1StatusBar1 = New C1.Win.C1Ribbon.C1StatusBar()
Me.RibbonButton1 = New C1.Win.C1Ribbon.RibbonButton()
Me.RibbonButton2 = New C1.Win.C1Ribbon.RibbonButton()
Me.cmb_형태 = New Eco2OD.MyCmb()
Me.fxList = New C1.Win.C1FlexGrid.C1FlexGrid()
Me.C1StatusBar2 = New C1.Win.C1Ribbon.C1StatusBar()
Me.RibbonLabel1 = New C1.Win.C1Ribbon.RibbonLabel()
Me.btAdd1 = New C1.Win.C1Ribbon.RibbonButton()
Me.btDel1 = New C1.Win.C1Ribbon.RibbonButton()
Me.RibbonSeparator1 = New C1.Win.C1Ribbon.RibbonSeparator()
Me.RibbonButton6 = New C1.Win.C1Ribbon.RibbonButton()
Me.btOK = New C1.Win.C1Ribbon.RibbonButton()
Me.tb법적기준 = New Eco2OD.MyTb()
Me.Label2 = New System.Windows.Forms.Label()
Me.bs_gubun = New System.Windows.Forms.BindingSource(Me.components)
Me.bS_재료 = New System.Windows.Forms.BindingSource(Me.components)
Me.bsmain = New System.Windows.Forms.BindingSource(Me.components)
Me.체크바닥난방여부 = New System.Windows.Forms.CheckBox()
Me.체크열교방지구조 = New System.Windows.Forms.CheckBox()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.fxData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmGrid.SuspendLayout()
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.fxList, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bsmain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'NTb_창호세부설명
'
Me.NTb_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.NTb_창호세부설명.BackColor = System.Drawing.Color.White
Me.NTb_창호세부설명.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호세부설명", True))
Me.NTb_창호세부설명.Location = New System.Drawing.Point(282, 519)
Me.NTb_창호세부설명.Name = "NTb_창호세부설명"
Me.NTb_창호세부설명.Size = New System.Drawing.Size(226, 25)
Me.NTb_창호세부설명.TabIndex = 2
'
'bs
'
Me.bs.DataMember = "tbl_yk"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'NTb_일사에너지투과율
'
Me.NTb_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.NTb_일사에너지투과율.BackColor = System.Drawing.Color.White
Me.NTb_일사에너지투과율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "일사에너지투과율", True))
Me.NTb_일사에너지투과율.Location = New System.Drawing.Point(306, 483)
Me.NTb_일사에너지투과율.Name = "NTb_일사에너지투과율"
Me.NTb_일사에너지투과율.Size = New System.Drawing.Size(50, 25)
Me.NTb_일사에너지투과율.TabIndex = 1
'
'NTb_창호열관류율
'
Me.NTb_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.NTb_창호열관류율.BackColor = System.Drawing.Color.White
Me.NTb_창호열관류율.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "창호열관류율", True))
Me.NTb_창호열관류율.Location = New System.Drawing.Point(282, 453)
Me.NTb_창호열관류율.Name = "NTb_창호열관류율"
Me.NTb_창호열관류율.Size = New System.Drawing.Size(74, 25)
Me.NTb_창호열관류율.TabIndex = 0
'
'lbl_창호세부설명
'
Me.lbl_창호세부설명.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_창호세부설명.AutoSize = True
Me.lbl_창호세부설명.ForeColor = System.Drawing.Color.Black
Me.lbl_창호세부설명.Location = New System.Drawing.Point(183, 522)
Me.lbl_창호세부설명.Name = "lbl_창호세부설명"
Me.lbl_창호세부설명.Size = New System.Drawing.Size(94, 17)
Me.lbl_창호세부설명.TabIndex = 153
Me.lbl_창호세부설명.Text = "창호세부설명 :"
'
'Panel2
'
Me.Panel2.Controls.Add(Me.UserControl11)
Me.Panel2.Location = New System.Drawing.Point(186, 12)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(170, 152)
Me.Panel2.TabIndex = 161
'
'UserControl11
'
Me.UserControl11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UserControl11.Dock = System.Windows.Forms.DockStyle.Fill
Me.UserControl11.Location = New System.Drawing.Point(0, 0)
Me.UserControl11.Margin = New System.Windows.Forms.Padding(3, 799, 3, 799)
Me.UserControl11.MaxSize = 150.0!
Me.UserControl11.Name = "UserControl11"
Me.UserControl11.Size = New System.Drawing.Size(170, 152)
Me.UserControl11.TabIndex = 132
Me.UserControl11.Vertical = False
'
'lbl_일사에너지투과율
'
Me.lbl_일사에너지투과율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_일사에너지투과율.AutoSize = True
Me.lbl_일사에너지투과율.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl_일사에너지투과율.ForeColor = System.Drawing.Color.Black
Me.lbl_일사에너지투과율.Location = New System.Drawing.Point(183, 488)
Me.lbl_일사에너지투과율.Name = "lbl_일사에너지투과율"
Me.lbl_일사에너지투과율.Size = New System.Drawing.Size(120, 15)
Me.lbl_일사에너지투과율.TabIndex = 153
Me.lbl_일사에너지투과율.Text = "일사에너지투과율[-]:"
'
'lbl_창호열관류율
'
Me.lbl_창호열관류율.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.lbl_창호열관류율.AutoSize = True
Me.lbl_창호열관류율.ForeColor = System.Drawing.Color.Black
Me.lbl_창호열관류율.Location = New System.Drawing.Point(183, 456)
Me.lbl_창호열관류율.Name = "lbl_창호열관류율"
Me.lbl_창호열관류율.Size = New System.Drawing.Size(94, 17)
Me.lbl_창호열관류율.TabIndex = 153
Me.lbl_창호열관류율.Text = "창호열관류율 :"
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(781, 522)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(106, 17)
Me.Label1.TabIndex = 153
Me.Label1.Text = "열관류율(W/㎡K)"
'
'열관류율NTb
'
Me.열관류율NTb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.열관류율NTb.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.열관류율NTb.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "열관류율", True))
Me.열관류율NTb.Location = New System.Drawing.Point(893, 518)
Me.열관류율NTb.Name = "열관류율NTb"
Me.열관류율NTb.NectControl = Nothing
Me.열관류율NTb.Size = New System.Drawing.Size(83, 25)
Me.열관류율NTb.TabIndex = 3
Me.열관류율NTb.TabStop = False
Me.열관류율NTb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.열관류율NTb.TextFormat = Eco2OD.MyTb.ETFormat.Normal
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.fxData)
Me.Panel1.Controls.Add(Me.C1StatusBar1)
Me.Panel1.Location = New System.Drawing.Point(362, 12)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(619, 461)
Me.Panel1.TabIndex = 154
'
'fxData
'
Me.fxData.ColumnInfo = resources.GetString("fxData.ColumnInfo")
Me.fxData.ContextMenuStrip = Me.cmGrid
Me.fxData.DataSource = Me.bs_detail
Me.fxData.Dock = System.Windows.Forms.DockStyle.Fill
Me.fxData.Location = New System.Drawing.Point(0, 0)
Me.fxData.Name = "fxData"
Me.fxData.Rows.Count = 1
Me.fxData.Rows.DefaultSize = 24
Me.fxData.Size = New System.Drawing.Size(617, 436)
Me.fxData.StyleInfo = resources.GetString("fxData.StyleInfo")
Me.fxData.TabIndex = 158
'
'cmGrid
'
Me.cmGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.열너비저장ToolStripMenuItem, Me.ToolStripMenuItem1, Me.열너비자동조정ToolStripMenuItem, Me.열너비초기화ToolStripMenuItem})
Me.cmGrid.Name = "ContextMenuStrip1"
Me.cmGrid.Size = New System.Drawing.Size(167, 76)
'
'열너비저장ToolStripMenuItem
'
Me.열너비저장ToolStripMenuItem.Name = "열너비저장ToolStripMenuItem"
Me.열너비저장ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
Me.열너비저장ToolStripMenuItem.Text = "열 너비 저장"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(163, 6)
'
'열너비자동조정ToolStripMenuItem
'
Me.열너비자동조정ToolStripMenuItem.Name = "열너비자동조정ToolStripMenuItem"
Me.열너비자동조정ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
Me.열너비자동조정ToolStripMenuItem.Text = "열 너비 자동조정"
'
'열너비초기화ToolStripMenuItem
'
Me.열너비초기화ToolStripMenuItem.Name = "열너비초기화ToolStripMenuItem"
Me.열너비초기화ToolStripMenuItem.Size = New System.Drawing.Size(166, 22)
Me.열너비초기화ToolStripMenuItem.Text = "열 너비 초기화"
'
'bs_detail
'
Me.bs_detail.DataMember = "tbl_ykdetail"
Me.bs_detail.DataSource = Me.DS
Me.bs_detail.Filter = "code <> '0'"
'
'C1StatusBar1
'
Me.C1StatusBar1.AutoSizeElement = C1.Framework.AutoSizeElement.Width
Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton1)
Me.C1StatusBar1.LeftPaneItems.Add(Me.RibbonButton2)
Me.C1StatusBar1.Location = New System.Drawing.Point(0, 436)
Me.C1StatusBar1.Name = "C1StatusBar1"
Me.C1StatusBar1.Size = New System.Drawing.Size(617, 23)
Me.C1StatusBar1.VisualStyle = C1.Win.C1Ribbon.VisualStyle.Office2010Silver
'
'RibbonButton1
'
Me.RibbonButton1.Name = "RibbonButton1"
Me.RibbonButton1.SmallImage = CType(resources.GetObject("RibbonButton1.SmallImage"), System.Drawing.Image)
Me.RibbonButton1.Text = "추가"
'
'RibbonButton2
'
Me.RibbonButton2.Name = "RibbonButton2"
Me.RibbonButton2.SmallImage = CType(resources.GetObject("RibbonButton2.SmallImage"), System.Drawing.Image)
Me.RibbonButton2.Text = "삭제"
'
'cmb_형태
'
Me.cmb_형태.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.cmb_형태.DropDownStyle = System.Windows.Forms.ComboBoxStyle.Simple
Me.cmb_형태.FormattingEnabled = True
Me.cmb_형태.Location = New System.Drawing.Point(186, 172)
Me.cmb_형태.Name = "cmb_형태"
Me.cmb_형태.NectControl = Nothing
Me.cmb_형태.Size = New System.Drawing.Size(170, 276)
Me.cmb_형태.TabIndex = 131
'
'fxList
'
Me.fxList.ColumnInfo = resources.GetString("fxList.ColumnInfo")
Me.fxList.DataSource = Me.bs
Me.fxList.Dock = System.Windows.Forms.DockStyle.Left
Me.fxList.Location = New System.Drawing.Point(0, 0)
Me.fxList.Name = "fxList"
Me.fxList.Rows.Count = 1
Me.fxList.Rows.DefaultSize = 24
Me.fxList.Size = New System.Drawing.Size(177, 552)
Me.fxList.StyleInfo = resources.GetString("fxList.StyleInfo")
Me.fxList.TabIndex = 153
'
'C1StatusBar2
'
Me.C1StatusBar2.AutoSizeElement = C1.Framework.AutoSizeElement.Width
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonLabel1)
Me.C1StatusBar2.LeftPaneItems.Add(Me.btAdd1)
Me.C1StatusBar2.LeftPaneItems.Add(Me.btDel1)
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonSeparator1)
Me.C1StatusBar2.LeftPaneItems.Add(Me.RibbonButton6)
Me.C1StatusBar2.Location = New System.Drawing.Point(0, 552)
Me.C1StatusBar2.Name = "C1StatusBar2"
Me.C1StatusBar2.RightPaneItems.Add(Me.btOK)
Me.C1StatusBar2.Size = New System.Drawing.Size(992, 23)
'
'RibbonLabel1
'
Me.RibbonLabel1.Name = "RibbonLabel1"
Me.RibbonLabel1.Text = "열관류율"
'
'btAdd1
'
Me.btAdd1.LargeImage = CType(resources.GetObject("btAdd1.LargeImage"), System.Drawing.Image)
Me.btAdd1.Name = "btAdd1"
Me.btAdd1.SmallImage = CType(resources.GetObject("btAdd1.SmallImage"), System.Drawing.Image)
Me.btAdd1.Text = "추가(&A)"
'
'btDel1
'
Me.btDel1.Name = "btDel1"
Me.btDel1.SmallImage = CType(resources.GetObject("btDel1.SmallImage"), System.Drawing.Image)
Me.btDel1.Text = "삭제(&D)"
'
'RibbonSeparator1
'
Me.RibbonSeparator1.Name = "RibbonSeparator1"
'
'RibbonButton6
'
Me.RibbonButton6.Name = "RibbonButton6"
Me.RibbonButton6.SmallImage = CType(resources.GetObject("RibbonButton6.SmallImage"), System.Drawing.Image)
Me.RibbonButton6.Text = "구분그림보기"
Me.RibbonButton6.Visible = False
'
'btOK
'
Me.btOK.LargeImage = CType(resources.GetObject("btOK.LargeImage"), System.Drawing.Image)
Me.btOK.Name = "btOK"
Me.btOK.SmallImage = CType(resources.GetObject("btOK.SmallImage"), System.Drawing.Image)
Me.btOK.Text = "적용(&S)"
'
'tb법적기준
'
Me.tb법적기준.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.tb법적기준.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.tb법적기준.Location = New System.Drawing.Point(691, 518)
Me.tb법적기준.Name = "tb법적기준"
Me.tb법적기준.NectControl = Nothing
Me.tb법적기준.Size = New System.Drawing.Size(83, 25)
Me.tb법적기준.TabIndex = 162
Me.tb법적기준.TabStop = False
Me.tb법적기준.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
Me.tb법적기준.TextFormat = Eco2OD.MyTb.ETFormat.Normal
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(530, 518)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(155, 22)
Me.Label2.TabIndex = 153
Me.Label2.Text = "법적기준"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'bs_gubun
'
Me.bs_gubun.DataMember = "tbl_common_od"
Me.bs_gubun.DataSource = Me.DS
'
'bS_재료
'
Me.bS_재료.DataMember = "tbl_common_od"
Me.bS_재료.DataSource = Me.DS
'
'bsmain
'
Me.bsmain.DataSource = Me.DS
Me.bsmain.Filter = ""
Me.bsmain.Position = 0
'
'체크바닥난방여부
'
Me.체크바닥난방여부.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.체크바닥난방여부.AutoSize = True
Me.체크바닥난방여부.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "바닥난방여부", True))
Me.체크바닥난방여부.Location = New System.Drawing.Point(748, 485)
Me.체크바닥난방여부.Name = "체크바닥난방여부"
Me.체크바닥난방여부.Size = New System.Drawing.Size(105, 21)
Me.체크바닥난방여부.TabIndex = 164
Me.체크바닥난방여부.Text = "바닥난방여부"
Me.체크바닥난방여부.UseVisualStyleBackColor = True
'
'체크열교방지구조
'
Me.체크열교방지구조.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.체크열교방지구조.AutoSize = True
Me.체크열교방지구조.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Me.bs, "열교방지구조", True))
Me.체크열교방지구조.Location = New System.Drawing.Point(867, 485)
Me.체크열교방지구조.Name = "체크열교방지구조"
Me.체크열교방지구조.Size = New System.Drawing.Size(105, 21)
Me.체크열교방지구조.TabIndex = 165
Me.체크열교방지구조.Text = "열교방지구조"
Me.체크열교방지구조.UseVisualStyleBackColor = True
'
'Frm_V20091231_YK
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(992, 575)
Me.Controls.Add(Me.체크열교방지구조)
Me.Controls.Add(Me.체크바닥난방여부)
Me.Controls.Add(Me.tb법적기준)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.fxList)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.NTb_창호세부설명)
Me.Controls.Add(Me.NTb_일사에너지투과율)
Me.Controls.Add(Me.열관류율NTb)
Me.Controls.Add(Me.C1StatusBar2)
Me.Controls.Add(Me.NTb_창호열관류율)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.lbl_창호세부설명)
Me.Controls.Add(Me.cmb_형태)
Me.Controls.Add(Me.lbl_창호열관류율)
Me.Controls.Add(Me.lbl_일사에너지투과율)
Me.Font = New System.Drawing.Font("맑은 고딕", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Name = "Frm_V20091231_YK"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "형별성능관계내역"
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.fxData, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmGrid.ResumeLayout(False)
CType(Me.bs_detail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1StatusBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.fxList, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.C1StatusBar2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bs_gubun, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bS_재료, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bsmain, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Public WithEvents DS As Eco2OD.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents bS_재료 As System.Windows.Forms.BindingSource
Friend WithEvents bs_detail As System.Windows.Forms.BindingSource
Friend WithEvents bs_gubun As System.Windows.Forms.BindingSource
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents 열관류율NTb As Eco2OD.MyTb
Friend WithEvents UserControl11 As mn.UserControl1
Friend WithEvents cmb_형태 As Eco2OD.MyCmb
Friend WithEvents NTb_창호열관류율 As System.Windows.Forms.TextBox
Friend WithEvents lbl_창호열관류율 As System.Windows.Forms.Label
Friend WithEvents NTb_창호세부설명 As System.Windows.Forms.TextBox
Friend WithEvents NTb_일사에너지투과율 As System.Windows.Forms.TextBox
Friend WithEvents lbl_창호세부설명 As System.Windows.Forms.Label
Friend WithEvents lbl_일사에너지투과율 As System.Windows.Forms.Label
Friend WithEvents bsmain As System.Windows.Forms.BindingSource
Friend WithEvents fxList As C1.Win.C1FlexGrid.C1FlexGrid
Friend WithEvents C1StatusBar2 As C1.Win.C1Ribbon.C1StatusBar
Friend WithEvents btOK As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents btAdd1 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents btDel1 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents RibbonLabel1 As C1.Win.C1Ribbon.RibbonLabel
Friend WithEvents RibbonSeparator1 As C1.Win.C1Ribbon.RibbonSeparator
Friend WithEvents Panel2 As Panel
Friend WithEvents Panel1 As Panel
Friend WithEvents fxData As C1.Win.C1FlexGrid.C1FlexGrid
Friend WithEvents RibbonButton6 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents C1StatusBar1 As C1.Win.C1Ribbon.C1StatusBar
Friend WithEvents RibbonButton1 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents RibbonButton2 As C1.Win.C1Ribbon.RibbonButton
Friend WithEvents cmGrid As System.Windows.Forms.ContextMenuStrip
Friend WithEvents 열너비저장ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents 열너비자동조정ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents 열너비초기화ToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tb법적기준 As Eco2OD.MyTb
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents 체크바닥난방여부 As System.Windows.Forms.CheckBox
Friend WithEvents 체크열교방지구조 As System.Windows.Forms.CheckBox
End Class

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,353 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Frm_V20091231_buha
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_V20091231_buha))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.bn_all = New System.Windows.Forms.BindingNavigator(Me.components)
Me.bs = New System.Windows.Forms.BindingSource(Me.components)
Me.DS = New Eco2OD.DS()
Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripButton44 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton45 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator25 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripTextBox6 = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripSeparator26 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton46 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton47 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton48 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton49 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator28 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton51 = New System.Windows.Forms.ToolStripButton()
Me.Arindv9 = New CEnergy.arindv()
Me.CodeDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.설명 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n01 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n02 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n03 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n04 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n05 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n06 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n07 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n08 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n09 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.n10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).BeginInit()
Me.bn_all.SuspendLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'bn_all
'
Me.bn_all.AddNewItem = Nothing
Me.bn_all.BindingSource = Me.bs
Me.bn_all.CountItem = Me.ToolStripLabel6
Me.bn_all.DeleteItem = Nothing
Me.bn_all.Dock = System.Windows.Forms.DockStyle.Bottom
Me.bn_all.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.bn_all.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton44, Me.ToolStripButton45, Me.ToolStripSeparator25, Me.ToolStripTextBox6, Me.ToolStripLabel6, Me.ToolStripSeparator26, Me.ToolStripButton46, Me.ToolStripButton47, Me.ToolStripSeparator27, Me.ToolStripButton48, Me.ToolStripButton49, Me.ToolStripSeparator28, Me.ToolStripButton51})
Me.bn_all.Location = New System.Drawing.Point(0, 384)
Me.bn_all.MoveFirstItem = Me.ToolStripButton44
Me.bn_all.MoveLastItem = Me.ToolStripButton47
Me.bn_all.MoveNextItem = Me.ToolStripButton46
Me.bn_all.MovePreviousItem = Me.ToolStripButton45
Me.bn_all.Name = "bn_all"
Me.bn_all.PositionItem = Me.ToolStripTextBox6
Me.bn_all.Size = New System.Drawing.Size(654, 25)
Me.bn_all.TabIndex = 7
Me.bn_all.Text = "BindingNavigator1"
'
'bs
'
Me.bs.DataMember = "tbl_buha"
Me.bs.DataSource = Me.DS
Me.bs.Filter = "code <> '0'"
'
'DS
'
Me.DS.DataSetName = "DS"
Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'ToolStripLabel6
'
Me.ToolStripLabel6.Name = "ToolStripLabel6"
Me.ToolStripLabel6.Size = New System.Drawing.Size(29, 22)
Me.ToolStripLabel6.Text = "/{0}"
Me.ToolStripLabel6.ToolTipText = "전체 항목 수"
'
'ToolStripButton44
'
Me.ToolStripButton44.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton44.Image = CType(resources.GetObject("ToolStripButton44.Image"), System.Drawing.Image)
Me.ToolStripButton44.Name = "ToolStripButton44"
Me.ToolStripButton44.RightToLeftAutoMirrorImage = True
Me.ToolStripButton44.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton44.Text = "처음으로 이동"
'
'ToolStripButton45
'
Me.ToolStripButton45.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton45.Image = CType(resources.GetObject("ToolStripButton45.Image"), System.Drawing.Image)
Me.ToolStripButton45.Name = "ToolStripButton45"
Me.ToolStripButton45.RightToLeftAutoMirrorImage = True
Me.ToolStripButton45.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton45.Text = "이전으로 이동"
'
'ToolStripSeparator25
'
Me.ToolStripSeparator25.Name = "ToolStripSeparator25"
Me.ToolStripSeparator25.Size = New System.Drawing.Size(6, 25)
'
'ToolStripTextBox6
'
Me.ToolStripTextBox6.AccessibleName = "위치"
Me.ToolStripTextBox6.AutoSize = False
Me.ToolStripTextBox6.Name = "ToolStripTextBox6"
Me.ToolStripTextBox6.Size = New System.Drawing.Size(50, 21)
Me.ToolStripTextBox6.Text = "0"
Me.ToolStripTextBox6.ToolTipText = "현재 위치"
'
'ToolStripSeparator26
'
Me.ToolStripSeparator26.Name = "ToolStripSeparator26"
Me.ToolStripSeparator26.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton46
'
Me.ToolStripButton46.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton46.Image = CType(resources.GetObject("ToolStripButton46.Image"), System.Drawing.Image)
Me.ToolStripButton46.Name = "ToolStripButton46"
Me.ToolStripButton46.RightToLeftAutoMirrorImage = True
Me.ToolStripButton46.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton46.Text = "다음으로 이동"
'
'ToolStripButton47
'
Me.ToolStripButton47.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton47.Image = CType(resources.GetObject("ToolStripButton47.Image"), System.Drawing.Image)
Me.ToolStripButton47.Name = "ToolStripButton47"
Me.ToolStripButton47.RightToLeftAutoMirrorImage = True
Me.ToolStripButton47.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton47.Text = "마지막으로 이동"
'
'ToolStripSeparator27
'
Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
Me.ToolStripSeparator27.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton48
'
Me.ToolStripButton48.Image = CType(resources.GetObject("ToolStripButton48.Image"), System.Drawing.Image)
Me.ToolStripButton48.Name = "ToolStripButton48"
Me.ToolStripButton48.RightToLeftAutoMirrorImage = True
Me.ToolStripButton48.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton48.Text = "추가(&A)"
'
'ToolStripButton49
'
Me.ToolStripButton49.Image = CType(resources.GetObject("ToolStripButton49.Image"), System.Drawing.Image)
Me.ToolStripButton49.Name = "ToolStripButton49"
Me.ToolStripButton49.RightToLeftAutoMirrorImage = True
Me.ToolStripButton49.Size = New System.Drawing.Size(67, 22)
Me.ToolStripButton49.Text = "삭제(&D)"
'
'ToolStripSeparator28
'
Me.ToolStripSeparator28.Name = "ToolStripSeparator28"
Me.ToolStripSeparator28.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton51
'
Me.ToolStripButton51.Image = CType(resources.GetObject("ToolStripButton51.Image"), System.Drawing.Image)
Me.ToolStripButton51.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton51.Name = "ToolStripButton51"
Me.ToolStripButton51.Size = New System.Drawing.Size(68, 22)
Me.ToolStripButton51.Text = "취소(&C)"
'
'Arindv9
'
Me.Arindv9.A_DelCurrentCell = True
Me.Arindv9.A_EnterToTab = True
Me.Arindv9.AllowUserToAddRows = False
Me.Arindv9.AllowUserToResizeRows = False
Me.Arindv9.AutoGenerateColumns = False
Me.Arindv9.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells
Me.Arindv9.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.Arindv9.ColumnHeadersHeight = 30
Me.Arindv9.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.Arindv9.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.CodeDataGridViewTextBoxColumn, Me.설명, Me.n01, Me.n02, Me.n03, Me.n04, Me.n05, Me.n06, Me.n07, Me.n08, Me.n09, Me.n10})
Me.Arindv9.DataSource = Me.bs
Me.Arindv9.Dock = System.Windows.Forms.DockStyle.Fill
Me.Arindv9.Location = New System.Drawing.Point(0, 0)
Me.Arindv9.Margin = New System.Windows.Forms.Padding(0)
Me.Arindv9.MultiSelect = False
Me.Arindv9.Name = "Arindv9"
Me.Arindv9.RowHeadersVisible = False
Me.Arindv9.RowTemplate.Height = 23
Me.Arindv9.Size = New System.Drawing.Size(654, 384)
Me.Arindv9.TabIndex = 0
'
'CodeDataGridViewTextBoxColumn
'
Me.CodeDataGridViewTextBoxColumn.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.CodeDataGridViewTextBoxColumn.DataPropertyName = "code"
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CodeDataGridViewTextBoxColumn.DefaultCellStyle = DataGridViewCellStyle1
Me.CodeDataGridViewTextBoxColumn.HeaderText = "구분"
Me.CodeDataGridViewTextBoxColumn.Name = "CodeDataGridViewTextBoxColumn"
Me.CodeDataGridViewTextBoxColumn.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.CodeDataGridViewTextBoxColumn.Width = 52
'
'설명
'
Me.설명.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.설명.DataPropertyName = "설명"
Me.설명.HeaderText = "설명"
Me.설명.Name = "설명"
'
'n01
'
Me.n01.DataPropertyName = "n01"
Me.n01.HeaderText = "0.1"
Me.n01.Name = "n01"
Me.n01.Width = 49
'
'n02
'
Me.n02.DataPropertyName = "n02"
Me.n02.HeaderText = "0.2"
Me.n02.Name = "n02"
Me.n02.Width = 49
'
'n03
'
Me.n03.DataPropertyName = "n03"
Me.n03.HeaderText = "0.3"
Me.n03.Name = "n03"
Me.n03.Width = 49
'
'n04
'
Me.n04.DataPropertyName = "n04"
Me.n04.HeaderText = "0.4"
Me.n04.Name = "n04"
Me.n04.Width = 49
'
'n05
'
Me.n05.DataPropertyName = "n05"
Me.n05.HeaderText = "0.5"
Me.n05.Name = "n05"
Me.n05.Width = 49
'
'n06
'
Me.n06.DataPropertyName = "n06"
Me.n06.HeaderText = "0.6"
Me.n06.Name = "n06"
Me.n06.Width = 49
'
'n07
'
Me.n07.DataPropertyName = "n07"
Me.n07.HeaderText = "0.7"
Me.n07.Name = "n07"
Me.n07.Width = 49
'
'n08
'
Me.n08.DataPropertyName = "n08"
Me.n08.HeaderText = "0.8"
Me.n08.Name = "n08"
Me.n08.Width = 49
'
'n09
'
Me.n09.DataPropertyName = "n09"
Me.n09.HeaderText = "0.9"
Me.n09.Name = "n09"
Me.n09.Width = 49
'
'n10
'
Me.n10.DataPropertyName = "n10"
Me.n10.HeaderText = "1.0"
Me.n10.Name = "n10"
Me.n10.Width = 49
'
'Frm_V20091231_buha
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
Me.ClientSize = New System.Drawing.Size(654, 409)
Me.ControlBox = False
Me.Controls.Add(Me.Arindv9)
Me.Controls.Add(Me.bn_all)
Me.Font = New System.Drawing.Font("돋움", 8.999999!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Name = "Frm_V20091231_buha"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "부분부하율"
CType(Me.bn_all, System.ComponentModel.ISupportInitialize).EndInit()
Me.bn_all.ResumeLayout(False)
Me.bn_all.PerformLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Arindv9, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents bn_all As System.Windows.Forms.BindingNavigator
Friend WithEvents ToolStripLabel6 As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripButton44 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton45 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator25 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripTextBox6 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents ToolStripSeparator26 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton46 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton47 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator27 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton48 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton49 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator28 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton51 As System.Windows.Forms.ToolStripButton
Friend WithEvents Arindv9 As CEnergy.arindv
Public WithEvents DS As Eco2OD.DS
Friend WithEvents bs As System.Windows.Forms.BindingSource
Friend WithEvents CodeDataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents 설명 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n01 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n02 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n03 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n04 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n05 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n06 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n07 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n08 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n09 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents n10 As System.Windows.Forms.DataGridViewTextBoxColumn
End Class

View File

@@ -0,0 +1,252 @@
<?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="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>222, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABKklE
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="ToolStripButton45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAtklE
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="ToolStripButton46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAAAo0lE
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>
<data name="ToolStripButton47.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABLElE
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="ToolStripButton48.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABSklE
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="ToolStripButton49.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAACXBIWXMAAA64AAAOuAFqQfVbAAABb0lE
QVQ4T7WQTSjDYRzHd1XeSu3iglo5IJO8hGQypLHIhMjMJAcOi4R2cXAg5UIOuEgOJCXlROI0b/Pamlp/
LVLaBf+4PB9jqLW/seJ7eep5vt/P7/v8VH8iXCfQbQTHDh9XkYmVeURnFcKsh631sBC8HliaCfawtgC9
JkS7HtFRAXMTipC3hsJcBiM9oe+cOgKQumxEYwHYmoJMYsiKMOXCpD1sQxWL04jK1HcQw1Zwn8FYfwDq
Pz9s4YXHBc3FgS8ZsxD1edDX8rvwp9jf9VfOQxjSoUYbYfhGgsZCyElA1sbzoI2F2uxf1r+5BlM+FCXi
sxjg4uh9uXdpfsjy7A8LvL+DVh2PJUm4S9Px7W1/BRi14dTEIJ8cKEN4eYZBC+iSOU5T49tYDTHelmcg
tVUje69DIexuIueqcaZEIXU1gPykOGlHE4fsdCgApkaQUqNx6zNBulKu6Zds74bzQwXApRPGB+Bw79vw
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<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="설명.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n01.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n02.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n03.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n04.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n05.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n06.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n07.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n08.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n09.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="n10.UserAddedColumn" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>38</value>
</metadata>
</root>

View File

@@ -0,0 +1,130 @@
Public Class Frm_V20091231_buha
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
Public Overrides Function AcceptChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.AcceptChanges()
Return True
End Function
'''변경된내용이있다면 취소한다.
Public Overrides Function RejectChanged() As Boolean
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
BaseDT.RejectChanges()
Return True
End Function
'''데이터에변형이있었는가?
Public Overrides Function HasChanged() As Boolean
bs.EndEdit()
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
Dim ChangeDT As DataTable = BaseDT.GetChanges
If Not ChangeDT Is Nothing Then Return True
Return False
End Function
'''기본데이터테이블을 반환합니다.
Public Function DT() As DataTable
Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
Return BaseDS.Tables(bs.DataMember)
End Function
#End Region
Private Sub MdiMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F12
End Select
End Sub
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.부분부하율)
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
'//프로필 관련
'//공유데이터셋에 연결한다.
Me.bs.DataSource = DSET1
'//냉방기기
AddHandler DSET1.tbl_buha.TableNewRow, AddressOf AddNewDataRow_nangbangkiki
'//콤보컨트롤 바인딩
Binding_Zone()
Try
Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
Catch ex As Exception
Me.bs.MoveFirst()
End Try
End Sub
#Region "냉방기기"
Private Sub MdiMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me, Me.bs.Position, True)
End Sub
Private Function GetMaxCode(ByVal dt As DataTable) As String
Try
Dim Dr As DataRow = dt.Select("", "code desc")(0)
Return Format(CInt(Dr("code")) + 1, "0000")
Catch ex As Exception
Return "0001"
End Try
End Function
Private Sub Cmb_DeleteVal(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
If e.KeyCode = Keys.Delete Then
CType(sender, ComboBox).SelectedValue = ""
End If
End Sub
Private Sub Binding_Zone()
'//냉동기기
'Dim bs_냉동기방식ComboBox As New BindingSource(DSET, "tbl_common")
'bs_냉동기방식ComboBox.Filter = "gubun='1046'"
'Me.냉동기방식ComboBox.DataSource = bs_냉동기방식ComboBox
'냉동기방식ComboBox.DisplayMember = "name"
'냉동기방식ComboBox.ValueMember = "code"
'Me.냉동기방식ComboBox.DataBindings.Add("text", Me.bs, "냉동기방식")
'AddHandler 냉동기방식ComboBox.KeyDown, AddressOf Cmb_DeleteVal
End Sub
Private Sub AddNewDataRow_nangbangkiki(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_buha)
End Sub
Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
If Not EndEdit(Me.bs) Then Return
Me.bs.AddNew()
End Sub
Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
DbBase.DelCrow(Me.bs, True)
End Sub
Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If Not EndEdit(Me.bs) Then Return
Data_Cancel(DSET1.tbl_buha, Nothing)
End Sub
#End Region
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
Me.bs.EndEdit()
End Sub
Private Sub Arindv9_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Arindv9.CellContentClick
End Sub
End Class

View File

@@ -0,0 +1,93 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Naming", "CA1726")> _
Partial Class LoginForm1
Inherits System.Windows.Forms.Form
'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Friend WithEvents PasswordLabel As System.Windows.Forms.Label
Friend WithEvents tbPass As System.Windows.Forms.TextBox
Friend WithEvents OK As System.Windows.Forms.Button
Friend WithEvents Cancel As System.Windows.Forms.Button
'Windows Form 디자이너에 필요합니다.
Private components As System.ComponentModel.IContainer
'참고: 다음 프로시저는 Windows Form 디자이너에 필요합니다.
'수정하려면 Windows Form 디자이너를 사용하십시오.
'코드 편집기를 사용하여 수정하지 마십시오.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.PasswordLabel = New System.Windows.Forms.Label()
Me.tbPass = New System.Windows.Forms.TextBox()
Me.OK = New System.Windows.Forms.Button()
Me.Cancel = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'PasswordLabel
'
Me.PasswordLabel.Location = New System.Drawing.Point(10, 11)
Me.PasswordLabel.Name = "PasswordLabel"
Me.PasswordLabel.Size = New System.Drawing.Size(220, 23)
Me.PasswordLabel.TabIndex = 2
Me.PasswordLabel.Text = "암호(&P)"
Me.PasswordLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'tbPass
'
Me.tbPass.Location = New System.Drawing.Point(12, 31)
Me.tbPass.Name = "tbPass"
Me.tbPass.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.tbPass.Size = New System.Drawing.Size(220, 21)
Me.tbPass.TabIndex = 3
'
'OK
'
Me.OK.Location = New System.Drawing.Point(12, 61)
Me.OK.Name = "OK"
Me.OK.Size = New System.Drawing.Size(94, 23)
Me.OK.TabIndex = 4
Me.OK.Text = "확인(&O)"
'
'Cancel
'
Me.Cancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel.Location = New System.Drawing.Point(138, 61)
Me.Cancel.Name = "Cancel"
Me.Cancel.Size = New System.Drawing.Size(94, 23)
Me.Cancel.TabIndex = 5
Me.Cancel.Text = "취소(&C)"
'
'LoginForm1
'
Me.AcceptButton = Me.OK
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel
Me.ClientSize = New System.Drawing.Size(239, 100)
Me.Controls.Add(Me.Cancel)
Me.Controls.Add(Me.OK)
Me.Controls.Add(Me.tbPass)
Me.Controls.Add(Me.PasswordLabel)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "LoginForm1"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Login"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
End Class

View File

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

View File

@@ -0,0 +1,26 @@
Public Class LoginForm1
' TODO: 제공된 사용자 이름과 암호를 사용하여 사용자 지정 인증을 수행하는 코드를 삽입합니다
' (자세한 내용은 http://go.microsoft.com/fwlink/?LinkId=35339 참조).
' 그러면 사용자 지정 보안 주체가 현재 스레드의 보안 주체에 다음과 같이 첨부될 수 있습니다.
' My.User.CurrentPrincipal = CustomPrincipal
' 여기서 CustomPrincipal은 인증을 수행하는 데 사용되는 IPrincipal이 구현된 것입니다.
' 나중에 My.User는 CustomPrincipal 개체에 캡슐화된 사용자 이름, 표시 이름 등의
' ID 정보를 반환합니다.
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim pass As String = Now.ToString("MMdd")
pass = pass.Substring(3, 1) + pass.Substring(2, 1) + pass.Substring(1, 1) + pass.Substring(0, 1)
If tbPass.Text = pass Then
DialogResult = Windows.Forms.DialogResult.OK
Else
tbPass.SelectAll()
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub
End Class

View File

@@ -0,0 +1,85 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class fSelectArea
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(fSelectArea))
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("맑은 고딕", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Label1.Location = New System.Drawing.Point(21, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(284, 60)
Me.Label1.TabIndex = 0
Me.Label1.Text = "기상데이터 지역목록 입니다." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "적용할 지역을 선택 하세요"
'
'ComboBox1
'
Me.ComboBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.ComboBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.ComboBox1.Font = New System.Drawing.Font("맑은 고딕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(26, 96)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(291, 40)
Me.ComboBox1.TabIndex = 1
'
'Button1
'
Me.Button1.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Button1.Location = New System.Drawing.Point(26, 151)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(291, 40)
Me.Button1.TabIndex = 2
Me.Button1.Text = "확 인"
Me.Button1.UseVisualStyleBackColor = True
'
'fSelectArea
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(341, 209)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("맑은 고딕", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "fSelectArea"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "적용 지역 선택"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Button1 As Button
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,18 @@
Public Class fSelectArea
Private Sub fSelectArea_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.DataSource = DSET1.tbl_weather_od
ComboBox1.DisplayMember = "건물위치"
ComboBox1.ValueMember = "code"
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ComboBox1.SelectedIndex < 0 Then
MsgBox("선택하지 않았습니다", MsgBoxStyle.Critical, "확인")
Return
End If
DialogResult = DialogResult.OK
End Sub
End Class