KICT/ECO2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

user id DB로그인 안되게 수정

Browse Source 
디버깅이안되는 현상 있음
This commit is contained in:
chi
2022-10-05 13:09:18 +09:00
parent e530774e0b
commit a07b0678de
46 changed files with 12484 additions and 4386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
ArinWarev1/Forms_Input/Frm_New.vb
View File

@@ -184,15 +184,15 @@
Private Sub Binding_Zone()
'//신재생
Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common")
bs_기기종류ComboBox.Filter = "gubun='1028'"
bs_기기종류ComboBox.Sort = "code"
Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox
기기종류ComboBox.DisplayMember = "name"
기기종류ComboBox.ValueMember = "name"
Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류")
AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
''//신재생
'Dim bs_기기종류ComboBox As New BindingSource(DSET1, "tbl_common")
'bs_기기종류ComboBox.Filter = "gubun='1028'"
'bs_기기종류ComboBox.Sort = "code"
'Me.기기종류ComboBox.DataSource = bs_기기종류ComboBox
'기기종류ComboBox.DisplayMember = "name"
'기기종류ComboBox.ValueMember = "name"
'Me.기기종류ComboBox.DataBindings.Add("selectedvalue", Me.bs, "기기종류")
'AddHandler 기기종류ComboBox.KeyDown, AddressOf Cmb_DeleteVal
Dim bs_가동연료ComboBox As New BindingSource(DSET1, "tbl_common")
bs_가동연료ComboBox.Filter = "gubun='1066'"
@@ -682,30 +682,52 @@
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "열병합" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = True
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "태양광" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = True
지열Panel.Enabled = False
panWind.Enabled = False
ElseIf 기기종류ComboBox.Text = "지열" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = True
panWind.Enabled = False
Me.tabcontrol1.SelectedIndex = 0
ElseIf 기기종류ComboBox.Text = "수열" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = True
panWind.Enabled = False
Me.tabcontrol1.SelectedIndex = 1
ElseIf 기기종류ComboBox.Text = "풍력" Then
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = True
Else
태양열Panel.Enabled = False
축열탱크Panel.Enabled = False
열병합Panel.Enabled = False
태양광Panel.Enabled = False
지열Panel.Enabled = False
panWind.Enabled = False
End If
Catch ex As Exception
@@ -868,6 +890,21 @@
End Try
End Sub
Private Sub cmb_수열팽창설치여부_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_수열팽창설치여부.SelectedValueChanged
Try
Select Case Me.cmb_수열팽창설치여부.Text
Case "예"
Me.tb_수열팽창탱크체적.Enabled = True
Case Else
Me.tb_수열팽창탱크체적.Enabled = False
End Select
Catch ex As Exception
End Try
End Sub
Private Sub cmb_모듈기울기_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_모듈기울기.SelectedValueChanged