..

2020-08-15 19:34:49 +09:00
parent 890d88bbfc
commit 2f394faf88
18 changed files with 17882 additions and 3173 deletions
--- a/ArinWarev1/Forms_Basic/fSelectArea.Designer.vb
+++ b/ArinWarev1/Forms_Basic/fSelectArea.Designer.vb
@@ -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
--- a/ArinWarev1/Forms_Basic/fSelectArea.resx
+++ b/ArinWarev1/Forms_Basic/fSelectArea.resx
--- a/ArinWarev1/Forms_Basic/fSelectArea.vb
+++ b/ArinWarev1/Forms_Basic/fSelectArea.vb
@@ -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
+        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
--- a/ArinWarev1/Forms_Basic/fSelectWeatherGroup.Designer.vb
+++ b/ArinWarev1/Forms_Basic/fSelectWeatherGroup.Designer.vb
@@ -0,0 +1,127 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class fSelectWeatherGroup
+    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(fSelectWeatherGroup))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cmbArea1 = New System.Windows.Forms.ComboBox()
+        Me.btOK = New System.Windows.Forms.Button()
+        Me.cmbArea2 = New System.Windows.Forms.ComboBox()
+        Me.bsArea2 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.bsArea1 = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DS = New Eco2Ar.DS()
+        CType(Me.bsArea2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.bsArea1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DS, System.ComponentModel.ISupportInitialize).BeginInit()
+        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(14, 22)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(188, 30)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "지역을 선택하세요" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        '
+        'cmbArea1
+        '
+        Me.cmbArea1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cmbArea1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cmbArea1.Font = New System.Drawing.Font("맑은 고딕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.cmbArea1.FormattingEnabled = True
+        Me.cmbArea1.Location = New System.Drawing.Point(19, 73)
+        Me.cmbArea1.Name = "cmbArea1"
+        Me.cmbArea1.Size = New System.Drawing.Size(291, 40)
+        Me.cmbArea1.TabIndex = 1
+        '
+        'btOK
+        '
+        Me.btOK.Font = New System.Drawing.Font("맑은 고딕", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.btOK.Location = New System.Drawing.Point(22, 468)
+        Me.btOK.Name = "btOK"
+        Me.btOK.Size = New System.Drawing.Size(588, 50)
+        Me.btOK.TabIndex = 2
+        Me.btOK.Text = "확 인"
+        Me.btOK.UseVisualStyleBackColor = True
+        '
+        'cmbArea2
+        '
+        Me.cmbArea2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cmbArea2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cmbArea2.Font = New System.Drawing.Font("맑은 고딕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.cmbArea2.FormattingEnabled = True
+        Me.cmbArea2.Location = New System.Drawing.Point(316, 73)
+        Me.cmbArea2.Name = "cmbArea2"
+        Me.cmbArea2.Size = New System.Drawing.Size(291, 40)
+        Me.cmbArea2.TabIndex = 4
+        '
+        'bsArea2
+        '
+        Me.bsArea2.DataMember = "weather_group"
+        Me.bsArea2.DataSource = Me.DS
+        '
+        'bsArea1
+        '
+        Me.bsArea1.DataMember = "weather_group"
+        Me.bsArea1.DataSource = Me.DS
+        '
+        'DS
+        '
+        Me.DS.DataSetName = "DS"
+        Me.DS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'fSelectWeatherGroup
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(622, 542)
+        Me.Controls.Add(Me.cmbArea2)
+        Me.Controls.Add(Me.btOK)
+        Me.Controls.Add(Me.cmbArea1)
+        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 = "fSelectWeatherGroup"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "적용 지역 선택"
+        CType(Me.bsArea2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.bsArea1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DS, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cmbArea1 As ComboBox
+    Friend WithEvents btOK As Button
+    Friend WithEvents cmbArea2 As ComboBox
+    Friend WithEvents bsArea2 As BindingSource
+    Friend WithEvents bsArea1 As BindingSource
+    Public WithEvents DS As DS
+End Class
--- a/ArinWarev1/Forms_Basic/fSelectWeatherGroup.resx
+++ b/ArinWarev1/Forms_Basic/fSelectWeatherGroup.resx
--- a/ArinWarev1/Forms_Basic/fSelectWeatherGroup.vb
+++ b/ArinWarev1/Forms_Basic/fSelectWeatherGroup.vb
@@ -0,0 +1,22 @@
+Public Class fSelectWeatherGroup
+    Private Sub fSelectArea_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        bsArea1.DataSource = DSET1
+        bsArea2.DataSource = DSET2
+        bsArea1.Filter = "code like '%0000'"
+        bsArea2.Filter = "code = 'test'"
+
+        cmbArea1.DisplayMember = "name"
+        cmbArea1.ValueMember = "code"
+        cmbArea2.DisplayMember = "name"
+        cmbArea2.ValueMember = "code"
+        cmbArea1.DataSource = bsArea1
+        cmbArea2.DataSource = bsArea2
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btOK.Click
+
+        DialogResult = DialogResult.OK
+    End Sub
+End Class