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

weather_group 내보내기 기능

Browse Source
This commit is contained in:
tindevil
2020-08-16 00:44:55 +09:00
parent 50bb66aa4f
commit ea26c7356d
9 changed files with 5252 additions and 4702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1127,4 +1127,93 @@
Private Sub dvArea3_DataError(sender As System.Object, e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dvArea3.DataError
End Sub
Private Sub Button7_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 Button8_Click(sender As Object, e As EventArgs)
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
DSET1.weather_cha.Clear()
DSET1.weather_ilsa.Clear()
DSET1.weather_supdo.Clear()
DSET1.weather_temp.Clear()
DSET1.tbl_weather.Clear()
DSET1.weather_cha.Merge(DSET1.weather_cha_od)
DSET1.weather_ilsa.Merge(DSET1.weather_ilsa_od)
DSET1.weather_supdo.Merge(DSET1.weather_supdo_od)
DSET1.weather_temp.Merge(DSET1.weather_temp_od)
DSET1.tbl_weather.Merge(DSET1.tbl_weather_od)
'모든파일을 저장한다.
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_group.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_od.Clear()
DSET1.weather_ilsa_od.Clear()
DSET1.weather_supdo_od.Clear()
DSET1.weather_temp_od.Clear()
DSET1.tbl_weather_od.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_od.Merge(DSET1.weather_cha)
DSET1.weather_ilsa_od.Merge(DSET1.weather_ilsa)
DSET1.weather_supdo_od.Merge(DSET1.weather_supdo)
DSET1.weather_temp_od.Merge(DSET1.weather_temp)
DSET1.tbl_weather_od.Merge(DSET1.tbl_weather)
DSET1.weather_cha_od.AcceptChanges()
DSET1.weather_ilsa_od.AcceptChanges()
DSET1.weather_supdo_od.AcceptChanges()
DSET1.weather_temp_od.AcceptChanges()
DSET1.tbl_weather.AcceptChanges()
DSET1.weather_group.AcceptChanges()
End If
End Sub
End Class