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 = ""