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

507
ArinWarev1/MdiMain.vb
View File

@@ -233,7 +233,7 @@ Public Class MdiMain
MsgBox(sb.ToString(), MsgBoxStyle.Critical, "File Open Error")
End Try
End Sub
@@ -277,7 +277,7 @@ Public Class MdiMain
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
@@ -432,6 +432,10 @@ Public Class MdiMain
DSET1.weather_ilsa_od.Clear()
DSET1.weather_supdo_od.Clear()
DSET1.weather_temp_od.Clear()
DSET1.weather_water.Clear() '//230324
DSET1.weather_wind.Clear()
DSET1.weather_river.Clear()
Dim fn0 As String = AppDomain.CurrentDomain.BaseDirectory + "\common.dat"
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
@@ -546,153 +550,202 @@ Public Class MdiMain
End If
DSET1.tbl_common_od.AcceptChanges()
DSET1.tbl_profile_od.AcceptChanges()
DSET1.tbl_weather_od.AcceptChanges()
DSET1.weather_cha_od.AcceptChanges()
DSET1.weather_group.AcceptChanges()
DSET1.weather_ilsa_od.AcceptChanges()
DSET1.weather_supdo_od.AcceptChanges()
DSET1.weather_temp_od.AcceptChanges()
If System.IO.File.Exists(String.Format(fn2, "_water")) Then
DSET1.AcceptChanges()
Frm_Work.Close()
'//<2F><><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڷḸ<DAB7><E1B8B8> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>
SyncServer = False
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̰<EFBFBD> <20><><EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>Ѵ<EFBFBD>.
If isEnc AndAlso Pub.CheckInternet() Then
Read_Profile_OD()
If SyncServer Then '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD>ũ
Read_WeatherData_OD()
Read_CommonCode_OD()
Read_Profile_OD()
Read_WatherGroup()
End If
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_water"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_water.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_water.ReadXml(String.Format(fn2, "_water"))
End If
CalcO = New CalculatorOD(Prj.LGVersino) '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŭ<EFBFBD><C5AC><EFBFBD><EFBFBD> <20>ʱ<EFBFBD>ȭ
Me.mbt_save.Enabled = True
Me.mbt_save2.Enabled = Me.mbt_save.Enabled
Refresh_StatusInfo() '//ȭ<><C8AD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD> <20><><EFBFBD><EFBFBD>âǥ<C3A2><C7A5>
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)
Me.Read_FilHistory()
CalcO.Validation() '//null<6C><6C><EFBFBD><EFBFBD>
'//<2F>θ<EFBFBD><CEB8><EFBFBD><EFBFBD><EFBFBD> <20>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȵǴ<C8B5> <20><><EFBFBD>θ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ݴϴ<DDB4>.
'Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
'//Version <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE>
'Work_msg("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE><EFBFBD><EFBFBD>")
'Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
'Dim L As New ArinLogin.ArinLOgin
'Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
''/<2F><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' VersionInfo = L.Get_LastVersion("CO") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
' MsgBox("<22><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
'End Try
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD><EFBFBD><EFBFBD>üũ 140420
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' VersionInfo = L.Get_LastVersion("PO") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
' MsgBox("ǥ<><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(OD) <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
'End Try
'/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹<EFBFBD><CDB9><EFBFBD>Ȯ<EFBFBD><C8AE>
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' 'MyVersion = dset1.tbl_Desc.Rows(0)("versionw").ToString
' VersionInfo = L.Get_LastVersion("W") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
'End Try
'Me.Refresh_MenuItems("")
'/Dim fi As New System.IO.FileInfo(Prj.FileName)
lbl_filename.Text = "[" + fi.Name + "]"
Work_msg("")
Else
'//<2F><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD>ؼ<EFBFBD> <20><><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ʴ´<CAB4>.
lbl_filename.Text = "[ERROR]"
End If
If System.IO.File.Exists(String.Format(fn2, "_wind")) Then
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_wind"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_wind.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_wind.ReadXml(String.Format(fn2, "_wind"))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_river")) Then
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_river"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_river.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_river.ReadXml(String.Format(fn2, "_river"))
End If
End If
DSET1.tbl_common_od.AcceptChanges()
DSET1.tbl_profile_od.AcceptChanges()
DSET1.tbl_weather_od.AcceptChanges()
DSET1.weather_cha_od.AcceptChanges()
DSET1.weather_group.AcceptChanges()
DSET1.weather_ilsa_od.AcceptChanges()
DSET1.weather_supdo_od.AcceptChanges()
DSET1.weather_temp_od.AcceptChanges()
DSET1.weather_water.AcceptChanges() '//230324
DSET1.weather_wind.AcceptChanges()
DSET1.weather_river.AcceptChanges()
DSET1.AcceptChanges()
Frm_Work.Close()
'//<2F><><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڷḸ<DAB7><E1B8B8> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>
SyncServer = False
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̰<EFBFBD> <20><><EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE> <20>Ѵ<EFBFBD>.
If isEnc AndAlso Pub.CheckInternet() Then
Read_Profile_OD()
If SyncServer Then '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD>ũ
'Read_WeatherData_OD() '//disable 230324
Read_CommonCode_OD()
Read_Profile_OD()
'Read_WatherGroup() '//disable 230324
End If
End If
CalcO = New CalculatorOD(Prj.LGVersino) '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŭ<EFBFBD><C5AC><EFBFBD><EFBFBD> <20>ʱ<EFBFBD>ȭ
Me.mbt_save.Enabled = True
Me.mbt_save2.Enabled = Me.mbt_save.Enabled
Refresh_StatusInfo() '//ȭ<><C8AD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD> <20><><EFBFBD><EFBFBD>âǥ<C3A2><C7A5>
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)
Me.Read_FilHistory()
CalcO.Validation() '//null<6C><6C><EFBFBD><EFBFBD>
'//<2F>θ<EFBFBD><CEB8><EFBFBD><EFBFBD><EFBFBD> <20>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȵǴ<C8B5> <20><><EFBFBD>θ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ݴϴ<DDB4>.
'Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
'//Version <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE>
'Work_msg("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE><EFBFBD><EFBFBD>")
'Dim MyVersion As String '= Format(My.Application.Info.Version.Minor, "0000") & Format(My.Application.Info.Version.Build, "0000")
'Dim L As New ArinLogin.ArinLOgin
'Dim VersionInfo As ArinLogin.ArinLOgin.sVersionInfo = Nothing
''/<2F><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionc").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' VersionInfo = L.Get_LastVersion("CO") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
' MsgBox("<22><><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
'End Try
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϲ<EFBFBD><CFB9><EFBFBD><EFBFBD><EFBFBD>üũ 140420
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionp").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' VersionInfo = L.Get_LastVersion("PO") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
' MsgBox("ǥ<><C7A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(OD) <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
'End Try
'/<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹<EFBFBD><CDB9><EFBFBD>Ȯ<EFBFBD><C8AE>
'Try
' MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
' If MyVersion = "" Then MyVersion = "20100101"
'Catch ex As Exception
' MyVersion = "20100101"
'End Try
'Try
' 'MyVersion = dset1.tbl_Desc.Rows(0)("versionw").ToString
' VersionInfo = L.Get_LastVersion("W") '//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD> eco <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ٲ<EFBFBD><D9B2>߰<EFBFBD><DFB0><EFBFBD> ^^ <20><><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD> <20>ֵ<EFBFBD><D6B5><EFBFBD> <20>սô<D5BD>!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0<><30> <20><><EFBFBD>ų<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>̹Ƿ<CCB9> <20>Ѿ<D1BE><EEB0A3>.
' Dim Msg As New System.Text.StringBuilder
' Msg.AppendLine("<22><><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
' Msg.AppendLine("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:" & MyVersion & " <20>űԹ<C5B1><D4B9><EFBFBD>:" & VersionInfo.Ver)
' Msg.AppendLine("----------------------------------")
' Msg.AppendLine(VersionInfo.Desc)
' Msg.AppendLine("----------------------------------")
' If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD>"
' ' Msg.AppendLine("<22>űԹ<C5B1><D4B9><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ðڽ<C3B0><DABD>ϱ<EFBFBD>?")
' If MsgBox(Msg.ToString, MsgBoxStyle.Information, "<22><><EFBFBD><EFBFBD>Ȯ<EFBFBD><C8AE>") = MsgBoxResult.Ok Then
' SyncServer = True
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
' ' End
' End If
' End If
'Catch ex As Exception
'End Try
'Me.Refresh_MenuItems("")
'/Dim fi As New System.IO.FileInfo(Prj.FileName)
lbl_filename.Text = "[" + fi.Name + "]"
Work_msg("")
Else
'//<2F><><EFBFBD>Ϻҷ<CFBA><D2B7><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>з<EFBFBD><D0B7><EFBFBD><EFBFBD>ؼ<EFBFBD> <20><><EFBFBD><EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ʴ´<CAB4>.
lbl_filename.Text = "[ERROR]"
End If
Catch ex As Exception
Dim sb As New System.Text.StringBuilder
Dim st As New StackTrace(True)
@@ -979,7 +1032,7 @@ ENDSTAT: '//
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error - Network")
End Try
'//<2F><><EFBFBD><EFBFBD><EFBFBD>͵<EFBFBD><CDB5><EFBFBD><EFBFBD>丮<EFBFBD><E4B8AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>Ѵ<EFBFBD> <20>̰<EFBFBD><CCB0><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD><CDBA>̽<EFBFBD><CCBD><EFBFBD> <20><>Ÿ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD><CFB0>Ѵ<EFBFBD>
'//<2F>̴<EFBFBD> <20><><EFBFBD>ͳݼ<CDB3>ġ<EFBFBD><C4A1><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⋚<EFBFBD><E28B9A><EFBFBD>̴<EFBFBD>
Work_msg("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<><C8AE><EFBFBD>մϴ<D5B4>")
@@ -997,7 +1050,7 @@ ENDSTAT: '//
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error - Setting")
End Try
Work_msg("")
Me.Activate()
End Sub
@@ -2060,7 +2113,7 @@ ENDSTAT: '//
rȯ<EFBFBD>⿡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = 0 * addmulti
r<EFBFBD>հ<EFBFBD> = r<EFBFBD><EFBFBD><EFBFBD>濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD>ù濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
If r<EFBFBD><EFBFBD><EFBFBD>濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = 0 Then
P(64) = ""
@@ -2222,10 +2275,10 @@ ENDSTAT: '//
r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD>ҿ䷮(0).<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * 1.0 '//171021
rȯ<EFBFBD>⿡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = Result1o.<EFBFBD><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD>ҿ䷮(0).ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> * 1.0 '//171021
End If
r<EFBFBD>հ<EFBFBD> = r<EFBFBD><EFBFBD><EFBFBD>濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD>ù濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + r<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> + rȯ<EFBFBD>⿡<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
If r<EFBFBD><EFBFBD><EFBFBD>濡<EFBFBD><EFBFBD><EFBFBD><EFBFBD> = 0 Then
P(76) = ""
Else
@@ -2888,7 +2941,7 @@ ENDSTAT: '//
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
End Try
End Sub
Private Sub RibbonButton4_Click(sender As Object, e As EventArgs) Handles RibbonButton4.Click
@@ -3090,6 +3143,10 @@ ENDSTAT: '//
Dim ms24 As New System.IO.MemoryStream()
Dim ms25 As New System.IO.MemoryStream()
Dim ms26 As New System.IO.MemoryStream()
Dim ms27 As New System.IO.MemoryStream()
Dim ms28 As New System.IO.MemoryStream()
DSET1.tbl_common_od.WriteXml(ms0)
Dim buffer0() As Byte = EnctryArea(ms0.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn0, ""), buffer0)
@@ -3121,6 +3178,18 @@ ENDSTAT: '//
DSET1.weather_temp_od.WriteXml(ms25)
buffer0 = EnctryArea(ms25.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn2, "_tp"), buffer0)
DSET1.weather_water.WriteXml(ms26)
buffer0 = EnctryArea(ms26.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn2, "_water"), buffer0)
DSET1.weather_river.WriteXml(ms27)
buffer0 = EnctryArea(ms27.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn2, "_river"), buffer0)
DSET1.weather_wind.WriteXml(ms28)
buffer0 = EnctryArea(ms28.GetBuffer())
System.IO.File.WriteAllBytes(String.Format(fn2, "_wind"), buffer0)
Else
DSET1.tbl_common_od.WriteXml(String.Format(fn0, "") + ".xml", True)
DSET1.tbl_profile_od.WriteXml(String.Format(fn1, "") + ".xml", True)
@@ -3130,6 +3199,10 @@ ENDSTAT: '//
DSET1.weather_ilsa_od.WriteXml(String.Format(fn2, "_is") + ".xml", True)
DSET1.weather_supdo_od.WriteXml(String.Format(fn2, "_sd") + ".xml", True)
DSET1.weather_temp_od.WriteXml(String.Format(fn2, "_tp") + ".xml", True)
DSET1.weather_water.WriteXml(String.Format(fn2, "_water") + ".xml", True)
DSET1.weather_river.WriteXml(String.Format(fn2, "_river") + ".xml", True)
DSET1.weather_wind.WriteXml(String.Format(fn2, "_wind") + ".xml", True)
End If
@@ -3155,6 +3228,10 @@ ENDSTAT: '//
DSET1.weather_temp_od.Clear()
DSET1.weather_supdo_od.Clear()
DSET1.weather_group.Clear()
DSET1.weather_water.Clear()
DSET1.weather_river.Clear()
DSET1.weather_wind.Clear()
DSET1.AcceptChanges()
End Sub
@@ -3199,7 +3276,7 @@ ENDSTAT: '//
Dim ext As String = "ECL2"
Select Case Prj.SFType
Case "00" '//<2F>⺻<EFBFBD><E2BABB><EFBFBD><EFBFBD>
Case "00", "10" '//<2F>⺻<EFBFBD><E2BABB><EFBFBD><EFBFBD>
Prj.UIVersion = STB(Br.ReadBytes(10))
Prj.LGVersino = STB(Br.ReadBytes(10))
Select Case Prj.LGVersino
@@ -3230,7 +3307,7 @@ ENDSTAT: '//
DS1 = Br.ReadBytes(CInt(DS1Len))
Catch ex As Exception
Prj.IsError = True
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read Data Array)." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 byteRead Error")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read Data Array)." & vbCrLf & FileName & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 byteRead Error")
End Try
'MsgBox("pos=" & Br.BaseStream.Position & vbCrLf & DS1.Length, MsgBoxStyle.Information, DS1Len)
@@ -3242,7 +3319,7 @@ ENDSTAT: '//
Ms.Close()
Catch ex As Exception
Prj.IsError = True
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read DataSet)" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>(Read DataSet)" & vbCrLf & FileName & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
End Try
If Prj.IsError Then
@@ -3330,7 +3407,7 @@ ENDSTAT: '//
DSETR1.AcceptChanges()
Ms.Close()
Catch ex As Exception
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & FileName & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error")
End Try
Prj.IsError = False
@@ -3370,7 +3447,7 @@ ENDSTAT: '//
DSET1.AcceptChanges()
Ms.Close()
Catch ex As Exception
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ջ<EFBFBD><D5BB>Ǿ<EFBFBD><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & FileName & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds1 Open Error")
End Try
'//DS1<53><31> <20>ִٸ<D6B4> <20>Լ<EFBFBD> <20>Ѵ<EFBFBD>
@@ -3383,11 +3460,11 @@ ENDSTAT: '//
DSETR1.AcceptChanges()
Ms.Close()
Catch ex As Exception
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>." & vbCrLf & FileName & vbCrLf & ex.Message.ToString, MsgBoxStyle.Information, "Ds2 Open Error")
End Try
Prj.IsError = False
Case Else
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>1", MsgBoxStyle.Critical, "<EFBFBD>ҷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
MsgBox("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ҷ<EFBFBD><D2B7><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD>1" & vbCrLf & FileName, MsgBoxStyle.Critical, "<EFBFBD>ҷ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
Prj.IsError = True
End Select
@@ -3428,6 +3505,7 @@ ENDSTAT: '//
'//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
'//save file (weather, profile)
DSET1.tbl_common_od.Clear()
DSET1.tbl_profile_od.Clear()
DSET1.tbl_weather_od.Clear()
@@ -3439,32 +3517,117 @@ ENDSTAT: '//
Dim fn0 As String = AppDomain.CurrentDomain.BaseDirectory + "\common.dat"
Dim fn1 As String = AppDomain.CurrentDomain.BaseDirectory + "\profile.dat"
Dim fn2 As String = AppDomain.CurrentDomain.BaseDirectory + "\weather{0}.dat"
If System.IO.File.Exists(fn0) Then
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn0, ""))
DSET1.tbl_common_od.ReadXml(String.Format(fn0, ""))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.tbl_common_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.tbl_common_od.ReadXml(String.Format(fn0, ""))
End If
End If
If System.IO.File.Exists(fn1) Then
DSET1.tbl_profile_od.ReadXml(String.Format(fn1, ""))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn1, ""))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.tbl_profile_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.tbl_profile_od.ReadXml(String.Format(fn1, ""))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "")) Then
DSET1.tbl_weather_od.ReadXml(String.Format(fn2, ""))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, ""))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.tbl_weather_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.tbl_weather_od.ReadXml(String.Format(fn2, ""))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_ch")) Then
DSET1.weather_cha_od.ReadXml(String.Format(fn2, "_ch"))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_ch"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_cha_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_cha_od.ReadXml(String.Format(fn2, "_ch"))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_gr")) Then
DSET1.weather_group.ReadXml(String.Format(fn2, "_gr"))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_gr"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_group.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_group.ReadXml(String.Format(fn2, "_gr"))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_is")) Then
DSET1.weather_ilsa_od.ReadXml(String.Format(fn2, "_is"))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_is"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_ilsa_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_ilsa_od.ReadXml(String.Format(fn2, "_is"))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_sd")) Then
DSET1.weather_supdo_od.ReadXml(String.Format(fn2, "_sd"))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_sd"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_supdo_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_supdo_od.ReadXml(String.Format(fn2, "_sd"))
End If
End If
If System.IO.File.Exists(String.Format(fn2, "_tp")) Then
DSET1.weather_temp_od.ReadXml(String.Format(fn2, "_tp"))
Dim buffer() As Byte = System.IO.File.ReadAllBytes(String.Format(fn2, "_tp"))
If (buffer(0) = &H90) Then '//<2F><>ȣȭ<C8A3><C8AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Dim decKey() As Byte = New Byte() {&HAC, &H29, &H55, &H42}
Dim newbuffer() As Byte = DeCryptArea(buffer, decKey)
Dim ms0 As New System.IO.MemoryStream(newbuffer)
DSET1.weather_temp_od.ReadXml(ms0)
Else
'//<2F>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>
DSET1.weather_temp_od.ReadXml(String.Format(fn2, "_tp"))
End If
End If
DSET1.tbl_common_od.AcceptChanges()
DSET1.tbl_profile_od.AcceptChanges()
DSET1.tbl_weather_od.AcceptChanges()
@@ -3473,6 +3636,7 @@ ENDSTAT: '//
DSET1.weather_ilsa_od.AcceptChanges()
DSET1.weather_supdo_od.AcceptChanges()
DSET1.weather_temp_od.AcceptChanges()
DSET1.AcceptChanges()
@@ -3691,7 +3855,7 @@ ENDSTAT: '//
DSET1.tbl_Desc.AcceptChanges()
validation() '//null<6C><6C><EFBFBD><EFBFBD>
' // validation() '//null<6C><6C><EFBFBD><EFBFBD>
'//<2F>θ<EFBFBD><CEB8><EFBFBD><EFBFBD><EFBFBD> <20>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȵǴ<C8B5> <20><><EFBFBD>θ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>ݴϴ<DDB4>.
Me.lbl_filename.Text = Prj.FileName.Substring(Prj.FileName.LastIndexOf("\") + 1)
@@ -3865,7 +4029,7 @@ ENDSTAT: '//
Private Sub RibbonButton17_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton17.Click
@@ -4234,16 +4398,19 @@ ENDSTAT: '//
End Sub
Dim prepath As String = ""
Private Sub RibbonButton22_Click_1(sender As System.Object, e As System.EventArgs) Handles RibbonButton22.Click
Dim fd As New FolderBrowserDialog
fd.SelectedPath = prepath
If fd.ShowDialog <> Windows.Forms.DialogResult.OK Then Return
prepath = fd.SelectedPath
Dim filecnt As Integer = 0
For Each file As String In System.IO.Directory.GetFiles(fd.SelectedPath, "*.tpl")
For Each file As String In System.IO.Directory.GetFiles(fd.SelectedPath, "*.tpl", IO.SearchOption.AllDirectories)
Dim ext As String = Open_TPL(file)
Dim fi As New System.IO.FileInfo(file)
Dim newfil As String = fi.Directory.FullName + "\" + fi.Name.Replace(fi.Extension, "." + ext)
Me.Func_Save_OD(newfil, False)