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-15 19:34:49 +09:00
parent 890d88bbfc
commit 2f394faf88
18 changed files with 17882 additions and 3173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
ArinWarev1/Forms_Input/Frm_Desc.Designer.vb generated
View File

@@ -67,6 +67,7 @@ Partial Class Frm_Desc
Me.Label28 = New System.Windows.Forms.Label()
Me.TextBox76 = New Eco2Ar.MyTb()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.cmbArea1 = New System.Windows.Forms.ComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.MyTb7 = New Eco2Ar.MyTb()
Me.Label29 = New System.Windows.Forms.Label()
@@ -80,7 +81,7 @@ Partial Class Frm_Desc
Me.TextBox73 = New Eco2Ar.MyTb()
Me.TextBox71 = New Eco2Ar.MyTb()
Me.Label35 = New System.Windows.Forms.Label()
Me.cmb_location = New Eco2Ar.MyCmb()
Me.cmbArea2 = New Eco2Ar.MyCmb()
Me.Label40 = New System.Windows.Forms.Label()
Me.Label41 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
@@ -138,6 +139,8 @@ Partial Class Frm_Desc
Me.Panel10 = New System.Windows.Forms.Panel()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.Label47 = New System.Windows.Forms.Label()
Me.bsArea2 = New System.Windows.Forms.BindingSource(Me.components)
Me.bsArea1 = New System.Windows.Forms.BindingSource(Me.components)
Me.TableLayoutPanel3.SuspendLayout()
Me.TableLayoutPanel4.SuspendLayout()
CType(Me.bs, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -168,6 +171,8 @@ Partial Class Frm_Desc
Me.GroupBox8.SuspendLayout()
Me.Panel10.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bsArea2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.bsArea1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel3
@@ -616,6 +621,7 @@ Partial Class Frm_Desc
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(219, Byte), Integer), CType(CType(221, Byte), Integer), CType(CType(223, Byte), Integer))
Me.Panel3.Controls.Add(Me.cmbArea1)
Me.Panel3.Controls.Add(Me.Label19)
Me.Panel3.Controls.Add(Me.MyTb7)
Me.Panel3.Controls.Add(Me.Label29)
@@ -629,7 +635,7 @@ Partial Class Frm_Desc
Me.Panel3.Controls.Add(Me.TextBox73)
Me.Panel3.Controls.Add(Me.TextBox71)
Me.Panel3.Controls.Add(Me.Label35)
Me.Panel3.Controls.Add(Me.cmb_location)
Me.Panel3.Controls.Add(Me.cmbArea2)
Me.Panel3.Controls.Add(Me.Label40)
Me.Panel3.Controls.Add(Me.Label41)
Me.Panel3.Location = New System.Drawing.Point(1, 9)
@@ -637,11 +643,25 @@ Partial Class Frm_Desc
Me.Panel3.Size = New System.Drawing.Size(507, 162)
Me.Panel3.TabIndex = 5
'
'cmbArea1
'
Me.cmbArea1.BackColor = System.Drawing.Color.White
Me.cmbArea1.DisplayMember = "name"
Me.cmbArea1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbArea1.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.cmbArea1.FormattingEnabled = True
Me.cmbArea1.Location = New System.Drawing.Point(345, 5)
Me.cmbArea1.Margin = New System.Windows.Forms.Padding(4, 2, 4, 2)
Me.cmbArea1.Name = "cmbArea1"
Me.cmbArea1.Size = New System.Drawing.Size(152, 20)
Me.cmbArea1.TabIndex = 78
Me.cmbArea1.ValueMember = "code"
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label19.Location = New System.Drawing.Point(45, 75)
Me.Label19.Location = New System.Drawing.Point(45, 80)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(31, 12)
Me.Label19.TabIndex = 76
@@ -650,7 +670,7 @@ Partial Class Frm_Desc
'MyTb7
'
Me.MyTb7.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "gujo", True))
Me.MyTb7.Location = New System.Drawing.Point(81, 72)
Me.MyTb7.Location = New System.Drawing.Point(81, 77)
Me.MyTb7.Name = "MyTb7"
Me.MyTb7.NectControl = Nothing
Me.MyTb7.Size = New System.Drawing.Size(416, 21)
@@ -702,7 +722,7 @@ Partial Class Frm_Desc
'
Me.Label33.AutoSize = True
Me.Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label33.Location = New System.Drawing.Point(1, 51)
Me.Label33.Location = New System.Drawing.Point(1, 56)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(75, 12)
Me.Label33.TabIndex = 0
@@ -732,10 +752,10 @@ Partial Class Frm_Desc
'TextBox72
'
Me.TextBox72.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildname", True))
Me.TextBox72.Location = New System.Drawing.Point(81, 24)
Me.TextBox72.Location = New System.Drawing.Point(81, 29)
Me.TextBox72.Name = "TextBox72"
Me.TextBox72.NectControl = Nothing
Me.TextBox72.Size = New System.Drawing.Size(256, 21)
Me.TextBox72.Size = New System.Drawing.Size(211, 21)
Me.TextBox72.TabIndex = 11
Me.TextBox72.TextFormat = Eco2Ar.MyTb.ETFormat.Normal
'
@@ -752,7 +772,7 @@ Partial Class Frm_Desc
'TextBox71
'
Me.TextBox71.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.bs, "buildaddr", True))
Me.TextBox71.Location = New System.Drawing.Point(81, 48)
Me.TextBox71.Location = New System.Drawing.Point(81, 53)
Me.TextBox71.Name = "TextBox71"
Me.TextBox71.NectControl = Nothing
Me.TextBox71.Size = New System.Drawing.Size(416, 21)
@@ -770,22 +790,22 @@ Partial Class Frm_Desc
Me.Label35.Text = "연면적(㎡)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label35.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'cmb_location
'cmbArea2
'
Me.cmb_location.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmb_location.FormattingEnabled = True
Me.cmb_location.Items.AddRange(New Object() {"서울", "인천", "경기", "강원", "대구", "대전", "충남", "충북", "광주", "전남", "전북", "부산", "울산", "경북", "경남", "제주"})
Me.cmb_location.Location = New System.Drawing.Point(403, 25)
Me.cmb_location.Name = "cmb_location"
Me.cmb_location.NectControl = Nothing
Me.cmb_location.Size = New System.Drawing.Size(94, 20)
Me.cmb_location.TabIndex = 12
Me.cmbArea2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbArea2.FormattingEnabled = True
Me.cmbArea2.Items.AddRange(New Object() {"서울", "인천", "경기", "강원", "대구", "대전", "충남", "충북", "광주", "전남", "전북", "부산", "울산", "경북", "경남", "제주"})
Me.cmbArea2.Location = New System.Drawing.Point(345, 29)
Me.cmbArea2.Name = "cmbArea2"
Me.cmbArea2.NectControl = Nothing
Me.cmbArea2.Size = New System.Drawing.Size(152, 20)
Me.cmbArea2.TabIndex = 12
'
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label40.Location = New System.Drawing.Point(32, 27)
Me.Label40.Location = New System.Drawing.Point(32, 32)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(44, 12)
Me.Label40.TabIndex = 0
@@ -793,13 +813,13 @@ Partial Class Frm_Desc
'
'Label41
'
Me.Label41.AutoSize = True
Me.Label41.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label41.Location = New System.Drawing.Point(366, 29)
Me.Label41.Location = New System.Drawing.Point(305, 13)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(31, 12)
Me.Label41.Size = New System.Drawing.Size(43, 33)
Me.Label41.TabIndex = 2
Me.Label41.Text = "지역"
Me.Label41.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'GroupBox5
'
@@ -1366,6 +1386,16 @@ Partial Class Frm_Desc
Me.Label47.TabIndex = 179
Me.Label47.Text = "경과년수"
'
'bsArea2
'
Me.bsArea2.DataMember = "weather_group"
Me.bsArea2.DataSource = Me.DS
'
'bsArea1
'
Me.bsArea1.DataMember = "weather_group"
Me.bsArea1.DataSource = Me.DS
'
'Frm_Desc
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 12.0!)
@@ -1454,6 +1484,8 @@ Partial Class Frm_Desc
Me.Panel10.ResumeLayout(False)
Me.Panel10.PerformLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bsArea2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.bsArea1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1476,7 +1508,7 @@ Partial Class Frm_Desc
Friend WithEvents TextBox75 As Eco2Ar.MyTb
Friend WithEvents TextBox73 As Eco2Ar.MyTb
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents cmb_location As Eco2Ar.MyCmb
Friend WithEvents cmbArea2 As Eco2Ar.MyCmb
Friend WithEvents TextBox72 As Eco2Ar.MyTb
Friend WithEvents TextBox70 As Eco2Ar.MyTb
Friend WithEvents TextBox69 As Eco2Ar.MyTb
@@ -1572,4 +1604,7 @@ Partial Class Frm_Desc
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents cmb_인증기관 As Eco2Ar.MyCmb
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents cmbArea1 As ComboBox
Friend WithEvents bsArea2 As BindingSource
Friend WithEvents bsArea1 As BindingSource
End Class

8
ArinWarev1/Forms_Input/Frm_Desc.resx
View File

@@ -785,7 +785,13 @@
ZqH7/wD/ABaT/hUfb7Ht/wBj7V9p8v8A9Cr+Oz+lz//Z
</value>
</data>
<metadata name="bsArea2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 17</value>
</metadata>
<metadata name="bsArea1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>345, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>45</value>
<value>57</value>
</metadata>
</root>

186
ArinWarev1/Forms_Input/Frm_Desc.vb
View File

@@ -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

841
ArinWarev1/Forms_Input/Frm_v20091231_Weather.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

150
ArinWarev1/Forms_Input/Frm_v20091231_Weather.resx
View File

@@ -379,27 +379,54 @@
<value>False</value>
</metadata>
<metadata name="bn_all.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>497, 17</value>
</metadata>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 56</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 56</value>
</metadata>
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>581, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>581, 17</value>
<value>571, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="bs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>91, 17</value>
</metadata>
<metadata name="DS1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>155, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>655, 17</value>
</metadata>
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
@@ -469,14 +496,14 @@
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_temp.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
<value>252, 17</value>
</metadata>
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="BindingNavigator4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>811, 17</value>
</metadata>
<data name="ToolStripButton25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -547,14 +574,14 @@
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_supdo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
<value>360, 17</value>
</metadata>
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 56</value>
</metadata>
<metadata name="BindingNavigator5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 56</value>
<value>967, 17</value>
</metadata>
<data name="ToolStripButton33.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -625,14 +652,14 @@
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_cha.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>399, 17</value>
<value>473, 17</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>514, 56</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>514, 56</value>
<value>1241, 17</value>
</metadata>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -703,43 +730,28 @@
P0ilegWKIwMchCbSyQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="bsWGDep3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1397, 17</value>
</metadata>
<metadata name="area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="dvc_area2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="area3.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsWGDep2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="bsWGDep1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>131, 56</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>396, 56</value>
<value>1123, 17</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_ilsa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="code.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_temp.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>178, 17</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn9.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_supdo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>286, 17</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn10.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="bsw_cha.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>399, 17</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn11.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

248
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb
View File

@@ -74,12 +74,23 @@
AddHandler DSET1.weather_supdo.TableNewRow, AddressOf AddNewDataRow_Weathersupdo
AddHandler DSET1.weather_cha.TableNewRow, AddressOf AddNewDataRow_WeatherCha
AddHandler DSET1.weather_group.TableNewRow, AddressOf AddNewDataRow_WeatherGrp
AddHandler dvArea1.CellContentClick, AddressOf dv_cellcontclick
AddHandler dvArea2.CellContentClick, AddressOf dv_cellcontclick
AddHandler dvArea3.CellContentClick, AddressOf dv_cellcontclick
Me.bs.DataSource = DSET1
Me.bsw_ilsa.DataSource = DSET1
Me.bsw_supdo.DataSource = DSET1
Me.bsw_temp.DataSource = DSET1
Me.bsw_cha.DataSource = DSET1
Me.bsWGDep1.DataSource = DSET1
Me.bsWGDep2.DataSource = DSET1
Me.bsWGDep3.DataSource = DSET1
'//콤보컨트롤 바인딩
Me.bn_all.BindingSource = Me.bs
Me.bs = Me.bs
@@ -92,7 +103,21 @@
AddDebug("▲ Form Load")
End Sub
Sub dv_cellcontclick(sender As Object, e As DataGridViewCellEventArgs)
Dim grid As DataGridView = sender
If grid.Columns(e.ColumnIndex).DataPropertyName <> "area" Then Return
Dim f As New fSelectArea()
If f.ShowDialog <> DialogResult.OK Then Return
grid.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = f.ComboBox1.Text.ToString()
End Sub
#Region "Weather 관련"
Private Sub AddNewDataRow_WeatherGrp(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
End Sub
Private Sub AddNewDataRow_Weather(ByVal sender As Object, ByVal e As System.Data.DataTableNewRowEventArgs)
e.Row.Item("code") = GetMaxCode(DSET1.tbl_weather)
End Sub
@@ -146,11 +171,11 @@
If Not EndEdit(Me.bsw_ilsa) Then Return
If Not EndEdit(Me.bsw_temp) Then Return
If Not EndEdit(Me.bsw_cha) Then Return
Check_Modify(Me.DS.tbl_weather)
Check_Modify(Me.DS.weather_ilsa, False)
Check_Modify(Me.DS.weather_supdo, False)
Check_Modify(Me.DS.weather_temp, False)
Check_Modify(Me.DS.weather_cha, False)
Check_Modify(Me.DS1.tbl_weather)
Check_Modify(Me.DS1.weather_ilsa, False)
Check_Modify(Me.DS1.weather_supdo, False)
Check_Modify(Me.DS1.weather_temp, False)
Check_Modify(Me.DS1.weather_cha, False)
End Sub
@@ -185,8 +210,8 @@
Else
'MsgBox(Me.bsw_supdo.Count)
End If
Me.DS.weather_temp.AcceptChanges()
Me.DS.weather_supdo.AcceptChanges()
Me.DS1.weather_temp.AcceptChanges()
Me.DS1.weather_supdo.AcceptChanges()
End Sub
@@ -689,7 +714,7 @@
'For j As Integer = 1 To DSET1.weather_cha.Select(Me.bsw_cha.Filter).Length
' DSET1.weather_cha.Select(Me.bsw_cha.Filter)(j - 1)("code") = Format(j, "0000")
'Next
DS.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다.
DS1.weather_cha.AcceptChanges() '//이건 변경내역을 반영하게삳는겁니다.
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
@@ -985,4 +1010,211 @@
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
'//delete 1dep
'//하위모든데이터를 삭제해야한다.
Dim drv As DataRowView = Me.bsWGDep1.Current
If drv Is Nothing OrElse drv("code").ToString().Length < 6 Then Return
Dim codeHeader As String = drv("code").ToString().Substring(0, 2)
Dim drows() As DataRow = DSET1.weather_group.Select(String.Format("code like '{0}%'", codeHeader))
For i As Integer = drows.Length To 1 Step -1
DSET1.weather_group.Rows.Remove(drows(i - 1))
Next
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
'//add 2
'//1번이 선택되지 않앗다면 넘어간다.
Dim drv1 As DataRowView = Me.bsWGDep1.Current
If drv1 Is Nothing OrElse drv1("code").ToString().Length < 6 Then Return
Dim codeHeader As String = drv1("code").ToString().Substring(0, 2)
Dim newcode As String = String.Empty
For i As Integer = 1 To 99
Dim ccode As String = codeHeader + i.ToString("00") + "00"
'//이 코드가 현재 없다면 적용한다.
If DSET1.weather_group.Select("code='" + ccode + "'").Length < 1 Then
newcode = ccode
Exit For
End If
Next
If String.IsNullOrEmpty(newcode) Then
MsgBox("신규번호를 할당 하지 못했습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Dim newdr As DS.weather_groupRow = DSET1.weather_group.Newweather_groupRow
newdr.code = newcode
newdr.name = "<지역명>"
DSET1.weather_group.Addweather_groupRow(newdr)
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
'//delete 2dep
'//하위모든데이터를 삭제해야한다.
Dim drv As DataRowView = Me.bsWGDep2.Current
If drv Is Nothing OrElse drv("code").ToString().Length < 6 Then Return
Dim codeHeader As String = drv("code").ToString().Substring(0, 4)
Dim drows() As DataRow = DSET1.weather_group.Select(String.Format("code like '{0}%'", codeHeader))
For i As Integer = drows.Length To 1 Step -1
DSET1.weather_group.Rows.Remove(drows(i - 1))
Next
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'/add 3
'//2번이 선택되지 않앗다면 넘어간다.
Dim drv1 As DataRowView = Me.bsWGDep2.Current
If drv1 Is Nothing OrElse drv1("code").ToString().Length < 6 Then Return
Dim codeHeader As String = drv1("code").ToString().Substring(0, 4)
Dim newcode As String = String.Empty
For i As Integer = 1 To 99
Dim ccode As String = codeHeader + i.ToString("00")
'//이 코드가 현재 없다면 적용한다.
If DSET1.weather_group.Select("code='" + ccode + "'").Length < 1 Then
newcode = ccode
Exit For
End If
Next
If String.IsNullOrEmpty(newcode) Then
MsgBox("신규번호를 할당 하지 못했습니다", MsgBoxStyle.Critical, "확인")
Return
End If
Dim newdr As DS.weather_groupRow = DSET1.weather_group.Newweather_groupRow
newdr.code = newcode
newdr.name = "<지역명>"
DSET1.weather_group.Addweather_groupRow(newdr)
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'//delete 3dep
Dim drv As DataRowView = Me.bsWGDep3.Current
If drv Is Nothing OrElse drv("code").ToString().Length < 6 Then Return
Dim codeHeader As String = drv("code").ToString().Substring(0, 6)
Dim drows() As DataRow = DSET1.weather_group.Select(String.Format("code like '{0}%'", codeHeader))
For i As Integer = drows.Length To 1 Step -1
DSET1.weather_group.Rows.Remove(drows(i - 1))
Next
End Sub
Private Sub dvArea1_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dvArea1.DataError
End Sub
Private Sub dvArea2_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dvArea2.DataError
End Sub
Private Sub dvArea3_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dvArea3.DataError
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs)
Dim sd As New SaveFileDialog()
If sd.ShowDialog() = DialogResult.OK Then
DSET1.weather_group.WriteXml(sd.FileName)
End If
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs)
Dim sd As New OpenFileDialog()
If sd.ShowDialog() = DialogResult.OK Then
DSET1.weather_group.Clear()
DSET1.weather_group.ReadXml(sd.FileName)
DSET1.weather_group.AcceptChanges()
End If
End Sub
Private Sub bsWGDep1_CurrentChanged(sender As Object, e As EventArgs) Handles bsWGDep1.CurrentChanged
'//select 1 depth
Dim drv As DataRowView = Me.bsWGDep1.Current
If drv Is Nothing OrElse drv("code").ToString().Length < 6 Then
bsWGDep2.Filter = "code='test'"
Else
Dim codeHeader As String = drv("code").ToString().Substring(0, 2)
bsWGDep2.Filter = String.Format("code like '{0}%' and code not like '%0000' and code like '%00'", codeHeader)
End If
End Sub
Private Sub bsWGDep2_CurrentChanged(sender As Object, e As EventArgs) Handles bsWGDep2.CurrentChanged
'//select 2 depth
Dim drv As DataRowView = Me.bsWGDep2.Current
If drv Is Nothing OrElse drv("code").ToString().Length < 6 Then
bsWGDep3.Filter = "code='test'"
Else
Dim codeHeader As String = drv("code").ToString().Substring(0, 4)
bsWGDep3.Filter = String.Format("code like '{0}%' and code not like '%00'", codeHeader)
End If
End Sub
Private Sub bsWGDep3_CurrentChanged(sender As Object, e As EventArgs) Handles bsWGDep3.CurrentChanged
End Sub
Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
Dim sd As New FolderBrowserDialog()
If sd.ShowDialog() = DialogResult.OK Then
'Eco2는 바로 내보내기하면 된다
'DSET1.weather_cha.Clear()
'DSET1.weather_ilsa.Clear()
'DSET1.weather_supdo.Clear()
'DSET1.weather_temp.Clear()
'DSET1.weather_cha.Merge(DSET1.weather_cha_od)
'DSET1.weather_ilsa.Merge(DSET1.weather_ilsa)
'DSET1.weather_supdo.Merge(DSET1.weather_supdo)
'DSET1.weather_temp.Merge(DSET1.weather_temp)
'모든파일을 저장한다.
DSET1.weather_cha.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
DSET1.weather_ilsa.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_ilsa.TableName + ".xml"))
DSET1.weather_supdo.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_supdo.TableName + ".xml"))
DSET1.weather_temp.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_temp.TableName + ".xml"))
DSET1.tbl_weather.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.tbl_weather.TableName + ".xml"))
DSET1.weather_group.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
End If
End Sub
Private Sub ToolStripButton13_Click(sender As Object, e As EventArgs) Handles ToolStripButton13.Click
Dim sd As New FolderBrowserDialog()
If sd.ShowDialog() = DialogResult.OK Then
DSET1.weather_cha.Clear()
DSET1.weather_ilsa.Clear()
DSET1.weather_supdo.Clear()
DSET1.weather_temp.Clear()
DSET1.weather_group.Clear()
DSET1.tbl_weather.Clear()
DSET1.weather_cha.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
DSET1.weather_ilsa.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_ilsa.TableName + ".xml"))
DSET1.weather_supdo.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_supdo.TableName + ".xml"))
DSET1.weather_temp.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_temp.TableName + ".xml"))
DSET1.tbl_weather.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.tbl_weather.TableName + ".xml"))
DSET1.weather_group.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml"))
'//od는 od 데이터에 다시 옴겨야한다
DSET1.weather_cha.AcceptChanges()
DSET1.weather_ilsa.AcceptChanges()
DSET1.weather_supdo.AcceptChanges()
DSET1.weather_temp.AcceptChanges()
DSET1.tbl_weather.AcceptChanges()
DSET1.weather_group.AcceptChanges()
End If
End Sub
End Class