731 lines
30 KiB
VB.net
731 lines
30 KiB
VB.net
Public Class Frm_V20091231_YK
|
|
Dim DT As DataTable
|
|
Dim init As Boolean = False
|
|
Dim pcode As String
|
|
Dim UserCommin As Boolean = False
|
|
Dim SrcDrv As DataRowView
|
|
|
|
Private Sub Frm_V20091231_YK_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
Me.bs.EndEdit()
|
|
Me.bs_detail.EndEdit()
|
|
|
|
End Sub
|
|
Private Sub MdiMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
'TODO: 이 코드는 데이터를 'DS.tbl_common' 테이블에 로드합니다. 필요한 경우 이 코드를 이동하거나 제거할 수 있습니다.
|
|
MdiMain.Toggle_Menu_Color(MdiMain.E_MenuIdx.열관류율)
|
|
'CEnergy.ARINCLASS.SaveLoad_FrmSetting(Me)
|
|
'//프로필 관련
|
|
|
|
'//공유데이터셋에 연결한다.
|
|
Me.bs.DataSource = DSET
|
|
Me.bs_detail.DataSource = DSET
|
|
Me.bs_gubun.DataSource = DSET
|
|
Me.bS_재료.DataSource = DSET
|
|
|
|
bS_재료.Filter = "gubun='1089'"
|
|
bS_재료.Sort = "code"
|
|
|
|
DT = DSET.tbl_yk
|
|
|
|
'//냉방분배
|
|
AddHandler DSET.tbl_yk.TableNewRow, AddressOf AddNewDataRow_bunbae
|
|
AddHandler DSET.tbl_ykdetail.TableNewRow, AddressOf AddNewDataRow_Weatherilsa
|
|
|
|
'//모든컨트롤의 cTrl_enter 를 추가합니다
|
|
BindProperty(CType(Me.SplitContainer1.Panel2.Controls, Control.ControlCollection))
|
|
|
|
'//콤보컨트롤 바인딩
|
|
Binding_Zone()
|
|
Me.bsmain = Me.bs
|
|
|
|
Try
|
|
Me.bsmain.Position = CEnergy.ARINCLASS.Read_LastPos_Frm(Me)
|
|
Catch ex As Exception
|
|
Me.bsmain.MoveFirst()
|
|
End Try
|
|
|
|
refresh_Image()
|
|
Me.init = True
|
|
|
|
'Try '//열전도갱신
|
|
|
|
Me.cmb_열전도율.Items.Clear()
|
|
|
|
Try
|
|
Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1089' and name='" & Me.cmb_재료.Text & "'")(0)
|
|
Me.cmb_열전도율.Items.Add(Dr.valn1)
|
|
Catch ex As Exception
|
|
'MsgBox("1. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
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.bsmain.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
|
|
' MsgBox(ex.Message.ToString)
|
|
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 AddNewDataRow_bunbae(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
|
e.Row.Item("code") = GetMaxCode(DSET.tbl_yk)
|
|
' MsgBox("22")
|
|
End Sub
|
|
Private Sub AddNewDataRow_Weatherilsa(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
|
|
|
|
Dim NewCode As String
|
|
Try
|
|
Dim Dr As DataRow = DSET.tbl_ykdetail.Select("pcode = '" & Me.pcode & "'", "code desc")(0)
|
|
NewCode = Format(CInt(Dr("code")) + 1, "0000")
|
|
Catch ex As Exception
|
|
NewCode = ("0001")
|
|
End Try
|
|
|
|
Try
|
|
e.Row.Item("pcode") = Me.pcode ' CType(bs.Current, DataRowView)("code")
|
|
e.Row.Item("code") = NewCode
|
|
'MsgBox(e.Row.Item("code").ToString)
|
|
|
|
Catch ex As Exception
|
|
MsgBox("부모코드없음 선택다시")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
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()
|
|
Me.bs.EndEdit()
|
|
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(DSET.tbl_profile, Nothing)
|
|
End Sub
|
|
|
|
Private Sub Binding_Zone()
|
|
|
|
Dim bs_형태 As New BindingSource(DSET, "tbl_common")
|
|
bs_형태.Filter = "gubun='1088'"
|
|
bs_형태.Sort = "code"
|
|
Me.cmb_형태.DataSource = bs_형태
|
|
cmb_형태.DisplayMember = "name"
|
|
cmb_형태.ValueMember = "code"
|
|
Me.cmb_형태.DataBindings.Add("selectedvalue", Me.bs, "면형태")
|
|
AddHandler cmb_형태.KeyDown, AddressOf Cmb_DeleteVal
|
|
|
|
'Me.bS_재료.DataSource = DSET.tbl_common
|
|
bS_재료.Filter = "gubun='1089'"
|
|
bS_재료.Sort = "code"
|
|
|
|
Me.cmb_재료.DataSource = bS_재료
|
|
cmb_재료.DisplayMember = "name"
|
|
cmb_재료.ValueMember = "name"
|
|
Me.cmb_재료.DataBindings.Add("text", Me.bs_detail, "설명")
|
|
AddHandler cmb_재료.KeyDown, AddressOf Cmb_DeleteVal
|
|
Me.cmb_재료.Text = ""
|
|
|
|
'Me.bs_gubun.DataSource = DSET.tbl_common
|
|
bs_gubun.Filter = "gubun='1090'"
|
|
bs_gubun.Sort = "code"
|
|
|
|
End Sub
|
|
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 bt_Del_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles bt_Del.MouseDown
|
|
If e.Button = Windows.Forms.MouseButtons.Right Then
|
|
If MsgBox("전체삭제를 하시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then
|
|
Dim dR() As DataRow = DSET.tbl_yk.Select(Me.bs.Filter, "")
|
|
For i As Integer = dR.GetUpperBound(0) To 0 Step -1
|
|
dR(i).Delete()
|
|
Next
|
|
DSET.tbl_yk.AcceptChanges()
|
|
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 = ""
|
|
|
|
Frm_FilterA.Numfield = "" '//20100618 Color 리스트처럼 , 구분해서 필드들을 모두 넣으세요.(=, >= 등을 사용하기 위해서는 해당 항목을 추가 요망)
|
|
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
|
|
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
|
|
Try
|
|
Me.bs.Filter = Filter
|
|
|
|
'//바꾸기값이 있으면 변경 20100618
|
|
If Frm_FilterA.cmb_fieldc.SelectedIndex >= 0 AndAlso Frm_FilterA.cmb_fieldc.Text.ToLower <> "code" AndAlso _
|
|
Frm_FilterA.tb_valuec.Text <> "" Then
|
|
Dim Drow() As DataRow = Me.DT.Select(Filter)
|
|
For Each Dr As DataRow In Drow
|
|
Dr(Frm_FilterA.cmb_fieldc.Text) = Frm_FilterA.tb_valuec.Text
|
|
Next
|
|
MsgBox("바꾸기 완료", MsgBoxStyle.Information, "확인")
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Me.bs.Filter = ""
|
|
'MsgBox("2. " & ex.Message.ToString)
|
|
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)삭제하도록 햇어요.
|
|
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
|
|
|
|
'//하위데이터복제
|
|
Dim src_pcode As String = SrcDrv("code").ToString
|
|
Dim new_pcode As String = NewDrv("code").ToString
|
|
|
|
|
|
For Each Drow2 As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select("pcode='" & src_pcode & "'")
|
|
Dim Newrow As DS.tbl_ykdetailRow = DSET.tbl_ykdetail.Newtbl_ykdetailRow
|
|
For Each C As DataColumn In DSET.tbl_ykdetail.Columns
|
|
Newrow(C.ColumnName) = Drow2(C.ColumnName)
|
|
Next
|
|
Newrow.pcode = new_pcode
|
|
DSET.tbl_ykdetail.Addtbl_ykdetailRow(Newrow)
|
|
Next
|
|
|
|
Me.bs.EndEdit()
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
|
|
bs.MoveLast()
|
|
End If
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
|
|
Try
|
|
pcode = CType(bs.Current, DataRowView)("code").ToString
|
|
Me.bs_detail.Filter = "pcode='" & pcode & "'"
|
|
Me.refresh_Image()
|
|
Catch ex As Exception
|
|
'MsgBox("3. " & ex.Message.ToString)
|
|
End Try
|
|
Me.bs.EndEdit()
|
|
End Sub
|
|
|
|
Private Sub refresh_Image()
|
|
' MsgBox(Me.UserControl11.Vertical)
|
|
|
|
Dim width As Decimal = 0 '//뭘고치던 여기 함수가 실행되므로 이곳에서 뭔가 작업하시는게 좋을것 같구요..어떤것을들 더하시려구요?
|
|
Dim R_value As Decimal = 0
|
|
|
|
For Each Dr As DS.tbl_ykdetailRow In DSET.tbl_ykdetail.Select(Me.bs_detail.Filter, "") '//세부내역중 두께를 합치는 루틴입니다.
|
|
'Try
|
|
If Dr.설명 = "공기층" Then
|
|
Dr.열전도율 = ""
|
|
If TOSG(Dr.두께) > 10.0 Then
|
|
Dr.열저항 = TOST(0.086)
|
|
R_value += 0.086
|
|
Else
|
|
Dr.열저항 = TOST(TOSG(Dr.두께) * 0.0086)
|
|
R_value = R_value + TOSG(Dr.두께) * 0.0086
|
|
End If
|
|
Else '//여기아래 추가하신거에요?
|
|
|
|
If Dr.설명.IndexOf("열전달저항") <> -1 Then
|
|
Dr.두께 = ""
|
|
Dr.열전도율 = ""
|
|
Select Case Dr.설명
|
|
Case "실내열전달저항(벽체)"
|
|
Dr.열저항 = TOST(0.11)
|
|
R_value += 0.11
|
|
Case "실외열전달저항(벽체,간접)"
|
|
Dr.열저항 = TOST(0.11)
|
|
R_value += 0.11
|
|
Case "실외열전달저항(벽체,직접)"
|
|
Dr.열저항 = TOST(0.043)
|
|
R_value += 0.043
|
|
Case "실내열전달저항(바닥)"
|
|
Dr.열저항 = TOST(0.086)
|
|
R_value += 0.086
|
|
Case "실외열전달저항(바닥,간접)"
|
|
Dr.열저항 = TOST(0.15)
|
|
R_value += 0.15
|
|
Case "실외열전달저항(바닥,직접)"
|
|
Dr.열저항 = TOST(0.043)
|
|
R_value += 0.043
|
|
Case "실내열전달저항(지붕)"
|
|
Dr.열저항 = TOST(0.086)
|
|
R_value += 0.086
|
|
Case "실외열전달저항(지붕,간접)"
|
|
Dr.열저항 = TOST(0.086)
|
|
R_value += 0.086
|
|
Case "실외열전달저항(지붕,직접)"
|
|
Dr.열저항 = TOST(0.043)
|
|
R_value += 0.043
|
|
|
|
End Select
|
|
|
|
Else
|
|
If Dr.열전도율 <> "" AndAlso TOSG(Dr.열전도율) <> 0 Then
|
|
Dr.열저항 = TOSG(Math.Round(TOSG(Dr.두께) / 1000 / TOSG(Dr.열전도율), 4)).ToString
|
|
R_value += TOSG(Dr.열저항) '//여부분에서는 나올수잇겟군요.?예
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
If Dr.설명.IndexOf("열전달저항") = -1 Then
|
|
width += TOSG(Dr.두께)
|
|
End If
|
|
Next
|
|
|
|
Try
|
|
If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
|
|
Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
|
Else
|
|
Me.열관류율NTb.Text = CSng(Math.Round(1 / R_value, 3)).ToString
|
|
End If
|
|
Catch ex As Exception
|
|
Me.열관류율NTb.Text = ""
|
|
'MsgBox("4. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
' Me.MyTb1.Text = width.ToString("N2")
|
|
Me.UserControl11.MaxSize = width
|
|
'MsgBox(width)
|
|
|
|
' Me.Label1.Text = Me.UserControl11.Width
|
|
|
|
'// 0.51 : me.wid = x : ?
|
|
|
|
' Me.UserControl11.Vertical = True
|
|
Dim FT(Me.arindv1.RowCount - 1) As mn.UserControl1.SM
|
|
For i As Integer = 0 To Me.arindv1.RowCount - 1
|
|
'//아까 열표시해서 검정색 선택해보니 검정은 값이 0 이 나오더라구요
|
|
'//실재로 0값이 근데 표시가안됫어요 그러므로
|
|
|
|
Try
|
|
FT(i).BColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("후경색").Value)
|
|
|
|
Catch ex As Exception
|
|
FT(i).BColor = Color.FromName("white")
|
|
'MsgBox("5. " & ex.Message.ToString)
|
|
End Try
|
|
Try
|
|
If Me.arindv1.Rows(i).Cells("전경색").Value = "0" Then
|
|
FT(i).FColor = Color.Black
|
|
Else
|
|
FT(i).FColor = Color.FromArgb(Me.arindv1.Rows(i).Cells("전경색").Value)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
FT(i).FColor = Color.FromName("black")
|
|
' MsgBox("6. " & ex.Message.ToString)
|
|
End Try
|
|
' FT(i).Style=
|
|
Try
|
|
FT(i).Style = Val(Me.arindv1.Rows(i).Cells("구분").Value)
|
|
Catch ex As Exception
|
|
FT(i).Style = Drawing2D.HatchStyle.Cross
|
|
'MsgBox("7. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
|
|
|
|
Try
|
|
FT(i).Width = Me.arindv1.Rows(i).Cells("두께").Value
|
|
Catch ex As Exception
|
|
'MsgBox("8. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
|
|
Next
|
|
Me.UserControl11.M1FillType = FT
|
|
End Sub
|
|
|
|
Private Sub arindv1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles arindv1.CellFormatting
|
|
Try
|
|
Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value)
|
|
' Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value)
|
|
Catch ex As Exception
|
|
Me.arindv1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
|
|
'MsgBox("9. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Arindv1_CellValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellValidated
|
|
refresh_Image()
|
|
End Sub
|
|
|
|
Private Sub Arindv1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub Arindv1_RowValidated(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
|
|
refresh_Image()
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
'Try
|
|
Me.bs_detail.AddNew()
|
|
Me.bs_detail.EndEdit()
|
|
refresh_Image()
|
|
'Catch ex As Exception
|
|
' MsgBox(ex.Message.ToString)
|
|
|
|
' MsgBox("상위코드 선택하세요", MsgBoxStyle.Critical, "확인")
|
|
'End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
|
If Me.bs_detail.Count > 0 Then Me.bs_detail.RemoveCurrent()
|
|
End Sub
|
|
|
|
Private Sub arindv1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles arindv1.CellContentClick
|
|
Select Case e.ColumnIndex
|
|
Case 8 '//전경
|
|
Dim Cd As New ColorDialog
|
|
Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value)
|
|
If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
|
Me.arindv1.Rows(e.RowIndex).Cells("전경색").Value = Cd.Color.ToArgb
|
|
Me.btn_전경색.BackColor = Cd.Color
|
|
Me.bs_detail.EndEdit()
|
|
refresh_Image()
|
|
Case 9 '//배경
|
|
Dim Cd As New ColorDialog
|
|
Cd.Color = Color.FromName(Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value)
|
|
If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
|
Me.arindv1.Rows(e.RowIndex).Cells("후경색").Value = Cd.Color.ToArgb
|
|
Me.btn_후경색.BackColor = Cd.Color
|
|
Me.bs_detail.EndEdit()
|
|
refresh_Image()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub arindv1_DataError1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles arindv1.DataError
|
|
|
|
End Sub
|
|
|
|
Private Sub cmb_형태_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_형태.SelectedIndexChanged
|
|
If cmb_형태.Text = "외벽(지붕)" OrElse cmb_형태.Text = "외벽(바닥)" OrElse cmb_형태.Text = "내벽(지붕)" OrElse cmb_형태.Text = "내벽(바닥)" Then
|
|
Me.UserControl11.Vertical = False
|
|
Else
|
|
Me.UserControl11.Vertical = True
|
|
End If
|
|
Me.refresh_Image()
|
|
If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
|
|
Me.NTb_창호열관류율.Visible = True
|
|
Me.NTb_일사에너지투과율.Visible = True
|
|
Me.NTb_창호세부설명.Visible = True
|
|
Me.lbl_창호열관류율.ForeColor = Color.Black
|
|
Me.lbl_일사에너지투과율.ForeColor = Color.Black
|
|
Me.lbl_창호세부설명.ForeColor = Color.Black
|
|
Else
|
|
Me.NTb_창호열관류율.Visible = False
|
|
Me.NTb_일사에너지투과율.Visible = False
|
|
Me.NTb_창호세부설명.Visible = False
|
|
Me.lbl_창호열관류율.ForeColor = Color.LightGray
|
|
Me.lbl_일사에너지투과율.ForeColor = Color.LightGray
|
|
Me.lbl_창호세부설명.ForeColor = Color.LightGray
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
|
|
Dim Drv As DataRowView = Me.bs_detail.Current
|
|
Dim 전경 As String
|
|
Try
|
|
전경 = Drv("전경색").ToString
|
|
Catch ex As Exception
|
|
'MsgBox("10. " & ex.Message.ToString)
|
|
End Try
|
|
Dim 후경 As String
|
|
Try
|
|
후경 = Drv("후경색").ToString
|
|
Catch ex As Exception
|
|
'MsgBox("11. " & ex.Message.ToString)
|
|
End Try
|
|
Dim A As New Frm_DisplayGubun(전경, 후경)
|
|
A.Show()
|
|
End Sub
|
|
|
|
Private Sub SplitContainer1_Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel2.Paint
|
|
|
|
End Sub
|
|
|
|
Private Sub bs_detail_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs_detail.CurrentChanged
|
|
Try
|
|
Dim Drv As DataRowView = CType(Me.bs_detail.Current, DataRowView)
|
|
Me.btn_전경색.BackColor = Color.FromArgb(Drv("전경색").ToString)
|
|
Me.btn_후경색.BackColor = Color.FromArgb(Drv("후경색").ToString)
|
|
Catch ex As Exception
|
|
Me.btn_전경색.BackColor = Color.White
|
|
Me.btn_후경색.BackColor = Color.White
|
|
'MsgBox("12. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
Dim Fil As String = "gubun='1089' and name='" & Me.cmb_재료.Text & "'"
|
|
' Try '//열전도갱신
|
|
|
|
Me.cmb_열전도율.Items.Clear()
|
|
Try
|
|
Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(Fil)(0)
|
|
Me.cmb_열전도율.Items.Add(Dr.valn1)
|
|
Catch ex As Exception
|
|
' MsgBox("13. " & ex.Message.ToString & vbCrLf & Fil)
|
|
End Try
|
|
|
|
|
|
|
|
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
End Sub
|
|
|
|
Private Sub btn_전경색_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_전경색.Click
|
|
|
|
Try
|
|
Dim Cd As New ColorDialog
|
|
|
|
If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
|
Me.btn_전경색.BackColor = Cd.Color
|
|
|
|
Dim Drv As DataRowView = Me.bs_detail.Current
|
|
Drv("전경색") = Cd.Color.ToArgb
|
|
|
|
Catch ex As Exception
|
|
Me.btn_전경색.BackColor = Color.White
|
|
'MsgBox("14. " & ex.Message.ToString)
|
|
End Try
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
|
|
End Sub
|
|
|
|
Private Sub cmb_재료_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectedIndexChanged
|
|
If Me.bs_detail.Count < 1 Then Return '// ep데이터가없을경우 무시
|
|
|
|
|
|
|
|
Dim 재료코드 As String
|
|
If Me.cmb_재료.SelectedIndex >= 0 Then
|
|
If UserCommin = False Then
|
|
'UserCommin = True
|
|
Return
|
|
End If
|
|
|
|
'MsgBox(Me.cmb_재료.Text)
|
|
|
|
'//여기가 재로를 선택하는 순간이에요
|
|
|
|
'//해당열전도율가져오기
|
|
Try
|
|
Dim Dr As DS.tbl_commonRow = DSET.tbl_common.Select(bS_재료.Filter & " and name='" & Me.cmb_재료.Text & "'")(0)
|
|
재료코드 = Dr.code
|
|
Me.cmb_열전도율.Items.Clear()
|
|
Try '// 20110210 Try문 추가 (열전달저항 관련 Null 값에 의한 재료코드에러수정)
|
|
Me.cmb_열전도율.Items.Add(Dr.valn1)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
'Me.tb_열전도.Text = Dr.valn1
|
|
' MsgBox(Dr.valn1)
|
|
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message.ToString)
|
|
'MsgBox("15. " & ex.Message.ToString)
|
|
End Try
|
|
|
|
'//색및 패턴명 가져오기
|
|
Dim DetailDrv As DataRowView = Me.bs_detail.Current
|
|
DetailDrv("설명") = Me.cmb_재료.Text
|
|
Dim Er As Boolean = False
|
|
|
|
Dim Dr2() As DS.tbl_commonRow = DSET.tbl_common.Select("gubun='1090' and code='" & 재료코드 & "'")
|
|
If Dr2.GetUpperBound(0) = -1 Then
|
|
DetailDrv("전경색") = Color.Blue.ToArgb
|
|
DetailDrv("후경색") = Color.White.ToArgb '//디비에 해당설ㅈㅇ이 없을경우 행하는 코드들
|
|
DetailDrv("구분") = "5"
|
|
Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색"))
|
|
Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색"))
|
|
Else '//디비에 있을경우
|
|
Try
|
|
DetailDrv("전경색") = Dr2(0)("name").ToString.Split(",")(0)
|
|
Catch ex As Exception
|
|
DetailDrv("전경색") = Color.Black.ToArgb
|
|
'MsgBox("16. " & ex.Message.ToString)
|
|
End Try
|
|
Try
|
|
DetailDrv("후경색") = Dr2(0)("name").ToString.Split(",")(1)
|
|
Catch ex As Exception
|
|
DetailDrv("후경색") = Color.White.ToArgb
|
|
' MsgBox("17. " & ex.Message.ToString)
|
|
End Try
|
|
DetailDrv("구분") = CInt(Dr2(0)("valn1"))
|
|
Me.btn_후경색.BackColor = Color.FromArgb(DetailDrv("후경색"))
|
|
Me.btn_전경색.BackColor = Color.FromArgb(DetailDrv("전경색"))
|
|
End If
|
|
|
|
|
|
|
|
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
UserCommin = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btn_후경색_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_후경색.Click
|
|
|
|
Try
|
|
Dim Cd As New ColorDialog
|
|
|
|
If Cd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
|
|
Me.btn_후경색.BackColor = Cd.Color
|
|
|
|
Dim Drv As DataRowView = Me.bs_detail.Current
|
|
Drv("후경색") = Cd.Color.ToArgb
|
|
|
|
Catch ex As Exception
|
|
Me.btn_후경색.BackColor = Color.White
|
|
'MsgBox("18. " & ex.Message.ToString)
|
|
End Try
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
|
|
End Sub
|
|
|
|
Private Sub cmb_열전도율_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_열전도율.SelectedIndexChanged
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
End Sub
|
|
|
|
Private Sub cmb_열전도율_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_열전도율.TextChanged
|
|
Me.bs_detail.EndEdit()
|
|
Me.refresh_Image()
|
|
End Sub
|
|
|
|
Private Sub cmb_재료_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_재료.SelectionChangeCommitted
|
|
Me.UserCommin = True
|
|
End Sub
|
|
|
|
Private Sub NTb_창호열관류율_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NTb_창호열관류율.TextChanged
|
|
If cmb_형태.Text = "외부창" OrElse cmb_형태.Text = "내부창" Then
|
|
Me.열관류율NTb.Text = Me.NTb_창호열관류율.Text
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dv.CellContentClick
|
|
|
|
End Sub
|
|
End Class
|