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

ArinWarev1/Forms_Input/Frm_Desc.Designer.vb

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

ArinWarev1/Forms_Input/Frm_Desc.resx

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

ArinWarev1/Forms_Input/Frm_Desc.vb

@@ -125,16 +125,7 @@
         bsArea2.DataSource = DSET1
         bsArea2.DataMember = "weather_group"
 
-        'cmbArea1.DataSource = bsArea1
+        'Read_WeatherFile()
-        'cmbArea2.DataSource = bsArea2
-
-        'cmbArea1.DisplayMember = "name"
-        'cmbArea1.ValueMember = "code"
-        'bsArea1.Filter = "code like '%0000'"
-
-        'cmbArea2.DisplayMember = "name"
-        'cmbArea2.ValueMember = "code"
-        'bsArea2.Filter = "code ='test'"
 
         Me.LinkLabel1.Visible = False
         Me.LinkLabel2.Visible = False
@@ -206,40 +197,46 @@
             End Try
 
             '/기상데이터버젼확인 
-            Try
+            '/기상데이터는 로컬파일을 사용하도록 한다 200816
-                MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
+            'Try
-                If MyVersion = "" Then MyVersion = "20100101"
+            '    MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
-            Catch ex As Exception
+            '    If MyVersion = "" Then MyVersion = "20100101"
-                MyVersion = "20100101"
+            'Catch ex As Exception
-            End Try
+            '    MyVersion = "20100101"
-            Try
+            'End Try
-                'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
+            'Try
-                VersionInfo = L.Get_LastVersion("W")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
+            '    'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
-                If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
+            '    VersionInfo = L.Get_LastVersion("W")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
-                    'Dim Lw As String = Me.cmbArea2.SelectedValue
+            '    If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
-                    Read_WeatherData()
+            '        'Dim Lw As String = Me.cmbArea2.SelectedValue
-                    'Me.cmbArea2.SelectedValue = Lw
+            '        Read_WeatherData()
-                    Me.bs.EndEdit()
+            '        'Me.cmbArea2.SelectedValue = Lw
-                End If
+            '        Me.bs.EndEdit()
-            Catch ex As Exception
+            '    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 = ""

ArinWarev1/MdiMain.vb

@@ -894,41 +894,43 @@ Public Class MdiMain
                 End Try
             End If
 
+            Read_WeatherFile()
+
 
 
             '/기상데이터버젼확인
-            Try
+            'Try
-                MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
+            '    MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
-                If MyVersion = "" Then MyVersion = "20100101"
+            '    If MyVersion = "" Then MyVersion = "20100101"
-            Catch ex As Exception
+            'Catch ex As Exception
-                MyVersion = "20100101"
+            '    MyVersion = "20100101"
-            End Try
+            'End Try
 
-            pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
+            'pLog.Add(String.Format("기상데이터버젼 = {0}", MyVersion))
-            If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
+            'If Prj.UserId.ToLower() <> "guest" AndAlso Not Prj.UserId.ToLower().StartsWith("user") Then '//191020
-                Try
+            '    Try
-                    'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
+            '        'MyVersion = DSET1.tbl_Desc.Rows(0)("versionw").ToString
-                    VersionInfo = L.Get_LastVersion("W2")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
+            '        VersionInfo = L.Get_LastVersion("W2")   '//버젼을 가져오는데  eco 버젼만 가져오게 바꺼야겟죵 ^^ 구분자를 넣도록 합시닷!
-                    If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
+            '        If VersionInfo.Ver <> "0" AndAlso (CInt(VersionInfo.Ver) > CInt(MyVersion)) Then   '//0은 없거나 관리안함의 뜻이므로 넘어간다.
-                        If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가
+            '            If Prj.UserAuthType = "ADMIN" OrElse Prj.UserAuthType = "BOTH" OrElse Prj.UserAuthType = "BOTH2" OrElse Prj.UserAuthType = "BOTH1" Then  '//2011.03.08 추가
-                            Dim Msg As New System.Text.StringBuilder
+            '                Dim Msg As New System.Text.StringBuilder
-                            Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
+            '                Msg.AppendLine("새로운 버젼이 확인되었습니다" & vbCrLf)
-                            Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
+            '                Msg.AppendLine("현재버젼:" & MyVersion & " 신규버젼:" & VersionInfo.Ver)
-                            Msg.AppendLine("----------------------------------")
+            '                Msg.AppendLine("----------------------------------")
-                            Msg.AppendLine(VersionInfo.Desc)
+            '                Msg.AppendLine(VersionInfo.Desc)
-                            Msg.AppendLine("----------------------------------")
+            '                Msg.AppendLine("----------------------------------")
-                            If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
+            '                If VersionInfo.Link.Trim = "" Then VersionInfo.Link = "http://홈페이지주소"
-                            ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
+            '                ' Msg.AppendLine("신규버젼을 확인하기위한 페이지를 여시겠습니까?")
-                            If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
+            '                If MsgBox(Msg.ToString, MsgBoxStyle.Information, "버젼확인") = MsgBoxResult.Ok Then
-                                'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
+            '                    'Shell("explorer " & VersionInfo.Link, AppWinStyle.NormalFocus)
-                                ' End
+            '                    ' End
-                            End If
+            '                End If
-                        End If
+            '            End If
-                    End If
+            '        End If
-                Catch ex As Exception
+            '    Catch ex As Exception
 
-                End Try
+            '    End Try
-            End If
+            'End If
 
             PrjChanged = False
 
@@ -976,6 +978,66 @@ Public Class MdiMain
     Private GroupList_Yk As ArrayList
     Private GroupList_Bunbae As ArrayList
 
+
+    Sub Read_WeatherFile()
+        '//날씨정보는 외부파일에서 사용한다
+        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("날씨데이터파일#1 이 없습니다\r\n프로그램을 다시 설치하세요")
+        End If
+        If System.IO.File.Exists(fi2) Then
+            DSET1.weather_ilsa.ReadXml(fi2)
+        Else
+            MsgBox("날씨데이터파일#2 이 없습니다\r\n프로그램을 다시 설치하세요")
+        End If
+        If System.IO.File.Exists(fi3) Then
+            DSET1.weather_supdo.ReadXml(fi3)
+        Else
+            MsgBox("날씨데이터파일#3 이 없습니다\r\n프로그램을 다시 설치하세요")
+        End If
+        If System.IO.File.Exists(fi4) Then
+            DSET1.weather_temp.ReadXml(fi4)
+        Else
+            MsgBox("날씨데이터파일#4 이 없습니다\r\n프로그램을 다시 설치하세요")
+        End If
+        If System.IO.File.Exists(fi5) Then
+            DSET1.tbl_weather.ReadXml(fi5)
+        Else
+            MsgBox("날씨데이터파일#5 이 없습니다\r\n프로그램을 다시 설치하세요")
+        End If
+        If System.IO.File.Exists(fi6) Then
+            DSET1.weather_group.ReadXml(fi6)
+        Else
+            MsgBox("날씨데이터파일#6 이 없습니다\r\n프로그램을 다시 설치하세요")
+        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
+
     '''좌측메뉴를 재구성하는소스
     Public Sub RefreshMenuList(autoselecttagname)
         Me.TreeView1.Nodes.Clear()  '//기존트리목록초기화