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

기상데이터 변경 완료(66)

Browse Source
This commit is contained in:
raytrace
2020-08-17 00:35:35 +09:00
parent 28c410b8b9
commit 997997fbfa
7 changed files with 214 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
ArinWarev1/Forms_Input/Frm_v20091231_Weather.vb
View File

@@ -1,4 +1,6 @@
Public Class Frm_V20091231_Weather
Imports System.Runtime.Serialization
Public Class Frm_V20091231_Weather
#Region "data Base 변경여부및 적용방법"
'''변경된내용을적용한다.
@@ -615,8 +617,8 @@
Private Sub dv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dv.MouseUp
If e.Button = Windows.Forms.MouseButtons.Right Then
Dim Frm_FilterA As New Frm_Filter
Frm_FilterA.ColumTitle = getColCaption(Me.Dt)
Frm_FilterA.ColumList = getColName(Me.Dt)
Frm_FilterA.ColumTitle = getColCaption(Me.DT)
Frm_FilterA.ColumList = getColName(Me.DT)
Frm_FilterA.Colorlist = ""
If Frm_FilterA.ShowDialog <> Windows.Forms.DialogResult.OK Then Return '//창떳을떄 확인아ㅣ고 취소눌르면 다음을 수행하지않는다는거에요.
Dim Filter As String = Frm_FilterA.tb_filter.Text '//값은 아까 그 텍박에 잇구요.
@@ -1159,31 +1161,74 @@
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()
' 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.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"))
'모든파일을 저장한다.
Dim SelectedPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data"
Dim file1 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_cha.TableName + ".xml")
Dim file2 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_ilsa.TableName + ".xml")
Dim file3 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_supdo.TableName + ".xml")
Dim file4 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".xml")
Dim file5 As String = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".xml")
Dim file6 As String = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".xml")
DSET1.weather_group.WriteXml(System.IO.Path.Combine(sd.SelectedPath, DSET1.weather_cha.TableName + ".xml"))
DSET1.weather_cha.WriteXml(file1)
DSET1.weather_ilsa.WriteXml(file2)
DSET1.weather_supdo.WriteXml(file3)
DSET1.weather_temp.WriteXml(file4)
DSET1.tbl_weather.WriteXml(file5)
DSET1.weather_group.WriteXml(file6)
End If
file1 = System.IO.Path.Combine(SelectedPath, DSET1.weather_cha.TableName + ".dat")
file2 = System.IO.Path.Combine(SelectedPath, DSET1.weather_ilsa.TableName + ".dat")
file3 = System.IO.Path.Combine(SelectedPath, DSET1.weather_supdo.TableName + ".dat")
file4 = System.IO.Path.Combine(SelectedPath, DSET1.weather_temp.TableName + ".dat")
file5 = System.IO.Path.Combine(SelectedPath, DSET1.tbl_weather.TableName + ".dat")
file6 = System.IO.Path.Combine(SelectedPath, DSET1.weather_group.TableName + ".dat")
'//암호화
Serialize(file1, DSET1.weather_cha)
Serialize(file2, DSET1.weather_ilsa)
Serialize(file3, DSET1.weather_supdo)
Serialize(file4, DSET1.weather_temp)
Serialize(file5, DSET1.tbl_weather)
Using stm As System.IO.Stream = System.IO.File.Open(file6, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
bf.Serialize(stm, DSET1.weather_group)
End Using
'Serialize(file6, DSET1.weather_group)
' End If
End Sub
Sub Serialize(filename As String, data As Object)
Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '역직렬화 후 객체 클래스로 형변환... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
bf.Serialize(stm, data)
End Using
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