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

ArinWarev1/MdiMain.vb

@@ -255,7 +255,7 @@ Public Class MdiMain
 
     End Sub
 
-    Public Sub Open_File(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False)
+    Public Sub Open_File(ByVal FileName As String, Optional ByVal SyncServer As Boolean = False, Optional checkVersion As Boolean = True, Optional silent As Boolean = False, Optional isNew As Boolean = False)
 
         If Prj.Opened Then
 
@@ -327,7 +327,7 @@ Public Class MdiMain
                     Return
                 End If
             End If
-            
+
 
         End If
 
@@ -638,9 +638,16 @@ Public Class MdiMain
                 MsgBox("<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>䵥<EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD> <20>ʱ<EFBFBD><CAB1>ڷḦ <20><><EFBFBD><EFBFBD><EFBFBD>մϴ<D5B4>", MsgBoxStyle.Critical, "Ȯ<EFBFBD><EFBFBD>")
                 Dim newdescdr As DS.tbl_DescRow = DSET1.tbl_Desc.NewRow
                 newdescdr.name = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
-                newdescdr.buildarea = "0001"
+                newdescdr.buildarea = "010100"
                 DSET1.tbl_Desc.Addtbl_DescRow(newdescdr)
                 DSET1.tbl_Desc.AcceptChanges()
+            Else
+                If isNew Then   '//<2F>ű<EFBFBD><C5B1>ۼ<EFBFBD><DBBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
+                    Dim drDesc1 As DS.tbl_DescRow = DSET1.tbl_Desc.Rows(0)
+                    drDesc1.buildarea = "010100" '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
+                    drDesc1.EndEdit()
+                End If
+                
             End If
 
 
@@ -766,6 +773,9 @@ Public Class MdiMain
 
             Frm_Work.Close()
 
+            '//weather
+            Read_WeatherFile()
+
             Calc = New Calculator(Prj.LGVersino, DSET1, DSETR1, Result1, False)    '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŭ<EFBFBD><C5AC><EFBFBD><EFBFBD> <20>ʱ<EFBFBD>ȭ
             Me.bt_filesave.Enabled = True
             'Me.bt_newsave.Enabled = True
@@ -809,7 +819,7 @@ Public Class MdiMain
             End If
 
 
-            Menu_<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
+
 
             '//<2F><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ش<EFBFBD>.
             Me.Save_FilHistory(Prj.FileName)
@@ -858,7 +868,7 @@ Public Class MdiMain
                     MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
                 End Try
             End If
-           
+
 
             '/ǥ<><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD>Ȯ<EFBFBD><C8AE> '//2010.12.06 <20>߰<EFBFBD>
             Try
@@ -894,9 +904,11 @@ Public Class MdiMain
                 End Try
             End If
 
+
+
             Read_WeatherFile()
 
-
+            Menu_<EFBFBD>ǹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
 
             '/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹<EFBFBD><CDB9><EFBFBD>Ȯ<EFBFBD><C8AE>
             'Try
@@ -979,6 +991,18 @@ Public Class MdiMain
     Private GroupList_Bunbae As ArrayList
 
 
+
+    
+    Sub DeSerialize(filename As String, ByRef data As DataTable)
+
+        Using stm As System.IO.Stream = System.IO.File.Open(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+            Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ <20><> <20><>ü Ŭ<><C5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
+            Dim dt As DataTable = bf.Deserialize(stm)
+            data.Clear()
+            data.Merge(dt)
+        End Using
+
+    End Sub
     Sub Read_WeatherFile()
         '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ܺ<EFBFBD><DCBA><EFBFBD><EFBFBD>Ͽ<EFBFBD><CFBF><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>
         DSET1.weather_cha.Clear()
@@ -989,46 +1013,72 @@ Public Class MdiMain
         DSET1.tbl_weather.Clear()
 
         Dim DataPath As String = AppDomain.CurrentDomain.BaseDirectory + "Data"
-        Dim fi1 As String = System.IO.Path.Combine(DataPath, DSET1.weather_cha.TableName + ".xml")
-        Dim fi2 As String = System.IO.Path.Combine(DataPath, DSET1.weather_ilsa.TableName + ".xml")
-        Dim fi3 As String = System.IO.Path.Combine(DataPath, DSET1.weather_supdo.TableName + ".xml")
-        Dim fi4 As String = System.IO.Path.Combine(DataPath, DSET1.weather_temp.TableName + ".xml")
-        Dim fi5 As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".xml")
-        Dim fi6 As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".xml")
+        Dim fi1d As String = System.IO.Path.Combine(DataPath, DSET1.weather_cha.TableName + ".dat")
+        Dim fi2d As String = System.IO.Path.Combine(DataPath, DSET1.weather_ilsa.TableName + ".dat")
+        Dim fi3d As String = System.IO.Path.Combine(DataPath, DSET1.weather_supdo.TableName + ".dat")
+        Dim fi4d As String = System.IO.Path.Combine(DataPath, DSET1.weather_temp.TableName + ".dat")
+        Dim fi5d As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".dat")
+        Dim fi6d As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".dat")
+        If System.IO.File.Exists(fi1d) Then
+            DeSerialize(fi1d, CType(DSET1.weather_cha, DS.weather_chaDataTable))
+            DeSerialize(fi2d, CType(DSET1.weather_ilsa, DS.weather_ilsaDataTable))
+            DeSerialize(fi3d, CType(DSET1.weather_supdo, DS.weather_supdoDataTable))
+            DeSerialize(fi4d, CType(DSET1.weather_temp, DS.weather_tempDataTable))
+            DeSerialize(fi5d, CType(DSET1.tbl_weather, DS.tbl_weatherDataTable))
+
+            'Using stm As System.IO.Stream = System.IO.File.Open(fi6d, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+            '    Dim bf As System.Runtime.Serialization.Formatters.Binary.BinaryFormatter = New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȭ <20><> <20><>ü Ŭ<><C5AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>ȯ... Dim a As clsTEST = CType(bf.Deserialize(stm), clsTEST) stm.Close()
+            '    DSET1.weather_group = CType(bf.Deserialize(stm), DS.weather_groupDataTable))
+            'End Using
+
+            DeSerialize(fi6d, CType(DSET1.weather_group, DS.weather_groupDataTable))
+
+        Else
+            '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD≯<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD><EFBFBD><EFBFBD>
+            Dim fi1 As String = System.IO.Path.Combine(DataPath, DSET1.weather_cha.TableName + ".xml")
+            Dim fi2 As String = System.IO.Path.Combine(DataPath, DSET1.weather_ilsa.TableName + ".xml")
+            Dim fi3 As String = System.IO.Path.Combine(DataPath, DSET1.weather_supdo.TableName + ".xml")
+            Dim fi4 As String = System.IO.Path.Combine(DataPath, DSET1.weather_temp.TableName + ".xml")
+            Dim fi5 As String = System.IO.Path.Combine(DataPath, DSET1.tbl_weather.TableName + ".xml")
+            Dim fi6 As String = System.IO.Path.Combine(DataPath, DSET1.weather_group.TableName + ".xml")
 
 
 
-        If System.IO.File.Exists(fi1) Then
-            DSET1.weather_cha.ReadXml(fi1)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#1 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
-        End If
-        If System.IO.File.Exists(fi2) Then
-            DSET1.weather_ilsa.ReadXml(fi2)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#2 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
-        End If
-        If System.IO.File.Exists(fi3) Then
-            DSET1.weather_supdo.ReadXml(fi3)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#3 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
-        End If
-        If System.IO.File.Exists(fi4) Then
-            DSET1.weather_temp.ReadXml(fi4)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#4 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
-        End If
-        If System.IO.File.Exists(fi5) Then
-            DSET1.tbl_weather.ReadXml(fi5)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#5 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
-        End If
-        If System.IO.File.Exists(fi6) Then
-            DSET1.weather_group.ReadXml(fi6)
-        Else
-            MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#6 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            If System.IO.File.Exists(fi1) Then
+                DSET1.weather_cha.ReadXml(fi1)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#1 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+            If System.IO.File.Exists(fi2) Then
+                DSET1.weather_ilsa.ReadXml(fi2)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#2 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+            If System.IO.File.Exists(fi3) Then
+                DSET1.weather_supdo.ReadXml(fi3)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#3 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+            If System.IO.File.Exists(fi4) Then
+                DSET1.weather_temp.ReadXml(fi4)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#4 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+            If System.IO.File.Exists(fi5) Then
+                DSET1.tbl_weather.ReadXml(fi5)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#5 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+            If System.IO.File.Exists(fi6) Then
+                DSET1.weather_group.ReadXml(fi6)
+            Else
+                MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#6 <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>\r\n<><6E><EFBFBD>α׷<CEB1><D7B7><EFBFBD> <20>ٽ<EFBFBD> <20><>ġ<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>")
+            End If
+
         End If
 
+
+      
         DSET1.weather_cha.AcceptChanges()
         DSET1.weather_ilsa.AcceptChanges()
         DSET1.weather_supdo.AcceptChanges()
@@ -1491,7 +1541,7 @@ ENDSTAT:  '//
         '    My.Computer.FileSystem.WriteAllBytes(SD.FileName, Desbuf, False)   
         'End If
         '/////////////////////////////////////////////////////////////////////////////////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>2011.03.16<EFBFBD>߰<EFBFBD>
-        Me.Open_File(SD.FileName, True, False)
+        Me.Open_File(SD.FileName, True, False, False, True)
         Prj.UIVersion = CurrentUIVersion()  '//<2F>׻<EFBFBD><D7BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 160327
         Refresh_info()
         Me.Save_File(Prj.FileName, False)