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

지역분리 작업

Browse Source
This commit is contained in:
tindevil
2020-08-16 00:44:02 +09:00
parent 2f394faf88
commit 8ca37e3e1a
14 changed files with 485 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

274
ArinWarev1/Forms_Input/Frm_Desc.vb
View File

@@ -7,12 +7,6 @@
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()
@@ -98,24 +92,24 @@
End Select
End Sub
Sub AttachAreaBind()
'//지역중분류값을 업데이트한다
bsArea1.DataSource = DSET1
bsArea1.DataMember = "weather_group"
bsArea2.DataSource = DSET1
bsArea2.DataMember = "weather_group"
'Sub AttachAreaBind()
' '//지역중분류값을 업데이트한다
' bsArea1.DataSource = DSET1
' bsArea1.DataMember = "weather_group"
' bsArea2.DataSource = DSET1
' bsArea2.DataMember = "weather_group"
cmbArea1.DataSource = bsArea1
cmbArea2.DataSource = bsArea2
' cmbArea1.DataSource = bsArea1
' cmbArea2.DataSource = bsArea2
cmbArea1.DisplayMember = "name"
cmbArea1.ValueMember = "code"
'bsArea1.Filter = "code like '%0000'"
' cmbArea1.DisplayMember = "name"
' cmbArea1.ValueMember = "code"
' 'bsArea1.Filter = "code like '%0000'"
cmbArea2.DisplayMember = "name"
cmbArea2.ValueMember = "code"
'bsArea2.Filter = "code ='test'"
End Sub
' 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
@@ -131,18 +125,16 @@
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'"
'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
Me.LinkLabel2.Visible = False
@@ -167,7 +159,8 @@
Me.bs.MoveFirst()
End Try
Dim drDesc As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
btArea.Text = GetAreaName(drDesc.buildarea)
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")
@@ -183,9 +176,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.cmbArea2.SelectedValue
' Dim Lc As String = Me.cmbArea2.SelectedValue
Read_CommonCode()
Me.cmbArea2.SelectedValue = Lc
'Me.cmbArea2.SelectedValue = Lc
Me.bs.EndEdit()
End If
Catch ex As Exception
@@ -203,9 +196,9 @@
VersionInfo = L.Get_LastVersion("P") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
Dim Lp As String = Me.cmbArea2.SelectedValue
'Dim Lp As String = Me.cmbArea2.SelectedValue
Read_ProfileData()
Me.cmbArea2.SelectedValue = Lp
'Me.cmbArea2.SelectedValue = Lp
Me.bs.EndEdit()
End If
Catch ex As Exception
@@ -223,9 +216,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.cmbArea2.SelectedValue
'Dim Lw As String = Me.cmbArea2.SelectedValue
Read_WeatherData()
Me.cmbArea2.SelectedValue = Lw
'Me.cmbArea2.SelectedValue = Lw
Me.bs.EndEdit()
End If
Catch ex As Exception
@@ -240,7 +233,7 @@
End If
End If
지역코드설정()
'지역코드설정()
AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
@@ -250,10 +243,10 @@
Private Sub Binding_Zone()
Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
bs_cmb_공조방식.Filter = ""
Me.cmbArea2.DataSource = bs_cmb_공조방식
cmbArea2.DisplayMember = "건물위치"
cmbArea2.ValueMember = "code"
Me.cmbArea2.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'"
@@ -313,21 +306,21 @@
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Dim L As String = Me.cmbArea2.SelectedValue
' Dim L As String = Me.cmbArea2.SelectedValue
If MsgBox("공용코드값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_CommonCode()
' 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.cmbArea2.SelectedValue
'Dim L As String = Me.cmbArea2.SelectedValue
If MsgBox("기상데이터값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_WeatherData()
AttachAreaBind()
' 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.cmbArea2.SelectedValue
' Dim L As String = Me.cmbArea2.SelectedValue
If MsgBox("표준프로파일값을 서버로부터 가져오시겠습니까?", MsgBoxStyle.Information Or MsgBoxStyle.OkCancel, "확인") = MsgBoxResult.Ok Then Read_ProfileData()
' Me.cmbArea2.SelectedValue = L
Me.bs.EndEdit()
@@ -379,92 +372,143 @@
End Sub
Private Sub 지역코드설정()
Dim drv As DataRowView = Me.bs.Current
If drv Is Nothing Then Return
'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
' '//지역코드에는 Weather_Group의 코드값이 들어있다.
' Dim 지역코드 As String = drv("buildarea").ToString
' If 지역코드 <> "" AndAlso 지역코드 <> "0" AndAlso 지역코드 <> "00" AndAlso 지역코드.Length = 6 Then
변경암함_세부지역 = True
' 변경암함_세부지역 = 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" '//선택해줌
' '//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"
' 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 = 지역코드
' 'Me.cmbArea3.SelectedValue = 지역코드
'//찾은 중분류코드에맞는 중분류를 자동 선택해준다.
변경암함_세부지역 = False
Else
bsArea1.Filter = "code like '%0000'"
bsArea2.Filter = "code='test'"
'bsArea3.Filter = "code='test'"
End If
End Sub
' '//찾은 중분류코드에맞는 중분류를 자동 선택해준다.
' 변경암함_세부지역 = 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
'Private Sub cmbArea1_SelectedIndexChanged(sender As Object, e As EventArgs)
' 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)
' '//지역그룹선택을 바꾼다면 해당 지역에 맞도록 우측을 갱신해줘야한다
' 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"
' 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 (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
' If cmbArea1.SelectedIndex >= 0 Then
' drv("buildarea") = cmbArea1.SelectedValue.ToString()
' drv.EndEdit()
' End If
End If
End Sub
' 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
'Private Sub CmbArea2_SelectedIndexChanged_1(sender As System.Object, e As System.EventArgs)
' 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 변경암함_세부지역 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
' If cmbArea2.SelectedIndex >= 0 Then
' drv("buildarea") = cmbArea2.SelectedValue.ToString()
' drv.EndEdit()
' End If
End If
End Sub
' 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
Private Sub tbArea_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub tbArea_Click(sender As Object, e As EventArgs)
End Sub
Function GetAreaName(code As String)
If String.IsNullOrEmpty(code) OrElse code.Length <> 6 Then Return code
Dim Grp1 As String = code.Substring(0, 2)
'//그룹 이름 찾기
Dim GrpName As String = String.Empty
Dim CodeName As String = String.Empty
Dim GrpCode As String = Grp1 + "0000"
Dim GrpList() As DS.weather_groupRow = DSET1.weather_group.Select("code='" + GrpCode + "'")
If GrpList Is Nothing OrElse GrpList.Length = 1 Then
GrpName = GrpList(0).name
End If
GrpList = DSET1.weather_group.Select("code='" + code + "'")
If GrpList Is Nothing OrElse GrpList.Length = 1 Then
CodeName = GrpList(0).name
End If
If CodeName = String.Empty Then
Return code
Else
Return GrpName + " > " + CodeName
End If
End Function
Private Sub btArea_Click(sender As Object, e As EventArgs) Handles btArea.Click
Dim PreCode As String = String.Empty
Dim dr As DS.tbl_DescRow = Nothing
If DSET1.tbl_Desc.Rows.Count = 1 Then
dr = DSET1.tbl_Desc.Rows(0)
PreCode = dr.buildarea
End If
Dim f As New fSelectWeatherGroup(PreCode)
If f.ShowDialog() = DialogResult.OK Then
If Not dr Is Nothing Then
btArea.Text = GetAreaName(f.SelectedCode)
dr.buildarea = f.SelectedCode
dr.EndEdit()
End If
End If
End Sub
End Class