..

ArinWarev1/Forms_Input/Frm_Desc.vb

@@ -3,6 +3,18 @@
 
     '''변경된내용을적용한다.
     Public Overrides Function AcceptChanged() As Boolean
+
+        Dim drv As DataRowView = bs.Current
+        If drv Is Nothing Then Return True
+
+        If Me.cmbArea2.SelectedValue Is Nothing OrElse Me.cmbArea1.SelectedValue Is Nothing Then
+            MsgBox("지역이 선택되지 않았습니다" + vbCrLf + "계산작업을 위해서는 지역이 선택되어야 합니다", MsgBoxStyle.Critical, "확인")
+            drv("buildarea") = "0"
+        Else
+            drv("buildarea") = Me.cmbArea2.SelectedValue.ToString
+        End If
+
+
         bs.EndEdit()
         Dim BaseDS As DataSet = CType(bs.DataSource, DataSet)
         Dim BaseDT As DataTable = BaseDS.Tables(bs.DataMember)
@@ -37,6 +49,9 @@
 
 #End Region
 
+    Dim DT지역중분류 As DataTable
+    Dim init As Boolean = False
+    Dim 변경암함_세부지역 As Boolean = False
 
     Public Sub New(_opentime)
 
@@ -83,12 +98,50 @@
         End Select
     End Sub
 
+    Sub AttachAreaBind()
+        '//지역중분류값을 업데이트한다
+        bsArea1.DataSource = DSET1
+        bsArea1.DataMember = "weather_group"
+        bsArea2.DataSource = DSET1
+        bsArea2.DataMember = "weather_group"
+
+        cmbArea1.DataSource = bsArea1
+        cmbArea2.DataSource = bsArea2
+
+        cmbArea1.DisplayMember = "name"
+        cmbArea1.ValueMember = "code"
+        'bsArea1.Filter = "code like '%0000'"
+
+        cmbArea2.DisplayMember = "name"
+        cmbArea2.ValueMember = "code"
+        'bsArea2.Filter = "code ='test'"
+    End Sub
+
     Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
+        init = False
 
         Me.Show()
         My.Application.DoEvents()
-        ' Work_msg_timer("잠시만 기다려주세요")
+
+
+        '//지역중분류값을 업데이트한다
+        bsArea1.DataSource = DSET1
+        bsArea1.DataMember = "weather_group"
+        bsArea2.DataSource = DSET1
+        bsArea2.DataMember = "weather_group"
+
+        cmbArea1.DataSource = bsArea1
+        cmbArea2.DataSource = bsArea2
+
+        cmbArea1.DisplayMember = "name"
+        cmbArea1.ValueMember = "code"
+        bsArea1.Filter = "code like '%0000'"
+
+        cmbArea2.DisplayMember = "name"
+        cmbArea2.ValueMember = "code"
+        bsArea2.Filter = "code ='test'"
+
 
 
         Me.LinkLabel1.Visible = False
@@ -106,6 +159,7 @@
 
         '//Zone
         Binding_Zone()
+        init = True
 
         Try
             Me.bs.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
@@ -113,6 +167,8 @@
             Me.bs.MoveFirst()
         End Try
 
+
+
         If Not (Prj.UserId.ToLower() = "guest" OrElse Prj.UserId.ToLower().StartsWith("user") OrElse Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1") Then  '//2011.03.08 추가
             Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
             Dim L As New ArinLogin.ArinLOgin
@@ -127,9 +183,9 @@
             Try
                 VersionInfo = L.Get_LastVersion("C")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
                 If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
-                    Dim Lc As String = Me.cmb_location.SelectedValue
+                    Dim Lc As String = Me.cmbArea2.SelectedValue
                     Read_CommonCode()
-                    Me.cmb_location.SelectedValue = Lc
+                    Me.cmbArea2.SelectedValue = Lc
                     Me.bs.EndEdit()
                 End If
             Catch ex As Exception
@@ -147,9 +203,9 @@
 
                 VersionInfo = L.Get_LastVersion("P")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
                 If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
-                    Dim Lp As String = Me.cmb_location.SelectedValue
+                    Dim Lp As String = Me.cmbArea2.SelectedValue
                     Read_ProfileData()
-                    Me.cmb_location.SelectedValue = Lp
+                    Me.cmbArea2.SelectedValue = Lp
                     Me.bs.EndEdit()
                 End If
             Catch ex As Exception
@@ -167,9 +223,9 @@
                 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
                 VersionInfo = L.Get_LastVersion("W")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
                 If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
-                    Dim Lw As String = Me.cmb_location.SelectedValue
+                    Dim Lw As String = Me.cmbArea2.SelectedValue
                     Read_WeatherData()
-                    Me.cmb_location.SelectedValue = Lw
+                    Me.cmbArea2.SelectedValue = Lw
                     Me.bs.EndEdit()
                 End If
             Catch ex As Exception
@@ -184,7 +240,9 @@
             End If
         End If
 
-            AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
+        지역코드설정()
+
+        AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
 
             AddDebug("▲ Form Load")
     End Sub
@@ -192,10 +250,10 @@
     Private Sub Binding_Zone()
         Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
         bs_cmb_공조방식.Filter = ""
-        Me.cmb_location.DataSource = bs_cmb_공조방식
-        cmb_location.DisplayMember = "건물위치"
-        cmb_location.ValueMember = "code"
-        Me.cmb_location.DataBindings.Add("selectedvalue", Me.bs, "buildarea")
+        Me.cmbArea2.DataSource = bs_cmb_공조방식
+        cmbArea2.DisplayMember = "건물위치"
+        cmbArea2.ValueMember = "code"
+        Me.cmbArea2.DataBindings.Add("selectedvalue", Me.bs, "buildarea")
 
         Dim bs_cmb_인증기관 As New BindingSource(DSET1, "tbl_common")
         bs_cmb_인증기관.Filter = "gubun='1100'"
@@ -255,22 +313,23 @@
 
 
     Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        Dim L As String = Me.cmb_location.SelectedValue
+        Dim L As String = Me.cmbArea2.SelectedValue
         If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode()
-        Me.cmb_location.SelectedValue = L
+        ' Me.cmbArea2.SelectedValue = L
         Me.bs.EndEdit()
     End Sub
 
     Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
-        Dim L As String = Me.cmb_location.SelectedValue
+        Dim L As String = Me.cmbArea2.SelectedValue
         If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData()
-        Me.cmb_location.SelectedValue = L
+        AttachAreaBind()
+        ' Me.cmbArea2.SelectedValue = L
         Me.bs.EndEdit()
     End Sub
     Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked '//2010.12.06 추가
-        Dim L As String = Me.cmb_location.SelectedValue
+        Dim L As String = Me.cmbArea2.SelectedValue
         If MsgBox("표준프로파일값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_ProfileData()
-        Me.cmb_location.SelectedValue = L
+        '  Me.cmbArea2.SelectedValue = L
         Me.bs.EndEdit()
     End Sub
 
@@ -308,9 +367,7 @@
         Me.bs.EndEdit()
     End Sub
 
-    Private Sub cmb_location_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmb_location.SelectedIndexChanged
 
-    End Sub
 
     Private Sub CheckBox1_Click(sender As Object, e As System.EventArgs) Handles CheckBox1.Click
         Dim drv As DataRowView = Me.bs.Current
@@ -321,4 +378,93 @@
     Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
 
     End Sub
+
+    Private Sub 지역코드설정()
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+        '//지역코드에는 Weather_Group의 코드값이 들어있다.
+        Dim 지역코드 As String = drv("buildarea").ToString
+        If 지역코드 <> "" AndAlso 지역코드 <> "0" AndAlso 지역코드 <> "00" AndAlso 지역코드.Length = 6 Then
+
+            변경암함_세부지역 = True
+
+            '//Dep 1
+            Dim codeHeader As String = 지역코드.Substring(0, 2)
+            bsArea2.Filter = String.Format("code like '{0}%' and code not like '%0000' and code like '%00'", codeHeader)
+            Me.cmbArea1.SelectedValue = codeHeader + "0000"   '//선택해줌   
+
+            codeHeader = 지역코드.Substring(0, 4)
+            'bsArea3.Filter = String.Format("code like '{0}%' and code not like '%00'", codeHeader)
+            Me.cmbArea2.SelectedValue = codeHeader + "00"
+
+            'Me.cmbArea3.SelectedValue = 지역코드
+
+            '//찾은 중분류코드에맞는 중분류를 자동 선택해준다.
+            변경암함_세부지역 = False
+        Else
+            bsArea1.Filter = "code like '%0000'"
+            bsArea2.Filter = "code='test'"
+            'bsArea3.Filter = "code='test'"
+        End If
+    End Sub
+
+    Private Sub cmbArea1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbArea1.SelectedIndexChanged
+        If init = False Then Return '//초기화전이면 수행안함
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+
+        '//지역그룹선택을 바꾼다면 해당 지역에 맞도록 우측을 갱신해줘야한다
+        If 변경암함_세부지역 Then Return '//순환참조방지
+        If Me.cmbArea1.SelectedIndex < 0 OrElse cmbArea1.Text = "없음" OrElse cmbArea1.SelectedValue.ToString() = "00" Then
+            Me.cmbArea2.SelectedIndex = -1
+        Else
+            Dim codeHeader As String = cmbArea1.SelectedValue.ToString().Substring(0, 2)
+            bsArea2.Filter = String.Format("code like '{0}%' and code not like '%0000' and code like '%00'", codeHeader)
+
+            cmbArea2.DataSource = bsArea2
+            cmbArea2.DisplayMember = "name"
+            cmbArea2.ValueMember = "code"
+
+            If (cmbArea2.Items.Count > 0) Then
+                cmbArea2.SelectedIndex = 0
+            Else
+                cmbArea2.SelectedIndex = -1
+            End If
+
+            If cmbArea1.SelectedIndex >= 0 Then
+                drv("buildarea") = cmbArea1.SelectedValue.ToString()
+                drv.EndEdit()
+            End If
+
+        End If
+    End Sub
+
+    Private Sub CmbArea2_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs) Handles cmbArea2.SelectedIndexChanged
+        If init = False Then Return '//초기화전이면 수행안함
+        Dim drv As DataRowView = Me.bs.Current
+        If drv Is Nothing Then Return
+
+        '//지역그룹선택을 바꾼다면 해당 지역에 맞도록 우측을 갱신해줘야한다
+        If 변경암함_세부지역 Then Return '//순환참조방지
+        If Me.cmbArea2.SelectedIndex < 0 OrElse cmbArea2.Text = "없음" OrElse cmbArea2.SelectedValue.ToString() = "00" Then
+            'Me.cmbArea3.SelectedIndex = -1
+        Else
+            Dim codeHeader As String = cmbArea2.SelectedValue.ToString().Substring(0, 4)
+            'bsArea3.Filter = String.Format("code like '{0}%' and code not like '%00'", codeHeader)
+            'cmbArea3.SelectedIndex = -1
+
+            If cmbArea2.SelectedIndex >= 0 Then
+                drv("buildarea") = cmbArea2.SelectedValue.ToString()
+                drv.EndEdit()
+            End If
+
+        End If
+    End Sub
+
+    Private Sub Label41_Click(sender As Object, e As EventArgs) Handles Label41.Click
+        Dim f As New fSelectWeatherGroup()
+        f.ShowDialog()
+    End Sub
 End Class