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

기상파일을 저장된 파일에서 불러오게함 \data\weather*.xml

Browse Source
This commit is contained in:
chi
2020-08-16 21:53:24 +09:00
parent 95f04d3348
commit ee3c2fb678
4 changed files with 127 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ArinWarev1/Forms_Input/Frm_Desc.Designer.vb generated
View File

@@ -397,7 +397,7 @@ Partial Class Frm_Desc
'LinkLabel3
'
Me.LinkLabel3.AutoSize = True
Me.LinkLabel3.Location = New System.Drawing.Point(413, 551)
Me.LinkLabel3.Location = New System.Drawing.Point(209, 551)
Me.LinkLabel3.Name = "LinkLabel3"
Me.LinkLabel3.Size = New System.Drawing.Size(210, 12)
Me.LinkLabel3.TabIndex = 177
@@ -417,13 +417,15 @@ Partial Class Frm_Desc
'LinkLabel2
'
Me.LinkLabel2.AutoSize = True
Me.LinkLabel2.Location = New System.Drawing.Point(206, 551)
Me.LinkLabel2.LinkColor = System.Drawing.Color.Red
Me.LinkLabel2.Location = New System.Drawing.Point(429, 551)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(197, 12)
Me.LinkLabel2.TabIndex = 177
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "기상데이터 서버로부터 가져오기"
Me.ToolTip1.SetToolTip(Me.LinkLabel2, "기상관련데이터를 서버로부터 가져옵니다")
Me.LinkLabel2.Visible = False
'
'Label18
'

3
ArinWarev1/Forms_Input/Frm_Desc.resx
View File

@@ -123,6 +123,9 @@
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<metadata name="DS.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>81, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

57
ArinWarev1/Forms_Input/Frm_Desc.vb
View File

@@ -125,16 +125,7 @@
bsArea2.DataSource = DSET1
bsArea2.DataMember = "weather_group"
'cmbArea1.DataSource = bsArea1
'cmbArea2.DataSource = bsArea2
'cmbArea1.DisplayMember = "name"
'cmbArea1.ValueMember = "code"
'bsArea1.Filter = "code like '%0000'"
'cmbArea2.DisplayMember = "name"
'cmbArea2.ValueMember = "code"
'bsArea2.Filter = "code ='test'"
'Read_WeatherFile()
Me.LinkLabel1.Visible = False
Me.LinkLabel2.Visible = False
@@ -205,41 +196,47 @@
MsgBox("표준프로파일 에러" & ex.Message.ToString)
End Try
'/기상데이터버젼확인
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") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
'Dim Lw As String = Me.cmbArea2.SelectedValue
Read_WeatherData()
'Me.cmbArea2.SelectedValue = Lw
Me.bs.EndEdit()
End If
Catch ex As Exception
'/기상데이터버젼확인
'/기상데이터는 로컬파일을 사용하도록 한다 200816
'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") '//버젼을 가져오는데 eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
' If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then '//0은 없거나 관리안함의 뜻이므로 넘어간다.
' 'Dim Lw As String = Me.cmbArea2.SelectedValue
' Read_WeatherData()
' 'Me.cmbArea2.SelectedValue = Lw
' Me.bs.EndEdit()
' End If
'Catch ex As Exception
'End Try
End Try
Else
If Not Prj.UserId.ToLower() = "guest" Then
'//서버업데이트기능 숨김
Me.LinkLabel1.Visible = True
Me.LinkLabel2.Visible = True
'Me.LinkLabel2.Visible = True
Me.LinkLabel3.Visible = True
End If
End If
'지역코드설정()
AddHandler DSET1.tbl_Desc.ColumnChanging, AddressOf AddNewDataRow_Zone_Changed2
AddDebug("▲ Form Load")
AddDebug("▲ Form Load")
End Sub
Private Sub Binding_Zone()
Dim bs_cmb_공조방식 As New BindingSource(DSET1, "tbl_weather")
bs_cmb_공조방식.Filter = ""

124
ArinWarev1/MdiMain.vb
View File

@@ -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>ȭ