기상파일을 저장된 파일에서 불러오게함 \data\weather*.xml
This commit is contained in:
chi
@@ -893,42 +893,44 @@ Public Class MdiMain
|
||||
MsgBox("ǥ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>" & ex.Message.ToString)
|
||||
End Try
|
||||
End If
|
||||
|
||||
|
||||
Read_WeatherFile()
|
||||
|
||||
|
||||
|
||||
'/<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
|
||||
' If MyVersion = "" Then MyVersion = "20100101"
|
||||
'Catch ex As Exception
|
||||
' MyVersion = "20100101"
|
||||
'End Try
|
||||
|
||||
pLog.Add(String.Format("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||
Try
|
||||
'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
||||
VersionInfo = L.Get_LastVersion("W2") '//<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>.
|
||||
If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 <20>߰<EFBFBD>
|
||||
Dim Msg As New System.Text.StringBuilder
|
||||
Msg.AppendLine("<EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
|
||||
Msg.AppendLine("<EFBFBD><EFBFBD><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, "<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȯ<EFBFBD><EFBFBD>") = MsgBoxResult.Ok Then
|
||||
'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
||||
' End
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
'pLog.Add(String.Format("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = {0}", MyVersion))
|
||||
'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
|
||||
' Try
|
||||
' 'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
|
||||
' VersionInfo = L.Get_LastVersion("W2") '//<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>.
|
||||
' If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then '//2011.03.08 <20>߰<EFBFBD>
|
||||
' Dim Msg As New System.Text.StringBuilder
|
||||
' Msg.AppendLine("<EFBFBD><EFBFBD><EFBFBD>ο<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<>εǾ<CEB5><C7BE><EFBFBD><EFBFBD>ϴ<EFBFBD>" & vbCrLf)
|
||||
' Msg.AppendLine("<EFBFBD><EFBFBD><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
|
||||
' 'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
|
||||
' ' End
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
' End Try
|
||||
'End If
|
||||
|
||||
PrjChanged = False
|
||||
|
||||
@@ -976,6 +978,66 @@ Public Class MdiMain
|
||||
Private GroupList_Yk As ArrayList
|
||||
Private GroupList_Bunbae As ArrayList
|
||||
|
||||
|
||||
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()
|
||||
DSET1.weather_ilsa.Clear()
|
||||
DSET1.weather_supdo.Clear()
|
||||
DSET1.weather_temp.Clear()
|
||||
DSET1.weather_group.Clear()
|
||||
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")
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
DSET1.weather_cha.AcceptChanges()
|
||||
DSET1.weather_ilsa.AcceptChanges()
|
||||
DSET1.weather_supdo.AcceptChanges()
|
||||
DSET1.weather_temp.AcceptChanges()
|
||||
DSET1.tbl_weather.AcceptChanges()
|
||||
|
||||
DSET1.weather_group.AcceptChanges()
|
||||
End Sub
|
||||
|
||||
'''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB4><EFBFBD> <20>籸<EFBFBD><E7B1B8><EFBFBD>ϴ¼ҽ<C2BC>
|
||||
Public Sub RefreshMenuList(autoselecttagname)
|
||||
Me.TreeView1.Nodes.Clear() '//<2F><><EFBFBD><EFBFBD>Ʈ<EFBFBD><C6AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>ȭ
|
||||
|
||||
Reference in New Issue
Block a user