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

ECO2_OD_20180901_0005_New

Browse Source
This commit is contained in:
raytrace
2023-05-20 22:27:10 +09:00
parent 7dfbe09f8e
commit e25bde7292
17 changed files with 8912 additions and 4937 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
ArinWarev1/FORM-BASIC/Frm_Weather.vb
View File

@@ -87,6 +87,10 @@
Me.bsWGDep2.DataSource = DSET1
Me.bsWGDep3.DataSource = DSET1
Me.bsw_river.DataSource = DSET1
Me.bsw_wind.DataSource = DSET1
Me.bsw_water.DataSource = DSET1
'//콤보컨트롤 바인딩
Me.bn_all.BindingSource = Me.bs
Me.bs = Me.bs
@@ -166,6 +170,11 @@
If Not EndEdit(Me.bsWGDep2) Then Return
If Not EndEdit(Me.bsWGDep3) Then Return
If Not EndEdit(Me.bsw_river) Then Return
If Not EndEdit(Me.bsw_wind) Then Return
If Not EndEdit(Me.bsw_water) Then Return
Check_Modify(Me.DS.tbl_weather_od)
Check_Modify(Me.DS.weather_ilsa_od, False)
Check_Modify(Me.DS.weather_supdo_od, False)
@@ -173,6 +182,10 @@
Check_Modify(Me.DS.weather_cha_od, False)
Check_Modify(Me.DS.weather_group, False)
Check_Modify(Me.DS.weather_wind, False)
Check_Modify(Me.DS.weather_river, False)
Check_Modify(Me.DS.weather_water, False)
End Sub
Private Sub bs_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged
@@ -187,6 +200,11 @@
Me.bsw_supdo.Filter = "pcode='" & pcode & "'"
Me.bsw_cha.Filter = "pcode='" & pcode & "'"
Me.bsw_wind.Filter = "pcode='" & pcode & "'"
Me.bsw_water.Filter = "pcode='" & pcode & "'"
Me.bsw_river.Filter = "pcode='" & pcode & "'"
If DSET1.weather_temp_od.Select("pcode='" & pcode & "'").GetUpperBound(0) = -1 Then
For i As Integer = 1 To 12
'MsgBox(i)
@@ -284,6 +302,11 @@
DSET1.weather_supdo_od.RejectChanges()
DSET1.weather_temp_od.RejectChanges()
DSET1.weather_group.RejectChanges()
DSET1.weather_water.RejectChanges()
DSET1.weather_wind.RejectChanges()
DSET1.weather_river.RejectChanges()
End Sub
Private Sub tb_t1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tb_t1.KeyDown
@@ -742,6 +765,12 @@
DSET1.weather_temp_od.Clear()
DSET1.weather_supdo_od.Clear()
'DSET1.weather_wind.Clear()
'DSET1.weather_river.Clear()
'DSET1.weather_water.Clear()
Dim Rng As Excel.Range = xlSheet1.Range("B3") '//Offset으로사용할것이므로 0,0셀을 선택한다
Dim newdr0 As DS.tbl_weather_odRow = DSET1.tbl_weather_od.NewRow
@@ -1169,6 +1198,10 @@
DSET1.weather_group.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml"))
DSET1.weather_water.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_water.TableName + ".xml"))
DSET1.weather_river.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_river.TableName + ".xml"))
DSET1.weather_wind.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_wind.TableName + ".xml"))
End If
End Sub
@@ -1189,6 +1222,10 @@
DSET1.weather_temp_od.Clear()
DSET1.tbl_weather_od.Clear()
DSET1.weather_water.Clear()
DSET1.weather_river.Clear()
DSET1.weather_wind.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"))
@@ -1198,6 +1235,10 @@
DSET1.weather_group.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_group.TableName + ".xml"))
DSET1.weather_water.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_water.TableName + ".xml"))
DSET1.weather_river.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_river.TableName + ".xml"))
DSET1.weather_wind.ReadXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_wind.TableName + ".xml"))
'//od는 od 데이터에 다시 옴겨야한다
DSET1.weather_cha_od.Merge(DSET1.weather_cha)
@@ -1212,6 +1253,10 @@
DSET1.weather_temp_od.AcceptChanges()
DSET1.tbl_weather.AcceptChanges()
DSET1.weather_water.AcceptChanges()
DSET1.weather_river.AcceptChanges()
DSET1.weather_wind.AcceptChanges()
DSET1.weather_group.AcceptChanges()
End If