initial commit

ArinWarev1/Forms/v20091231/Frm_v20091231_ResultMon.vb

@@ -0,0 +1,66 @@
+Public Class Frm_v20091231_ResultMon
+
+#Region "data Base 변경여부및 적용방법"
+
+    '''변경된내용을적용한다.
+    Public Overrides Function AcceptChanged() As Boolean
+
+        Return True
+    End Function
+
+    '''변경된내용이있다면 취소한다.
+    Public Overrides Function RejectChanged() As Boolean
+
+        Return True
+    End Function
+
+    '''데이터에변형이있었는가?
+    Public Overrides Function HasChanged() As Boolean
+        Return False
+    End Function
+
+
+
+#End Region
+
+
+
+    Private Sub Frm_v20091231_Result_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Me.bs.DataSource = DSETR
+        'BindCmbBox()
+    End Sub
+
+    ''' <summary>
+    ''' 각 그리드뷰의 1번째(존콤보박스) 데이터소스결정 (디자인타임에서 할당하면 Bs를 모두 생성해야하므로 코드에서 생성)
+    ''' </summary>
+    ''' <remarks></remarks>
+    Private Sub BindCmbBox()
+        Dim bsz01 As New BindingSource(DSET, "tbl_zone")
+        Dim Col01 As DataGridViewComboBoxColumn = CType(Me.dv01.Columns(0), DataGridViewComboBoxColumn) : Col01.DataSource = bsz01
+    End Sub
+
+    Private Sub dv01_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dv01.CellFormatting
+        Dim Code As String = Me.dv01.Rows(e.RowIndex).Cells("존").Value.ToString
+        If Code = "00" Then
+            Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = "합계"
+            Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Gainsboro
+        Else    '//각존의 이름을 가져온다.
+
+            Dim Dr As DS.tbl_zoneRow = CType(DSET.tbl_zone.Select("code='" & Code & "'")(0), Eco2Ar.DS.tbl_zoneRow)
+            Me.dv01.Rows(e.RowIndex).Cells("Zone").Value = Dr.설명
+            Me.dv01.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
+        End If
+    End Sub
+
+    Private Sub dv01_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dv01.DataError
+
+    End Sub
+
+    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
+        Me.bs.Filter = "월='M" & Format(Me.TabControl1.SelectedIndex + 1, "00") & "'"
+    End Sub
+
+    Private Sub dv01_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv01.CellContentClick
+
+    End Sub
+End Class